Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DelphiX и спрайты

Norlin © (2003-08-06 23:25:00)

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

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

Norlin (2003-08-09 01:08:00) [1]

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

pasha676_* (2003-08-07 13:07:00) [2]

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

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

TButton (2003-08-07 02:33:00) [3]

эммм.... делаешь тип
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 потянулись =)))))))))))

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

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

TButton (2003-08-07 00:10:00) [5]

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

Norlin (2003-08-07 00:08:00) [6]

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

TButton (2003-08-06 23:48:00) [7]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »