Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];
ВнизZoom? Найти похожие ветки
← →
Calibr © (2006-09-04 14:28) [0]Как сделать зумер для Image. Т.Е. чтоб при кручении колеса мыши картинка в Image уменьшалась и увеличивалась в зависимости от того куда крутят колесо. И чтоб при этом не было видно белых полос при перерисовке Image.
Заранее спасибо!!!
← →
PVOzerski © (2006-09-04 14:37) [1]Ну, касательно полос - можно поиграть со свойством формы DoubleBuffered. Касательно колесика - вешай свой обработчик на WM_MOUSEWHEEL. А вот касательно собственно лупы... Если картинка векторная, всё просто. А вот если растровая, результат изменения ее размеров в любую сторону может сильно разочаровать. В принципе, есть несколько аглоритмов масштабирования растров (можно поискать по Сети), но все они имеют достаточно ограниченные возможности.
← →
C@N © (2006-09-04 18:57) [2]procedure TForm1.BitBtn2Click(Sender: TObject);//Загрузить картинку )))
begin
Form1.OpenPictureDialog1.Execute;
image1.Picture.LoadFromFile(form1.OpenPictureDialog1.FileName);
Image1.AutoSize:=true;
Image1.AutoSize:=false;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);//Увеличить картинку
begin
image1.Stretch:=true;
Image1.Height:= Image1.Height+10;
image1.Width:=image1.Width+10;
end;
Можно и так )))
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.048 c