Главная страница | назад





Article #16818: StretchDraw on an icon

 Question and Answer Database

FAQ1818D.txt   StretchDraw on an icon
Category   :VCL
Platform    :All
Product    :All 32 bit  

Question:
When I attempt to use the TCanvas.StretchDraw method to draw a
zoomed view of an Icon, the size does not change. How can I 
get around this?


Answer:
Icons always draw at the system default icon size. To display a
zoomed view of an icon image, copy the icon image to a bitmap, 
then use the TCanvas.StretchDraw method.

Example:

procedure TForm1.Button1Click(Sender: TObject);
var
  TheBitmap : TBitmap;
begin
  TheBitmap := TBitmap.Create;
  TheBitmap.Width := Application.Icon.Width;
  TheBitmap.Height := Application.Icon.Height;
  TheBitmap.Canvas.Draw(0, 0, Application.Icon);
  Form1.Canvas.StretchDraw(Rect(0,
                                0,
                                TheBitmap.Width * 3,
                                TheBitmap.Height * 3),
                                TheBitmap);
  TheBitmap.Free;
end;


7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99