TXImage

type TXImage = record

  width: cint;

  height: cint;

  xoffset: cint;

  format: cint;

  data: Pchar;

  byte_order: cint;

  bitmap_unit: cint;

  bitmap_bit_order: cint;

  bitmap_pad: cint;

  depth: cint;

  bytes_per_line: cint;

  bits_per_pixel: cint;

  red_mask: culong;

  green_mask: culong;

  blue_mask: culong;

  obdata: TXPointer;

  f: record

    create_image: function(

  para1: PXDisplay;

  para2: PVisual;

  para3: cuint;

  para4: cint;

  para5: cint;

  para6: Pchar;

  para7: cuint;

  para8: cuint;

  para9: cint;

  para10: cint

):PXImage;

    destroy_image: function(

  para1: PXImage

):cint;

    get_pixel: function(

  para1: PXImage;

  para2: cint;

  para3: cint

):culong;

    put_pixel: function(

  para1: PXImage;

  para2: cint;

  para3: cint;

  para4: culong

):cint;

    sub_image: function(

  para1: PXImage;

  para2: cint;

  para3: cint;

  para4: cuint;

  para5: cuint

):PXImage;

    add_pixel: function(

  para1: PXImage;

  para2: clong

):cint;

  end;

end;