Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Графика / При попытке использовать метод TCanvas.StretchDraw чтобы нарисовать иконку увеличенной ее размер не изменяется. Что делать?

При попытке использовать метод TCanvas.StretchDraw чтобы нарисовать иконку увеличенной ее размер не изменяется. Что делать?

Иконки всегда рисуются размером принятым в системе по умолчанию. Чтобы показать увеличенный вид иконки скоприуйте ее на bitmap, а зате используйте метод TCanvas.StretchDraw.
Пример:

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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru