First create a Custom user object and is defined as Structure (OS_ChooseColor):
long lstructsize
ulong hwndowner
ulong hinstance
long rgbresult
blob lpcustcolors
long flags
long lcustdata
long lpfnhook
long lptemplatename
Define instance variables:
Private:
os_ChooseColor istr_ChooseColor
long il_CustomInitColors [16]
blob (64) ibl_CustomColors
Defined external function::
function boolean ChooseColorA (REF os_ChooseColor lpcc) library "comdlg32.dll"
In the constructor event write the following code::
/ / Initialize choosecolor information
/ / Convert the default custom color array to a blob variable blobedit (ibl_customcolors, 1, il_custominitcolors)
/ / Let the structure element point to the blob array
istr_choosecolor.lpcustcolors = ibl_customcolors
/ / Set the size
istr_choosecolor.lStructSize = 36
/ / No owner
SetNull (istr_choosecolor.hwndOwner)
/ / Set flag
istr_choosecolor.flags = 1
Create object function: boolean of_choosecolor (ref long al_rgbresult), the code is as follows:
boolean lb_ok
istr_ChooseColor.rgbresult = al_rgbresult
lb_ok = ChooseColorA (istr_choosecolor)
al_rgbresult = istr_ChooseColor.rgbresult
return lb_ok
Recommand Link:
Youtube Video to Laptops Professional
WMA to MPC Burner
free mkv Converter
Youtube Movie To Xbox Suite
aac to mp3 CONVERTER
Picked E-Mail Tools
3gp to avi
Review Firewall And Proxy SERVERS
WorldCup DVD Ripper Platinum
Youtube FLV To VOB Deluxe
Pocket DVD Studio
Infomation PIMS And Calendars
Wondersoft DVD to iPhone Video Suite
Ipod Touch Video Format
Youtube FLV To Xbox 360 Platinum
Comparison Anti-Virus Tools
