Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/image.sct
 VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
12formformform1�DataSession = 2
Top = 5
Left = 7
Height = 335
Width = 490
DoCreate = .T.
BorderStyle = 3
Caption = "Display Pictures in an Image Control"
MaxButton = .F.
HelpContextID = 1231578
Name = "form1"
�PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
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)

THIS.nOriginalWidth = THIS.imgDisplay.Width
THIS.nOriginalHeight = THIS.imgDisplay.Height

cDir = HOME() + "SAMPLES\GRAPHICS\BMPS\FOX"
IF FILE(cDir + "\NUL")
	CD (cDir)
	THIS.lstFiles.Requery
ENDIF
ENDPROC
��� {{�%���U9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELP��%�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�����T��������T��������*T��C�Q�SAMPLES\GRAPHICS\BMPS\FOX��%�C��\NUL0����
�����
����	��U
THISSETALLNORIGINALWIDTH
IMGDISPLAYWIDTHNORIGINALHEIGHTHEIGHTCDIRLSTFILESREQUERY
Deactivate,��Activate���Init���1Q�A2�2d	��A�ba�q��A1d����	){!noriginalheight
noriginalwidth
shapeshapeShape1form1dTop = 260
Left = 214
Height = 43
Width = 265
BackStyle = 0
SpecialEffect = 0
Name = "Shape1"
textboxtextboxText1form1_Height = 194
Left = 214
ReadOnly = .T.
TabIndex = 4
Top = 56
Width = 266
Name = "Text1"
imageimage
imgDisplayform1fBackStyle = 0
BorderStyle = 1
Height = 191
Left = 215
Top = 58
Width = 264
Name = "imgDisplay"
listboxlistboxlstFilesform1�FontName = "MS Sans Serif"
FontSize = 8
RowSourceType = 7
RowSource = "*.bmp"
Height = 216
Left = 11
TabIndex = 1
Top = 57
Width = 197
IntegralHeight = .T.
Name = "lstFiles"
�PROCEDURE InteractiveChange
cSelected = UPPER(THIS.List(THIS.ListIndex))
CD THIS.List(2)
IF ".BMP"$cSelected OR ".ICO"$cSelected
	THISFORM.imgDisplay.Picture = THIS.List(2) + cSelected
ENDIF
ENDPROC
n�� UU��%���UrT��CC����f����C�����$%��.BMP���.ICO���k�T����C�������U	CSELECTEDTHISLIST	LISTINDEXTHISFORM
IMGDISPLAYPICTUREInteractiveChange,��1�A�A1�)Ubehindscenes..\solution.vcx
commandbutton
Behindscenes1form1;Top = 302
Left = 8
TabIndex = 9
Name = "Behindscenes1"
cmdclose..\solution.vcx
commandbutton	Cmdclose1form1:Top = 308
Left = 407
TabIndex = 10
Name = "Cmdclose1"
c_solutions..\solution.vcxcustomC_solutions1form1\Top = 304
Left = 63
Height = 18
Width = 25
autosetdefault = .T.
Name = "C_solutions1"
comboboxcombobox
cboStretchform1:FontName = "MS Sans Serif"
FontSize = 8
BoundColumn = 2
ColumnCount = 2
ColumnWidths = "92,0"
RowSourceType = 1
RowSource = "0 - Clip,0,1 - Isometric,1,2 - Stretch,2"
Value = 1
Height = 23
ColumnLines = .F.
Left = 287
Style = 2
TabIndex = 7
Top = 272
Width = 92
_memberdata = 
Name = "cboStretch"
�PROCEDURE InteractiveChange
o = THISFORM.imgDisplay
o.Width = THISFORM.nOriginalWidth
o.Height = THISFORM.nOriginalHeight
o.Stretch = THIS.Value - 1
ENDPROC
h�� OOj
%���UPT������T�������T�������T�����	���U
OTHISFORM
IMGDISPLAYWIDTHNORIGINALWIDTHHEIGHTNORIGINALHEIGHTSTRETCHTHISVALUEInteractiveChange,��111q1�)OlabellabelLabel2form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Image \<size:"
Height = 15
Left = 225
Top = 276
Width = 55
TabIndex = 6
Name = "Label2"
comboboxcomboboxCombo1form1�FontName = "MS Sans Serif"
FontSize = 8
RowSourceType = 1
RowSource = "*.bmp,*.ico,*.jpg,*.gif"
Value = *.bmp
Height = 23
Left = 75
Style = 2
TabIndex = 3
Top = 279
Width = 132
Name = "Combo1"
�PROCEDURE InteractiveChange
THISFORM.lstFiles.RowSource = THIS.Value
THISFORM.lstFiles.Requery
ENDPROC
PROCEDURE Init
THIS.ListIndex = 1

ENDPROC
Z�� AA��%����U&T��������
�����UTHISFORMLSTFILES	ROWSOURCETHISVALUEREQUERYT������UTHIS	LISTINDEXInteractiveChange,��Init���1a�22`{�)AlabellabelLabel3form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Files of type:"
Height = 15
Left = 10
Top = 283
Width = 61
TabIndex = 2
Name = "Label3"
checkboxcheckbox	chkBorderform1�Top = 276
Left = 388
Height = 15
Width = 81
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "Image \<Border"
Value = 1
TabIndex = 8
Name = "chkBorder"
JPROCEDURE Click
THISFORM.imgDisplay.BorderStyle = THIS.Value

ENDPROC
�� ��G�%y���UT��������UTHISFORM
IMGDISPLAYBORDERSTYLETHISVALUEClick,��1a2?)�shapeshapeShape2form1bTop = 15
Left = 12
Height = 33
Width = 469
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel4form1�FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Select a bitmap or icon file from the list to display in the image control."
Height = 18
Left = 20
Top = 26
Width = 446
TabIndex = 0
Name = "Label4"
labellabelLabel5form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 20
Top = 9
Width = 62
TabIndex = 0
Name = "Label5"
labellabelLabel1form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " \<Display Options "
Height = 15
Left = 223
Top = 254
Width = 81
TabIndex = 5
Name = "Label1"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0