Текущий архив: 2006.09.17;
Скачать: CL | DM;
Вниз
изменение размера image Найти похожие ветки
← →
iss © (2006-02-28 13:05) [0]Добрый день, на форме есть image, как сделать так, чтобы во время работы программы мышью можно было увеличивать/уменьшать image?
← →
SMAC (2006-03-01 14:11) [1]
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
Image1.Width := Image1.Width div 2;
Image1.Height := Image1.Height div 2;
end;
if Button = mbRight then
begin
Image1.Width := Image1.Width * 2;
Image1.Height := Image1.Height * 2;
end;
end;
Меняться будет только Image (как и просили), а не не изображение в нем.
← →
iss © (2006-03-01 16:41) [2]Спасибо большое разобрался, еще есть компонент TSizeControl можно его использовать для выполнений операции увеличения/уменьшения и перетаскиваний по форме image...
Страницы: 1 вся ветка
Текущий архив: 2006.09.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.051 c
