4.51.2.4.11. ogCopyBuf()	Table of Contents	4.51.2.4.13. ogCreate()

  procedure ogCopyPal(var srcObject:ogSurface); virtual;

Copies the palette structure from srcObject.

Palettes only apply to 8BPP surfaces.

• ogDisplay.ogCopyPal()
• ogSurface.ogLoadPal()
• ogSurface.ogSavePal()
• ogSurface.ogSetPal()
• ogSurface.ogSetRGBPalette()
• ogSurface.ogSetRGBAPalette()

{ogCopyPal.pas}

uses
  ObjGfx40;

var 
  buf1, buf2:^ogSurface;

begin
  new(buf1, ogInit);
  new(buf2, ogInit);

  {Create an 8bpp surface}
  if not buf1^.ogCreate(200, 200, OG_PIXFMT_8BPP) then
    begin
      writeln('Error creating buf1');
      halt
    end;

  {Create another 8bpp surface}
  if not buf2^.ogCreate(400, 400, OG_PIXFMT_8BPP) then
    begin
      writeln('Error creating buf2');
      halt
    end;

  buf1^.ogCopyPal(buf2^);
  
  dispose(buf2, ogDone);
  dispose(buf1, ogDone);
end.

4.51.2.4.11. ogCopyBuf()	Table of Contents	4.51.2.4.13. ogCreate()