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/rtf.sct

2VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 1
Top = 220
Width = 520
Height = 120
Name = "Dataenvironment"
cursorcursorCursor1DataenvironmentgLeft = 10
Top = 20
Width = 90
Height = 90
Alias = "rtf"
CursorSource = rtf.dbf
Name = "Cursor1"
21formformForm1�Top = 0
Left = 0
Height = 329
Width = 591
DoCreate = .T.
ShowTips = .T.
Caption = "Use the RichText Control"
MinWidth = 580
HelpContextID = 154
ctext = 
Name = "Form1"
�PROCEDURE Destroy
REPLACE rtf.Source WITH THISFORM.oleRTF.TextRTF
ENDPROC
PROCEDURE Resize
THIS.oleRTF.Width = THIS.Width
THIS.oleRTF.Height = THIS.Height - THIS.nStripSize
THIS.oleRTF.RightMargin = THIS.oleRTF.Width-10

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)

* Check to see if OCX installed and loaded.
IF TYPE("THIS.oleRTF") # "O" OR ISNULL(THIS.oleRTF)
	RETURN .F.
ENDIF

THIS.nStripSize = THIS.oleRTF.Top
THIS.oleRTF.Width = THIS.Width
THIS.oleRTF.Height = THIS.Height - THIS.nStripSize

THIS.rtfControls1.cboFontName1.Value = THIS.oleRTF.Font.Name
THIS.rtfControls1.cboFontSize1.FillList(THIS.oleRTF.Font.Name)
THIS.rtfControls1.cboFontSize1.Value = ALLTRIM(STR(THIS.oleRTF.Font.Size))
ENDPROC
PROCEDURE Load
THIS.cText = rtf.source
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.C_SOLUTIONS1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
��� ll�%2���U>��������URTFSOURCETHISFORMOLERTFTEXTRTFST��������T����������T��������
��UTHISOLERTFWIDTHHEIGHT
NSTRIPSIZERIGHTMARGIN��%�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�����+%�C�THIS.oleRTFb�O�	C�����8�B�-���T��������T��������T����������T����	����
�����C���
�����
��#T����	�CC���
�Z���UTHISSETALLOLERTF
NSTRIPSIZETOPWIDTHHEIGHTRTFCONTROLS1CBOFONTNAME1VALUEFONTNAMECBOFONTSIZE1FILLLISTSIZET�������UTHISCTEXTRTFSOURCE
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.C_SOLUTIONS1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELPDestroy,��Resizeq��Init���Loadn��Activate���
Deactivate���1a2a��3d	��A��qAba���1212�2Q�A1B_���
'"F`%��()lBnstripsize Height of the area above the RichText control.
ctext
behindscenes..\solution.vcx
commandbutton
Behindscenes1Form1FTop = 62
Left = 10
Height = 24
Width = 25
Name = "Behindscenes1"
cmdclose..\solution.vcx
commandbutton	Cmdclose1Form1UTop = 62
Left = 517
Height = 24
Width = 62
ToolTipText = ""
Name = "Cmdclose1"
c_solutions..\solution.vcxcustomC_solutions1Form1[Top = 48
Left = 6
Height = 18
Width = 25
fixedformborder = .F.
Name = "C_solutions1"
vcr..\solution.vcx	containerVcr1Form1-Top = 62
Left = 42
Width = 104
Height = 24
enabledisableoninit = .T.
skiptable = rtf
Name = "Vcr1"
cmdTop.Name = "cmdTop"
cmdPrior.Name = "cmdPrior"
cmdNext.Name = "cmdNext"
cmdBottom.Name = "cmdBottom"
Datachecker1.Height = 15
Datachecker1.Width = 23
Datachecker1.Name = "Datachecker1"
�PROCEDURE beforerecordpointermoved
REPLACE rtf.Source WITH THISFORM.oleRTF.TextRTF
vcr::BeforeRecordPointerMoved
ENDPROC
PROCEDURE recordpointermoved
THISFORM.cText = rtf.source
vcr::recordpointermoved
ENDPROC
��� ��Va%�I;�U'>��������������URTFSOURCETHISFORMOLERTFTEXTRTFVCRBEFORERECORDPOINTERMOVED$T�������������UTHISFORMCTEXTRTFSOURCEVCRRECORDPOINTERMOVEDbeforerecordpointermoved,��recordpointermoved���1a�21�1$r��)�rtfcontrols..\..\classes\samples.vcx	containerRtfcontrols1Form1STop = 58
Left = 198
Width = 313
Height = 32
SpecialEffect = 1
Name = "Rtfcontrols1"
Cbofontname1.FontName = "MS Sans Serif"
Cbofontname1.FontSize = 8
Cbofontname1.ToolTipText = "FontName"
Cbofontname1.Name = "Cbofontname1"
Cbofontsize1.FontName = "MS Sans Serif"
Cbofontsize1.FontSize = 8
Cbofontsize1.Name = "Cbofontsize1"
cmdBold.FontName = "Courier New"
cmdBold.FontSize = 8
cmdBold.Name = "cmdBold"
cmdItalic.FontName = "Courier New"
cmdItalic.FontSize = 8
cmdItalic.Name = "cmdItalic"
cmdColor.FontName = "Courier New"
cmdColor.FontSize = 8
cmdColor.Name = "cmdColor"
�PROCEDURE Cbofontname1.InteractiveChange
THIS.Parent.cbofontsize1.FillList(THIS.Value)
THISFORM.oleRTF.SelFontName = THIS.Value
ENDPROC
PROCEDURE Cbofontsize1.InteractiveChange
THISFORM.oleRTF.SelFontSize = VAL(THIS.Value)
ENDPROC
PROCEDURE cmdBold.Click
THISFORM.oleRTF.SelBold = !THISFORM.oleRTF.SelBold
ENDPROC
PROCEDURE cmdItalic.Click
THISFORM.oleRTF.SelItalic = !THISFORM.oleRTF.SelItalic
ENDPROC
PROCEDURE cmdColor.Click
THISFORM.oleRTF.SelColor = GETCOLOR()
ENDPROC
��� ���T%�YA�U2��C��������T��������UTHISPARENTCBOFONTSIZE1FILLLISTVALUETHISFORMOLERTFSELFONTNAMET����C��g��UTHISFORMOLERTFSELFONTSIZETHISVALUET�������
��UTHISFORMOLERTFSELBOLDT�������
��UTHISFORMOLERTF	SELITALICT����C��UTHISFORMOLERTFSELCOLORCbofontname1.InteractiveChange,��Cbofontsize1.InteractiveChange���
cmdBold.Click���cmdItalic.Click5��cmdColor.Clicks��1�a2�2�2�211*���9_�
��)�
commandbutton
commandbuttoncmdNewForm1�Top = 62
Left = 154
Height = 24
Width = 34
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<New"
ToolTipText = "Add New Record"
Name = "cmdNew"
�PROCEDURE Click
REPLACE rtf.Source WITH THISFORM.oleRTF.TextRTF
APPEND BLANK
THISFORM.cText = rtf.Source
THISFORM.vcr1.EnableDisableButtons
THISFORM.Refresh
ENDPROC
K�� 22�%����UH>���������T�������
�����
����U	RTFSOURCETHISFORMOLERTFTEXTRTFCTEXTVCR1ENABLEDISABLEBUTTONSREFRESHClick,��1aQ1��1�)2shapeshapeShape3Form1aTop = 11
Left = 9
Height = 44
Width = 571
BackStyle = 0
SpecialEffect = 0
Name = "Shape3"
labellabelLabel7Form1oFontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "This RichText control is editing rich text from a database table.  Select some text and choose formatting options: font, font size, bold, italic, or color.  You can navigate to different records using the VCR buttons."
Height = 26
Left = 19
Top = 20
Width = 553
TabIndex = 0
Name = "Label7"
labellabelLabel8Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 17
Top = 5
Width = 62
TabIndex = 0
Name = "Label8"

