#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.|
}