Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 01.12.2017, 00:41   #1
7in
(aka Jin X) !RTFM!
Форумчанин
 
Аватар для 7in
 
Регистрация: 14.12.2014
Адрес: Самара
Сообщений: 285
Репутация: 147
По умолчанию 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/Pascal: asmlabs.ru

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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 21:23
onCanResize, onResize Airou Общие вопросы Delphi 3 30.07.2008 15:27
OnResize dbaluch Общие вопросы Delphi 9 11.06.2008 19:14


21:18.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru