Eine andere Möglichkeit wäre es, die Color-Werte als const-array zu hinterlegen und dann per Index darauf zuzugreifen. Beispiel:
const FarbenArray : array[1..6] of TColor = (clWhite, clYellow, clGreen, clBlue, clRed, $000080FF);
Dann kannst du beispielweise so darauf zugreifen:
Delphi-Quellcode:
ImCube.Canvas.Brush.Color := FarbenArray[FUL];
ImCube.Canvas.Rectangle(10, 64, 60, 114);
//[...]
ImCube.Canvas.Brush.Color := FarbenArray[RDR];
ImCube.Canvas.Polygon([Point(196,128),Point(196,178),Point(214,160),Point(214,110)]);
So kannst du dir die zusätzliche Routine (und damit auch das case) sparen
MFG,
Patti