eudora-mac/Include/EudoraTypes.r

1 line
22 KiB
R
Raw Normal View History

2018-05-23 09:59:15 +00:00
#ifndef __EUDORATYPES_R__ #define __EUDORATYPES_R__ type 'Nag#' { integer = $$Countof(NagArray); array NagArray { integer; }; }; type 'FUtf' as 'STR '; type 'FUcf' as 'STR '; type 'HLIT' { integer = $$Countof(HLITArray); array HLITArray { unsigned hex integer; fill byte; char; pstring; }; }; type 'FEAT' { literal longint; literal longint; byte noSubfeature, hasSubfeature; align word; pstring; pstring; }; type 'EuSc' { wide array { unsigned integer; unsigned integer; unsigned integer; unsigned integer; unsigned integer; unsigned integer; unsigned integer; }; }; type 'QTno' { integer = $$Countof(CreatorTypeArray); array CreatorTypeArray { literal longint; literal longint; }; }; /*----------------------------eTAB <20> Geometry of a Eudora Tab Template-----------------------------------*/ type 'eTAB' { integer = 0; // Version 0 literal longint; // Application Owner literal longint; // Tab Owner literal longint; // Tab Signature pstring; // Tab title integer; // Icon suite ID integer; // Horizontal Margin integer; // Vertical Margin integer = $$CountOf(ObjectArray); // Array size array ObjectArray { switch { case fieldObject: key integer = 1; longint; // Object flags pstring; // tag pstring; // UI Label pstring; // Field name for things like printing & drag'n'drop integer; // Label width or PETE height in the case of an "above field" label integer labelFlushDefault = 0, // Label justification labelCenter = 1, labelFlushRight = -1, labelFlushLeft = -2; longint; // Label flags longint; // PETE flags for the field integer = $$CountOf(PositionArray); // Array size array PositionArray { switch { case left: key integer = 1; integer; // Delta (or percentage when relToWidth or relToHeight) integer tabObject = -1; // relative to this object integer relToNothing = 0, // relative to this coordinate of the parent object relToLeft = 1, relToTop = 2, relToRight = 3, relToBottom = 4, relToHorzCenter = 5, // Absolute horizontal center relToVertCenter = 6, // Absolute vertical center relToWidth = 7, // Delta contains percentage of width relToHeight = 8; // Delta contains percentage of height longint; // Relativity flags case top: key integer = 2; integer; // Delta (or percentage when relToWidth or relToHeight) integer tabObject = -1; // relative to this object integer relToNothing = 0, // relative to this coordinate of the parent object relToLeft = 1, relToTop = 2, relToRight = 3, relToBottom = 4, relToHorzCenter = 5, // Absolute horizontal center relToVertCenter = 6, // Absolute vertical center relToWidth = 7, // Delta contains percentage of width relToHeight = 8; // Delta contains percentage of height longint; // Relativity flags case right: key integer = 3; integer; // Delta (or