TAChart: Fix OpenGL drawer error "InitFonts not called"

git-svn-id: trunk@57294 -

components/tachart/demo/opengl/Main.lfm

@@ -7,7 +7,7 @@ object Form1: TForm1
   ClientHeight = 319
   ClientWidth = 688
   OnCreate = FormCreate
-  LCLVersion = '1.7'
+  LCLVersion = '1.9.0.0'
   object OpenGLControl1: TOpenGLControl
     Left = 344
     Height = 319
@@ -29,15 +29,17 @@ object Form1: TForm1
         Marks.LabelFont.Name = 'Arial'
         Marks.Frame.Style = psSolid
         Marks.LabelBrush.Color = clYellow
-        Marks.LabelBrush.Style = bsSolid
         Minors = <>
         Title.LabelFont.Orientation = 900
+        Title.LabelBrush.Style = bsClear
       end    
       item
         Alignment = calBottom
         Marks.LabelFont.Height = -13
         Marks.LabelFont.Name = 'Arial'
+        Marks.LabelBrush.Style = bsClear
         Minors = <>
+        Title.LabelBrush.Style = bsClear
       end>
     Foot.Brush.Color = clBtnFace
     Foot.Font.Color = clBlue

components/tachart/demo/opengl/Main.pas

@@ -43,8 +43,9 @@ procedure TForm1.FormCreate(Sender: TObject);
 begin
   // If the text engine does not find the fonts needed for the OpenGL output
   // copy the fonts to the exe folder and uncomment the next line
+  // Requires TAFonts in "uses"
 
-  // InitFonts(ExtractFilePath(ParamStr(0)));
+  //  InitFonts(ExtractFilePath(ParamStr(0)));
 end;
 
 procedure TForm1.OpenGLControl1Paint(Sender: TObject);

components/tachart/demo/opengl/opengldemo.lpi

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="9"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <General>
       <SessionStorage Value="InProjectDir"/>
@@ -12,9 +12,6 @@
     <i18n>
       <EnableI18N LFM="False"/>
     </i18n>
-    <VersionInfo>
-      <StringTable ProductVersion=""/>
-    </VersionInfo>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
     </BuildModes>
@@ -24,9 +21,10 @@
       <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="3">
       <Item1>

components/tachart/tadraweropengl.pas

@@ -362,6 +362,8 @@ constructor TOpenGLDrawer.Create;
 begin
   inherited;
   InitFonts;
+  if GLFreeTypeHelper = nil then
+    GLFreeTypeHelper := TGLFreeTypeHelper.Create;
 end;
 {$ELSE}
 var