Hallo,
so hab das mit der Proportionalität mal von Hand gemacht, nur ist die Qualität der Bilder unter aller s**!!!
Hier der Code. Vieleicht kann mir jemand sagen, wie die Bilder qualitativ besser werden...
gruß,
billi
Delphi-Quellcode:
var
RBit, Bit: TBitmap;
JPG: TJPEGImage;
NewWidth, NewHeight: integer;
w, h, hdw, wdh: Real;
begin
Bit:=TBitmap.Create;
RBit:=TBitmap.Create;
JPG:=TJPEGImage.Create;
JPG.LoadFromFile(pfad.text+Cerweitert_namenliste.text+'.jpg');
w:= JPG.Width;
h:= JPG.Height;
wdh:= w/h;
hdw:= h/w;
if w > h then
begin
newwidth:= 193;
newheight:= trunc(hdw*193);
end;
if h > w then
begin
newwidth:= trunc(wdh*113);
newheight:= 113;
end;
if h = w then
begin
newwidth:= trunc(wdh*113);
newheight:= 113;
end;
Bit.Assign(JPG);
RBit.Width:=NewWidth;
RBit.Height:=NewHeight;
RBit.Canvas.CopyRect(Rect(0,0,NewWidth,NewHeight),Bit.Canvas,Rect(0,0,Bit.Width,Bit.Height));
JPG.Assign(RBit);
Ierweitert_bild.Picture.Graphic:= JPG;
Ierweitert_bild.center:= true;
JPG.Free;
RBit.Free;
Bit.Free;
end;