hallo

ich habe immer noch nicht geschafft mein Image breiter oder schmaler zu machen ohne das Bild in
Image verzerren zu müssen.
ich möchte einfach das Bild von einer Seite erweitern
Die Erweiterung soll z.B. mit weissem Hintergrund wie im Bild
Was schlagt Ihr vor ?

ich kann nur die Erweiterung von rechts und von unten
wie kann ich das Bild auch von links und von oben erweitern?

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.autosize:=true;
image1.Stretch:=false;
Image1.Picture.Bitmap.Width := Image1.Picture.Bitmap.width+50;
Image1.Picture.Bitmap.height := Image1.Picture.Bitmap.height+50;
end;

Hi,

Dazu musst das Bild nach unten/rechts erweitern und den ursprünglichen Bildbereich nach unten/rechts schieben (mit CopyRect o.ä.)

fast geklappt
ich muss nur das alte Bild löschen, damit ich einen weissen HG bekomme

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
w,h:integer;
dx,dy:integer;
begin
w:=image2.Width;
h:=image2.Height;
dx:=50;
dy:=50;
Image1.Picture.Bitmap.Width := Image1.Picture.Bitmap.width+dx;
Image1.Picture.Bitmap.height := Image1.Picture.Bitmap.height+dy;
Image1.Canvas.CopyRect(rect(dx,dy,w+dx,h+dy),Image2.Canvas,rect(0,0,w,h));
end;