paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 18:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* disabled libvga_imagesizeproc() because currently the default

Browse Source 
getimage and putimage are used (so the default imagesize should
    be used too)
This commit is contained in:
Jonas Maebe 2000-06-25 13:38:30 +00:00
parent e2e7120ef7
commit 900642bee9
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/linux/graph.pp
View File

@ -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!