added font sources to documentation

painter and fonts are now user creatable properties
added font option to fpmake
implemented font styles for gl freetype
started work on glut font class
clean-up of nvglutwidgets class


git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2243 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/nvidia-widgets/src/glut/glutbitmapfont.pas

@@ -0,0 +1,135 @@
+unit GLUTBitmapFont;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, GLut, nvBaseFont;
+
+type
+  TFontStyles = record
+    Name: string;
+    Bold: boolean;
+    Italic: boolean;
+    StrikeTrough: boolean;
+    Underline: boolean;
+    Font: pointer;
+  end;
+
+  { TGLUTFreeTypeFont }
+
+  TGLUTFreeTypeFont = class(TNVBaseFont)
+  private
+    FFontList: array of TFontStyles;
+    FCount: integer;
+    FActiveFont: integer;
+    procedure FindStylizedFont;
+  protected
+    procedure SetFlags(AIndex: integer; AValue: boolean); override;
+  public
+    constructor Create(AName: string; ASize: integer); override;
+    destructor Destroy; override;
+
+    //add stylized fonts
+    procedure Add(AName: string; ABold, AItalic, AStrikeTrough, AUnderline: boolean); override;
+
+    //text metrics
+    function TextHeight(Text: string): integer; override;
+    function TextWidth(Text: string): integer; override;
+
+    //printing function
+    procedure TextOut(x, y: double; Text: string); override;
+  end;
+
+implementation
+
+{ TGLUTFreeTypeFont }
+
+procedure TGLUTFreeTypeFont.FindStylizedFont;
+var
+  item: TFontStyles;
+  i: integer;
+begin
+  //if more fonts defined then find stylized font
+  if FCount > 1 then
+    for i := 0 to FCount - 1 do
+    begin
+      item := FFontList[i];
+
+      if (item.Bold = Bold) and
+        (item.Italic = Italic) and
+        (item.StrikeTrough = StrikeTrough) and
+        (item.Underline = Underline) then
+      begin
+        FActiveFont := i;
+        exit;
+      end;
+    end;
+
+  //no font found, select default one
+  FActiveFont := 0;
+end;
+
+procedure TGLUTFreeTypeFont.SetFlags(AIndex: integer; AValue: boolean);
+begin
+  inherited SetFlags(AIndex, AValue);
+
+  FindStylizedFont;
+end;
+
+constructor TGLUTFreeTypeFont.Create(AName: string; ASize: integer);
+begin
+  inherited Create(AName, ASize);
+
+  FSize := ASize;
+  Add(AName, False, False, False, False);
+  FActiveFont := 0;
+end;
+
+destructor TGLUTFreeTypeFont.Destroy;
+var
+  i: integer;
+begin
+  //for i := 0 to FCount - 1 do
+  //  FFontList[i].Font.Clean;
+
+  inherited Destroy;
+end;
+
+procedure TGLUTFreeTypeFont.Add(AName: string; ABold, AItalic, AStrikeTrough, AUnderline: boolean);
+begin
+  Inc(FCount);
+  SetLength(FFontList, FCount);
+
+  with FFontList[FCount - 1] do
+  begin
+    //Font.Init(AName, Size);
+    Name := AName;
+    Bold := ABold;
+    Italic := AItalic;
+    StrikeTrough := AStrikeTrough;
+    Underline := AUnderline;
+  end;
+
+  FindStylizedFont;
+end;
+
+function TGLUTFreeTypeFont.TextHeight(Text: string): integer;
+begin
+  Result := Size;
+end;
+
+function TGLUTFreeTypeFont.TextWidth(Text: string): integer;
+begin
+  //only one font available or style not found then show default
+  //Result := FFontList[FActiveFont].Font.TextWidth(Text)
+end;
+
+procedure TGLUTFreeTypeFont.TextOut(x, y: double; Text: string);
+begin
+  //FFontList[FActiveFont].Font.Print(x, y, Text);
+end;
+
+end.
+