1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var FColor array[0..25] or TColor;

procedure TDBBuilderFrame.InitColorArray;
var  I, R, G, B : Integer;
begin
    R := 150;
    G := 150;
    B := 150;
    I := 0;
    while R <= 200 do
    begin
        while G <= 200 do
        begin
            while B <= 200 do
            begin
            FColor[I] := RGB(R, G, B);
            Inc(I);
            Inc(B, 2);
            end;
        Inc(G,2);
        end;
    Inc(R, 2);
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:

procedure TColorMan.CreateManyColors(const Value: Integer);
const Senken = 1;
      Steigen = 2;
      Stehen = 3;
      UGrenz = 15;
      OGrenz = 240;
var R, G, B, C, I : Integer;
    RT, GT, BT : Byte;
    R0, R1, G0, G1, B0, B1 : Boolean;
begin
   FColorCount := Value;
   SetLength(FColors, Value);

   R := OGrenz;
   G := UGrenz;
   B := UGrenz;
   RT := Senken;
   GT := Steigen;
   BT := Stehen;

   C := ((OGrenz - UGrenz) div (Value-1)) * 5;
   for I := 0 to Value - 1 do
   begin
   FColors[I] := RGB(R, G, B);

   case RT of
   Senken:   Dec(R, C);
   Steigen:  Inc(R, C);
   Stehen:   GT := Senken;
   end;

   case GT of
   Senken:  Dec(G, C);
   Steigen: Inc(G, C);
   Stehen:
   end;

   case BT of
   Senken: Dec(B, C);
   Steigen: Inc(B, C);
   Stehen:
   end;

   R1 := R >= OGrenz;
   R0 := R <= UGrenz;

   G1 := G >= OGrenz;
   G0 := G <= UGrenz;

   B1 := B >= OGrenz;
   B0 := B <= UGrenz;

   if(R0) and (G1) and (B0)then
   begin
   RT := Steigen;
   GT := Stehen;
   BT := Stehen;
   end;

   if(R1) and (G1) and (B0)then
   begin
   RT := Stehen;
   GT := Senken;
   BT := Steigen;
   end;

   if(R1) and (G0) and (B1)then
   begin
   RT := Senken;
   GT := Stehen;
   BT := Stehen;
   end;

   if(R0) and (G0) and (B1)then
   begin
   RT := Stehen;
   GT := Steigen;
   BT := Senken;
   end;

   end;
end;