; types
type Int1 = integer
type Int2 = integer
type Int4 = integer
type Int8 = integer
type Int = integer
type Boolean = boolean
type String = string
type String31 = string
type String255 = string
type CString = string
type CString31 = string
type IDEName = string
type IDEid = integer
type IDEversion = integer
type CString80 = string
type CString255 = string
type Num4 = number
type Num8 = number
type Num10 = number
type Num = number
type Decimal = number
type Date = number
enum tResult {
rValid = "rValid",
rCancel = "rCancel",
rSuspend = "rSuspend",
rError = "rError",
}
enum tTypes {
ty_None = "ty_None",
ty_Error = "ty_Error",
ty_Any = "ty_Any",
ty_Integer = "ty_Integer",
ty_Char = "ty_Char",
ty_Boolean = "ty_Boolean",
ty_Enum = "ty_Enum",
ty_Subrange = "ty_Subrange",
ty_Real = "ty_Real",
ty_Pointer = "ty_Pointer",
ty_RefTo = "ty_RefTo",
ty_ListOf = "ty_ListOf",
ty_Routine = "ty_Routine",
ty_Control = "ty_Control",
ty_String = "ty_String",
ty_CString = "ty_CString",
ty_Array = "ty_Array",
ty_DynamicArray = "ty_DynamicArray",
ty_Set = "ty_Set",
ty_Record = "ty_Record",
ty_VariantRecord = "ty_VariantRecord",
ty_NativeRecord = "ty_NativeRecord",
ty_Class = "ty_Class",
ty_InstanceOf = "ty_InstanceOf",
ty_File = "ty_File",
ty_TextFile = "ty_TextFile",
ty_Forward = "ty_Forward",
ty_Sequence = "ty_Sequence",
ty_TextInMem = "ty_TextInMem",
ty_DBString = "ty_DBString",
ty_DBChar = "ty_DBChar",
ty_DynDBString = "ty_DynDBString",
ty_Decimal = "ty_Decimal",
}
enum tOpPriority {
PriorityRelational = "PriorityRelational",
PriorityAddition = "PriorityAddition",
PriorityMultiplication = "PriorityMultiplication",
PriorityUnary = "PriorityUnary",
PriorityIdentifier = "PriorityIdentifier",
}
enum tCachePolicyKind {
Usage = "cpkUsage",
Time = "cpkTime",
Usage and time = "cpkUsageTime",
Random = "cpkRandom",
}
enum tUserEvent {
Changed = "ueChanged",
GetFocus = "ueGetFocus",
LoseFocus = "ueLoseFocus",
GetChar = "ueGetChar",
ShortKey = "ueShortKey",
LeftButtonDown = "ueLeftButtonDown",
RightButtonDown = "ueRightButtonDown",
MiddleButtonDown = "ueMiddleButtonDown",
LeftButtonUp = "ueLeftButtonUp",
RightButtonUp = "ueRightButtonUp",
MiddleButtonUp = "ueMiddleButtonUp",
LeftButtonDblClk = "ueLeftButtonDblClk",
RightButtonDblClk = "ueRightButtonDblClk",
MiddleButtonDblClk = "ueMiddleButtonDblClk",
MouseMove = "ueMouseMove",
CapturedMouse = "ueCapturedMouse",
Selected = "ueSelected",
Paint = "uePaint",
PosChanged = "uePosChanged",
Timer = "ueTimer",
ActiveXEvent = "ueActiveXEvent",
ExpandCollapse = "ueExpandCollapse",
VKGetChar = "ueVKGetChar",
VKFGetChar = "ueVKFGetChar",
OutControlGetFocus = "ueOutControlGetFocus",
OnGridEnter = "ueOnGridEnter",
Max = "ueMax",
}
type tUserEventSet = ("ueChanged" | "ueGetFocus" | "ueLoseFocus" | "ueGetChar" | "ueShortKey" | "ueLeftButtonDown" | "ueRightButtonDown" | "ueMiddleButtonDown" | "ueLeftButtonUp" | "ueRightButtonUp" | "ueMiddleButtonUp" | "ueLeftButtonDblClk" | "ueRightButtonDblClk" | "ueMiddleButtonDblClk" | "ueMouseMove" | "ueCapturedMouse" | "ueSelected" | "uePaint" | "uePosChanged" | "ueTimer" | "ueActiveXEvent" | "ueExpandCollapse" | "ueVKGetChar" | "ueVKFGetChar" | "ueOutControlGetFocus" | "ueOnGridEnter" | "ueMax")[]
enum tExecMode {
Default = "Default",
Creation = "Creation",
Modification = "Modification",
Consultation = "Consultation",
}
enum tKeyFlags {
kfChar = "kfChar",
kfVirtualKey = "kfVirtualKey",
kfKeyUp = "kfKeyUp",
kfPrevDown = "kfPrevDown",
kfLoneKey = "kfLoneKey",
kfShift = "kfShift",
kfAlt = "kfAlt",
kfCtrl = "kfCtrl",
}
type tKeyFlagsSet = ("kfChar" | "kfVirtualKey" | "kfKeyUp" | "kfLoneKey" | "kfPrevDown" | "kfShift" | "kfAlt" | "kfCtrl")[]
enum tReliefKinds {
rNone = "rNone",
rOver = "rOver",
rBelow = "rBelow",
rGroupBoxOver1 = "rGroupBoxOver1",
rGroupBoxBelow1 = "rGroupBoxBelow1",
rFlat = "rFlat",
}
enum tVirtualKeys {
vkNull = "vkNull",
vkLeft = "vkLeft",
vkRight = "vkRight",
vkUp = "vkUp",
vkDown = "vkDown",
vkPageUp = "vkPageUp",
vkPageDown = "vkPageDown",
vkHome = "vkHome",
vkEnd = "vkEnd",
vkInsert = "vkInsert",
vkDelete = "vkDelete",
vkSpace = "vkSpace",
vkTab = "vkTab",
vkBackTab = "vkBackTab",
vkBackSpace = "vkBackSpace",
vkNewLine = "vkNewLine",
vkEnter = "vkEnter",
vkEscape = "vkEscape",
vkBreak = "vkBreak",
vkPause = "vkPause",
vkPrintScrn = "vkPrintScrn",
vkSysRq = "vkSysRq",
vkCapsLock = "vkCapsLock",
vkNumLock = "vkNumLock",
vkScrollLock = "vkScrollLock",
vkShift = "vkShift",
vkCtrl = "vkCtrl",
vkAlt = "vkAlt",
vkF1 = "vkF1",
vkF2 = "vkF2",
vkF3 = "vkF3",
vkF4 = "vkF4",
vkF5 = "vkF5",
vkF6 = "vkF6",
vkF7 = "vkF7",
vkF8 = "vkF8",
vkF9 = "vkF9",
vkF10 = "vkF10",
vkF11 = "vkF11",
vkF12 = "vkF12",
vkF13 = "vkF13",
vkF14 = "vkF14",
vkF15 = "vkF15",
vkF16 = "vkF16",
vkF17 = "vkF17",
vkF18 = "vkF18",
vkF19 = "vkF19",
vkF20 = "vkF20",
vkF21 = "vkF21",
vkF22 = "vkF22",
vkF23 = "vkF23",
vkF24 = "vkF24",
}
enum tSearchCriterium {
cSearchByName = "cSearchByName",
cSearchById = "cSearchById",
}
enum tActionKind {
Create = "aCreate",
Search = "aSearch",
Delete = "aDelete",
Consult = "aConsult",
Modif = "aModif",
Move = "aMove",
Other = "aNoAction",
}
enum tStoreMode {
Define by Owner = "DefineByOwner",
No store = "NoStore",
Store on change = "StoreOnChange",
Store on valid = "StoreOnValid",
Store on lose focus = "StoreOnLoseFocus",
Store and reload on lose focus = "StoreAndReloadOnLoseFocus",
}
enum tColors {
Black = "cBlack",
Blue = "cBlue",
Green = "cGreen",
Cyan = "cCyan",
Red = "cRed",
Magenta = "cMagenta",
Brown = "cBrown",
LightGray = "cLightGray",
DarkGray = "cDarkGray",
LightBlue = "cLightBlue",
LightGreen = "cLightGreen",
LightCyan = "cLightCyan",
LightRed = "cLightRed",
LightMagenta = "cLightMagenta",
Yellow = "cYellow",
White = "cWhite",
BackGround = "cBackGround",
Neutral = "cNeutral",
BFalse = "cBFalse",
BTrue = "cBTrue",
ButtonLight = "cButtonLight",
ButtonMiddle = "cButtonMiddle",
ButtonDark = "cButtonDark",
ButtonDefault = "cButtonDefault",
TitleBottom = "cTitleBottom",
Shadow = "cShadow",
IContext = "cIContext",
DialogBackGround = "cDialogBackGround",
HiLiteForeGround = "cHiLiteForeGround",
HiLiteBackGround = "cHiLiteBackGround",
InactiveTitleTextBgnd = "cInactiveTitleTextBgnd",
ActiveTitleTextBgnd = "cActiveTitleTextBgnd",
InactiveTitleText = "cInactiveTitleText",
ActiveTitleText = "cActiveTitleText",
OutPutText = "cOutPutText",
WindowStaticText = "cWindowStaticText",
ScrollBar = "cScrollBar",
WindowBackGround = "cWindowBackGround",
ActiveTitle = "cActiveTitle",
InactiveTitle = "cInactiveTitle",
Menu = "cMenu",
Window = "cWindow",
WindowFrame = "cWindowFrame",
MenuText = "cMenuText",
WindowText = "cWindowText",
TitleText = "cTitleText",
ActiveBorder = "cActiveBorder",
InactiveBorder = "cInactiveBorder",
AppWorkSpace = "cAppWorkSpace",
HelpBackGround = "cHelpBackGround",
HelpText = "cHelpText",
HelpHiLite = "cHelpHiLite",
EntryFieldBackGround = "cEntryFieldBackGround",
InactiveArea = "cInactiveArea",
ButtonText = "cButtonText",
3DDKShadow = "c3DDKShadow",
3DLight = "c3DLight",
ToolTipText = "cToolTipText",
ToolTipBackGround = "cToolTipBackGround",
User1 = "cUser1",
User2 = "cUser2",
User3 = "cUser3",
User4 = "cUser4",
User5 = "cUser5",
User6 = "cUser6",
User7 = "cUser7",
User8 = "cUser8",
User9 = "cUser9",
User10 = "cUser10",
User11 = "cUser11",
User12 = "cUser12",
User13 = "cUser13",
User14 = "cUser14",
User15 = "cUser15",
User16 = "cUser16",
User17 = "cUser17",
User18 = "cUser18",
User19 = "cUser19",
User20 = "cUser20",
User21 = "cUser21",
User22 = "cUser22",
User23 = "cUser23",
User24 = "cUser24",
User25 = "cUser25",
User26 = "cUser26",
User27 = "cUser27",
User28 = "cUser28",
User29 = "cUser29",
User30 = "cUser30",
User31 = "cUser31",
User32 = "cUser32",
FirstUserColor = "cFirstUserColor",
LastUserColor = "cLastUserColor",
ThinkColor = "cThinkColor",
DarkOrangeForFolder = "cDarkOrangeForFolder",
LightOrangeForFolder = "cLightOrangeForFolder",
DarkOrangeForPushButton = "cDarkOrangeForPushButton",
LightOrangeForPushButton = "cLightOrangeForPushButton",
DarkBlueForPushButton = "cDarkBlueForPushButton",
LightBlueForPushButton = "cLightBlueForPushButton",
GrayForPushButton = "cGrayForPushButton",
DarkBlueForPushButtonBackColor = "cDarkBlueForPushButtonBackColor",
DarkBlueForFolderBackColor = "cDarkBlueForFolderBackColor",
DarkOrangeForBitmapPushButton = "cDarkOrangeForBitmapPushButton",
LightOrangeForBitmapPushButton = "cLightOrangeForBitmapPushButton",
DarkOrangeForBitmapPushedButton = "cDarkOrangeForBitmapPushedButton",
LightOrangeForBitmapPushedButton = "cLightOrangeForBitmapPushedButton",
WhiteForFolder = "cWhiteForFolder",
GrayForFolder = "cGrayForFolder",
FolderBody = "cFolderBody",
}
enum tWindowKinds {
Title Bar = "wkTitle",
Action Bar = "wkMenuBar",
Horz Scroll Bar = "wkHorzScrollBar",
Vert Scroll Bar = "wkVertScrollBar",
Save Bits = "wkSaveBits",
No Byte Align = "wkNoByteAlign",
Task List = "wkTaskList",
Quit on Close = "wkQuit",
Size Redraw = "wkSizeRedraw",
Secondary = "wkSecondary",
MDI = "wkMDI",
}
type tWindowKindsSet = ("wkTitle" | "wkMenuBar" | "wkHorzScrollBar" | "wkVertScrollBar" | "wkSaveBits" | "wkNoByteAlign" | "wkTaskList" | "wkQuit" | "wkSizeRedraw" | "wkSecondary" | "wkMDI")[]
enum tMovingKind {
Not moving = "mkNoneMoving",
Moving = "mkMoving",
N moving = "mkNoMoving",
NE moving = "mkNoEaMoving",
E moving = "mkEaMoving",
SE moving = "mkSoEaMoving",
S moving = "mkSoMoving",
SW moving = "mkSoWeMoving",
W moving = "mkWeMoving",
NW moving = "mkNoWeMoving",
}
enum tKindOfType {
kFlat = "kFlat",
kRefTo = "kRefTo",
kListOfRefTos = "kListOfRefTos",
kFloatingListOfReftos = "kFloatingListOfReftos",
kPointer = "kPointer",
kVarPointer = "kVarPointer",
kInstance = "kInstance",
kListOfInstances = "kListOfInstances",
kSequence = "kSequence",
}
enum tSeverity {
NoError = "NoError",
WarningError = "WarningError",
MinorError = "MinorError",
MajorError = "MajorError",
LethalError = "LethalError",
CrashError = "CrashError",
}
type tFont = {
FontSels: ("gfsItalic" | "gfsUnderscore" | "gfsBold" | "gfsStrikeOut" | "gfsOutline" | "gfsHollow")[];
FontSize: integer;
FontName: string;
}
enum tBuildingKind {
bkDefault = "bkDefault",
bkNoCreateWindow = "bkNoCreateWindow",
bkCreateWindow = "bkCreateWindow",
bkCreateChildWindow = "bkCreateChildWindow",
bkGraph = "bkGraph",
bkPrint = "bkPrint",
bkHTML = "bkHTML",
bkChildHTML = "bkChildHTML",
}
enum tUIExecMode {
Default = "uiDefault",
HTML = "uiHTMLASP",
}
enum tExtractKind {
DefaultExtract = "DefaultExtract",
idExtract = "idExtract",
NameExtract = "NameExtract",
FullExtract = "FullExtract",
FancyExtract = "FancyExtract",
TitleExtract = "TitleExtract",
DroppedExtract = "DroppedExtract",
UserDefinedExtract = "UserDefinedExtract",
NoExtract = "NoExtract",
HelpExtract = "HelpExtract",
DebugExtract = "DebugExtract",
}
enum tThemeKind {
eWAM 4.4 = "theWAM44",
eWAM 5.0 = "theWAMThink",
Current Windows = "thCurWindows",
MPhatic = "thMphatic",
}
enum tBMPKind {
DefaultBmp = "DefaultBmp",
EmptyBMP = "EmptyBMP",
MinusBMP = "MinusBMP",
PlusBMP = "PlusBMP",
FancyBmp = "FancyBmp",
TitleBmp = "TitleBmp",
DroppedBMP = "DroppedBMP",
UserDefinedBMP = "UserDefinedBMP",
noBMP = "noBMP",
}
type tSmallId = {
Version: integer;
Id: integer;
NSId: integer;
}
type tFullId = {
Version: integer;
Id: integer;
NsId: integer;
theType: any;
RefThing: any;
}
type tDataSetVersion = {
Version: integer;
DataSetId: integer;
}
type tPBMemo = {
storedSize: integer;
myMemAddress: any;
myDSV: {
Version: integer;
DataSetId: integer;
};
myPBAddress: integer;
}
type Char = string
type Text = string
type JavaString = string
type TypeListOfReftos = {
}[]
type ReversInt2 = integer
type ReversInt4 = integer
enum tReturnAction {
raNo = "raNo",
raYes = "raYes",
raCancel = "raCancel",
}
enum tScenarioKind {
Window = "skWindow",
Control = "skControl",
Menu = "skMenu",
Graph = "skGraph",
HTML = "skHTML",
}
type tScenarioKindSet = ("skWindow" | "skControl" | "skMenu" | "skGraph" | "skHTML")[]
enum tGpiFontSel {
Italic = "gfsItalic",
Underscore = "gfsUnderscore",
StrikeOut = "gfsStrikeOut",
Bold = "gfsBold",
Outline = "gfsOutline",
Hollow = "gfsHollow",
}
type tGpiFontSelSet = ("gfsItalic" | "gfsUnderscore" | "gfsBold" | "gfsStrikeOut" | "gfsOutline" | "gfsHollow")[]
enum tScrollableWindowKinds {
Horizontal = "tswHorizontalScroll",
Vertical = "tswVerticalScroll",
}
type tScrollableWindowKindsSet = ("tswVerticalScroll" | "tswHorizontalScroll")[]
enum NSIdContext {
NoContext = "NoContext",
Wyde = "Wyde",
WydeBis = "WydeBis",
Dev = "Dev",
DevBis = "DevBis",
DevRef = "DevRef",
RunTimeKernel = "RunTimeKernel",
RunTimeAppli = "RunTimeAppli",
Test = "Test",
TestBis = "TestBis",
MaxContext = "MaxContext",
}
type t0to255 = integer
type t0to1024 = integer
type UnBounded = integer
type t0to127 = integer
type TypeOfStandardProcedure = procedure
type TypeOfInt4Function = () =>
type TypeOfCStringFunction = (self: CString) =>
type TypeOfPointerFunction = () =>
type TypeOfNoParameterMethod = procedure
type TypeOfBooleanFunction = () =>
type TypeOfaScenarioFunction = () =>
type TypeOfGetObjectAndScenarioProcedure = procedure
type Changed = (self: aUIAgent) =>
type GetFocus = (self: aUIAgent) =>
type LoseFocus = (self: aUIAgent) =>
type Selected = (self: aUIAgent, SelectedRank: Int4) =>
type Executed = (self: aUIAgent, SelectedRank: Int4, Option: Int4) =>
type Received = (self: aUIAgent, X: Int2, Y: Int2, Object: aFullObject) =>
type CanReceive = (self: aUIAgent, X: Int2, Y: Int2, Object: aFullObject) =>
type ButtonUp = (self: aUIAgent, No: Int1, X: Int2, Y: Int2) =>
type ButtonDown = (self: aUIAgent, No: Int1, X: Int2, Y: Int2) =>
type ButtonDblClk = (self: aUIAgent, No: Int1, X: Int2, Y: Int2) =>
type MouseMove = (self: aUIAgent, X: Int2, Y: Int2) =>
type Init = (self: aUIAgent) =>
type Terminate = (self: aUIAgent) =>
type Help = (self: aUIAgent) =>
type GetChar = (self: aUIAgent, Ch: Char, VKey: tVirtualKeys, theCount: Int2, Flags: tKeyFlagsSet) =>
type ShortKey = (self: aUIAgent, Ch: Char, VKey: tVirtualKeys, theCount: Int2, Flags: tKeyFlagsSet) =>
type GetLineText = (self: aUIAgent, Line: Int4, LineText: CString) =>
type ColumnExecuted = (self: aUIAgent, Column: Int4) =>
type BeginLabelEdit = (self: aUIAgent, Item: Int4) =>
type EndLabelEdit = (self: aUIAgent, Item: Int4, NewText: CString) =>
type ItemChecked = (self: aUIAgent, Item: Int4, Checked: Boolean) =>
type ValueLoaded = procedure
type ValueStored = procedure
type Popup = (self: aUIAgent, Param1: aFullObject) =>
type TypeListOfThings = {
}[]
enum tListCtrlKinds {
Align left = "lcAlignLeft",
Align top = "lcAlignTop",
Auto arrange = "lcAutoArrange",
Edit labels = "lcEditLabels",
Icon = "lcIcon",
List = "lcList",
No column header = "lcNoColumnHeader",
No label wrap = "lcNoLabelWrap",
No scroll = "lcNoScroll",
No sort header = "lcNoSortHeader",
Report = "lcReport",
Share image lists = "lcShareImageLists",
Show sel always = "lcShowSelAlways",
Single sel = "lcSingleSel",
Small icon = "lcSmallIcon",
Sort ascending = "lcSortAscending",
Sort descending = "lcSortDescending",
With checkboxes = "lcCheckBoxes",
Flat scroll bar = "lcFlatSB",
Full row select = "lcFullRowSelect",
Grid lines = "lcGridLines",
Header drag drop = "lcHeaderDragDrop",
Info tip = "lcInfoTip",
Multi work areas = "lcMultiWorkAreas",
One click activate = "lcOneClickActivate",
Regional = "lcRegional",
Sub item images = "lcSubItemImages",
Track select = "lcTrackSelect",
Two click activate = "lcTwoClickActivate",
Underline cold = "lcUnderLineCold",
Underline hot = "lcUnderLineHot",
Selected event on unselect = "lcSendSelectedWhenItemIsUnselected",
}
enum tListCtrlExtendedKind {
Zebra = "lceZebra",
Compute light zebra color = "lceComputeZebraLightColor",
Display label tooptip = "lceLabelTip",
Custom row height in pixels = "lceCustomRowHeightInPixels",
Custom row height in lines = "lceCustomRowHeightInLines",
Multiline title bar = "lceHeaderWordWrap",
Custom title bar color = "lceCustomHeaderColors",
}
type tListCtrlKindsSet = ("lcAlignLeft" | "lcAlignTop" | "lcAutoArrange" | "lcEditLabels" | "lcIcon" | "lcList" | "lcNoColumnHeader" | "lcNoLabelWrap" | "lcNoScroll" | "lcNoSortHeader" | "lcReport" | "lcShareImageLists" | "lcShowSelAlways" | "lcSingleSel" | "lcSmallIcon" | "lcSortDescending" | "lcSortAscending" | "lcCheckBoxes" | "lcFlatSB" | "lcFullRowSelect" | "lcGridLines" | "lcHeaderDragDrop" | "lcInfoTip" | "lcMultiWorkAreas" | "lcOneClickActivate" | "lcRegional" | "lcSubItemImages" | "lcTrackSelect" | "lcTwoClickActivate" | "lcUnderLineCold" | "lcUnderLineHot" | "lcSendSelectedWhenItemIsUnselected")[]
type tListCtrlExtendedKindsSet = ("lceZebra" | "lceComputeZebraLightColor" | "lceLabelTip" | "lceCustomRowHeightInPixels" | "lceCustomRowHeightInLines" | "lceHeaderWordWrap" | "lceCustomHeaderColors")[]
enum tListTreeCtrlKinds {
Edit labels = "ltcEditLabels",
Draw light = "ltcLightStyle",
No column header = "ltcNoColumnHeader",
No label wrap = "ltcNoLabelWrap",
No scroll = "ltcNoScroll",
No sort header = "ltcNoSortHeader",
Show sel always = "ltcShowSelAlways",
Single sel = "ltcSingleSel",
Sort ascending = "ltcSortAscending",
Sort descending = "ltcSortDescending",
With checkboxes = "ltcCheckBoxes",
Flat scroll bar = "ltcFlatSB",
Full row select = "ltcFullRowSelect",
Grid lines = "ltcGridLines",
Header drag drop = "ltcHeaderDragDrop",
Info tip = "ltcInfoTip",
One click activate = "ltcOneClickActivate",
Sub item images = "ltcSubItemImages",
Track select = "ltcTrackSelect",
Two click activate = "ltcTwoClickActivate",
Selected event on unselect = "ltcSendSelectedWhenItemIsUnselected",
}
type tListTreeCtrlKindsSet = ("ltcEditLabels" | "ltcLightStyle" | "ltcNoColumnHeader" | "ltcNoLabelWrap" | "ltcNoScroll" | "ltcNoSortHeader" | "ltcShowSelAlways" | "ltcSingleSel" | "ltcSortAscending" | "ltcSortDescending" | "ltcCheckBoxes" | "ltcFlatSB" | "ltcFullRowSelect" | "ltcGridLines" | "ltcHeaderDragDrop" | "ltcInfoTip" | "ltcOneClickActivate" | "ltcSubItemImages" | "ltcTrackSelect" | "ltcTwoClickActivate" | "ltcSendSelectedWhenItemIsUnselected")[]
enum tListTreeNodeKinds {
Special fore-color = "ltnUseSpecForeColor",
Special back-color = "ltnUseSpecBackColor",
Disabled = "ltnDisabled",
Locked = "ltnLocked",
Kids have radio = "ltnRadio",
Force child = "ltnForceChild",
With check box = "ltnCheckBox",
Is checked = "ltnChecked",
Is selected = "ltnSelected",
}
type tListTreeNodeKindsSet = ("ltnUseSpecForeColor" | "ltnUseSpecBackColor" | "ltnDisabled" | "ltnLocked" | "ltnRadio" | "ltnForceChild" | "ltnCheckBox" | "ltnChecked" | "ltnSelected")[]
enum tItemStates {
iFocused = "iFocused",
iSelected = "iSelected",
iCut = "iCut",
iDropHilited = "iDropHilited",
iChecked = "iChecked",
}
type tItemStatesSet = ("iFocused" | "iSelected" | "iCut" | "iDropHilited" | "iChecked")[]
enum tToolBarKind {
Resizeable = "tbkResizeable",
Non MDI Docking = "tbkNonMDIDocking",
}
type tToolBarKinds = ("tbkNonMDIDocking" | "tbkResizeable")[]
enum tCalArea {
caBetweenMonthBack = "caBetweenMonthBack",
caMonthBack = "caMonthBack",
caMonthText = "caMonthText",
caTitleBack = "caTitleBack",
caTitleText = "caTitleText",
caTrailingText = "caTrailingText",
}
enum tCalendarPosKinds {
cpCalendarBack = "cpCalendarBack",
cpCalendarDate = "cpCalendarDate",
cpCalendardateNext = "cpCalendardateNext",
cpCalendarDatePrev = "cpCalendarDatePrev",
cpCalendarDay = "cpCalendarDay",
cpCalendarWeekNumber = "cpCalendarWeekNumber",
cpNowhere = "cpNowhere",
cpTitleBack = "cpTitleBack",
cpTitleButtonNext = "cpTitleButtonNext",
cpTitleButtonPrev = "cpTitleButtonPrev",
cpTitleMonth = "cpTitleMonth",
cpTitleYear = "cpTitleYear",
}
enum tLockKind {
NoLock = "NoLock",
LockOnNewVersion = "LockOnNewVersion",
LockOnAccept = "LockOnAccept",
}
enum tTransactionLockKind {
lkLockAllTransaction = "lkLockAllTransaction",
lkLockOnExisting = "lkLockOnExisting",
lkNoLock = "lkNoLock",
}
enum tTableKind {
Only this level = "HasOneLevelTable",
All ancestors = "HasAllAncestorsTable",
In ancestors = "VarsInAncestors",
In descendants = "VarsInChildren",
}
enum tPersistencyKind {
Versioned = "VersionedPersistency",
Mono versioned = "MonoVersionedPersistency",
Legacy persistency = "LegacyPersistency",
}
enum tScrollBarEvents {
sbeLineLeft = "sbeLineLeft",
sbeLineRight = "sbeLineRight",
sbeLineUp = "sbeLineUp",
sbeLineDown = "sbeLineDown",
sbePageLeft = "sbePageLeft",
sbePageRight = "sbePageRight",
sbePageUp = "sbePageUp",
sbePageDown = "sbePageDown",
sbeSliderTrack = "sbeSliderTrack",
sbeSliderPosition = "sbeSliderPosition",
sbeEndScroll = "sbeEndScroll",
sbeWheelUp = "sbeWheelUp",
sbeWheelDown = "sbeWheelDown",
}
enum tReimplemKind {
crNoReimplem = "crNoReimplem",
crBasicReimplem = "crBasicReimplem",
crReimplemAndAdd = "crReimplemAndAdd",
}
enum tWideCommentKind {
GeneralWideComment = "GeneralWideComment",
ParsingWideComment = "ParsingWideComment",
RunningWideComment = "RunningWideComment",
}
type TypeNotInTReftoNotLoadRefObject = {
}
enum tByValueOrByAddress {
By Value = "ParamByValue",
ByAddr InOut = "ParamInOut",
ByAddr Const (In) = "ParamConst",
ByAddr Var (Out) = "ParamVar",
}
enum tModifiers {
Final = "mFinal",
Abstract = "mAbstract",
MultiLang = "mMultiLang",
Private = "mPrivate",
Protected = "mProtected",
Default = "mDefault",
Interface = "mInterface",
Overloaded = "mOverloaded",
}
type tModifiersSet = ("mFinal" | "mAbstract" | "mMultiLang" | "mProtected" | "mPrivate" | "mDefault" | "mInterface" | "mOverloaded")[]
type TypeNotInTRefto = {
}
type TypeNotInTPTVListofReftos = {
}[]
type DBChar = integer