Как уменьшить JPG картинку.

← →
SamProf © (2005-10-27 15:10) [0]

Есть картинка JPG. Есть H - выстота и W - ширина! Как её сжать пропорционально в эти размеры?

← →
Ega23 © (2005-10-27 15:28) [1]

StretchDraw ?

← →
SamProf © (2005-10-27 15:43) [2]

> Ega23 © (27.10.05 15:28) [1]
>
> StretchDraw ?

А де его взять?

← →
Ega23 © (2005-10-27 15:48) [3]

TCanvas.StretchDraw Draws the graphic specified by the Graphic parameter in the rectangle specified by the Rect parameter. procedure StretchDraw(const Rect: TRect; Graphic: TGraphic ); Description Call StretchDraw to draw a graphic on the canvas so that the image fits in the specified rectangle. StretchDraw calls the Draw method of the graphic. The graphic object determines how to fit into the rectangle. This may involve changing magnification and/or aspect ratio. To render the graphic in its natural size, use the Draw method, instead. Graphics can be bitmaps, icons, or metafiles. If the graphic is a TBitmap object, the bitmap is rendered using the value of CopyMode. Example The following example is taken from the custom draw demo. It shows how the OnCustomDraw event handler draws the background for the tree view before the items and lines are drawn. procedure TCustomDrawForm.TVCustomDraw(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean); begin //This event should be used to draw any background colors or images. //ARect represents the entire client area of the TreeView. //Use the TreeView"s canvas to do the drawing. //Note that drawing a background bitmap is not really supported by CustomDraw, //so scrolling can get messy. Best to subclass the TreeView and handle scrolling //messages. with TV.Canvas do begin if None1.Checked then //no picture begin Brush.Color := BkgColorDialog.Color; Brush.Style := FBrushStyle; FillRect(ARect); end else if Tile1.Checked then //tile bitmap begin Brush.Bitmap := Image1.Picture.Bitmap; FillRect(ARect); end else //Stretch across the canvas. StretchDraw(ARect, Image1.Picture.Bitmap); end; DefaultDraw := FDefaultDraw; //setting DefaultDraw to false here prevents all calls to OnCustomDrawItem. end;

Bitmap.assign(jpeg);
bitmap.canvas.StretchDraw(код);
jpeg.assign(bitmap);

Вот с этим экспереминтируй

Ой опоздал

Как уменьшить JPG картинку. Найти похожие ветки