- 4.51.2.4.28. -
Table of Contents
4. Standard Units
4.51. ObjGfx40 - ObjectGraphics 4.0 Unit
4.51.2. ObjGfx40 Unit Object Types
4.51.2.4. ogSurface object
4.51.2.4.28. ogGetMaxX()
4.51.2.4.28. ogGetMaxX()
Targets: MS-DOS, Win32 console
ObjGfx40 Unit
Gets the maximum X value for the surface.
Declaration:
function ogGetMaxX:uInt32;
Remarks:
Will return the maximum X value that is valid for the surface. This is
usually the surface's width-1. For aliasing surfaces, this will return
the maximum X for the aliased portion, not the parent.
See also:
Sample code:
{ogGetMaxX.pas}
uses
ObjGfx40;
type
New_ogSurface = object(ogSurface)
procedure printStatus;
end;
procedure New_ogSurface.printStatus;
begin
writeln;
writeln('DataState: ',OG_DATA_STATE_STR[ogGetDataState]);
writeln('MaxX: ',ogGetMaxX);
writeln('MaxY: ',ogGetMaxY);
writeln('BPP: ',ogGetBPP);
writeln('Bytes Per Pix: ',ogGetBytesPerPix);
if (ogGetDataState<>ogNONE) then
writeln('Surface is: ',ogGetMaxX+1, 'x', ogGetMaxY+1, 'x', ogGetBPP, 'bpp')
else
writeln('Surface is: not created');
writeln;
end;
var
buf:^New_ogSurface;
begin
new(buf, ogInit);
writeln('Status before ogCreate()');
buf^.printStatus;
if not buf^.ogCreate(2048, 2048, OG_PIXFMT_32BPP) then
begin
writeln('Error allocating surface');
halt
end;
writeln('Status after ogCreate()');
buf^.PrintStatus;
dispose(buf, ogDone);
end.
- 4.51.2.4.28. -