Previous: 4.51.2.4.27. ogGetLastError() To the Table of Contents Next: 4.51.2.4.29. ogGetMaxY()
4.51.2.4.27. ogGetLastError() Table of Contents 4.51.2.4.29. ogGetMaxY()

- 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.



Previous: 4.51.2.4.27. ogGetLastError() To the Table of Contents Next: 4.51.2.4.29. ogGetMaxY()
4.51.2.4.27. ogGetLastError() Table of Contents 4.51.2.4.29. ogGetMaxY()

- 4.51.2.4.28. -