Noch nicht perfekt aber ein Anfang.
Windows werden nun richtig gezeichnet.
Hatte vergessen das GetDC ja nur für den Client Bereich zuständig ist
Mit GetWindowDC hat's dann funktioniert.
Und die Farbe zu der gefaded werden soll kann man nun angeben.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
AutoFade(Form1,
RGB(255,255,255),
RGB(0, 0, 0)
{RGB(64,128,255), RGB(0, 32, 64)});
ShowMessage('
What nu.. Hi greyed out');
deinit := DIMMED_DEINIT;
end;
gruss