Update of /cvsroot/pythianproject/Prototypes/GLCanvas
In directory slayer.i.sourceforge.net:/tmp/cvs-serv2707/GLCanvas
Modified Files:
QuadTextUnit.pas glCanvas.pas
Log Message:
vgl update: scrollbars etc. -mike
Index: QuadTextUnit.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/GLCanvas/QuadTextUnit.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** QuadTextUnit.pas 2000/12/09 19:52:04 1.4
--- QuadTextUnit.pas 2000/12/11 19:15:11 1.5
***************
*** 52,55 ****
--- 52,64 ----
12, 5, 7, 2, 8, 8, 2, 2, 4, 4, 12, 15,
15);
+ VINERHAND_WIDTHS :TQuadTextWidthsArray = (
+ 14, 11, 10, 12, 10, 10, 8, 13, 7, 8, 14, 11,
+ 20, 20, 20, 20, 20, 20, 20, 11, 10, 10, 16, 10,
+ 10, 10, 8, 8, 8, 8, 8, 5, 8, 8, 2, 3,
+ 8, 2, 12, 8, 8, 8, 8, 5, 8, 5, 8, 8,
+ 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
+ 8, 8, 4, 6, 7, 2, 2, 3, 3, 2, 13, 14,
+ 12, 5, 7, 2, 8, 8, 2, 2, 4, 4, 12, 15,
+ 15);
type
TQuadText = record
Index: glCanvas.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/GLCanvas/glCanvas.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** glCanvas.pas 2000/12/09 19:52:04 1.9
--- glCanvas.pas 2000/12/11 19:15:12 1.10
***************
*** 5,9 ****
{ GLCanvas }
{ }
! { Copyright (c) 1999 The Pythian Project }
{ }
{*******************************************************}
--- 5,9 ----
{ GLCanvas }
{ }
! { Copyright (c) 2000- The Pythian Project }
{ }
{*******************************************************}
***************
*** 84,88 ****
GLCANVAS_BMP_TEXTURED = 2;
! GLC_MAXFONTS = 4;
GLC_MAXTEXIDS = 256;
--- 84,88 ----
GLCANVAS_BMP_TEXTURED = 2;
! GLC_MAXFONTS = 5;
GLC_MAXTEXIDS = 256;
***************
*** 122,125 ****
--- 122,129 ----
FileName: 'Arial Grid.bmp';
FontType: GLCANVAS_TEXT_QUADTEXT;
+ ),
+ (Name: 'VinerHand ITC';
+ FileName: 'VinerHand ITC Grid.bmp';
+ FontType: GLCANVAS_TEXT_QUADTEXT;
)
);
***************
*** 800,804 ****
result := ARIAL_WIDTHS
else if UpperCase(f.Name) = 'COURIER NEW' then
! Result := COURIERNEW_WIDTHS;
end;
--- 804,810 ----
result := ARIAL_WIDTHS
else if UpperCase(f.Name) = 'COURIER NEW' then
! Result := COURIERNEW_WIDTHS
! else if UpperCase(f.Name) = 'VINERHAND ITC' then
! Result := VINERHAND_WIDTHS;
end;
|