olecontrol
olecontrololeRTFForm1^Top = 92
Left = 0
Height = 236
Width = 557
ControlSource = "rtf.source"
Name = "oleRTF"
�PROCEDURE LostFocus
ON KEY LABEL F1

ENDPROC
PROCEDURE GotFocus
ON KEY LABEL F1 HELP ID _SCREEN.ActiveForm.HelpContextID
ENDPROC
PROCEDURE Init
this.object.rightmargin = this.width - 10
ENDPROC
��� ss}�%�
��U{2�F1��UF19612�F1�(HELP ID _SCREEN.ActiveForm.HelpContextID�UF1T�������
��UTHISOBJECTRIGHTMARGINWIDTH	LostFocus,��GotFocusE��Init���1�3a2�1&E}��)s
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry��������0\�E��@OleObjectData����|AccessObjSiteData&������������OChangedProps������������)������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������`�|;�����!C4�9d!C40�����D�FO8 qhj ZtuQha;jdfn[iaetr �RightMarginN
��@�R�������K�Q��_Arialttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss Arial;}{\f3\fswiss Arial;}}
{\colortbl\red0\green0\blue0;}
\deflang1033\pard\plain\f2\fs18 
\par }
��_Arial,OLEObject = C:\WINNT\System32\Richtx32.ocx
�Arial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Courier New, 1, 11, 9, 17, 12, 11, 5, 0
Courier New, 1, 8, 7, 14, 11, 8, 3, 0
Courier New, 3, 8, 7, 14, 11, 10, 3, 0
Courier New, 0, 8, 7, 14, 11, 7, 3, 0
�Top = 0
Left = 0
Height = 329
Width = 591
DoCreate = .T.
ShowTips = .T.
Caption = "Use the RichText Control"
MinWidth = 580
HelpContextID = 1231548
ctext =
Name = "Form1"