Seite 1 von 1
ColorRequester() aufklappen mit optionalen Parameter?
Verfasst: 29.10.2005 00:55
von Delle
Wenn man ColorRequester() aufruft, werden nur die
Farbfelder angezeigt, nicht aber das "Farbrad" rechts.
Manche Tools öffnen die rechte Seite mit dem Farbrand
aber sofort ohne das man als User nochmal auf >>>
drücken muss.
Geht das nur über die API?
Verfasst: 29.10.2005 01:16
von ts-soft
>> Geht das nur über die API?
ja
Code: Alles auswählen
Structure CustomColorList
RGB.l[16]
EndStructure
Procedure ChooseColor(startRGB,*CustomColorList)
#CC_ANYCOLOR = $100
#CC_FULLOPEN = $2 ; deine Frage betreffend, siehe auch chc\Flags
#CC_RGBINIT = $1
chc.CHOOSECOLOR
chc\LStructSize=SizeOf(CHOOSECOLOR)
chc\hwndOwner=WindowID()
chc\rgbResult=startRGB
chc\lpCustColors=*CustomColorList
chc\Flags=#CC_ANYCOLOR|#CC_FULLOPEN|#CC_RGBINIT
If ChooseColor_(@chc)
ProcedureReturn chc\rgbResult
Else
ProcedureReturn -1
EndIf
EndProcedure
; Struktur mit zufälligen Farben füllen
CCL.CustomColorList
For I = 0 To 15
CCL\RGB[I]=RGB(Random(255),Random(255),Random(255))
Next
Result = ChooseColor(RGB(Random(255),Random(255),Random(255)),@CCL)
Debug Result
Aus dem CodeArchiv (von GPI), angepasst an PB 3.94