paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: clean up

Browse Source 
git-svn-id: trunk@16081 -
This commit is contained in:
mattias 2008-08-16 01:48:43 +00:00
parent 14797c0b4e
commit e2280116f1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/openglcontrol/exampleform.pp
View File

@ -43,6 +43,9 @@ type
end;
type
{ TExampleForm }
TExampleForm = class(TForm)
OpenGLControl1: TOpenGLControl;
ExitButton1: TButton;
@ -446,9 +449,8 @@ end;
procedure TExampleForm.IdleFunc(Sender: TObject; var Done: Boolean);
begin
OpenGLControl1.Invalidate;
OpenGLControl1Paint(Self);
//OpenGLControl1Paint(Self);
Done:=false; // tell lcl to handle messages and return immediatly
end;
// --------------------------------------------------------------------------