Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 20000 рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.07.2010, 13:03   #1
i.pas
Пользователь
 
Регистрация: 08.07.2010
Сообщений: 12
По умолчанию ImageEn. Рисует в стороне.

Я пишу графический редактор с использованием ImageEn на Delphi. Я написал обработчик карандаша, но почему-то когда я рисую - линия рисуется не прямо под мышью, а на 7см вправо, не пойму почему вот ехешник и код MouseMove:
Код:
procedure TMDIChild.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
if MainForm.SBPen.Down then
begin
  ImageEnView1.IEBitmap.Canvas.LineTo(X, Y);
end;
  ImageEnView1.Update;
end;
exe:
http://file.qip.ru/file/H-DW-sRT/PC_online.html
i.pas вне форума Ответить с цитированием
Старый 21.07.2010, 13:39   #2
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

может так
Код:
procedure TMDIChild.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
if ssLeft in Shift then//если нажата левая кнопка мыши
begin
  ImageEnView1.IEBitmap.Canvas.LineTo(X, Y);
end else 
  ImageEnView1.IEBitmap.Canvas.MoveTo(X, Y);
  ImageEnView1.Update;
end;
SERG1980 вне форума Ответить с цитированием
Старый 21.07.2010, 14:37   #3
i.pas
Пользователь
 
Регистрация: 08.07.2010
Сообщений: 12
По умолчанию

Не так.
Нашел пока временное решение проблемы - Center = false; Но теперь стало не очень красиво.
i.pas вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не рисует наследуемый класс. TwiX Общие вопросы Delphi 7 03.10.2009 10:59
ImageEn и DICOM lexaltd Компоненты Delphi 0 20.08.2009 11:54
Паскаль не рисует! fire_on Паскаль, Turbo Pascal, PascalABC.NET 26 11.08.2009 17:20
Нужен последний ImageEn c исходниками Domkrat Компоненты Delphi 1 30.09.2008 15:40



Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS