Delphi Image Resize ohne verzerung ?

Thema durchsuchen

Ansicht

Themen-Optionen

Image Resize ohne verzerung ?

Ein Thema von Praxist · begonnen am 3. Aug 2008 · letzter Beitrag vom 3. Aug 2008

Vorheriger Beitrag

Nächster Beitrag

Praxist

Registriert seit: 6. Jul 2008
39 Beiträge

Delphi 7 Professional

Re: Image Resize ohne verzerung ?

3. Aug 2008, 16:36

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;