Previous: 4.51.2.4.25. ogGetBytesPerPix() To the Table of Contents Next: 4.51.2.4.27. ogGetLastError()
4.51.2.4.25. ogGetBytesPerPix() Table of Contents 4.51.2.4.27. ogGetLastError()

- 4.51.2.4.26. -
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.26. ogGetDataState()


4.51.2.4.26. ogGetDataState()

Targets: MS-DOS, Win32 console


ObjGfx40 Unit

Gets the data state of the surface

Declaration:
  function ogGetDataState:ogDataState;
Remarks: See also: Sample code:
{ogGetDataState.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);
  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.25. ogGetBytesPerPix() To the Table of Contents Next: 4.51.2.4.27. ogGetLastError()
4.51.2.4.25. ogGetBytesPerPix() Table of Contents 4.51.2.4.27. ogGetLastError()

- 4.51.2.4.26. -