diff --git a/components/tachart/demo/opengl/Main.lfm b/components/tachart/demo/opengl/Main.lfm index 80d5869b11..5da1367e8e 100644 --- a/components/tachart/demo/opengl/Main.lfm +++ b/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 diff --git a/components/tachart/demo/opengl/Main.pas b/components/tachart/demo/opengl/Main.pas index 1383440c09..80ac283214 100644 --- a/components/tachart/demo/opengl/Main.pas +++ b/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); diff --git a/components/tachart/demo/opengl/opengldemo.lpi b/components/tachart/demo/opengl/opengldemo.lpi index cdf163b627..5c8f7da684 100644 --- a/components/tachart/demo/opengl/opengldemo.lpi +++ b/components/tachart/demo/opengl/opengldemo.lpi @@ -1,7 +1,7 @@ - + @@ -12,9 +12,6 @@ - - - @@ -24,9 +21,10 @@ - - - + + + + diff --git a/components/tachart/tadraweropengl.pas b/components/tachart/tadraweropengl.pas index b6a736ec20..900eb692cd 100644 --- a/components/tachart/tadraweropengl.pas +++ b/components/tachart/tadraweropengl.pas @@ -362,6 +362,8 @@ constructor TOpenGLDrawer.Create; begin inherited; InitFonts; + if GLFreeTypeHelper = nil then + GLFreeTypeHelper := TGLFreeTypeHelper.Create; end; {$ELSE} var