[Pythianproject-cvsmail] CVS: Prototypes/GLCanvas QuadTextUnit.pas,1.4,1.5 glCanvas.pas,1.9,1.10

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

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;