/
stud_22-365
/
GLXEngine
Обзор
Документация
Войти
/
stud_22-365
/
GLXEngine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Examples/Demos/interface/Pick/PickD.dpr
25 строк
708 B
glscene
HappyNewYear!
28 дек 2025, 23:42
28 дек 2025, 23:42
5ab1194
Код
Авторство
О чём код?
{: Basic interactive object picking This is a bare bones sample on the use of the GetPickedObject function. Two events are handled : OnMouseMove triggers a color change (grey/red) when the mouse is moved over an object, and a message popups when an object is clicked in OnMouseDown. In a real world proggie, both events should make use of the oldPick variable (since you can't click what is not under the mouse, the GetPickedObject in OnMouseDown returns what we already have in oldPick, set during the last OnMouseMove). } program PickD; uses Forms, fdPick in 'fdPick.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.