Вверх ↑
Ответов: 1088
Рейтинг: 112
#1: 2009-05-04 21:35:00 ЛС | профиль | цитата
MAV, IC в помощь.
поставь в конец onInit к примеру это:

Add(InlineCode,12590381,602,119)
{
WorkPoints=#6:doNext|
EventPoints=#7:onEvent|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|28:uses kol,Share,Debug,OpenGL;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|4: |9: public|22: onEvent:THI_Event; |48: procedure doNext(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|0:|57:procedure THiAsmClass.doNext(var Data:TData; index:word);|8:begin |65:glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);|65:glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);|62:glTexEnvi( GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE );|58:glTexEnvi( GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_BLEND )|0:|5:end; |0:|0:|4:end.|
}


Сам так часто делаю
карма: 0
Время верстки: %cr_time% Текущее время: %time%
1
Голосовали:MAV