4.51.2.4.25. ogGetBytesPerPix()	Table of Contents	4.51.2.4.27. ogGetLastError()

  function ogGetDataState:ogDataState;

• Returns ogNone if the surface is not created.
• Returns ogAliasing if ogAlias() was successfully called.
• Returns ogOwner if ogCreate() was successfully called.

• ogDataState type
• OG_DATA_STATE_STR[]
• ogSurface.ogAlias()
• ogSurface.ogCreate()

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

4.51.2.4.25. ogGetBytesPerPix()	Table of Contents	4.51.2.4.27. ogGetLastError()