TGradient macht den Effekt nur auf Form.canvas
Ich muss danach wie die Leute schon gesagt, das Canvas als Bitmap kopieren.
Delphi-Quellcode:
procedure TMainForm.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
Source: TRect;
Dest: TRect;
begin
Bitmap := TBitmap.Create;
try
with Bitmap do
begin
Width := Mainform.Width;
Height := Mainform.Height;
Dest := Rect(0, 0, Width, Height);
end;
with Mainform do
Source := Rect(0, 0, Width, Height);
Bitmap.Canvas.CopyRect(Dest, Mainform.Canvas, Source);
Bitmap.SaveToFile('mybitmap.BMP');
finally
Bitmap.Free;
end;
end;
Ich muss die
Unit anpassen, so ich die beide Farben ändern kann .
TGradient
kann jemand mir in diesem Punkt helfen, wie ich die Farbe in
Unit direkt von meinem Form ändern kann ?
Ich melde zurück, wenn ich alleine schaffe
