[Glxtreem-commits] GLXtreem/Source GLXDraws.pas,1.1,1.2

[<dan...@us...>]

Update of /cvsroot/glxtreem/GLXtreem/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18326/Source

Modified Files:
	GLXDraws.pas 
Log Message:
Made some changes so that you can have multiple GLXDraws on the form

Index: GLXDraws.pas
===================================================================
RCS file: /cvsroot/glxtreem/GLXtreem/Source/GLXDraws.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** GLXDraws.pas	10 Mar 2004 16:55:30 -0000	1.1
--- GLXDraws.pas	11 Mar 2004 01:16:53 -0000	1.2
***************
*** 195,200 ****
     { Protected declarations }
      {@exclude}
-     Procedure Render(FrameTime: Single);
-     {@exclude}
      procedure Paint; override;
      {@exclude}
--- 195,198 ----
***************
*** 209,212 ****
--- 207,212 ----
  
  
+     {@exclude}
+     Procedure Render(FrameTime: Single);
  
      { Initializes OpenGL. }
***************
*** 349,353 ****
  implementation
  
- 
  // Component TGLXDraw
  //==============================================================================
--- 349,352 ----
***************
*** 381,386 ****
    IF (csDesigning in ComponentState) then Exit;
  
-   InitOpenGL;
- 
    if Assigned(FOnSetup) then FOnSetup(Self);
  
--- 380,383 ----
***************
*** 432,435 ****
--- 429,434 ----
  Procedure TGLXDraw.Render(FrameTime: Single);
  begin
+   Activate;
+ 
    If Assigned(Camera)  then begin
      Camera.Style:= csPerspective;
***************
*** 442,445 ****
--- 441,446 ----
  
    Flip;
+ 
+   Deactivate;
  end;
  
***************
*** 573,578 ****
  procedure TGLXDraw.SetTimer(const Value: TGLXTimer);
  begin
    FTimer := Value;
!   IF Assigned(Timer) then Timer.OnTimer:=TimerEvent;
  end;
  
--- 574,580 ----
  procedure TGLXDraw.SetTimer(const Value: TGLXTimer);
  begin
+   IF Assigned(Timer) then Timer.Unsubscribe(TimerEvent);
    FTimer := Value;
!   IF Assigned(Timer) then Timer.Subscribe(TimerEvent);
  end;
  
***************
*** 943,946 ****
--- 945,951 ----
  
  
+ initialization
+   //Has to be initialized only once per Application
+   InitOpenGL;