Form2.canvas.draw klappt nicht!

[Lefko]

Hallo Freunde :hi: ,
wieso klappt das nicht!?
Die Form bleibt immer weiss!!
Jemand ne erklärung?

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
var z1, z2 : byte;
begin
//Rand zeichnen
for z1 := 0 to 10 do
 for z2 := 0 to 10 do
  Form2.Canvas.draw(z1*10, z2*10, Form2.Image1.picture.bitmap);
end;

MfG Lefko.

[Mirilin]

:hi:

Machs doch mal ins OnPaint der Form


mfg Tobias

[Lefko]

Supi, das klappt!
Wieso klappt das nicht im OnShow?

Wie ist eigentlich die Reihenfolge der Events?


MfG Lefko

[H4ndy]

Zitat:

Zitat von Lefko

Wieso klappt das nicht im OnShow?

Weil nach dem OnShow das Form neu gezeichnet wird :zwinker:
-> OnPaint des Forms wird aufgrufen -> Zeichenoperationen sind futsch

=> Zeichenoperationen immer ins OnPaint setzten, damit sind "permanent" sind.

:)

[Lefko]

alles klar, danke!