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;