dynamische Image erzeugung

[Isaev]

Wie kann man Image zu zwingen, den Umfang beim automatischen Dehnen zu übernehmen?
D.h. ich kann Width und Height nicht eingeben, wiel die unbekannt sind...
Und wenn ich die Größe nicht eingebe, sehe ich nur Teilimage davon.
Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
Var
  Img2:TImage;
  X,Y,X1,Y1,N:Integer;
begin
  Img2:=TImage.Create(Panel1);
  Img2.Parent:=Panel1;
  Img2.Margins.SetBounds(8,15,8,15);
  Img2.AlignWithMargins:=True;
  Img2.Align:=alClient;

  For N:=0 To 200 Do
    Begin
      X:=Random(Img2.Width);
      Y:=Random(Img2.Height);
      X1:=Random(Img2.Width);
      Y1:=Random(Img2.Height);
      Img2.Canvas.MoveTo(X,Y);
      Img2.Canvas.LineTo(X1,Y1);
    End;
end;

[sx2008]

Ein Image ist nur ein visueller Kontainer für ein TPicture.
Wenn du auf dem Canvas eines Image zeichnest, dann ist das nur temporär und verschwindet sobald das Image durch ein anderes Fenster abgedeckt und wieder aufgedeckt wird.
Ausserdem zeichnest du in OnFormCreate während das Formular noch gar nicht sichtbar ist.

Du kannst ja mal dieses Demo studieren:
http://www.delphipraxis.net/157961-f...n-zeichen.html

[Isaev]

Zitat:

Zitat von sx2008 (Beitrag 1217392)

Ein Image ist nur ein visueller Kontainer für ein TPicture.
Wenn du auf dem Canvas eines Image zeichnest, dann ist das nur temporär und verschwindet sobald das Image durch ein anderes Fenster abgedeckt und wieder aufgedeckt wird.

Ja, stimmt. Aber immer sollte eine Lösung sein =)

Zitat:

Zitat von sx2008 (Beitrag 1217392)

Ausserdem zeichnest du in OnFormCreate während das Formular noch gar nicht sichtbar ist.

in dem Fall es ist nicht so wichtig, wenn ich in onButtonClick zeichnen werde, bringt's auch nichts

Zitat:

Zitat von sx2008 (Beitrag 1217392)

Du kannst ja mal dieses Demo studieren:
http://www.delphipraxis.net/157961-f...n-zeichen.html

Hier habe ich keine Antwort zu meiner frage gefunden) Oder möchten Sie statt Image - Paintbox vorschlagen?