Delphi-Help

Главная Статьи Canvas При попытке использовать метод TCanvas.StretchDraw

При попытке использовать метод TCanvas.StretchDraw

Оцените материал
(0 голосов)


При попытке использовать метод 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;
Прочитано 4841 раз
Другие материалы в этой категории: « Как создать временный Canvas?

Авторизация



Счетчики