Suche Schnelle Alternative zu "CopyRect"

[Corpsman]

in dem Programm selbst nutze ich nur 10 Verschiedene Farbwerte.

D.h. theoretisch würden sibat 4Bit reichen, Nur weis ich nicht in wie weit man das reinprogrammieren kann.

Momentan habe ich ein Arrey 0..9 das die RGB werte in Byte größe beinhaltet, deswegen eben 24bit...

Delphi-Quellcode:

 
Type
 
  Tvector3ub = Record
    x, y, z: Byte;
  End;

Const
 Colors: Array[0..9] Of Tvector3ub = (
    (x: 18; y: 29; z: 13),
    (x: 26; y: 43; z: 18),
    (x: 34; y: 57; z: 23),
    (x: 42; y: 71; z: 28),
    (x: 50; y: 85; z: 33),
    (x: 50; y: 87; z: 36),
    (x: 75; y: 129; z: 52),
    (x: 100; y: 171; z: 68),
    (x: 125; y: 213; z: 84),
    (x: 150; y: 255; z: 100));