DBR Delphi-Ecke

// Getestet mit D4 unter Win98

// Man kann einem Colordialog benutzerdefinierte Farben
// hinzufügen. Das funktioniert z.B. so:

procedure TForm1.SpeedButton1Click(Sender: TObject); 
var 
  r, g, b: Byte; 
  farb: TColor; 
begin 
  farb := colortorgb(clActiveBorder); 
  r := getrvalue(farb); 
  g := getgvalue(farb); 
  b := getbvalue(farb); 
  colordialog1.CustomColors.clear; 
  colordialog1.CustomColors.add('ColorA=' + inttohex(b, 2) + 
    inttohex(g, 2) + inttohex(r, 2)); 
  colordialog1.CustomColors.add('ColorB=A0F112'); 
  if colordialog1.execute then begin 
    color := colordialog1.color; // oder was eben gerade eingefärbt werden soll 
  end; 
end;

// Dummerweise klappt das nicht in allen Delphi-Versionen, obwohl das so
// in der Hilfe steht. Der Grund ist einfach ein fleißiger Übersetzer.
// Sollte der obige Code nicht funktionieren, dann muss man statt
// ColorA=.... nur FarbeA=... bzw. statt
// ColorB=.... dann FarbeB=... usw. einsetzen.