moin,
ich versuche Farbe in meine Buttons zu bekommen.
leider komme ich nicht auf die RGB Farb-Kombinationen wo ich "mehr" Farben bekomme
Code: Alles auswählen
Local aColor := {255,0,0}
LOCAL aSize := ::drawingArea:CurrentSize()
//::aLayout := {8,6} // 48
IF ::nLayout = XBP_ORIENT_HORIZONTAL
xSize := aSize[1]/::aLayout[1]
ySize := aSize[2]/::aLayout[2]
ELSE
xSize := aSize[1]/::aLayout[2]
ySize := aSize[2]/::aLayout[1]
ENDIF
FOR yPos := aSize[2]-ySize TO -1 STEP ySize *-1
* aColor[2] := (256/(aSize[2]/yPos))+48
* aColor[2] := (256/(aSize[2]/yPos))+96
aColor[2] := (256/(aSize[2]/yPos))+64
FOR xPos := 0 TO aSize[1]-1 STEP xSize
aColor[3] := (256/(aSize[1]/(xPos+xSize)))
aColor[1] := (256/(aSize[2]/(yPos+ySize)))