Текущий архив: 2003.05.26;
Скачать: CL | DM;
Вниз
Как изменить Canvas.ClipRect? Найти похожие ветки
← →
kingdom © (2003-05-14 15:17) [0]Следующий код работает правильно только один раз, после второго нажатия на Button1 размер Image1 действительно увеличивается, а вот закрашенная область НЕТ!!! т.к. Image1.Canvas.ClipRect фиксируется при первом вызове и больше не меняется.
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Height := Image1.Height + 20;
{ Закрашиваем Image1 }
with Image1.Canvas do begin
Brush.Color := clWhite;
FillRect(Rect(0, 0, Image1.Width, Image1.Height));
end;
{ Закрашиваем форму, чтобы ведеть изменения размера Image1 }
with Canvas do begin
Brush.Color := clGray;
FillRect(Rect(0, 0, Width, Height));
end;
end;
Подскажите, пожалуйста, как мне увеличить размер картинки...
← →
MBo © (2003-05-14 15:25) [1]размеры image.picture.bitmap измени
← →
kingdom © (2003-05-14 15:38) [2]>MBo
СПАСИБО, заработало !!!
Страницы: 1 вся ветка
Текущий архив: 2003.05.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
