RGB-Farben ändern ?

[Hansa]

Ich habe das jetzt mal umgesetzt. Mit 2 Buttons soll die Color der Form verändert werden (heller/dunkler) :

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    R, G, B: Byte;
    Farbe: TColor;
    HD: ShortInt;  { -100..0 = dunkler }
                   {  0..100 = heller  }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  hd := -10;
  farbe := Color;
  R := (Farbe and $000000FF);
  G := (Farbe and $0000FF00) shr 8;
  B := (Farbe and $00FF0000) shr 16;

  R := R + (R * HD div 100);
  G := G + (G * HD div 100);
  B := B + (B * HD div 100);

{Farbe := R or (G shl 8) or (B shl 16);}
  Farbe := RGB(R, G, B);
  color := farbe;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  hd := 10;
  farbe := Color;
  R := (Farbe and $000000FF);
  G := (Farbe and $0000FF00) shr 8;
  B := (Farbe and $00FF0000) shr 16;

  R := R + ((255 - R) * HD div 100);
  G := G + ((255 - G) * HD div 100);
  B := B + ((255 - B) * HD div 100);
  Farbe := RGB(R, G, B);
  color := farbe;
End;

end.

Leider geht es so nicht. Erstens verstehe ich nicht genau, wozu die Variable hd gedacht ist. In der Praxis stört mich aber am meisten, daß sich bei abwechselnder Betätigung der heller/dunkler Buttons die Farben nicht mehr zurück stellen lassen, so wie sie vorher waren.

Mein Gespür, welches allerding nicht immer funktioniert meint zu dem Source, daß da etwas mit dem SHR und dem DIV nicht richtig ist. Werden da nicht HEX und Dezimaloperationen durcheinander gewirbelt