TAChart: OpenGL drawer calls InitFonts.

git-svn-id: trunk@55456 -

components/tachart/tadraweropengl.pas

@@ -14,13 +14,8 @@
   - If define CHARTGL_USE_LAZFREETYPE is activated in the package options then
     the LazFreeType library is used for rendering text. If not, the GLUT library
     is used instead. Note that GLUT is not available on every system.
-
-  - If LazFreeType does not find the fonts needed call InitFonts at the beginning
-    of the program and specify the path to the font folder as a parameter.
-    Several folders can be used if separated by LineEnding codes.
-
-  - The drawer does not support rotated text at the moment.
 }
+
 unit TADrawerOpenGL;
 
 {$H+}
@@ -95,11 +90,6 @@ type
     procedure SetTransparency(ATransparency: TChartTransparency);
   end;
 
-{$IFDEF CHARTGL_USE_LAZFREETYPE}
- procedure InitFonts(AFontDir: string = '');
- procedure DoneFonts;
-{$ENDIF}
-
 
 implementation
 
@@ -371,6 +361,7 @@ constructor TOpenGLDrawer.Create;
 {$IFDEF CHARTGL_USE_LAZFREETYPE}
 begin
   inherited;
+  InitFonts;
 end;
 {$ELSE}
 var

components/tachart/tafonts.pas

@@ -1,3 +1,17 @@
+{
+ *****************************************************************************
+  See the file COPYING.modifiedLGPL.txt, included in this distribution,
+  for details about the license.
+ *****************************************************************************
+
+  Author: Werner Pamler
+
+- If LazFreeType does not find the fonts needed call InitFonts at the beginning
+  of the program and specify the path to the font folder as a parameter.
+  Several folders can be used if separated by LineEnding codes.
+}
+
+
 unit TAFonts;
 
 interface
@@ -24,7 +38,7 @@ var
   s: String;
 begin
   if AList = nil then
-    raise Exception.Create('PopulateFontDirList: list is nil');
+    raise Exception.Create('PopulateFontDirList: list not allocated.');
 
  {$IFDEF WINDOWS}
   s := SHGetFolderPathUTF8(CSIDL_FONTS);
@@ -108,9 +122,4 @@ begin
   end;
 end;
 
-procedure DoneFonts;
-begin
-//
-end;
-
 end.