Browse Source

* disabled libvga_imagesizeproc() because currently the default
getimage and putimage are used (so the default imagesize should
be used too)

Jonas Maebe 25 years ago
parent
commit
900642bee9
1 changed files with 14 additions and 4 deletions
  1. 14 4
      rtl/linux/graph.pp

+ 14 - 4
rtl/linux/graph.pp

@@ -396,12 +396,13 @@ begin
 end;
 end;
 
 
 { Bitmap utilities }
 { Bitmap utilities }
-type
+{type
   PBitmap = ^TBitmap;
   PBitmap = ^TBitmap;
   TBitmap = record
   TBitmap = record
             Width, Height: Integer;
             Width, Height: Integer;
             Data: record end;
             Data: record end;
             end;
             end;
+}
 
 
 procedure libvga_putimageproc (X,Y: Integer; var Bitmap; BitBlt: Word);
 procedure libvga_putimageproc (X,Y: Integer; var Bitmap; BitBlt: Word);
 begin
 begin
@@ -422,11 +423,13 @@ begin
 }
 }
 end;
 end;
 
 
+{
 function  libvga_imagesizeproc (X1,Y1,X2,Y2: Integer): longint;
 function  libvga_imagesizeproc (X1,Y1,X2,Y2: Integer): longint;
 begin
 begin
  libvga_imagesizeproc := SizeOf(TBitmap) + (x2 - x1 + 1) * (y2 - y1 + 1) * PhysicalScreen^.BytesPerPixel;
  libvga_imagesizeproc := SizeOf(TBitmap) + (x2 - x1 + 1) * (y2 - y1 + 1) * PhysicalScreen^.BytesPerPixel;
-end;
 
 
+end;
+}
 procedure libvga_hlineproc (x, x2,y : integer);
 procedure libvga_hlineproc (x, x2,y : integer);
 begin
 begin
 end;
 end;
@@ -569,7 +572,9 @@ end;
            { These are not really implemented yet:
            { These are not really implemented yet:
            PutImage       := @libvga_PutImageProc;
            PutImage       := @libvga_PutImageProc;
            GetImage       := @libvga_GetImageProc;}
            GetImage       := @libvga_GetImageProc;}
-           ImageSize      := @libvga_ImageSizeProc;
+{          If you use the default getimage/putimage, you also need the default 
+           imagesize! (JM)
+            ImageSize      := @libvga_ImageSizeProc; }
            { Add later maybe ?
            { Add later maybe ?
            SetVisualPage  := SetVisualPageProc;
            SetVisualPage  := SetVisualPageProc;
            SetActivePage  := SetActivePageProc;
            SetActivePage  := SetActivePageProc;
@@ -590,7 +595,12 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.15  2000-04-16 21:19:19  sg
+  Revision 1.16  2000-06-25 13:38:30  jonas
+    * disabled libvga_imagesizeproc() because currently the default
+      getimage and putimage are used (so the default imagesize should
+      be used too)
+
+  Revision 1.15  2000/04/16 21:19:19  sg
   * The terminal will now be set to raw mode directly on initialization,
   * The terminal will now be set to raw mode directly on initialization,
     as the svgalib switches the terminal immediately after startup, and
     as the svgalib switches the terminal immediately after startup, and
     not after a switch to graphics mode!
     not after a switch to graphics mode!