Re: Какой объект в TList сейчас обрабатывается?
Сделал немного подругому:
Type TBuilding
' ссылка на себя, значение присваиватся при создании экземпляра класса
Field TowerName
'Текущий выбраный объект
Global TowerS = Null
'Выбран ли объект
IsSelected = false
Method Update()
If Click() then Not(IsSelected)
If IsSelected then
TowerS = TowerName
else
TowerS = Null
endif
If TowerName <> TTower.TowerS Then Selected=0
end method()
Ну а дальше Draw() уже рисует согласно разным параметрам.
Тк нет смысла каждый раз выполнять "вернуть себя", решил просто добавить еще одно поле в класс, но за метод спасиб, думаю что понадобиться.
|