ich erstelle einen ExitButton mit folgendem Code:
Code: Alles auswählen
CreateImage(#Btn_ExitDemo, 28, 28)
StartDrawing(ImageOutput(#Btn_ExitDemo))
FillArea(1, 1, -1, ColorPicker)
Line(2, 25, 24, -24, $666667)
Line(2, 2, 24, 24, $666667)
StopDrawing()
ImageGadget(#Img_BtnExitDemo, WindowWidth(#Main)-29, 1, 28, 28, ImageID(#Btn_ExitDemo))
Nun habe ich einen ColorRequester mit dem man die Fensterfarbe ändern kann. Funktioniert.
Aber die:
Code: Alles auswählen
ColorPicker = $F2F2F2
FillArea(1, 1, -1, ColorPicker)
Laut Hilfe kann man kein SetGadgetColor anwenden
und das Ergebnis schaut dann so aus:
wobei der Hintergrnd des "X" die altrote Farbe mit annehmen soll.
Die Procedure ColorRequester beinhaltet dann u.a. diesen Code:
Code: Alles auswählen
If ChooseColor_(@CHOOSECOLOR)
SetWindowColor(#Main, CHOOSECOLOR\rgbResult)
SetGadgetColor(#Titel_DemoScreen, #PB_Gadget_BackColor, CHOOSECOLOR\rgbResult)
ColorPicker = CHOOSECOLOR\rgbResult
Else
Code: Alles auswählen
ColorPicker = CHOOSECOLOR\rgbResult
Kennt jemand eine Lösung dafür?
Danke Euch