Delphi-Quellcode:
TPXD_Descriptor = packed record
NumPictures : WORD;
NumData : array[0..MAX_PIC-1] of WORD;
PicName : array[0..MAX_PIC-1] of array[0..8] of char;
TabName : array[0..MAX_PIC-1] of array[0..8] of char;
DataPtr : array[0..MAX_PIC-1] of PPCX_DATA;
///////////////ab hier neuer Teil/////////////////////////////////////
ReglerType : word;
AnzColors : array[0..MAX_PIC-1] of word;
Palette : array[0..MAX_PIC-1] of PRGB_TYPE;
Komment : array[0..MAX_PIC-1] of array[0..40] of char;
dst_name : array[0..MAX_PIC-1] of array[0..8] of char;
type_name : array[0..MAX_PIC-1] of array[0..3] of char;
PicType : array[0..MAX_PIC-1] of word;
end;
Delphi-Quellcode:
TRGB_TYPE = packed record
rgbBlue : Byte;
rgbGreen : Byte;
rgbRed : Byte;
end;
Hier sind die Records! Danke aber schonmal fuer die schnelle Antwort!