procedure ResizeBmp(Src,Dst:String);
var SrcBM,DstBM:TBitMap;
Rect:TRect;
NewW,NewH,PicW,PicH:Integer;
HDivW:Double;
begin
SrcBM: = TBitMap.Create;
SrcBM.LoadFromFile(Src);
PicW: = SrcBM.Width;
PicH: = SrcBM.Height;
NewH: = 768 ;
NewW: = 1024 ;
DstBM: = TBitMap.Create;
with DstBM do begin
Width: = NewW;
Height: = NewH;
Rect.TopLeft: = Point( 0 , 0 );
Rect.BottomRight: = Point(NewW,NewH);
Canvas.Rectangle( 0 , 0 ,Width,Height);
Canvas.StretchDraw(Rect,TGraphic(SrcBM));
SaveToFile(Dst);
FreeImage;
Free;
end;
end;
var SrcBM,DstBM:TBitMap;
Rect:TRect;
NewW,NewH,PicW,PicH:Integer;
HDivW:Double;
begin
SrcBM: = TBitMap.Create;
SrcBM.LoadFromFile(Src);
PicW: = SrcBM.Width;
PicH: = SrcBM.Height;
NewH: = 768 ;
NewW: = 1024 ;
DstBM: = TBitMap.Create;
with DstBM do begin
Width: = NewW;
Height: = NewH;
Rect.TopLeft: = Point( 0 , 0 );
Rect.BottomRight: = Point(NewW,NewH);
Canvas.Rectangle( 0 , 0 ,Width,Height);
Canvas.StretchDraw(Rect,TGraphic(SrcBM));
SaveToFile(Dst);
FreeImage;
Free;
end;
end;