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;
|
