Malen auf Canvas

[shareholder]

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  myBgLayer := TPaintBox.Create(Self);
  myBgLayer.Parent := Form1;
  myBgLayer.Show;

  with myBgLayer do
  begin

    Align := alCustom;
    Cursor := crHelp;

    // Default-Eigenschaftem für die PaintBox :
    Width := 200;
    Height := 200;

    // Rechteck malen :
    with Canvas do
    begin
      MoveTo(10, 10);
      Pen.Color := clBlue;
      Rectangle(10, 10, 100, 100);
    end;

  end;

end;

funzt soweit , jedoch - rechteck malen -
wird nicht ausgeführt

füge ich den code - rechteck malen -
jedoch in ein button onclick ereignis
dann funzt es

komisch :cyclops:

was ist falsch ? :gruebel:

[Christian Seehase]

Moin Shareholder,

alles was mit Zeichnen auf dem Canvas zu tun hat muss ins OnPaint Ereignis.
Wenn Du es dort machst geht's.

[Mirilin]

:hi:

Schau dir mal dies hier an.

Zitat:

OnCreate
OnShow
OnActivate
OnConstrainedResize
OnResize
OnPaint

Wenn du im OnPaint zeichnest siehts gut aus...


mfg Tobias

[shareholder]

Danke Mirilin und Christian Seehase ! :thuimb:
War mir eine riesen Hilfe. Nochmals THANX !!