|
27
|
Color-Name type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Color" OLEColorListType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to 255
Set ComOption of hoEditor OLEexColorListShowName to True
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
26
|
Color-List type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Color" OLEColorListType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to 255
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
25
|
Font type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Font" OLEFontType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to "Tahoma"
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
24
|
ProgressBar type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Status" OLEProgressBarType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to 34
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
23
|
Color type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Color" OLEColorType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to 16711680
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
22
|
Picture type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Photo" OLEPictureType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to "c:\exontrol\images\zipdisk.gif"
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
21
|
Picture type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Photo" OLEPictureType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to "gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWamYyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDAwBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQG4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYABGQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyCAAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATFASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CAJDQNg/p4AAdoC"
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
20
|
Check-List type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEditor
Get ComAdd "<b>Flags" OLECheckListType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Send ComAddItem of hoEditor 1 "Border" 1
Send ComAddItem of hoEditor 2 "Single" 2
Send ComAddItem of hoEditor 4 "Solid" 2
Send ComAddItem of hoEditor 8 "Dash" 2
Set ComValue of hoEditor to 5
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
19
|
Drop-Down Multiple-Columns Tree type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEditor
Get ComAdd "<b>Customer" OLEDropDownListType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComDropDownAutoWidth of hoEditor to False
Set ComDropDownMinWidth of hoEditor to 640
Set ComOption of hoEditor OLEexDropDownColumnCaption to "Name¦Title¦City¦Phone"
Set ComOption of hoEditor OLEexDropDownColumnWidth to "256¦¦¦96"
Send ComAddItem of hoEditor 1 "Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857" 1
Send ComAddItem of hoEditor 2 "Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482" 2
Send ComInsertItem of hoEditor 3 "Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412" 3 2
Send ComInsertItem of hoEditor 4 "Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122" 3 2
Send ComInsertItem of hoEditor 5 "Steven Buchanan¦Sales Manager¦London¦(71) 555-4848" 2 2
Send ComInsertItem of hoEditor 6 "Michael Suyama¦Sales Representative¦London¦(71) 555-7773" 1 5
Send ComInsertItem of hoEditor 7 "Robert King¦Sales Representative¦Kirkland¦(71) 555-5598" 2 2
Send ComInsertItem of hoEditor 8 "Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189" 3 2
Send ComInsertItem of hoEditor 9 "Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444" 2 5
Send ComExpandAll of hoEditor
Set ComValue of hoEditor to 1
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
18
|
Drop-Down Multiple-Columns List type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEditor
Get ComAdd "<b>Customer" OLEDropDownListType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComDropDownAutoWidth of hoEditor to False
Set ComDropDownMinWidth of hoEditor to 640
Set ComOption of hoEditor OLEexDropDownColumnCaption to "Name¦Title¦City¦Phone"
Set ComOption of hoEditor OLEexDropDownColumnWidth to "256¦¦¦96"
Send ComAddItem of hoEditor 1 "Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857" 1
Send ComAddItem of hoEditor 2 "Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482" 2
Send ComAddItem of hoEditor 3 "Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412" 3
Send ComAddItem of hoEditor 4 "Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122" 3
Send ComAddItem of hoEditor 5 "Steven Buchanan¦Sales Manager¦London¦(71) 555-4848" 2
Send ComAddItem of hoEditor 6 "Michael Suyama¦Sales Representative¦London¦(71) 555-7773" 1
Send ComAddItem of hoEditor 7 "Robert King¦Sales Representative¦Kirkland¦(71) 555-5598" 2
Send ComAddItem of hoEditor 8 "Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189" 3
Send ComAddItem of hoEditor 9 "Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444" 2
Set ComValue of hoEditor to 1
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
17
|
Drop-Down Tree type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEditor
Get ComAdd "<b>Customer" OLEDropDownListType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComDropDownAutoWidth of hoEditor to False
Set ComDropDownMinWidth of hoEditor to 256
Send ComAddItem of hoEditor 1 "Nancy Davolio" 1
Send ComAddItem of hoEditor 2 "Andrew Fuller" 2
Send ComInsertItem of hoEditor 3 "Janet Leverling" 3 2
Send ComInsertItem of hoEditor 4 "Peacock Margaret" 3 2
Send ComInsertItem of hoEditor 5 "Steven Buchanan" 2 2
Send ComInsertItem of hoEditor 6 "Michael Suyama" 1 5
Send ComInsertItem of hoEditor 7 "Robert King" 2 2
Send ComInsertItem of hoEditor 8 "Laura Callahan" 3 2
Send ComInsertItem of hoEditor 9 "Anne Dodsworth" 2 5
Send ComExpandAll of hoEditor
Set ComValue of hoEditor to 1
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
16
|
Drop-Down List type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEditor
Get ComAdd "<b>Customer" OLEDropDownListType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComDropDownAutoWidth of hoEditor to False
Set ComDropDownMinWidth of hoEditor to 256
Send ComAddItem of hoEditor 1 "Nancy Davolio" 1
Send ComAddItem of hoEditor 2 "Andrew Fuller" 2
Send ComAddItem of hoEditor 3 "Janet Leverling" 3
Send ComAddItem of hoEditor 4 "Peacock Margaret" 3
Send ComAddItem of hoEditor 5 "Steven Buchanan" 2
Send ComAddItem of hoEditor 6 "Michael Suyama" 1
Send ComAddItem of hoEditor 7 "Robert King" 2
Send ComAddItem of hoEditor 8 "Laura Callahan" 3
Send ComAddItem of hoEditor 9 "Anne Dodsworth" 2
Set ComValue of hoEditor to 1
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
15
|
Drop-Down type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEditor
Get ComAdd "<b>Gender" OLEDropDownType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Send ComAddItem of hoEditor 1 "Mr." 2
Send ComAddItem of hoEditor 2 "Mrs." 2
Send ComAddItem of hoEditor 3 "Ms." 1
Send ComAddItem of hoEditor 4 "Miss" 1
Set ComValue of hoEditor to "Mr."
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
14
|
Boolean/Check type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Boolean" OLECheckValueType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to 1
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
13
|
Slider type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Slider" OLESliderType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComOption of hoEditor OLEexSliderWidth to -50
Set ComOption of hoEditor OLEexSliderTickFrequency to 10
Set ComOption of hoEditor OLEexSliderTickStyle to 3
Set ComValue of hoEditor to "20"
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
12
|
Date/Calendar type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Date" OLEDateType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to "1/21/2006"
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
11
|
Calculator type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Calculator" OLECalculatorType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to "123.456"
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
10
|
Mask type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>IP" OLEMaskType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComMask of hoEditor to "{0,255}.{0,255}.{0,255}.{0,255}"
Set ComValue of hoEditor to "193.226.40.161"
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
9
|
Edit type (numeric, float)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>PI" OLEEditType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComNumeric of hoEditor to OLEexFloat
Set ComValue of hoEditor to "3.14"
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
8
|
Spin type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Age" OLESpinType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComNumeric of hoEditor to OLEexInteger
Set ComValue of hoEditor to 22
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
7
|
Edit type
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voEditor
Get ComAdd "<b>Name" OLEEditType Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to "Jhon"
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
6
|
Display icons
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLabelSize to 142
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEditor
Get ComAdd "<b>Read</b> Only" OLEReadOnly Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComButtonWidth of hoEditor to 32
Set ComValue of hoEditor to "Text"
Send ComAddButton of hoEditor "A" 1 1 Nothing Nothing Nothing
Set ComImage of hoEditor to 1
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
5
|
Change the size to display the label
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLabelSize to 142
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEditor
Get ComAdd "<b>Read</b> Only" OLEReadOnly Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComButtonWidth of hoEditor to 32
Set ComValue of hoEditor to "Text"
Send ComAddButton of hoEditor "A" 1 1 Nothing Nothing Nothing
Set ComImage of hoEditor to 1
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
4
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 32
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 16
Send Destroy to hoStdFont
Set ComLabelSize to 256
Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing
Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + ;
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") to Nothing
Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + ;
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCheckBoxState0 to |CI$1000000
Set ComBackground OLEexCheckBoxState1 to |CI$2000000
Set ComBackground OLEexCheckBoxState2 to |CI$3000000
Variant voEditor
Get ComAdd "<b>Read</b> Only" OLEReadOnly Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComButtonWidth of hoEditor to 32
Set ComValue of hoEditor to "Text"
Send ComAddButton of hoEditor "A" 1 1 Nothing Nothing Nothing
Set ComImage of hoEditor to 1
Send Destroy to hoEditor
Variant voEditor1
Get ComAdd "Edit" OLEEditType Nothing to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComValue of hoEditor1 to "Text"
Set ComImage of hoEditor1 to 1
Send Destroy to hoEditor1
Variant voEditor2
Get ComAdd "Spin" OLESpinType Nothing to voEditor2
Handle hoEditor2
Get Create (RefClass(cComEditor)) to hoEditor2
Set pvComObject of hoEditor2 to voEditor2
Set ComNumeric of hoEditor2 to OLEexInteger
Set ComValue of hoEditor2 to 10
Set ComImage of hoEditor2 to 1
Send Destroy to hoEditor2
Variant voEditor3
Get ComAdd "Float" OLEEditType Nothing to voEditor3
Handle hoEditor3
Get Create (RefClass(cComEditor)) to hoEditor3
Set pvComObject of hoEditor3 to voEditor3
Set ComNumeric of hoEditor3 to OLEexFloat
Set ComValue of hoEditor3 to "3.14"
Set ComImage of hoEditor3 to 1
Send Destroy to hoEditor3
Variant voEditor4
Get ComAdd "IP" OLEMaskType Nothing to voEditor4
Handle hoEditor4
Get Create (RefClass(cComEditor)) to hoEditor4
Set pvComObject of hoEditor4 to voEditor4
Set ComMask of hoEditor4 to "{0,255}.{0,255}.{0,255}.{0,255}"
Set ComValue of hoEditor4 to "193.226.40.161"
Set ComImage of hoEditor4 to 1
Send Destroy to hoEditor4
Variant voEditor5
Get ComAdd "Calculator" OLECalculatorType Nothing to voEditor5
Handle hoEditor5
Get Create (RefClass(cComEditor)) to hoEditor5
Set pvComObject of hoEditor5 to voEditor5
Set ComValue of hoEditor5 to "123.456"
Set ComImage of hoEditor5 to 1
Send Destroy to hoEditor5
Variant voEditor6
Get ComAdd "Date" OLEDateType Nothing to voEditor6
Handle hoEditor6
Get Create (RefClass(cComEditor)) to hoEditor6
Set pvComObject of hoEditor6 to voEditor6
Set ComValue of hoEditor6 to "1/21/2006"
Set ComImage of hoEditor6 to 1
Send Destroy to hoEditor6
Variant voEditor7
Get ComAdd "Slider" OLESliderType Nothing to voEditor7
Handle hoEditor7
Get Create (RefClass(cComEditor)) to hoEditor7
Set pvComObject of hoEditor7 to voEditor7
Set ComOption of hoEditor7 OLEexSliderWidth to -50
Set ComOption of hoEditor7 OLEexSliderTickFrequency to 10
Set ComOption of hoEditor7 OLEexSliderTickStyle to 3
Set ComValue of hoEditor7 to "20"
Set ComImage of hoEditor7 to 1
Send Destroy to hoEditor7
Variant voEditor8
Get ComAdd "Boolean" OLECheckValueType Nothing to voEditor8
Handle hoEditor8
Get Create (RefClass(cComEditor)) to hoEditor8
Set pvComObject of hoEditor8 to voEditor8
Set ComValue of hoEditor8 to 1
Set ComImage of hoEditor8 to 1
Send Destroy to hoEditor8
Variant voEditor9
Get ComAdd "DropDown" OLEDropDownType Nothing to voEditor9
Handle hoEditor9
Get Create (RefClass(cComEditor)) to hoEditor9
Set pvComObject of hoEditor9 to voEditor9
Set ComImage of hoEditor9 to 2
Send ComAddItem of hoEditor9 1 "Mr." 1
Send ComAddItem of hoEditor9 2 "Mrs." 2
Set ComValue of hoEditor9 to "Mr."
Send Destroy to hoEditor9
Variant voEditor10
Get ComAdd "DropDown <b>List</b>" OLEDropDownListType Nothing to voEditor10
Handle hoEditor10
Get Create (RefClass(cComEditor)) to hoEditor10
Set pvComObject of hoEditor10 to voEditor10
Set ComImage of hoEditor10 to 2
Set ComDropDownAutoWidth of hoEditor10 to False
Set ComDropDownMinWidth of hoEditor10 to 256
Send ComAddItem of hoEditor10 1 "Nancy Davolio" 1
Send ComAddItem of hoEditor10 2 "Andrew Fuller" 2
Send ComAddItem of hoEditor10 3 "Janet Leverling" 3
Send ComAddItem of hoEditor10 4 "Peacock Margaret" 3
Send ComAddItem of hoEditor10 5 "Steven Buchanan" 2
Send ComAddItem of hoEditor10 6 "Michael Suyama" 1
Send ComAddItem of hoEditor10 7 "Robert King" 2
Send ComAddItem of hoEditor10 8 "Laura Callahan" 3
Send ComAddItem of hoEditor10 9 "Anne Dodsworth" 2
Set ComValue of hoEditor10 to "1"
Send Destroy to hoEditor10
Variant voEditor11
Get ComAdd "DropDown <b>Tree</b>" OLEDropDownListType Nothing to voEditor11
Handle hoEditor11
Get Create (RefClass(cComEditor)) to hoEditor11
Set pvComObject of hoEditor11 to voEditor11
Set ComImage of hoEditor11 to 2
Set ComDropDownAutoWidth of hoEditor11 to False
Set ComDropDownMinWidth of hoEditor11 to 256
Send ComAddItem of hoEditor11 1 "Nancy Davolio" 1
Send ComAddItem of hoEditor11 2 "Andrew Fuller" 2
Send ComInsertItem of hoEditor11 3 "Janet Leverling" 3 2
Send ComInsertItem of hoEditor11 4 "Peacock Margaret" 3 2
Send ComInsertItem of hoEditor11 5 "Steven Buchanan" 2 2
Send ComInsertItem of hoEditor11 6 "Michael Suyama" 1 5
Send ComInsertItem of hoEditor11 7 "Robert King" 2 2
Send ComInsertItem of hoEditor11 8 "Laura Callahan" 3 2
Send ComInsertItem of hoEditor11 9 "Anne Dodsworth" 2 5
Send ComExpandAll of hoEditor11
Set ComValue of hoEditor11 to "1"
Send Destroy to hoEditor11
Variant voEditor12
Get ComAdd "DropDown <b>Multi-List</b>" OLEDropDownListType Nothing to voEditor12
Handle hoEditor12
Get Create (RefClass(cComEditor)) to hoEditor12
Set pvComObject of hoEditor12 to voEditor12
Set ComImage of hoEditor12 to 2
Set ComDropDownAutoWidth of hoEditor12 to False
Set ComDropDownMinWidth of hoEditor12 to 640
Set ComOption of hoEditor12 OLEexDropDownColumnCaption to "Name¦Title¦City¦Phone"
Set ComOption of hoEditor12 OLEexDropDownColumnWidth to "256¦¦¦96"
Send ComAddItem of hoEditor12 1 "Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857" 1
Send ComAddItem of hoEditor12 2 "Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482" 2
Send ComAddItem of hoEditor12 3 "Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412" 3
Send ComAddItem of hoEditor12 4 "Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122" 3
Send ComAddItem of hoEditor12 5 "Steven Buchanan¦Sales Manager¦London¦(71) 555-4848" 2
Send ComAddItem of hoEditor12 6 "Michael Suyama¦Sales Representative¦London¦(71) 555-7773" 1
Send ComAddItem of hoEditor12 7 "Robert King¦Sales Representative¦Kirkland¦(71) 555-5598" 2
Send ComAddItem of hoEditor12 8 "Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189" 3
Send ComAddItem of hoEditor12 9 "Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444" 2
Set ComValue of hoEditor12 to "1"
Send Destroy to hoEditor12
Variant voEditor13
Get ComAdd "DropDown <b>Multi-Tree</b>" OLEDropDownListType Nothing to voEditor13
Handle hoEditor13
Get Create (RefClass(cComEditor)) to hoEditor13
Set pvComObject of hoEditor13 to voEditor13
Set ComImage of hoEditor13 to 2
Set ComDropDownAutoWidth of hoEditor13 to False
Set ComDropDownMinWidth of hoEditor13 to 640
Set ComOption of hoEditor13 OLEexDropDownColumnCaption to "Name¦Title¦City¦Phone"
Set ComOption of hoEditor13 OLEexDropDownColumnWidth to "256¦¦¦96"
Send ComAddItem of hoEditor13 1 "Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857" 1
Send ComAddItem of hoEditor13 2 "Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482" 2
Send ComInsertItem of hoEditor13 3 "Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412" 3 2
Send ComInsertItem of hoEditor13 4 "Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122" 3 2
Send ComInsertItem of hoEditor13 5 "Steven Buchanan¦Sales Manager¦London¦(71) 555-4848" 2 2
Send ComInsertItem of hoEditor13 6 "Michael Suyama¦Sales Representative¦London¦(71) 555-7773" 1 5
Send ComInsertItem of hoEditor13 7 "Robert King¦Sales Representative¦Kirkland¦(71) 555-5598" 2 2
Send ComInsertItem of hoEditor13 8 "Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189" 3 2
Send ComInsertItem of hoEditor13 9 "Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444" 2 5
Send ComExpandAll of hoEditor13
Set ComValue of hoEditor13 to "1"
Send Destroy to hoEditor13
Variant voEditor14
Get ComAdd "Check <b>List</b>" OLECheckListType Nothing to voEditor14
Handle hoEditor14
Get Create (RefClass(cComEditor)) to hoEditor14
Set pvComObject of hoEditor14 to voEditor14
Set ComImage of hoEditor14 to 2
Send ComAddItem of hoEditor14 1 "Border" 1
Send ComAddItem of hoEditor14 2 "Single" 2
Send ComAddItem of hoEditor14 4 "Solid" 2
Send ComAddItem of hoEditor14 8 "Dash" 2
Set ComValue of hoEditor14 to 5
Send Destroy to hoEditor14
Variant voEditor15
Get ComAdd "Picture" OLEPictureType Nothing to voEditor15
Handle hoEditor15
Get Create (RefClass(cComEditor)) to hoEditor15
Set pvComObject of hoEditor15 to voEditor15
Set ComImage of hoEditor15 to 2
Set ComValue of hoEditor15 to "gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWamYyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDAwBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQG4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYABGQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyCAAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATFASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CAJDQNg/p4AAdoC"
Send Destroy to hoEditor15
Variant voEditor16
Get ComAdd "Color" OLEColorType Nothing to voEditor16
Handle hoEditor16
Get Create (RefClass(cComEditor)) to hoEditor16
Set pvComObject of hoEditor16 to voEditor16
Set ComImage of hoEditor16 to 2
Set ComValue of hoEditor16 to 16711680
Send Destroy to hoEditor16
Variant voEditor17
Get ComAdd "ProgressBar" OLEProgressBarType Nothing to voEditor17
Handle hoEditor17
Get Create (RefClass(cComEditor)) to hoEditor17
Set pvComObject of hoEditor17 to voEditor17
Set ComImage of hoEditor17 to 2
Set ComValue of hoEditor17 to 34
Send Destroy to hoEditor17
Variant voEditor18
Get ComAdd "Font" OLEFontType Nothing to voEditor18
Handle hoEditor18
Get Create (RefClass(cComEditor)) to hoEditor18
Set pvComObject of hoEditor18 to voEditor18
Set ComImage of hoEditor18 to 2
Set ComValue of hoEditor18 to "Tahoma"
Send Destroy to hoEditor18
Variant voEditor19
Get ComAdd "ColorList" OLEColorListType Nothing to voEditor19
Handle hoEditor19
Get Create (RefClass(cComEditor)) to hoEditor19
Set pvComObject of hoEditor19 to voEditor19
Set ComImage of hoEditor19 to 2
Send Destroy to hoEditor19
Variant voEditor20
Get ComAdd "ColorName" OLEColorListType Nothing to voEditor20
Handle hoEditor20
Get Create (RefClass(cComEditor)) to hoEditor20
Set pvComObject of hoEditor20 to voEditor20
Set ComValue of hoEditor20 to 255
Set ComImage of hoEditor20 to 2
Set ComOption of hoEditor20 OLEexColorListShowName to True
Send Destroy to hoEditor20
Send ComEndUpdate
End_Procedure
|
|
3
|
ImageSize property on 16 (default) (specifies the size of control' icons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 16
Set ComLabelSize to 142
Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
Variant voEditor
Get ComAdd "<b>Read</b> Only" OLEReadOnly Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComButtonWidth of hoEditor to 32
Set ComValue of hoEditor to "Text"
Send ComAddButton of hoEditor "A" 1 1 Nothing Nothing Nothing
Set ComImage of hoEditor to 1
Send Destroy to hoEditor
Variant voEditor1
Get ComAdd "Edit" OLEEditType Nothing to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComValue of hoEditor1 to "Text"
Set ComImage of hoEditor1 to 1
Send Destroy to hoEditor1
Variant voEditor2
Get ComAdd "Spin" OLESpinType Nothing to voEditor2
Handle hoEditor2
Get Create (RefClass(cComEditor)) to hoEditor2
Set pvComObject of hoEditor2 to voEditor2
Set ComNumeric of hoEditor2 to OLEexInteger
Set ComValue of hoEditor2 to 10
Set ComImage of hoEditor2 to 1
Send Destroy to hoEditor2
Variant voEditor3
Get ComAdd "Float" OLEEditType Nothing to voEditor3
Handle hoEditor3
Get Create (RefClass(cComEditor)) to hoEditor3
Set pvComObject of hoEditor3 to voEditor3
Set ComNumeric of hoEditor3 to OLEexFloat
Set ComValue of hoEditor3 to "3.14"
Set ComImage of hoEditor3 to 1
Send Destroy to hoEditor3
Variant voEditor4
Get ComAdd "IP" OLEMaskType Nothing to voEditor4
Handle hoEditor4
Get Create (RefClass(cComEditor)) to hoEditor4
Set pvComObject of hoEditor4 to voEditor4
Set ComMask of hoEditor4 to "{0,255}.{0,255}.{0,255}.{0,255}"
Set ComValue of hoEditor4 to "193.226.40.161"
Set ComImage of hoEditor4 to 1
Send Destroy to hoEditor4
Variant voEditor5
Get ComAdd "Calculator" OLECalculatorType Nothing to voEditor5
Handle hoEditor5
Get Create (RefClass(cComEditor)) to hoEditor5
Set pvComObject of hoEditor5 to voEditor5
Set ComValue of hoEditor5 to "123.456"
Set ComImage of hoEditor5 to 1
Send Destroy to hoEditor5
Variant voEditor6
Get ComAdd "Date" OLEDateType Nothing to voEditor6
Handle hoEditor6
Get Create (RefClass(cComEditor)) to hoEditor6
Set pvComObject of hoEditor6 to voEditor6
Set ComValue of hoEditor6 to "1/21/2006"
Set ComImage of hoEditor6 to 1
Send Destroy to hoEditor6
Variant voEditor7
Get ComAdd "Slider" OLESliderType Nothing to voEditor7
Handle hoEditor7
Get Create (RefClass(cComEditor)) to hoEditor7
Set pvComObject of hoEditor7 to voEditor7
Set ComOption of hoEditor7 OLEexSliderWidth to -50
Set ComOption of hoEditor7 OLEexSliderTickFrequency to 10
Set ComOption of hoEditor7 OLEexSliderTickStyle to 3
Set ComValue of hoEditor7 to "20"
Set ComImage of hoEditor7 to 1
Send Destroy to hoEditor7
Variant voEditor8
Get ComAdd "Boolean" OLECheckValueType Nothing to voEditor8
Handle hoEditor8
Get Create (RefClass(cComEditor)) to hoEditor8
Set pvComObject of hoEditor8 to voEditor8
Set ComValue of hoEditor8 to 1
Set ComImage of hoEditor8 to 1
Send Destroy to hoEditor8
Variant voEditor9
Get ComAdd "DropDown" OLEDropDownType Nothing to voEditor9
Handle hoEditor9
Get Create (RefClass(cComEditor)) to hoEditor9
Set pvComObject of hoEditor9 to voEditor9
Set ComImage of hoEditor9 to 2
Send ComAddItem of hoEditor9 1 "Mr." 1
Send ComAddItem of hoEditor9 2 "Mrs." 2
Set ComValue of hoEditor9 to "Mr."
Send Destroy to hoEditor9
Variant voEditor10
Get ComAdd "DropDown <b>List</b>" OLEDropDownListType Nothing to voEditor10
Handle hoEditor10
Get Create (RefClass(cComEditor)) to hoEditor10
Set pvComObject of hoEditor10 to voEditor10
Set ComImage of hoEditor10 to 2
Set ComDropDownAutoWidth of hoEditor10 to False
Set ComDropDownMinWidth of hoEditor10 to 256
Send ComAddItem of hoEditor10 1 "Nancy Davolio" 1
Send ComAddItem of hoEditor10 2 "Andrew Fuller" 2
Send ComAddItem of hoEditor10 3 "Janet Leverling" 3
Send ComAddItem of hoEditor10 4 "Peacock Margaret" 3
Send ComAddItem of hoEditor10 5 "Steven Buchanan" 2
Send ComAddItem of hoEditor10 6 "Michael Suyama" 1
Send ComAddItem of hoEditor10 7 "Robert King" 2
Send ComAddItem of hoEditor10 8 "Laura Callahan" 3
Send ComAddItem of hoEditor10 9 "Anne Dodsworth" 2
Set ComValue of hoEditor10 to "1"
Send Destroy to hoEditor10
Variant voEditor11
Get ComAdd "DropDown <b>Tree</b>" OLEDropDownListType Nothing to voEditor11
Handle hoEditor11
Get Create (RefClass(cComEditor)) to hoEditor11
Set pvComObject of hoEditor11 to voEditor11
Set ComImage of hoEditor11 to 2
Set ComDropDownAutoWidth of hoEditor11 to False
Set ComDropDownMinWidth of hoEditor11 to 256
Send ComAddItem of hoEditor11 1 "Nancy Davolio" 1
Send ComAddItem of hoEditor11 2 "Andrew Fuller" 2
Send ComInsertItem of hoEditor11 3 "Janet Leverling" 3 2
Send ComInsertItem of hoEditor11 4 "Peacock Margaret" 3 2
Send ComInsertItem of hoEditor11 5 "Steven Buchanan" 2 2
Send ComInsertItem of hoEditor11 6 "Michael Suyama" 1 5
Send ComInsertItem of hoEditor11 7 "Robert King" 2 2
Send ComInsertItem of hoEditor11 8 "Laura Callahan" 3 2
Send ComInsertItem of hoEditor11 9 "Anne Dodsworth" 2 5
Send ComExpandAll of hoEditor11
Set ComValue of hoEditor11 to "1"
Send Destroy to hoEditor11
Variant voEditor12
Get ComAdd "DropDown <b>Multi-List</b>" OLEDropDownListType Nothing to voEditor12
Handle hoEditor12
Get Create (RefClass(cComEditor)) to hoEditor12
Set pvComObject of hoEditor12 to voEditor12
Set ComImage of hoEditor12 to 2
Set ComDropDownAutoWidth of hoEditor12 to False
Set ComDropDownMinWidth of hoEditor12 to 640
Set ComOption of hoEditor12 OLEexDropDownColumnCaption to "Name¦Title¦City¦Phone"
Set ComOption of hoEditor12 OLEexDropDownColumnWidth to "256¦¦¦96"
Send ComAddItem of hoEditor12 1 "Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857" 1
Send ComAddItem of hoEditor12 2 "Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482" 2
Send ComAddItem of hoEditor12 3 "Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412" 3
Send ComAddItem of hoEditor12 4 "Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122" 3
Send ComAddItem of hoEditor12 5 "Steven Buchanan¦Sales Manager¦London¦(71) 555-4848" 2
Send ComAddItem of hoEditor12 6 "Michael Suyama¦Sales Representative¦London¦(71) 555-7773" 1
Send ComAddItem of hoEditor12 7 "Robert King¦Sales Representative¦Kirkland¦(71) 555-5598" 2
Send ComAddItem of hoEditor12 8 "Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189" 3
Send ComAddItem of hoEditor12 9 "Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444" 2
Set ComValue of hoEditor12 to "1"
Send Destroy to hoEditor12
Variant voEditor13
Get ComAdd "DropDown <b>Multi-Tree</b>" OLEDropDownListType Nothing to voEditor13
Handle hoEditor13
Get Create (RefClass(cComEditor)) to hoEditor13
Set pvComObject of hoEditor13 to voEditor13
Set ComImage of hoEditor13 to 2
Set ComDropDownAutoWidth of hoEditor13 to False
Set ComDropDownMinWidth of hoEditor13 to 640
Set ComOption of hoEditor13 OLEexDropDownColumnCaption to "Name¦Title¦City¦Phone"
Set ComOption of hoEditor13 OLEexDropDownColumnWidth to "256¦¦¦96"
Send ComAddItem of hoEditor13 1 "Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857" 1
Send ComAddItem of hoEditor13 2 "Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482" 2
Send ComInsertItem of hoEditor13 3 "Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412" 3 2
Send ComInsertItem of hoEditor13 4 "Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122" 3 2
Send ComInsertItem of hoEditor13 5 "Steven Buchanan¦Sales Manager¦London¦(71) 555-4848" 2 2
Send ComInsertItem of hoEditor13 6 "Michael Suyama¦Sales Representative¦London¦(71) 555-7773" 1 5
Send ComInsertItem of hoEditor13 7 "Robert King¦Sales Representative¦Kirkland¦(71) 555-5598" 2 2
Send ComInsertItem of hoEditor13 8 "Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189" 3 2
Send ComInsertItem of hoEditor13 9 "Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444" 2 5
Send ComExpandAll of hoEditor13
Set ComValue of hoEditor13 to "1"
Send Destroy to hoEditor13
Variant voEditor14
Get ComAdd "Check <b>List</b>" OLECheckListType Nothing to voEditor14
Handle hoEditor14
Get Create (RefClass(cComEditor)) to hoEditor14
Set pvComObject of hoEditor14 to voEditor14
Set ComImage of hoEditor14 to 2
Send ComAddItem of hoEditor14 1 "Border" 1
Send ComAddItem of hoEditor14 2 "Single" 2
Send ComAddItem of hoEditor14 4 "Solid" 2
Send ComAddItem of hoEditor14 8 "Dash" 2
Set ComValue of hoEditor14 to 5
Send Destroy to hoEditor14
Variant voEditor15
Get ComAdd "Picture" OLEPictureType Nothing to voEditor15
Handle hoEditor15
Get Create (RefClass(cComEditor)) to hoEditor15
Set pvComObject of hoEditor15 to voEditor15
Set ComImage of hoEditor15 to 2
Set ComValue of hoEditor15 to "gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWamYyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDAwBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQG4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYABGQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyCAAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATFASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CAJDQNg/p4AAdoC"
Send Destroy to hoEditor15
Variant voEditor16
Get ComAdd "Color" OLEColorType Nothing to voEditor16
Handle hoEditor16
Get Create (RefClass(cComEditor)) to hoEditor16
Set pvComObject of hoEditor16 to voEditor16
Set ComImage of hoEditor16 to 2
Set ComValue of hoEditor16 to 16711680
Send Destroy to hoEditor16
Variant voEditor17
Get ComAdd "ProgressBar" OLEProgressBarType Nothing to voEditor17
Handle hoEditor17
Get Create (RefClass(cComEditor)) to hoEditor17
Set pvComObject of hoEditor17 to voEditor17
Set ComImage of hoEditor17 to 2
Set ComValue of hoEditor17 to 34
Send Destroy to hoEditor17
Variant voEditor18
Get ComAdd "Font" OLEFontType Nothing to voEditor18
Handle hoEditor18
Get Create (RefClass(cComEditor)) to hoEditor18
Set pvComObject of hoEditor18 to voEditor18
Set ComImage of hoEditor18 to 2
Set ComValue of hoEditor18 to "Tahoma"
Send Destroy to hoEditor18
Variant voEditor19
Get ComAdd "ColorList" OLEColorListType Nothing to voEditor19
Handle hoEditor19
Get Create (RefClass(cComEditor)) to hoEditor19
Set pvComObject of hoEditor19 to voEditor19
Set ComImage of hoEditor19 to 2
Send Destroy to hoEditor19
Variant voEditor20
Get ComAdd "ColorName" OLEColorListType Nothing to voEditor20
Handle hoEditor20
Get Create (RefClass(cComEditor)) to hoEditor20
Set pvComObject of hoEditor20 to voEditor20
Set ComValue of hoEditor20 to 255
Set ComImage of hoEditor20 to 2
Set ComOption of hoEditor20 OLEexColorListShowName to True
Send Destroy to hoEditor20
Send ComEndUpdate
End_Procedure
|
|
2
|
Font
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Trebuchet MS"
Set ComSize of hoStdFont to 12
Send Destroy to hoStdFont
Set ComLabelSize to 128
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEditor
Get ComAdd "<b>Read</b> Only" OLEReadOnly Nothing to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComValue of hoEditor to "Text"
Send ComAddButton of hoEditor "A" 1 1 Nothing Nothing Nothing
Set ComImage of hoEditor to 1
Set ComButtonWidth of hoEditor to 24
Send Destroy to hoEditor
Send ComEndUpdate
End_Procedure
|
|
1
|
How do I change the control's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,255,0))
End_Procedure
|