[Pythianproject-cvsmail] CVS: Prototypes/GLCanvas VinerHand ITC Grid antialiased.bmp,NONE,1.1 QuadTextUnit.pas,1.8,1.9 glCanvas.pas,1.19,1.20

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/GLCanvas
In directory usw-pr-cvs1:/tmp/cvs-serv14795/GLCanvas

Modified Files:
	QuadTextUnit.pas glCanvas.pas 
Added Files:
	VinerHand ITC Grid antialiased.bmp 
Log Message:
added anti-aliased VinerHand ITC font -mike

***** Bogus filespec: VinerHand
***** Bogus filespec: ITC
***** Bogus filespec: Grid
***** Error reading new file: [Errno 2] No such file or directory: 'antialiased.bmp'
Index: QuadTextUnit.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/GLCanvas/QuadTextUnit.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** QuadTextUnit.pas	2001/01/12 21:10:35	1.8
--- QuadTextUnit.pas	2001/01/16 20:39:16	1.9
***************
*** 88,91 ****
--- 88,92 ----
  procedure qtDrawGridString(QT:TQuadText; s:String);
  function qtGetStringWidth(QT:TQuadText; s:string):integer; // in pixels
+ function qtGetHeight(QT:TQuadText):integer;
  
  implementation
***************
*** 96,99 ****
--- 97,105 ----
    blStore :TGLBoolean;
    txStore :TGLBoolean;
+ 
+ function qtGetHeight(QT:TQuadText):integer;
+ begin
+   result := qt.GridSquareHeight;
+ end;
  
  function qtGetStringWidth(QT:TQuadText; s:string):integer; // in pixels

Index: glCanvas.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/GLCanvas/glCanvas.pas,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -r1.19 -r1.20
*** glCanvas.pas	2001/01/12 21:10:35	1.19
--- glCanvas.pas	2001/01/16 20:39:16	1.20
***************
*** 197,200 ****
--- 197,201 ----
      class procedure FreeRegisteredFonts;
      function GetHeight: integer;
+     function GetLineHeight: integer;
    public
  
***************
*** 209,212 ****
--- 210,214 ----
      property Width[index:integer]:integer read GetWidth;
      property Height :integer read GetHeight;
+     property LineHeight :integer read GetLineHeight;
  
      property Red: byte read FRed write SetRed;
***************
*** 1178,1182 ****
  function TGLText.GetHeight: integer;
  begin
!   result := 20*Lines.Count;
  end;
  
--- 1180,1189 ----
  function TGLText.GetHeight: integer;
  begin
!   result := qtGetHeight(QT)*Lines.Count;
! end;
! 
! function TGLText.GetLineHeight: integer;
! begin
!   result := qtGetHeight(QT);
  end;