瀏覽代碼

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

Jonas Maebe 25 年之前
父節點
當前提交
900642bee9
共有 1 個文件被更改,包括 14 次插入4 次删除
  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!