Für CopyRect passendes Ereignis?

[OrNEC]

Zitat von Perlsau:

Was bringt dich zu der Annahme, daß das Bild erst nach OnShow aus der Ressourcendatei in das TImage geladen wird?

Weil das Bild anscheinend in der OnShow noch nicht zur Verfügung steht.

[OrNEC]

Zitat von Medium:

Der sauberste Weg wäre es in dem Fall doch, das Bitmap nicht über den Form-Designer zu laden, sondern es selbst in eine Ressource zu packen. Dann hat man den Ladezeitpunkt definitiv in der Hand, kann das im OnCreate erledigen, und direkt danach gut leserlich und nachvollziehbar die Kopie machen.

Klappt auch nicht. Mit dem Klick auf den Button schon...

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  Quelle, Ziel: TRect;
begin
  Image1.Picture.LoadFromLazarusResource('bg');
  Image2.Picture.LoadFromLazarusResource('5ge');

  Quelle := Rect(0, 0, 100, 100);
  Ziel := Rect(0, 0, 100, 100);
  Image2.Canvas.CopyRect(Ziel, Image1.Canvas, Quelle);
end; 

procedure TForm1.Button2Click(Sender: TObject);
var
  Quelle, Ziel: TRect;
begin
  Quelle := Rect(0, 0, 100, 100);
  Ziel := Rect(0, 0, 100, 100);
  Image2.Canvas.CopyRect(Ziel, Image1.Canvas, Quelle);
end;

[DeddyH]

Was passiert denn, wenn Du auf den Button klickst und anschließend mal ein anderes Fenster über Deins legst?

[Sir Rufo]

Zitat von OrNEC:

Zitat von Perlsau:

Was bringt dich zu der Annahme, daß das Bild erst nach OnShow aus der Ressourcendatei in das TImage geladen wird?

Weil das Bild anscheinend in der OnShow noch nicht zur Verfügung steht.

Das eine hat mit dem anderen nicht zwangsläufig etwas zu tun und egal ist es sowieso.

• Erst wird die Form sichbar gesetzt
• dann kommt die Benachrichtigung OnShow
• dann wird gezeichnet

Da du auf das Gezeichnete zugreifen möchtest ist es also unerheblich ob das Image die Grafik schon geladen hat oder nicht. Die Grafik ist auf jeden Fall noch nicht gezeichnet, denn das erfolgt erst nach OnShow .

[OrNEC]

Zitat von DeddyH:

Was passiert denn, wenn Du auf den Button klickst und anschließend mal ein anderes Fenster über Deins legst?

Passiert nichts, das andere Fenster hat keinen Einfluss auf mein Fenster.

[OrNEC]

Zitat von Sir Rufo:

Die Grafik ist auf jeden Fall noch nicht gezeichnet, denn das erfolgt erst nach OnShow .

Das war auch meine Vermutung... dann muss ich wohl mit Timer arbeiten, oder gibt da doch eine Lösung?

[Luckie]

Im oder nach OnPaint?

[OrNEC]

Zitat von Luckie:

Im oder nach OnPaint?

Im OnPaint hängt sich das Programm auf. Und was meinst mit nach OnPaint?

[Luckie]

Guck mal hier http://www.delphigroups.info/2/71/97729.html letzter Beitrag.

[Perlsau]

Oben hatte SirRufo doch einen Hinweis auf OnIdle geliefert:

Die VCL-Form ist gesichert komplett gezeichnet beim ersten Application.OnIdle Event nach dem Form.OnShow Event.

Ist dieser Hinweis denn nicht brauchbar? Könnte man denn nicht einfach in der OnIdle-Ereignisbehandlung eine globale Boolean-Variable, die als Schalter fungiert, abfragen, so daß die Anweisungen nur dieses eine Mal ausgeführt werden? Z.B. so:

Delphi-Quellcode:

...
  private
    Var
      FirstIdlePassed : Boolean;
  public
    procedure MyOnIdleHandler(Sender: TObject; var Done: Boolean);
  end;

procedure TForm1.MyOnIdleHandler(Sender: TObject; var Done: Boolean);
begin
  Done := False;
  If FirstIdlePassed Then Exit;

  FirstIdlePassed := True;
  ShowMessage('Das erste OnIdle-Event!');
  ...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FirstIdlePassed := False;
  Application.OnIdle := MyOnIdleHandler;
end;

Nachtrag:
Ob das dann auch in Lazarus funktioniert, muß man gegebenenfalls ausprobieren ... Ach ja, bei Lazarus muß man das @ davor setzen:
Application.OnIdle := @MyOnIdleHandler;