Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/sdiform.sct

�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12formformSDIFORM�DataSession = 2
Top = 4
Left = 8
Height = 329
Width = 469
ShowWindow = 2
DoCreate = .T.
ShowTips = .T.
Caption = "Add a Menu to an SDI Form"
MaxButton = .F.
AlwaysOnTop = .T.
HelpContextID = 165
Name = "SDIFORM"
BPROCEDURE Destroy
RELEASE MENU (THIS.Name) EXTENDED

ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Init
IF  fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
	fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
	fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
	fontmetric(7, 'MS Sans Serif', 8, '') # 11
	this.setall('fontname', 'Tahoma')  
ELSE
	this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize',8)


ENDPROC
�� ���r%�^>�U<������UTHISNAME
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP	�%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$�����!��C�fontname�Tahoma�������(��C�fontname�
MS Sans Serif�������C�fontsize�����UTHISSETALLDestroy,��ActivateN��
Deactivate���Init���1�3�2Q�A2d	��A�36Uo��	�7
)�otoolbar
^owindows[1,0] 
behindscenes..\solution.vcx
commandbutton
Behindscenes1SDIFORM;Top = 272
Left = 36
Height = 23
Name = "Behindscenes1"
c_solutions..\solution.vcxcustomC_solutions1SDIFORMFTop = 272
Left = 84
Height = 18
Width = 25
Name = "C_solutions1"
cmdclose..\solution.vcx
commandbuttonCmdcloseSDIFORMQTop = 272
Left = 360
Height = 23
Width = 72
TabIndex = 2
Name = "Cmdclose"

commandbutton
commandbutton	cmdWindowSDIFORM�Top = 272
Left = 228
Height = 23
Width = 37
Picture = screen.bmp
Caption = ""
HelpContextID = 0
StatusBarText = "Add Window"
TabIndex = 1
ToolTipText = "Add Window"
Name = "cmdWindow"
�PROCEDURE Click
LOCAL nGetWin,i
FOR i = 1 TO ALEN(thisform.oWindows)
	IF TYPE("thisform.oWindows[m.i]")#"O" OR;
		ISNULL(thisform.oWindows[m.i])
		nGetWin = m.i
		EXIT
	ENDIF
	IF m.i = ALEN(thisform.oWindows)
		DIMENSION thisform.oWindows[ALEN(thisform.oWindows)+1]
		nGetWin = m.i+1
	ENDIF
ENDFOR

thisform.oWindows[m.nGetWin] = CreateObject('form')
thisform.oWindows[m.nGetWin].height = 100
thisform.oWindows[m.nGetWin].width = 200
thisform.oWindows[m.nGetWin].top = m.nGetWin*10
thisform.oWindows[m.nGetWin].left = (m.nGetWin*10)
thisform.oWindows[m.nGetWin].NAME = 'child'+ALLTRIM(STR(m.nGetWin))
thisform.oWindows[m.nGetWin].caption = "Child Window "+ALLTRIM(STR(m.nGetWin))
DO CASE
CASE m.nGetWin%5=0
	thisform.oWindows[m.nGetWin].backcolor = RGB(0,255,255)
CASE m.nGetWin%4=0
	thisform.oWindows[m.nGetWin].backcolor = RGB(255,0,0)
CASE m.nGetWin%3=0
	thisform.oWindows[m.nGetWin].backcolor = RGB(0,255,0)
CASE m.nGetWin%2=0
	thisform.oWindows[m.nGetWin].backcolor = RGB(0,0,255)
OTHERWISE
	thisform.oWindows[m.nGetWin].backcolor = RGB(255,255,0)
ENDCASE

ACTIVATE WINDOW (thisform.oWindows[m.nGetWin].NAME) IN WINDOW (thisform.name)
ENDPROC
D�� ++(%��!��U
���������(�C������=%�C�thisform.oWindows[m.i]b�O�CC�
������w�T���
���!��%��
�C����������C�����T���
�������T����
���C�form�N��T����
�����d��T����
�������!T����
�����
��
��"T����
�����
��
��*T����
�����childCC�
�Z���2T����
���	��
Child Window CC�
�Z���
H������C�
��G����$T����
���
�C������^���C�
��G���@�$T����
���
�C�����^���C�
��G���|�$T����
���
�C�����^���C�
��G�����$T����
���
�C�����^��2���$T����
���
�C������^���"t,�����C�
������UNGETWINITHISFORMOWINDOWSHEIGHTWIDTHTOPLEFTNAMECAPTION	BACKCOLORClick,��1����AA��1AA���!�!��A�A�A�A�AA"1�)+
commandbutton
commandbutton
cmdToolbarSDIFORM�Top = 272
Left = 264
Height = 23
Width = 37
Picture = toolbar1.bmp
Caption = ""
StatusBarText = "Add Toolbar"
TabIndex = 2
ToolTipText = "Add Toolbar"
Name = "cmdToolbar"
�PROCEDURE Click
IF TYPE("thisform.oToolbar")="O" AND;
	!ISNULL(thisform.oToolbar)
	RETURN
ENDIF
SET CLASSLIB TO sditbar ADDITIVE
thisform.oToolbar=create("sditb1",THISFORM)
thisform.oToolbar.show
RELEASE CLASSLIB sditbar

ENDPROC
]�� DDk�%��	��U�2%�C�thisform.oToolbarb�O�
C���
	��6�B��G~(�sditbar�T���C�sditb1��N��
�����<R�sditbar�UTHISFORMOTOOLBARSDITBARSHOWClick,��1"AA���2�)D
commandbutton
commandbuttoncmdMenuSDIFORM�Top = 272
Left = 300
Height = 23
Width = 37
Picture = menus.bmp
Caption = ""
StatusBarText = "Add Menu"
TabIndex = 3
ToolTipText = "Add Menu"
Name = "cmdMenu"
�PROCEDURE Click
#DEFINE MENUHGT		20

thisform.lockscreen = .T.
DO sdiform.mpr WITH THISFORM,.T.
this.enabled = .F.
thisform.behindscenes1.top = thisform.behindscenes1.top - MENUHGT
thisform.cmdWindow.top = thisform.cmdWindow.top - MENUHGT
thisform.cmdToolbar.top = thisform.cmdToolbar.top - MENUHGT
thisform.cmdClose.top = thisform.cmdClose.top - MENUHGT
this.top = this.top - MENUHGT
thisform.refresh
thisform.lockscreen = .F.

ENDPROC
�� ��O"%}���U�T���a���sdiform.mpr��a��T���-��T����������T����������T��	����	����T��
����
����T��������
����T���-��UTHISFORM
LOCKSCREENSDIFORMMPRTHISENABLED
BEHINDSCENES1TOP	CMDWINDOW
CMDTOOLBARCMDCLOSEREFRESHClick,��1�������q��2�)�JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Top = 4
Left = 8
Height = 329
Width = 469
ShowWindow = 2
DoCreate = .T.
ShowTips = .T.
Caption = "Add a Menu to an SDI Form"
MaxButton = .F.
AlwaysOnTop = .T.
HelpContextID = 1231554
Name = "SDIFORM"