Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.012 c
9-83311
Ev_genus
2002-12-15 22:44
2003.05.26
Проекция.


3-83357
Avreliy
2003-05-05 15:21
2003.05.26
Отображение значений поля выборки на управляющей сетке!


7-83770
X-RayMan
2003-03-29 15:18
2003.05.26
TerminateProcess и разная фигня...


7-83761
Fedor
2003-03-24 13:03
2003.05.26
Перехват начала печати


3-83328
ruslan_as
2003-05-05 11:41
2003.05.26
Наименование столбцов в DBGrid в несколько строчек