Форум: "Компоненты";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];
ВнизКак отследить изменение размера TCustomControl компонента? Найти похожие ветки
← →
DevilDevil © (2006-07-18 12:17) [0]Создаю компонент на основе TCustomControl. По Paint должен рисоваться буфер-Битмап, размеры которого соответствуют размеру компонента.
← →
clickmaker © (2006-07-18 13:34) [1]TControl.Resize
WM_SIZE
← →
DimaBr (2006-07-18 13:46) [2]TControl.SetBounds
← →
DevilDevil © (2006-07-18 14:08) [3]Мне нужна отдельная процедура, возникающая при изменении размеров компонента. В ней я и буду изменять размеры битмапа...
← →
DimaBr (2006-07-18 16:01) [4]
TMyControl = class(TControl) // или выше
protected
procedure SetBounds(ALeft,ATop,Awidth,AHeight: integer);override;
procedure Resize; override;
end;
// возникает при изменнении размеров и положения
procedure TMyControl.SetBounds(ALeft,ATop,Awidth,AHeight: integer);
begin
// можно запретить изменение размеров и положения
// например ALeft := Left;
// можно вызвать свой метод или прямо здесь
// ResizeMyBitmap(ALeft,ATop,Awidth,AHeight);
inherited SetBounds(ALeft,ATop,Awidth,AHeight);
end;
procedure TMyControl.Resize;
begin
// возникает при изменении размеров
// ResizeMyBitmap;
inherited Resize;
end;
← →
DevilDevil © (2006-07-19 18:17) [5]Спасибо!
Использую Resize. Всё корректно. Ещё раз спасибо!
Страницы: 1 вся ветка
Форум: "Компоненты";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.078 c