From 86d8a267aa28254fc0f375c71ddcb089a8df7b41 Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Sun, 22 May 2016 20:53:45 +0000
Subject: [PATCH] TAChart: Fix missing initialization of glut library in opengl
 demo.

git-svn-id: trunk@52347 -
---
 components/tachart/demo/opengl/Main.lfm |  1 +
 components/tachart/demo/opengl/Main.pas | 17 ++++++++++++++++-
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/components/tachart/demo/opengl/Main.lfm b/components/tachart/demo/opengl/Main.lfm
index d9e2634dd4..b2b7292ef5 100644
--- a/components/tachart/demo/opengl/Main.lfm
+++ b/components/tachart/demo/opengl/Main.lfm
@@ -6,6 +6,7 @@ object Form1: TForm1
   Caption = 'Form1'
   ClientHeight = 319
   ClientWidth = 688
+  OnCreate = FormCreate
   LCLVersion = '1.7'
   object OpenGLControl1: TOpenGLControl
     Left = 344
diff --git a/components/tachart/demo/opengl/Main.pas b/components/tachart/demo/opengl/Main.pas
index 58649b8729..ece80a62f2 100644
--- a/components/tachart/demo/opengl/Main.pas
+++ b/components/tachart/demo/opengl/Main.pas
@@ -20,6 +20,7 @@ type
     OpenGLControl1: TOpenGLControl;
     RandomChartSource1: TRandomChartSource;
     procedure Chart1AfterPaint(ASender: TChart);
+    procedure FormCreate(Sender: TObject);
     procedure OpenGLControl1Paint(Sender: TObject);
   end;
 
@@ -31,13 +32,27 @@ implementation
 {$R *.lfm}
 
 uses
-  TADrawUtils, TADrawerOpenGL, TADrawerCanvas;
+  glut, TADrawUtils, TADrawerOpenGL in '../../tadraweropengl.pas', TADrawerCanvas;
 
 procedure TForm1.Chart1AfterPaint(ASender: TChart);
 begin
   OpenGLControl1.Invalidate;
 end;
 
+{ Initialization of glut library, needed for text output }
+procedure TForm1.FormCreate(Sender: TObject);
+var
+  CmdCount : Integer;
+  Cmd : Array of Pchar;
+  I: Integer;
+begin
+  CmdCount := Paramcount+1;
+  SetLength(Cmd,CmdCount);
+  for I := 0 to CmdCount - 1 do
+     Cmd[I] := PChar(ParamStr(I));
+  glutInit (@CmdCount,@Cmd);
+end;
+
 procedure TForm1.OpenGLControl1Paint(Sender: TObject);
 var
   d: IChartDrawer;