Mini Spiel: Hex

[xZise]

Zitat von Antigo:

bisher mache ich es so:

Delphi-Quellcode:

  if aktiv and (value=0)then box.canvas.brush.color:=clgreen else
  case value of
    0: box.canvas.brush.color:=clcream;
    1: box.canvas.brush.color:=clbackground;
    2: box.canvas.brush.color:=RGB(255,66,66);
  end;

das heisst er kommt mit clbackground nicht zurecht. ok dann mache ich ein screenshot von meinem Programm, lade es paint, gucke mir die RGB Werte an, wandle sie in eine TColor um und schreibe sie darein

edit: so ist geändert, bitte testen ob es jetzt funktioniert

Tipp: Du kann die Farbwerte direkt zuweisen:

Code:

$AABBGGRR

AA = Alphawert
BBGGRR = RGB andersherum (frag mich nicht warum )

z.B. für RGB(255, 66, 66)

Code:

myColor := $00FF4242

PS: Du musst da mit Hexadezimalwerten rechnen. Wenn es dir nicht liegt kann ich den Windows Taschenrechner auf "Wissenschaftlich" empfehlen.