Browse Source

* the writing of the default font was wrong when doing scaling:
the last colunm/row wasn't drawn

florian 26 years ago
parent
commit
254c43d6b7
1 changed files with 9 additions and 5 deletions
  1. 9 5
      rtl/inc/graph/gtext.inc

+ 9 - 5
rtl/inc/graph/gtext.inc

@@ -412,14 +412,14 @@
                    j:=0;
                    j:=0;
                    cnt3:=0;
                    cnt3:=0;
 
 
-                   while j < 7 do
+                   while j <= 7 do
                    begin
                    begin
                      { X-axis scaling }
                      { X-axis scaling }
                      for cnt4 := 0 to charsize-1 do
                      for cnt4 := 0 to charsize-1 do
                       begin
                       begin
                         k:=0;
                         k:=0;
                         cnt2 := 0;
                         cnt2 := 0;
-                        while k < 7  do
+                        while k <= 7  do
                            begin
                            begin
                              for cnt1 := 0 to charsize-1 do
                              for cnt1 := 0 to charsize-1 do
                                begin
                                begin
@@ -460,14 +460,14 @@
                    j:=0;
                    j:=0;
                    cnt3:=0;
                    cnt3:=0;
 
 
-                   while j < 7 do
+                   while j<=7 do
                    begin
                    begin
                      { X-axis scaling }
                      { X-axis scaling }
                      for cnt4 := 0 to charsize-1 do
                      for cnt4 := 0 to charsize-1 do
                       begin
                       begin
                         k:=0;
                         k:=0;
                         cnt2 := 0;
                         cnt2 := 0;
-                        while k < 7  do
+                        while k<=7  do
                            begin
                            begin
                              for cnt1 := 0 to charsize-1 do
                              for cnt1 := 0 to charsize-1 do
                                begin
                                begin
@@ -731,7 +731,11 @@
 
 
 {
 {
 $Log$
 $Log$
-Revision 1.7  1999-09-28 15:07:47  jonas
+Revision 1.8  1999-11-11 22:29:21  florian
+  * the writing of the default font was wrong when doing scaling:
+    the last colunm/row wasn't drawn
+
+Revision 1.7  1999/09/28 15:07:47  jonas
   * fix for disposing font data because it can contain #0 chars
   * fix for disposing font data because it can contain #0 chars
 
 
 Revision 1.6  1999/09/28 13:56:29  jonas
 Revision 1.6  1999/09/28 13:56:29  jonas