PureBasic Forums - English

Code: Select all

Structure ICONIMAGE
  icHeader.BITMAPINFOHEADER
  StructureUnion
  icColors.RGBQUAD[0]
  icXOR.b[0]
  icAND.b[0]
  EndStructureUnion
EndStructure

Code: Select all

typdef struct
{
   BITMAPINFOHEADER   icHeader;   // DIB header
   RGBQUAD         icColors[1];   // Color table
   BYTE            icXOR[1];      // DIB bits for XOR mask
   BYTE            icAND[1];      // DIB bits for AND mask
} ICONIMAGE, *LPICONIMAGE;

Code: Select all

Structure That
  x.f
  y.f
  z.f
EndStructure

This.That\x=1
This.That\y=2
This.That\z=3

That.That=This
Debug That\x
Debug That\y
Debug That\z

;/ Cannot pass structure by value
Procedure Gnat(Grue.l, This.That)
EndProcedure