"const A = array of TArrays" = Gehirnmatsch

[himitsu]

Delphi-Quellcode:

ColorBtn = record
  TextColor: COLORREF; // <--<<
  Colors: array [cbsUp..cbsDown] of TBtnColors;
end;

Code:

(TextColor: {COLORREF};
*Colors: (({COLORREF}, {COLORREF}, {COLORREF}, {COLORREF}), 
          ({COLORREF}, {COLORREF}, {COLORREF}, {COLORREF})))

und das ganze dann noch 3 Mal für Red, Blue und Silver wiederholt ... glaub ich


fang einfach klein an und arbeite dich dann nach außen hoch, bzw verschachtele das immer mehr

also

Delphi-Quellcode:

ColorBtn = record
  TextColor: TYP;
  Colors: TYP;
end;

=

Code:

(TextColor: CONST; Colors: CONST)