DBR Delphi-Ecke

// Sie kennen vielleicht die Farbschemas vom MS Publisher. Sie verfügen über
// jeweils 5 zueinander passende Farben.
// Anhand einer alten Farbtabelle habe ich mir 15 Schemas mit je 10 Farben
// gebastelt. So kann man mittels Tastendruck das Erscheinungsbild von
// Vorlagen oder Applikationen ändern. Dabei habe ich versucht darauf zu
// achten, dass die Unterschiede nicht zu krass sind.
// So sollten ruhig etwas damit herumspielen und evtl. Farbgruppen verändern.


auswahl = 0	auswahl = 1	auswahl = 6	auswahl = 7

// Getestet mit D4 unter XP

var 
  farbe: array[0..28] of TColor = ( 
    $FFCC99, $AA7777, $BB3333, $880000, $998000, $006600, $709F80, 
    $008585, $339900, $99D899, $99CC99, $A6BBE3, $66FFFF, $3399CC, 
    $92A8D4, $618FBE, $3333B0, $000080, $CC99FF, $0066FF, $0000FF, 
    $663399, $8000CC, $CF6F9F, $CC3399, $800080, $000000, $AAAAAA, 
    $C1C6EF); 
 
  gruppe: array[0..14, 0..9] of byte = ( 
    (2, 3, 4, 8, 9, 12, 11, 27, 5, 13), 
    (28, 11, 0, 1, 10, 12, 14, 27, 24, 17), 
    (0, 3, 11, 18, 21, 12, 13, 14, 15, 17), 
    (1, 14, 11, 18, 0, 10, 5, 17, 25, 26), 
    (27, 2, 11, 18, 19, 12, 13, 14, 15, 16), 
    (9, 6, 28, 11, 13, 12, 14, 15, 27, 21), 
    (11, 18, 6, 5, 19, 12, 13, 15, 16, 17), 
    (10, 8, 11, 14, 13, 12, 15, 16, 27, 26), 
    (8, 5, 11, 28, 27, 0, 24, 2, 25, 26), 
    (20, 21, 22, 24, 13, 0, 2, 3, 16, 17), 
    (27, 20, 11, 9, 0, 12, 13, 14, 18, 19), 
    (21, 25, 13, 11, 14, 12, 15, 27, 0, 26), 
    (24, 1, 6, 10, 11, 12, 13, 14, 27, 20), 
    (18, 19, 0, 8, 9, 12, 11, 14, 13, 26), 
    (15, 7, 4, 5, 6, 0, 27, 2, 21, 3)); 
 
 
// Beispielaufruf 
 
var auswahl: integer; 
 
procedure zeichnen; 
begin 
  with Form1.canvas do begin 
    pen.width := 3; 
    pen.color := farbe[gruppe[auswahl, 4]]; 
    brush.color := farbe[gruppe[auswahl, 3]]; 
    ellipse(300, 20, 400, 100); 
    pen.color := farbe[gruppe[auswahl, 8]]; 
    brush.color := farbe[gruppe[auswahl, 2]]; 
    rectangle(350, 70, 440, 140); 
  end; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  auswahl := 0; 
  zeichnen; 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  auswahl := 1; 
  zeichnen; 
end; 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  auswahl := 6; 
  zeichnen; 
end; 
 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
  auswahl := 7; 
  zeichnen; 
end;