ColorRequester() aufklappen mit optionalen Parameter?

[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?

[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