Mini Kabibi Habibi

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

!�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12formformForm1�DataSession = 2
Top = 0
Left = 0
Height = 321
Width = 547
DoCreate = .T.
BorderStyle = 2
Caption = "Manipulate Display Characteristics of a Graph"
MaxButton = .F.
HelpContextID = 105
Name = "Form1"
LPROCEDURE 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)

#DEFINE CRLF	CHR(13)+CHR(10)
#DEFINE TAB 	CHR(9)
#DEFINE DOGS_LOC "Dogs"
#DEFINE CATS_LOC "Cats"
#DEFINE bartype	-4099

SET SAFETY OFF
create table foo (gen1 g)
SET SAFETY ON
append blank
cGData = ""+TAB+CATS_LOC +TAB+DOGS_LOC +CRLF+;
		 "1994"+TAB+"11"+TAB+"22"+CRLF+;
		 "1995"+TAB+"33"+TAB+"44"+CRLF+;
		 "1996"+TAB+"55"+TAB+"55"+CRLF
THIS.LockScreen = .T.
append general gen1 class "msgraph.chart" DATA m.cGData
THIS.OleBoundControl1.ControlSource = "Gen1"
THIS.OleBoundControl1.HasLegend = .F.
THIS.OleBoundControl1.autoformat(bartype,1)
THIS.LockScreen = .F.


ENDPROC
r�� YY��%����U9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELPe�%�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�����G.�h1�foo��G�G. ���T���C�	 �CatsC�	 �DogsC�
 C�
 �1994C�	 �11C�	 �22C�
 C�
 �1995C�	 �33C�	 �44C�
 C�
 �1996C�	 �55C�	 �55C�
 C�
 ��T���a��#�O��
msgraph.chart���
���T�����Gen1��T����-����C������	��T���-��U
THISSETALLFOOGEN1CGDATA
LOCKSCREENOLEBOUNDCONTROL1
CONTROLSOURCE	HASLEGEND
AUTOFORMAT
Deactivate,��Activate���Init���1Q�A2�2d	��A�hAaQ��1qq�3d���A	)YtextboxtextboxText1Form1|Enabled = .T.
Height = 220
Left = 10
ReadOnly = .T.
TabIndex = 1
TabStop = .F.
Top = 67
Width = 435
Name = "Text1"
oleboundcontrololeboundcontrolOleboundcontrol1Form1hTop = 69
Left = 12
Height = 217
Width = 431
TabIndex = 0
Enabled = .T.
Name = "Oleboundcontrol1"
optiongroupoptiongroupOptiongroup1Form1(ButtonCount = 3
Value = 1
Height = 67
Left = 456
Top = 70
Width = 82
TabIndex = 3
Name = "Optiongroup1"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.Caption = "\<Bar"
Option1.Value = 1
Option1.Height = 15
Option1.Left = 9
Option1.Top = 12
Option1.Width = 34
Option1.AutoSize = .T.
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.Caption = "\<Column"
Option2.Value = 0
Option2.Height = 15
Option2.Left = 9
Option2.Top = 28
Option2.Width = 53
Option2.AutoSize = .T.
Option2.Name = "Option2"
Option3.FontName = "MS Sans Serif"
Option3.FontSize = 8
Option3.Caption = "\<Pie"
Option3.Value = 0
Option3.Height = 15
Option3.Left = 9
Option3.Top = 45
Option3.Width = 33
Option3.AutoSize = .T.
Option3.Name = "Option3"
>PROCEDURE Click
#DEFINE bartype	-4099
#DEFINE coltype	-4100
#DEFINE pietype	-4102

DO CASE
CASE THIS.Value = 1
	THISFORM.OleBoundControl1.autoformat(bartype,1)
CASE THIS.Value = 2
	THISFORM.OleBoundControl1.autoformat(coltype,1)
OTHERWISE
	THISFORM.OleBoundControl1.autoformat(pietype,7)
ENDCASE
ENDPROC
s�� ZZ�y%�
��U�
H�
���������8���C��������������c���C��������2�����C���������UTHISVALUETHISFORMOLEBOUNDCONTROL1
AUTOFORMATClick,��1�AqAq�qA13)Zbehindscenes..\solution.vcx
commandbutton
Behindscenes1Form1<Top = 292
Left = 11
TabIndex = 7
Name = "Behindscenes1"
c_solutions..\solution.vcxcustomC_solutions1Form1FTop = 294
Left = 99
Height = 18
Width = 25
Name = "C_solutions1"
cmdclose..\solution.vcx
commandbutton	Cmdclose1Form1RTop = 292
Left = 465
Height = 23
Width = 72
TabIndex = 8
Name = "Cmdclose1"
shapeshapeShape2Form1bTop = 13
Left = 11
Height = 45
Width = 527
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel5Form1FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Using OLE Automation you can manipulate the characteristics of a graph.  Change the graph type and view options on the right."
Height = 28
Left = 20
Top = 23
Width = 506
TabIndex = 0
Name = "Label5"
labellabelLabel6Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 19
Top = 7
Width = 62
TabIndex = 0
Name = "Label6"
labellabelLabel1Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " \<Graph Type "
Height = 15
Left = 464
Top = 64
Width = 64
TabIndex = 2
Name = "Label1"
shapeshapeShape1Form1cTop = 147
Left = 456
Height = 55
Width = 82
BackStyle = 0
SpecialEffect = 0
Name = "Shape1"
labellabelLabel2Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " \<View Options "
Height = 15
Left = 464
Top = 141
Width = 70
TabIndex = 4
Name = "Label2"
checkboxcheckboxCheck1Form1�Top = 158
Left = 467
Height = 17
Width = 60
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Title"
TabIndex = 5
Name = "Check1"
PROCEDURE Click
#DEFINE C_GRAPHTITLE_LOC "It's Raining Cats and Dogs!"
THISFORM.OleBoundControl1.HasTitle = !THISFORM.OleBoundControl1.HasTitle
IF THISFORM.OleBoundControl1.HasTitle = .T.
	THISFORM.OleBoundControl1.ChartTitle.Caption = C_GRAPHTITLE_LOC
ENDIF
ENDPROC
O�� 66�\%����UgT�������
��%����a��`�1T������It's Raining Cats and Dogs!���UTHISFORMOLEBOUNDCONTROL1HASTITLE
CHARTTITLECAPTIONClick,��1�QA1)6checkboxcheckboxCheck2Form1�Top = 175
Left = 467
Height = 17
Width = 60
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Legend"
TabIndex = 6
Name = "Check2"
hPROCEDURE Click
THISFORM.OleBoundControl1.HasLegend = !THISFORM.OleBoundControl1.HasLegend

ENDPROC
�� ����%t���UT�������
��UTHISFORMOLEBOUNDCONTROL1	HASLEGENDClick,��1�2])�JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Top = 0
Left = 0
Height = 321
Width = 547
DoCreate = .T.
BorderStyle = 2
Caption = "Manipulate Display Characteristics of a Graph"
MaxButton = .F.
HelpContextID = 1231536
Name = "Form1"