Показать сообщение отдельно
Старый 01.02.2012, 13:16   #22
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Помощь мне люди

Сообщение от Elastic Посмотреть сообщение
как выводить?нужно что то обьявить,какие то процедуры там...а то ошибку выбивает,не компилиться...
Имеется в виду сравнение координат, то есть, чтобы условие срабатывало тогда, когда над точкой находится центр курсора, а не угол. Надо писать как-то так:
var
 Sx, Sy:integer;
 Sx:=GetImageWidth(cursor) div 2;
 Sy:=GetImageHeight(cursor) div 2;
 TX:=TX-Sx;
 TY:=TY-Sy
 repeat
  ...
  if((x=TX)and(y=TY)) then
   DrawText(...);
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Elastic (01.02.2012)