Hallo,
ich habe folgende Procedure (ohne Fehler):
Delphi-Quellcode:
procedure TMainForm.BackgroundToSpectrumImage();
var
Quelle, Ziel: TRect;
begin
Quelle := Rect(SpectrumBackgroundImage.Left{=13}, SpectrumBackgroundImage.Top{=112}, SpectrumBackgroundImage.Left + SpectrumBackgroundImage.Width{=42}, SpectrumBackgroundImage.Top + SpectrumBackgroundImage.Height{=184});
Ziel := Rect(0, 0, SpectrumBackgroundImage.Width{=30}, SpectrumBackgroundImage.Height{=73});
SpectrumBackgroundImage.Canvas.CopyRect(Ziel, MainBackgroundImage.Canvas, Quelle);
end;
Es wird also ein Stück Bild kopiert und in ein anderes gefüllt. Nun soll das sofort beim Start der Anwendung passieren, aber ich finde kein passendes Ereignis dafür. OnCreate, OnShow, OnPaint oder OnResize von Form1 bring da nichts, das Ziel wird schwarz.
MainBackgroundImagePictureChanged ruft einen Fehler aus... jah... bitte hier also um Hilfe.
P.S. ich programmiere mit Lazarus.