; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1337&highlight= ; Author: GPI ; Date: 13. June 2003 ; ColorRequest mit Startwert und Costum-List ; ColorRequest with a Start-Value and a Costum Color-List #CC_ANYCOLOR = $100 #CC_FULLOPEN = $2 #CC_RGBINIT = $1 Structure CustomColorList RGB.L[16] EndStructure Procedure ChooseColor(startRGB,*cl.CustomColorList) chc.choosecolorAPI chc\LStructSize=SizeOf(choosecolorapi) chc\hwndOwner=WindowID() chc\rgbResult=startRGB chc\lpCustColors=*cl chc\flags=#CC_ANYCOLOR|#CC_FULLOPEN|#CC_RGBINIT If ChooseColor_(@chc) ProcedureReturn chc\rgbResult Else ProcedureReturn -1 EndIf EndProcedure startColor.CustomColorList startColor\RGB[0]=RGB(255,128,0) startColor\RGB[1]=RGB(80,70,60) choose=ChooseColor(0,@startColor) Debug Hex(choose)+" "+Str(Red(choose))+" "+Str(Green(choose))+" "+Str(Blue(choose)) ChooseColor(choose,@startColor) ; ExecutableFormat=Windows ; FirstLine=1 ; EOF