VPF::Ошибка при изменении размера изображения

shkafff

Дата 3.11.2008, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 3.11.2008

Репутация: нет
Всего: нет

Изменяю размер изображения при помощи Image1

Код


procedure TForm1.tb2ZoomInClick(Sender: TObject);
begin

Image1.Stretch:=false;
Image1.Autosize:=true;
Image1.Autosize:=false;
Image1.Stretch:=true;

Image1.Width:=trunc(w*m);
Image1.Height:= trunc(h*m);

StatusBar1.Panels[1].Text:= IntToStr(Image1.Width)+'x'+
IntToStr(Image1.Height)+' '+IntToStr(round(Image1.Width*100/w))+'%';
m:=m+1;
end;

Размер изменяет нормально, но когда пытаюсь рисовать на увеличенном изображении рисует не прямо под указателем мыши, а со смещением. Не могу понять в чем дело?? Кто знает посоветуйте что-нить
Код когда рисую

Код


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  with Image1.Canvas do
  If Painting then
    If tb1Pencil.Down then 
      begin
      Pen.Mode:= pmCopy;
      LineTo(X, Y)
      end
end;

ivan219

Дата 3.11.2008, 21:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12

Используй не Image а PaintBox.

Код


procedure TForm1.tb2ZoomInClick(Sender: TObject);
begin
 Image1.Width:=trunc(w*m);
 Image1.Picture.Bitmap.Width := Image1.Width;
 Image1.Height:= trunc(h*m);
 Image1.Picture.Bitmap.Width := Image1.Height;
 
 StatusBar1.Panels[1].Text:= IntToStr(Image1.Width)+'x'+
 IntToStr(Image1.Height)+' '+IntToStr(round(Image1.Width*100/w))+'%';
 m:=m+1;
end;

Это сообщение отредактировал(а) ivan219 - 3.11.2008, 21:57

--------------------

Мой первый сайт и моя первая программа!!!!!

shkafff

Дата 3.11.2008, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 3.11.2008

Репутация: нет
Всего: нет

Боюсь менять компонент уже поздно, кода уже много и использую Image1.Picture.Bitmap

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »