Forum: Multimedia
by OrNEC,
26. Jan 2016
Ich glaube nicht, die Bilder werden schön geladen und angezeigt, aber nicht kopiert, ich meine die CopyRect funkt nicht.
Forum: Multimedia
by OrNEC,
26. Jan 2016
@Perlsau danke Dir... Application.OnIdle Event war mir noch nicht vertraut.
An sich funktioniert es auch, die ShowMessage wird ausgegeben, aber das Bild wird nicht kopiert.
Ich würde für noch ein Paar Ideen sehr dankbar...
Forum: Multimedia
by OrNEC,
25. Jan 2016
Im OnPaint hängt sich das Programm auf. Und was meinst mit nach OnPaint?
Forum: Multimedia
by OrNEC,
25. Jan 2016
Das war auch meine Vermutung... dann muss ich wohl mit Timer arbeiten, oder gibt da doch eine Lösung?
Forum: Multimedia
by OrNEC,
25. Jan 2016
Passiert nichts, das andere Fenster hat keinen Einfluss auf mein Fenster.
Forum: Multimedia
by OrNEC,
25. Jan 2016
Klappt auch nicht. Mit dem Klick auf den Button schon...
procedure TForm1.FormShow(Sender: TObject);
var
Quelle, Ziel: TRect;
begin
Image1.Picture.LoadFromLazarusResource('bg');
Image2.Picture.LoadFromLazarusResource('5ge');
Quelle := Rect(0, 0, 100, 100);
Forum: Multimedia
by OrNEC,
25. Jan 2016
Weil das Bild anscheinend in der OnShow noch nicht zur Verfügung steht.
Forum: Multimedia
by OrNEC,
25. Jan 2016
Werden die Ressourcen in die MeineAnwendung.exe gepackt, oder muss man die Bilder separat im Verzeichnis mitliefern?
Forum: Multimedia
by OrNEC,
24. Jan 2016
Das Quellbild habe ich im Entwurfsmodus eingefügt, im Objektinspektor. Weiß jetzt nicht wann genau Lazarus das füllt. Scheint so als ob das nach dem OnShow passiert (was eigentlich unlogisch ist).
Forum: Multimedia
by OrNEC,
24. Jan 2016
Hallo,
ich habe folgende Procedure (ohne Fehler):
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});