Вверх ↑
Разработчик
Ответов: 4697
Рейтинг: 426
#1: 2010-06-21 08:53:34 ЛС | профиль | цитата
[offtop]
Dilma писал(а):
нельзя в IC менять название класса

Наверное я уже поздно, но все-таки использование своего имени класса возможно, нужно лишь затем добавить всего одну строчку:
#pas
THiAsmClass = THIGl_Flags;

Add(InlineCode,1663676,392,182)
{
WorkPoints=#7:doFlags|
EventPoints=#7:onFlags|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|28:uses Kol,Share,Debug,OpenGL;|0:|4:type|29: THIGL_Flags = class(TDebug)|10: private|9: public|0:|22: onFlags:THI_Event;|0:|51: procedure doFlags(var _Data:TData; Index:word);|6: end;|2: |28: THiAsmClass = THIGL_Flags;|0:|14:implementation|0:|30:procedure THIGL_Flags.doFlags;|3:var|12: x:integer;|6: begin|11: x := 0;|47: if glIsEnabled(GL_LIGHTING) then x := x + 1;|53: if glIsEnabled(GL_COLOR_MATERIAL) then x := x + 2;|49: if glIsEnabled(GL_DEPTH_TEST) then x := x + 4;|38: _hi_CreateEvent(_Data,@onFlags,x);|4:end;|0:|4:end.|
}
[/offtop]
карма: 10
1
Голосовали:Dilma