Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2017, 23:41   #1
7in
(aka Jin X) !RTFM!
Форумчанин
 
Аватар для 7in
 
Регистрация: 14.12.2014
Сообщений: 295
По умолчанию TImage и OnResize (Lazarus)

Вопрос касается именно Lazarus'а, т.к. в Delphi такого глюка нет.

Image привязан якорями (Anchors) к форме.
Однако, если поменять размер формы, то размер канваса не меняется (в Delphi тоже).
Изменить размер канваса можно, например, так (из OnResize формы):
Код:
  Image1.Picture.Bitmap.Width := Image1.Width;
  Image1.Picture.Bitmap.Height := Image1.Height;
Но тут есть нюанс: при увеличении размера окна появляются чёрные куски в той области, где происходит увеличение.
Как сделать, чтобы такого не было?

Скажем, вот такой код:
Код:
procedure TForm1.FormResize(Sender: TObject);
begin
  with Image1.Canvas, Image1 do
  begin
    Picture.Bitmap.SetSize(Width, Height);
    Brush.Color := clYellow;
    FillRect(ClipRect);
  end;
end;
в Delphi работает прекрасно, а вот в Lazarus появляются чёрные глюки...
Делаю лабы на Asm/Delphi/C++/Python/VBA(Excel): asmlabs.ru

Последний раз редактировалось 7in; 01.12.2017 в 11:06.
7in вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
OnResize Konstantin_ua Общие вопросы Delphi 3 24.02.2014 17:18
AlphaBlend и onResize D][mon Помощь студентам 0 29.09.2010 22:06
Событие OnResize sting1920 Помощь студентам 6 25.02.2010 20:23
onCanResize, onResize Airou Общие вопросы Delphi 3 30.07.2008 15:27
OnResize dbaluch Общие вопросы Delphi 9 11.06.2008 19:14