So, ich hab nochmal eine Frage zum Thema. Ich würde gerne per Befehl zur LAufzeit diesen Übergang schaffen.
Delphi-Quellcode:
procedure TfrmMain.FormPaint(Sender: TObject);
begin
DrawGradientH(Canvas, clGreen, clTeal, Rect(0, 0, Width, Height));
end;
procedure TfrmMain.chkbHorizontalClick(Sender: TObject); //horizontaler Übergang
begin
if chkbHorizontal.Checked then
begin
chkbVertikal.Checked := FALSE;
DrawGradientH(Canvas, clbColor1.Selected, clbColor2.Selected, Rect(0, 0, Width, Height));
end;
end;
procedure TfrmMain.chkbVertikalClick(Sender: TObject); //vertikaler Übergang
begin
if chkbVertikal.Checked then
begin
chkbHorizontal.Checked := FALSE;
DrawGradientV(Canvas, clbColor1.Selected, clbColor2.Selected, Rect(0, 0, Width, Height))
end;
end;
Ich nutze ein XPManifest, dh. die ganzen Felder wie eine Combobox werden auch nach diesem Design gefärbt. Wenn ich das Ganze jetzt aber zur Laufzeit per Checkboxen ändere wird die Form richtig gefärbt, aber alle anderen Felder wie die Combobox bleiben in der ursprünglichen Farbe.
Kann man das irgendwie ändern so dass alles richtig gefärbt wird?