DelphiX и спрайты

← →
Norlin (2003-08-06 23:25) [0]

Здравствуйте! Кто знает, скажите, как определить на какой спрайт наведен курсор?

З.Ы. В DelphiX это всё на Delphi 5...

← →
TButton (2003-08-06 23:48) [1]

СпрайтЕнджин юзаешь?
и что ето ваще за спрайты?

← →
Norlin (2003-08-07 00:08) [2]

юзаю
всмысле, что за спрайты??? Ну типа чтоб в меню кнопки нажимать...

← →
TButton (2003-08-07 00:10) [3]

ну вообще, когда я делал(делаю) кнопки в меню - создаю для каждой TRect (в смысле массив ректов создаю), и онКликово, онМаусМувово, онТаймерово и т.п. проверяю PointInRect(cur,brect[n]);

← →
Norlin (2003-08-07 00:22) [4]

так Рект - вроде ж прямоугольник ? а если кнопка круглая?

← →
TButton (2003-08-07 02:33) [5]

эммм.... делаешь тип
TCircle = record
x,y:integer;
r:integer;
end;
и процедуру
procedure PointInCircle(p: TPoint; c: TCircle);
var
dx,dy:integer;
r:integer;
begin
dx:=p.x-c.x; dx:=dx*dx;
dy:=p.y-c.y; dy:=dy*dy;
r:=SQRT(dx+dy);
if r<=c.r
then result:=true
else result:=false;
end;

дописал процедуру и пальцы сами к Ctrl и F9 потянулись =)))))))))))

← →
pasha676_* (2003-08-07 13:07) [6]

> Кто знает, скажите, как определить на какой спрайт наведен
> курсор?

Если координаты курсора, есть координаты спрайта, есть размеры спрайта. Неужели трудно догадаться и написать находиться ли курсор над спрайтом?

← →
Norlin (2003-08-09 01:08) [7]

2 TButton спасибо!
да, знакомый рефлекс :)) а ещё после каждого символа ctrl S :)))

DelphiX и спрайты Найти похожие ветки