Global

const alBottom: TAlign = 2;

const TAlign alBottom = 2

static let alBottom: TAlign = 2

Dim alBottom As TAlign = 2

const alClient: TAlign = 5;

const TAlign alClient = 5

static let alClient: TAlign = 5

Dim alClient As TAlign = 5

const alCustom: TAlign = 6;

const TAlign alCustom = 6

static let alCustom: TAlign = 6

Dim alCustom As TAlign = 6

const alLeft: TAlign = 3;

const TAlign alLeft = 3

static let alLeft: TAlign = 3

Dim alLeft As TAlign = 3

const alNone: TAlign = 0;

const TAlign alNone = 0

static let alNone: TAlign = 0

Dim alNone As TAlign = 0

const alRight: TAlign = 4;

const TAlign alRight = 4

static let alRight: TAlign = 4

Dim alRight As TAlign = 4

const alTop: TAlign = 1;

const TAlign alTop = 1

static let alTop: TAlign = 1

Dim alTop As TAlign = 1

class var Application: TApplication;

static TApplication Application

static var Application: TApplication

Shared FIELD Application() As TApplication

const Bold: TFontStyle = 0;

const TFontStyle Bold = 0

static let Bold: TFontStyle = 0

Dim Bold As TFontStyle = 0

const cbChecked: TCheckBoxState = 1;

const TCheckBoxState cbChecked = 1

static let cbChecked: TCheckBoxState = 1

Dim cbChecked As TCheckBoxState = 1

const cbGrayed: TCheckBoxState = 2;

const TCheckBoxState cbGrayed = 2

static let cbGrayed: TCheckBoxState = 2

Dim cbGrayed As TCheckBoxState = 2

const cbUnChecked: TCheckBoxState = 0;

const TCheckBoxState cbUnChecked = 0

static let cbUnChecked: TCheckBoxState = 0

Dim cbUnChecked As TCheckBoxState = 0

const clWindowText: Int32 = -16777208;

const Int32 clWindowText = -16777208

static let clWindowText: Int32 = -16777208

Dim clWindowText As Int32 = -16777208

const CN_BASE: UInt32 = 48128;

const UInt32 CN_BASE = 48128

static let CN_BASE: UInt32 = 48128

Dim CN_BASE As UInt32 = 48128

const CN_COMMAND: UInt32 = 48401;

const UInt32 CN_COMMAND = 48401

static let CN_COMMAND: UInt32 = 48401

Dim CN_COMMAND As UInt32 = 48401

const CN_KEYDOWN: UInt32 = 48384;

const UInt32 CN_KEYDOWN = 48384

static let CN_KEYDOWN: UInt32 = 48384

Dim CN_KEYDOWN As UInt32 = 48384

const CN_NOTIFY: UInt32 = 48206;

const UInt32 CN_NOTIFY = 48206

static let CN_NOTIFY: UInt32 = 48206

Dim CN_NOTIFY As UInt32 = 48206

class method ComboWndProc(hWnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT

static LRESULT ComboWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

static func ComboWndProc(_ hWnd: HWND, _ message: UINT, _ wParam: WPARAM, _ lParam: LPARAM) -> LRESULT

Shared Function ComboWndProc(hWnd As HWND, message As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT

const csAncestor: TComponentStateEnum = 5;

const TComponentStateEnum csAncestor = 5

static let csAncestor: TComponentStateEnum = 5

Dim csAncestor As TComponentStateEnum = 5

const csDesigning: TComponentStateEnum = 4;

const TComponentStateEnum csDesigning = 4

static let csDesigning: TComponentStateEnum = 4

Dim csDesigning As TComponentStateEnum = 4

const csDestroying: TComponentStateEnum = 3;

const TComponentStateEnum csDestroying = 3

static let csDestroying: TComponentStateEnum = 3

Dim csDestroying As TComponentStateEnum = 3

const csDropDown: TComboBoxStyle = 0;

const TComboBoxStyle csDropDown = 0

static let csDropDown: TComboBoxStyle = 0

Dim csDropDown As TComboBoxStyle = 0

const csDropDownList: TComboBoxStyle = 2;

const TComboBoxStyle csDropDownList = 2

static let csDropDownList: TComboBoxStyle = 2

Dim csDropDownList As TComboBoxStyle = 2

const csFixups: TComponentStateEnum = 7;

const TComponentStateEnum csFixups = 7

static let csFixups: TComponentStateEnum = 7

Dim csFixups As TComponentStateEnum = 7

const csFreeNotification: TComponentStateEnum = 8;

const TComponentStateEnum csFreeNotification = 8

static let csFreeNotification: TComponentStateEnum = 8

Dim csFreeNotification As TComponentStateEnum = 8

const csLoading: TComponentStateEnum = 0;

const TComponentStateEnum csLoading = 0

static let csLoading: TComponentStateEnum = 0

Dim csLoading As TComponentStateEnum = 0

const csOwnerDrawFixed: TComboBoxStyle = 3;

const TComboBoxStyle csOwnerDrawFixed = 3

static let csOwnerDrawFixed: TComboBoxStyle = 3

Dim csOwnerDrawFixed As TComboBoxStyle = 3

const csOwnerDrawVariable: TComboBoxStyle = 4;

const TComboBoxStyle csOwnerDrawVariable = 4

static let csOwnerDrawVariable: TComboBoxStyle = 4

Dim csOwnerDrawVariable As TComboBoxStyle = 4

const csReading: TComponentStateEnum = 1;

const TComponentStateEnum csReading = 1

static let csReading: TComponentStateEnum = 1

Dim csReading As TComponentStateEnum = 1

const csSimple: TComboBoxStyle = 1;

const TComboBoxStyle csSimple = 1

static let csSimple: TComboBoxStyle = 1

Dim csSimple As TComboBoxStyle = 1

const csUpdating: TComponentStateEnum = 6;

const TComponentStateEnum csUpdating = 6

static let csUpdating: TComponentStateEnum = 6

Dim csUpdating As TComponentStateEnum = 6

const csWriting: TComponentStateEnum = 2;

const TComponentStateEnum csWriting = 2

static let csWriting: TComponentStateEnum = 2

Dim csWriting As TComponentStateEnum = 2

const ctImage: TItemChange = 1;

const TItemChange ctImage = 1

static let ctImage: TItemChange = 1

Dim ctImage As TItemChange = 1

const ctState: TItemChange = 2;

const TItemChange ctState = 2

static let ctState: TItemChange = 2

Dim ctState As TItemChange = 2

const ctText: TItemChange = 0;

const TItemChange ctText = 0

static let ctText: TItemChange = 0

Dim ctText As TItemChange = 0

class method DefaultControlWndProc(hWnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT

static LRESULT DefaultControlWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

static func DefaultControlWndProc(_ hWnd: HWND, _ message: UINT, _ wParam: WPARAM, _ lParam: LPARAM) -> LRESULT

Shared Function DefaultControlWndProc(hWnd As HWND, message As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT

const fpDefault: TFontPitch = 0;

const TFontPitch fpDefault = 0

static let fpDefault: TFontPitch = 0

Dim fpDefault As TFontPitch = 0

const fpFixed: TFontPitch = 2;

const TFontPitch fpFixed = 2

static let fpFixed: TFontPitch = 2

Dim fpFixed As TFontPitch = 2

const fpVariable: TFontPitch = 1;

const TFontPitch fpVariable = 1

static let fpVariable: TFontPitch = 1

Dim fpVariable As TFontPitch = 1

const fqAntialiased: TFontQuality = 4;

const TFontQuality fqAntialiased = 4

static let fqAntialiased: TFontQuality = 4

Dim fqAntialiased As TFontQuality = 4

const fqClearType: TFontQuality = 5;

const TFontQuality fqClearType = 5

static let fqClearType: TFontQuality = 5

Dim fqClearType As TFontQuality = 5

const fqClearTypeNatural: TFontQuality = 6;

const TFontQuality fqClearTypeNatural = 6

static let fqClearTypeNatural: TFontQuality = 6

Dim fqClearTypeNatural As TFontQuality = 6

const fqDefault: TFontQuality = 0;

const TFontQuality fqDefault = 0

static let fqDefault: TFontQuality = 0

Dim fqDefault As TFontQuality = 0

const fqDraft: TFontQuality = 1;

const TFontQuality fqDraft = 1

static let fqDraft: TFontQuality = 1

Dim fqDraft As TFontQuality = 1

const fqNonAntialiased: TFontQuality = 3;

const TFontQuality fqNonAntialiased = 3

static let fqNonAntialiased: TFontQuality = 3

Dim fqNonAntialiased As TFontQuality = 3

const fqProof: TFontQuality = 2;

const TFontQuality fqProof = 2

static let fqProof: TFontQuality = 2

Dim fqProof As TFontQuality = 2

class method GlobalGraphicControlWndProc(hWnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT

static LRESULT GlobalGraphicControlWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

static func GlobalGraphicControlWndProc(_ hWnd: HWND, _ message: UINT, _ wParam: WPARAM, _ lParam: LPARAM) -> LRESULT

Shared Function GlobalGraphicControlWndProc(hWnd As HWND, message As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT

class method GlobalWndProc(hWnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT

static LRESULT GlobalWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

static func GlobalWndProc(_ hWnd: HWND, _ message: UINT, _ wParam: WPARAM, _ lParam: LPARAM) -> LRESULT

Shared Function GlobalWndProc(hWnd As HWND, message As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT

const Italic: TFontStyle = 1;

const TFontStyle Italic = 1

static let Italic: TFontStyle = 1

Dim Italic As TFontStyle = 1

const Marquee: TProgressBarStyle = 1;

const TProgressBarStyle Marquee = 1

static let Marquee: TProgressBarStyle = 1

static final TProgressBarStyle Marquee = 1

Dim Marquee As TProgressBarStyle = 1

const msControlSelect: TMultiSelectStyles = 0;

const TMultiSelectStyles msControlSelect = 0

static let msControlSelect: TMultiSelectStyles = 0

Dim msControlSelect As TMultiSelectStyles = 0

const msShiftSelect: TMultiSelectStyles = 1;

const TMultiSelectStyles msShiftSelect = 1

static let msShiftSelect: TMultiSelectStyles = 1

Dim msShiftSelect As TMultiSelectStyles = 1

const msSiblingOnly: TMultiSelectStyles = 3;

const TMultiSelectStyles msSiblingOnly = 3

static let msSiblingOnly: TMultiSelectStyles = 3

Dim msSiblingOnly As TMultiSelectStyles = 3

const msVisibleOnly: TMultiSelectStyles = 2;

const TMultiSelectStyles msVisibleOnly = 2

static let msVisibleOnly: TMultiSelectStyles = 2

Dim msVisibleOnly As TMultiSelectStyles = 2

const naAdd: TNodeAttachMode = 0;

const TNodeAttachMode naAdd = 0

static let naAdd: TNodeAttachMode = 0

Dim naAdd As TNodeAttachMode = 0

const naAddChild: TNodeAttachMode = 2;

const TNodeAttachMode naAddChild = 2

static let naAddChild: TNodeAttachMode = 2

Dim naAddChild As TNodeAttachMode = 2

const naAddChildFirst: TNodeAttachMode = 3;

const TNodeAttachMode naAddChildFirst = 3

static let naAddChildFirst: TNodeAttachMode = 3

Dim naAddChildFirst As TNodeAttachMode = 3

const naAddFirst: TNodeAttachMode = 1;

const TNodeAttachMode naAddFirst = 1

static let naAddFirst: TNodeAttachMode = 1

Dim naAddFirst As TNodeAttachMode = 1

const naInsert: TNodeAttachMode = 4;

const TNodeAttachMode naInsert = 4

static let naInsert: TNodeAttachMode = 4

Dim naInsert As TNodeAttachMode = 4

const Normal: TProgressBarStyle = 0;

const TProgressBarStyle Normal = 0

static let Normal: TProgressBarStyle = 0

static final TProgressBarStyle Normal = 0

Dim Normal As TProgressBarStyle = 0

const nsCut: TNodeState = 0;

const TNodeState nsCut = 0

static let nsCut: TNodeState = 0

Dim nsCut As TNodeState = 0

const nsDropHilited: TNodeState = 1;

const TNodeState nsDropHilited = 1

static let nsDropHilited: TNodeState = 1

Dim nsDropHilited As TNodeState = 1

const nsExpanded: TNodeState = 4;

const TNodeState nsExpanded = 4

static let nsExpanded: TNodeState = 4

Dim nsExpanded As TNodeState = 4

const nsFocused: TNodeState = 2;

const TNodeState nsFocused = 2

static let nsFocused: TNodeState = 2

Dim nsFocused As TNodeState = 2

const nsSelected: TNodeState = 3;

const TNodeState nsSelected = 3

static let nsSelected: TNodeState = 3

Dim nsSelected As TNodeState = 3

class method PlatformShowMessage(aMessage: String)

static void PlatformShowMessage(String aMessage)

static func PlatformShowMessage(_ aMessage: String)

Shared Sub PlatformShowMessage(aMessage As String)

class var Screen: TScreen;

static TScreen Screen

static var Screen: TScreen

Shared FIELD Screen() As TScreen

class method ShowMessage(aMessage: String)

static void ShowMessage(String aMessage)

static func ShowMessage(_ aMessage: String)

Shared Sub ShowMessage(aMessage As String)

const ssAlt: TShiftStateValues = 1;

const TShiftStateValues ssAlt = 1

static let ssAlt: TShiftStateValues = 1

Dim ssAlt As TShiftStateValues = 1

const ssCommand: TShiftStateValues = 9;

const TShiftStateValues ssCommand = 9

static let ssCommand: TShiftStateValues = 9

Dim ssCommand As TShiftStateValues = 9

const ssCtrl: TShiftStateValues = 2;

const TShiftStateValues ssCtrl = 2

static let ssCtrl: TShiftStateValues = 2

Dim ssCtrl As TShiftStateValues = 2

const ssDouble: TShiftStateValues = 6;

const TShiftStateValues ssDouble = 6

static let ssDouble: TShiftStateValues = 6

Dim ssDouble As TShiftStateValues = 6

const ssHorizontal: TShiftStateValues = 10;

const TShiftStateValues ssHorizontal = 10

static let ssHorizontal: TShiftStateValues = 10

Dim ssHorizontal As TShiftStateValues = 10

const ssLeft: TShiftStateValues = 3;

const TShiftStateValues ssLeft = 3

static let ssLeft: TShiftStateValues = 3

Dim ssLeft As TShiftStateValues = 3

const ssMiddle: TShiftStateValues = 5;

const TShiftStateValues ssMiddle = 5

static let ssMiddle: TShiftStateValues = 5

Dim ssMiddle As TShiftStateValues = 5

const ssPen: TShiftStateValues = 8;

const TShiftStateValues ssPen = 8

static let ssPen: TShiftStateValues = 8

Dim ssPen As TShiftStateValues = 8

const ssRight: TShiftStateValues = 4;

const TShiftStateValues ssRight = 4

static let ssRight: TShiftStateValues = 4

Dim ssRight As TShiftStateValues = 4

const ssShift: TShiftStateValues = 0;

const TShiftStateValues ssShift = 0

static let ssShift: TShiftStateValues = 0

Dim ssShift As TShiftStateValues = 0

const ssTouch: TShiftStateValues = 7;

const TShiftStateValues ssTouch = 7

static let ssTouch: TShiftStateValues = 7

Dim ssTouch As TShiftStateValues = 7

const stBoth: TSortType = 3;

const TSortType stBoth = 3

static let stBoth: TSortType = 3

Dim stBoth As TSortType = 3

const stData: TSortType = 1;

const TSortType stData = 1

static let stData: TSortType = 1

Dim stData As TSortType = 1

const stNone: TSortType = 0;

const TSortType stNone = 0

static let stNone: TSortType = 0

Dim stNone As TSortType = 0

const StrikeOut: TFontStyle = 3;

const TFontStyle StrikeOut = 3

static let StrikeOut: TFontStyle = 3

Dim StrikeOut As TFontStyle = 3

const stText: TSortType = 2;

const TSortType stText = 2

static let stText: TSortType = 2

Dim stText As TSortType = 2

const taAdd: TAddMode = 1;

const TAddMode taAdd = 1

static let taAdd: TAddMode = 1

Dim taAdd As TAddMode = 1

const taAddFirst: TAddMode = 0;

const TAddMode taAddFirst = 0

static let taAddFirst: TAddMode = 0

Dim taAddFirst As TAddMode = 0

const taInsert: TAddMode = 2;

const TAddMode taInsert = 2

static let taInsert: TAddMode = 2

Dim taInsert As TAddMode = 2

const toEOF: TParserToken = 0;

const TParserToken toEOF = 0

static let toEOF: TParserToken = 0

Dim toEOF As TParserToken = 0

const toFloat: TParserToken = 4;

const TParserToken toFloat = 4

static let toFloat: TParserToken = 4

Dim toFloat As TParserToken = 4

const toInteger: TParserToken = 3;

const TParserToken toInteger = 3

static let toInteger: TParserToken = 3

Dim toInteger As TParserToken = 3

const toOtCharacter: TParserToken = 6;

const TParserToken toOtCharacter = 6

static let toOtCharacter: TParserToken = 6

Dim toOtCharacter As TParserToken = 6

const toString: TParserToken = 2;

const TParserToken toString = 2

static let toString: TParserToken = 2

Dim toString As TParserToken = 2

const toSymbol: TParserToken = 1;

const TParserToken toSymbol = 1

static let toSymbol: TParserToken = 1

Dim toSymbol As TParserToken = 1

const toWString: TParserToken = 5;

const TParserToken toWString = 5

static let toWString: TParserToken = 5

Dim toWString As TParserToken = 5

const Underline: TFontStyle = 2;

const TFontStyle Underline = 2

static let Underline: TFontStyle = 2

Dim Underline As TFontStyle = 2

const vaBinary: TValueType = 10;

const TValueType vaBinary = 10

static let vaBinary: TValueType = 10

Dim vaBinary As TValueType = 10

const vaCollection: TValueType = 14;

const TValueType vaCollection = 14

static let vaCollection: TValueType = 14

Dim vaCollection As TValueType = 14

const vaCurrency: TValueType = 16;

const TValueType vaCurrency = 16

static let vaCurrency: TValueType = 16

Dim vaCurrency As TValueType = 16

const vaDate: TValueType = 17;

const TValueType vaDate = 17

static let vaDate: TValueType = 17

Dim vaDate As TValueType = 17

const vaDouble: TValueType = 21;

const TValueType vaDouble = 21

static let vaDouble: TValueType = 21

Dim vaDouble As TValueType = 21

const vaExtended: TValueType = 5;

const TValueType vaExtended = 5

static let vaExtended: TValueType = 5

Dim vaExtended As TValueType = 5

const vaFalse: TValueType = 8;

const TValueType vaFalse = 8

static let vaFalse: TValueType = 8

Dim vaFalse As TValueType = 8

const vaIdent: TValueType = 7;

const TValueType vaIdent = 7

static let vaIdent: TValueType = 7

Dim vaIdent As TValueType = 7

const vaInt16: TValueType = 3;

const TValueType vaInt16 = 3

static let vaInt16: TValueType = 3

Dim vaInt16 As TValueType = 3

const vaInt32: TValueType = 4;

const TValueType vaInt32 = 4

static let vaInt32: TValueType = 4

Dim vaInt32 As TValueType = 4

const vaInt64: TValueType = 19;

const TValueType vaInt64 = 19

static let vaInt64: TValueType = 19

Dim vaInt64 As TValueType = 19

const vaInt8: TValueType = 2;

const TValueType vaInt8 = 2

static let vaInt8: TValueType = 2

Dim vaInt8 As TValueType = 2

const vaList: TValueType = 1;

const TValueType vaList = 1

static let vaList: TValueType = 1

Dim vaList As TValueType = 1

const vaLString: TValueType = 12;

const TValueType vaLString = 12

static let vaLString: TValueType = 12

Dim vaLString As TValueType = 12

const vaNil: TValueType = 13;

const TValueType vaNil = 13

static let vaNil: TValueType = 13

Dim vaNil As TValueType = 13

const vaNull: TValueType = 0;

const TValueType vaNull = 0

static let vaNull: TValueType = 0

Dim vaNull As TValueType = 0

const vaSet: TValueType = 11;

const TValueType vaSet = 11

static let vaSet: TValueType = 11

Dim vaSet As TValueType = 11

const vaSingle: TValueType = 15;

const TValueType vaSingle = 15

static let vaSingle: TValueType = 15

Dim vaSingle As TValueType = 15

const vaString: TValueType = 6;

const TValueType vaString = 6

static let vaString: TValueType = 6

Dim vaString As TValueType = 6

const vaTrue: TValueType = 9;

const TValueType vaTrue = 9

static let vaTrue: TValueType = 9

Dim vaTrue As TValueType = 9

const vaUTF8String: TValueType = 20;

const TValueType vaUTF8String = 20

static let vaUTF8String: TValueType = 20

Dim vaUTF8String As TValueType = 20

const vaWString: TValueType = 18;

const TValueType vaWString = 18

static let vaWString: TValueType = 18

Dim vaWString As TValueType = 18

const vsIcon: TViewStyle = 0;

const TViewStyle vsIcon = 0

static let vsIcon: TViewStyle = 0

Dim vsIcon As TViewStyle = 0

const vsList: TViewStyle = 2;

const TViewStyle vsList = 2

static let vsList: TViewStyle = 2

Dim vsList As TViewStyle = 2

const vsReport: TViewStyle = 3;

const TViewStyle vsReport = 3

static let vsReport: TViewStyle = 3

Dim vsReport As TViewStyle = 3

const vsSmallIcon: TViewStyle = 1;

const TViewStyle vsSmallIcon = 1

static let vsSmallIcon: TViewStyle = 1

Dim vsSmallIcon As TViewStyle = 1

const alBottom: TAlign = 2;

const TAlign alBottom = 2

static let alBottom: TAlign = 2

Dim alBottom As TAlign = 2

const alClient: TAlign = 5;

const TAlign alClient = 5

static let alClient: TAlign = 5

Dim alClient As TAlign = 5

const alCustom: TAlign = 6;

const TAlign alCustom = 6

static let alCustom: TAlign = 6

Dim alCustom As TAlign = 6

const alLeft: TAlign = 3;

const TAlign alLeft = 3

static let alLeft: TAlign = 3

Dim alLeft As TAlign = 3

const alNone: TAlign = 0;

const TAlign alNone = 0

static let alNone: TAlign = 0

Dim alNone As TAlign = 0

const alRight: TAlign = 4;

const TAlign alRight = 4

static let alRight: TAlign = 4

Dim alRight As TAlign = 4

const alTop: TAlign = 1;

const TAlign alTop = 1

static let alTop: TAlign = 1

Dim alTop As TAlign = 1

const Bold: TFontStyle = 0;

const TFontStyle Bold = 0

static let Bold: TFontStyle = 0

Dim Bold As TFontStyle = 0

const cbChecked: TCheckBoxState = 1;

const TCheckBoxState cbChecked = 1

static let cbChecked: TCheckBoxState = 1

Dim cbChecked As TCheckBoxState = 1

const cbGrayed: TCheckBoxState = 2;

const TCheckBoxState cbGrayed = 2

static let cbGrayed: TCheckBoxState = 2

Dim cbGrayed As TCheckBoxState = 2

const cbUnChecked: TCheckBoxState = 0;

const TCheckBoxState cbUnChecked = 0

static let cbUnChecked: TCheckBoxState = 0

Dim cbUnChecked As TCheckBoxState = 0

const clWindowText: Int32 = -16777208;

const Int32 clWindowText = -16777208

static let clWindowText: Int32 = -16777208

Dim clWindowText As Int32 = -16777208

const CN_BASE: UInt32 = 48128;

const UInt32 CN_BASE = 48128

static let CN_BASE: UInt32 = 48128

Dim CN_BASE As UInt32 = 48128

const CN_COMMAND: UInt32 = 48401;

const UInt32 CN_COMMAND = 48401

static let CN_COMMAND: UInt32 = 48401

Dim CN_COMMAND As UInt32 = 48401

const CN_KEYDOWN: UInt32 = 48384;

const UInt32 CN_KEYDOWN = 48384

static let CN_KEYDOWN: UInt32 = 48384

Dim CN_KEYDOWN As UInt32 = 48384

const CN_NOTIFY: UInt32 = 48206;

const UInt32 CN_NOTIFY = 48206

static let CN_NOTIFY: UInt32 = 48206

Dim CN_NOTIFY As UInt32 = 48206

const csAncestor: TComponentStateEnum = 5;

const TComponentStateEnum csAncestor = 5

static let csAncestor: TComponentStateEnum = 5

Dim csAncestor As TComponentStateEnum = 5

const csDesigning: TComponentStateEnum = 4;

const TComponentStateEnum csDesigning = 4

static let csDesigning: TComponentStateEnum = 4

Dim csDesigning As TComponentStateEnum = 4

const csDestroying: TComponentStateEnum = 3;

const TComponentStateEnum csDestroying = 3

static let csDestroying: TComponentStateEnum = 3

Dim csDestroying As TComponentStateEnum = 3

const csDropDown: TComboBoxStyle = 0;

const TComboBoxStyle csDropDown = 0

static let csDropDown: TComboBoxStyle = 0

Dim csDropDown As TComboBoxStyle = 0

const csDropDownList: TComboBoxStyle = 2;

const TComboBoxStyle csDropDownList = 2

static let csDropDownList: TComboBoxStyle = 2

Dim csDropDownList As TComboBoxStyle = 2

const csFixups: TComponentStateEnum = 7;

const TComponentStateEnum csFixups = 7

static let csFixups: TComponentStateEnum = 7

Dim csFixups As TComponentStateEnum = 7

const csFreeNotification: TComponentStateEnum = 8;

const TComponentStateEnum csFreeNotification = 8

static let csFreeNotification: TComponentStateEnum = 8

Dim csFreeNotification As TComponentStateEnum = 8

const csLoading: TComponentStateEnum = 0;

const TComponentStateEnum csLoading = 0

static let csLoading: TComponentStateEnum = 0

Dim csLoading As TComponentStateEnum = 0

const csOwnerDrawFixed: TComboBoxStyle = 3;

const TComboBoxStyle csOwnerDrawFixed = 3

static let csOwnerDrawFixed: TComboBoxStyle = 3

Dim csOwnerDrawFixed As TComboBoxStyle = 3

const csOwnerDrawVariable: TComboBoxStyle = 4;

const TComboBoxStyle csOwnerDrawVariable = 4

static let csOwnerDrawVariable: TComboBoxStyle = 4

Dim csOwnerDrawVariable As TComboBoxStyle = 4

const csReading: TComponentStateEnum = 1;

const TComponentStateEnum csReading = 1

static let csReading: TComponentStateEnum = 1

Dim csReading As TComponentStateEnum = 1

const csSimple: TComboBoxStyle = 1;

const TComboBoxStyle csSimple = 1

static let csSimple: TComboBoxStyle = 1

Dim csSimple As TComboBoxStyle = 1

const csUpdating: TComponentStateEnum = 6;

const TComponentStateEnum csUpdating = 6

static let csUpdating: TComponentStateEnum = 6

Dim csUpdating As TComponentStateEnum = 6

const csWriting: TComponentStateEnum = 2;

const TComponentStateEnum csWriting = 2

static let csWriting: TComponentStateEnum = 2

Dim csWriting As TComponentStateEnum = 2

const ctImage: TItemChange = 1;

const TItemChange ctImage = 1

static let ctImage: TItemChange = 1

Dim ctImage As TItemChange = 1

const ctState: TItemChange = 2;

const TItemChange ctState = 2

static let ctState: TItemChange = 2

Dim ctState As TItemChange = 2

const ctText: TItemChange = 0;

const TItemChange ctText = 0

static let ctText: TItemChange = 0

Dim ctText As TItemChange = 0

const fpDefault: TFontPitch = 0;

const TFontPitch fpDefault = 0

static let fpDefault: TFontPitch = 0

Dim fpDefault As TFontPitch = 0

const fpFixed: TFontPitch = 2;

const TFontPitch fpFixed = 2

static let fpFixed: TFontPitch = 2

Dim fpFixed As TFontPitch = 2

const fpVariable: TFontPitch = 1;

const TFontPitch fpVariable = 1

static let fpVariable: TFontPitch = 1

Dim fpVariable As TFontPitch = 1

const fqAntialiased: TFontQuality = 4;

const TFontQuality fqAntialiased = 4

static let fqAntialiased: TFontQuality = 4

Dim fqAntialiased As TFontQuality = 4

const fqClearType: TFontQuality = 5;

const TFontQuality fqClearType = 5

static let fqClearType: TFontQuality = 5

Dim fqClearType As TFontQuality = 5

const fqClearTypeNatural: TFontQuality = 6;

const TFontQuality fqClearTypeNatural = 6

static let fqClearTypeNatural: TFontQuality = 6

Dim fqClearTypeNatural As TFontQuality = 6

const fqDefault: TFontQuality = 0;

const TFontQuality fqDefault = 0

static let fqDefault: TFontQuality = 0

Dim fqDefault As TFontQuality = 0

const fqDraft: TFontQuality = 1;

const TFontQuality fqDraft = 1

static let fqDraft: TFontQuality = 1

Dim fqDraft As TFontQuality = 1

const fqNonAntialiased: TFontQuality = 3;

const TFontQuality fqNonAntialiased = 3

static let fqNonAntialiased: TFontQuality = 3

Dim fqNonAntialiased As TFontQuality = 3

const fqProof: TFontQuality = 2;

const TFontQuality fqProof = 2

static let fqProof: TFontQuality = 2

Dim fqProof As TFontQuality = 2

const Italic: TFontStyle = 1;

const TFontStyle Italic = 1

static let Italic: TFontStyle = 1

Dim Italic As TFontStyle = 1

const Marquee: TProgressBarStyle = 1;

const TProgressBarStyle Marquee = 1

static let Marquee: TProgressBarStyle = 1

static final TProgressBarStyle Marquee = 1

Dim Marquee As TProgressBarStyle = 1

const msControlSelect: TMultiSelectStyles = 0;

const TMultiSelectStyles msControlSelect = 0

static let msControlSelect: TMultiSelectStyles = 0

Dim msControlSelect As TMultiSelectStyles = 0

const msShiftSelect: TMultiSelectStyles = 1;

const TMultiSelectStyles msShiftSelect = 1

static let msShiftSelect: TMultiSelectStyles = 1

Dim msShiftSelect As TMultiSelectStyles = 1

const msSiblingOnly: TMultiSelectStyles = 3;

const TMultiSelectStyles msSiblingOnly = 3

static let msSiblingOnly: TMultiSelectStyles = 3

Dim msSiblingOnly As TMultiSelectStyles = 3

const msVisibleOnly: TMultiSelectStyles = 2;

const TMultiSelectStyles msVisibleOnly = 2

static let msVisibleOnly: TMultiSelectStyles = 2

Dim msVisibleOnly As TMultiSelectStyles = 2

const naAdd: TNodeAttachMode = 0;

const TNodeAttachMode naAdd = 0

static let naAdd: TNodeAttachMode = 0

Dim naAdd As TNodeAttachMode = 0

const naAddChild: TNodeAttachMode = 2;

const TNodeAttachMode naAddChild = 2

static let naAddChild: TNodeAttachMode = 2

Dim naAddChild As TNodeAttachMode = 2

const naAddChildFirst: TNodeAttachMode = 3;

const TNodeAttachMode naAddChildFirst = 3

static let naAddChildFirst: TNodeAttachMode = 3

Dim naAddChildFirst As TNodeAttachMode = 3

const naAddFirst: TNodeAttachMode = 1;

const TNodeAttachMode naAddFirst = 1

static let naAddFirst: TNodeAttachMode = 1

Dim naAddFirst As TNodeAttachMode = 1

const naInsert: TNodeAttachMode = 4;

const TNodeAttachMode naInsert = 4

static let naInsert: TNodeAttachMode = 4

Dim naInsert As TNodeAttachMode = 4

const Normal: TProgressBarStyle = 0;

const TProgressBarStyle Normal = 0

static let Normal: TProgressBarStyle = 0

static final TProgressBarStyle Normal = 0

Dim Normal As TProgressBarStyle = 0

const nsCut: TNodeState = 0;

const TNodeState nsCut = 0

static let nsCut: TNodeState = 0

Dim nsCut As TNodeState = 0

const nsDropHilited: TNodeState = 1;

const TNodeState nsDropHilited = 1

static let nsDropHilited: TNodeState = 1

Dim nsDropHilited As TNodeState = 1

const nsExpanded: TNodeState = 4;

const TNodeState nsExpanded = 4

static let nsExpanded: TNodeState = 4

Dim nsExpanded As TNodeState = 4

const nsFocused: TNodeState = 2;

const TNodeState nsFocused = 2

static let nsFocused: TNodeState = 2

Dim nsFocused As TNodeState = 2

const nsSelected: TNodeState = 3;

const TNodeState nsSelected = 3

static let nsSelected: TNodeState = 3

Dim nsSelected As TNodeState = 3

const ssAlt: TShiftStateValues = 1;

const TShiftStateValues ssAlt = 1

static let ssAlt: TShiftStateValues = 1

Dim ssAlt As TShiftStateValues = 1

const ssCommand: TShiftStateValues = 9;

const TShiftStateValues ssCommand = 9

static let ssCommand: TShiftStateValues = 9

Dim ssCommand As TShiftStateValues = 9

const ssCtrl: TShiftStateValues = 2;

const TShiftStateValues ssCtrl = 2

static let ssCtrl: TShiftStateValues = 2

Dim ssCtrl As TShiftStateValues = 2

const ssDouble: TShiftStateValues = 6;

const TShiftStateValues ssDouble = 6

static let ssDouble: TShiftStateValues = 6

Dim ssDouble As TShiftStateValues = 6

const ssHorizontal: TShiftStateValues = 10;

const TShiftStateValues ssHorizontal = 10

static let ssHorizontal: TShiftStateValues = 10

Dim ssHorizontal As TShiftStateValues = 10

const ssLeft: TShiftStateValues = 3;

const TShiftStateValues ssLeft = 3

static let ssLeft: TShiftStateValues = 3

Dim ssLeft As TShiftStateValues = 3

const ssMiddle: TShiftStateValues = 5;

const TShiftStateValues ssMiddle = 5

static let ssMiddle: TShiftStateValues = 5

Dim ssMiddle As TShiftStateValues = 5

const ssPen: TShiftStateValues = 8;

const TShiftStateValues ssPen = 8

static let ssPen: TShiftStateValues = 8

Dim ssPen As TShiftStateValues = 8

const ssRight: TShiftStateValues = 4;

const TShiftStateValues ssRight = 4

static let ssRight: TShiftStateValues = 4

Dim ssRight As TShiftStateValues = 4

const ssShift: TShiftStateValues = 0;

const TShiftStateValues ssShift = 0

static let ssShift: TShiftStateValues = 0

Dim ssShift As TShiftStateValues = 0

const ssTouch: TShiftStateValues = 7;

const TShiftStateValues ssTouch = 7

static let ssTouch: TShiftStateValues = 7

Dim ssTouch As TShiftStateValues = 7

const stBoth: TSortType = 3;

const TSortType stBoth = 3

static let stBoth: TSortType = 3

Dim stBoth As TSortType = 3

const stData: TSortType = 1;

const TSortType stData = 1

static let stData: TSortType = 1

Dim stData As TSortType = 1

const stNone: TSortType = 0;

const TSortType stNone = 0

static let stNone: TSortType = 0

Dim stNone As TSortType = 0

const StrikeOut: TFontStyle = 3;

const TFontStyle StrikeOut = 3

static let StrikeOut: TFontStyle = 3

Dim StrikeOut As TFontStyle = 3

const stText: TSortType = 2;

const TSortType stText = 2

static let stText: TSortType = 2

Dim stText As TSortType = 2

const taAdd: TAddMode = 1;

const TAddMode taAdd = 1

static let taAdd: TAddMode = 1

Dim taAdd As TAddMode = 1

const taAddFirst: TAddMode = 0;

const TAddMode taAddFirst = 0

static let taAddFirst: TAddMode = 0

Dim taAddFirst As TAddMode = 0

const taInsert: TAddMode = 2;

const TAddMode taInsert = 2

static let taInsert: TAddMode = 2

Dim taInsert As TAddMode = 2

const toEOF: TParserToken = 0;

const TParserToken toEOF = 0

static let toEOF: TParserToken = 0

Dim toEOF As TParserToken = 0

const toFloat: TParserToken = 4;

const TParserToken toFloat = 4

static let toFloat: TParserToken = 4

Dim toFloat As TParserToken = 4

const toInteger: TParserToken = 3;

const TParserToken toInteger = 3

static let toInteger: TParserToken = 3

Dim toInteger As TParserToken = 3

const toOtCharacter: TParserToken = 6;

const TParserToken toOtCharacter = 6

static let toOtCharacter: TParserToken = 6

Dim toOtCharacter As TParserToken = 6

const toString: TParserToken = 2;

const TParserToken toString = 2

static let toString: TParserToken = 2

Dim toString As TParserToken = 2

const toSymbol: TParserToken = 1;

const TParserToken toSymbol = 1

static let toSymbol: TParserToken = 1

Dim toSymbol As TParserToken = 1

const toWString: TParserToken = 5;

const TParserToken toWString = 5

static let toWString: TParserToken = 5

Dim toWString As TParserToken = 5

const Underline: TFontStyle = 2;

const TFontStyle Underline = 2

static let Underline: TFontStyle = 2

Dim Underline As TFontStyle = 2

const vaBinary: TValueType = 10;

const TValueType vaBinary = 10

static let vaBinary: TValueType = 10

Dim vaBinary As TValueType = 10

const vaCollection: TValueType = 14;

const TValueType vaCollection = 14

static let vaCollection: TValueType = 14

Dim vaCollection As TValueType = 14

const vaCurrency: TValueType = 16;

const TValueType vaCurrency = 16

static let vaCurrency: TValueType = 16

Dim vaCurrency As TValueType = 16

const vaDate: TValueType = 17;

const TValueType vaDate = 17

static let vaDate: TValueType = 17

Dim vaDate As TValueType = 17

const vaDouble: TValueType = 21;

const TValueType vaDouble = 21

static let vaDouble: TValueType = 21

Dim vaDouble As TValueType = 21

const vaExtended: TValueType = 5;

const TValueType vaExtended = 5

static let vaExtended: TValueType = 5

Dim vaExtended As TValueType = 5

const vaFalse: TValueType = 8;

const TValueType vaFalse = 8

static let vaFalse: TValueType = 8

Dim vaFalse As TValueType = 8

const vaIdent: TValueType = 7;

const TValueType vaIdent = 7

static let vaIdent: TValueType = 7

Dim vaIdent As TValueType = 7

const vaInt16: TValueType = 3;

const TValueType vaInt16 = 3

static let vaInt16: TValueType = 3

Dim vaInt16 As TValueType = 3

const vaInt32: TValueType = 4;

const TValueType vaInt32 = 4

static let vaInt32: TValueType = 4

Dim vaInt32 As TValueType = 4

const vaInt64: TValueType = 19;

const TValueType vaInt64 = 19

static let vaInt64: TValueType = 19

Dim vaInt64 As TValueType = 19

const vaInt8: TValueType = 2;

const TValueType vaInt8 = 2

static let vaInt8: TValueType = 2

Dim vaInt8 As TValueType = 2

const vaList: TValueType = 1;

const TValueType vaList = 1

static let vaList: TValueType = 1

Dim vaList As TValueType = 1

const vaLString: TValueType = 12;

const TValueType vaLString = 12

static let vaLString: TValueType = 12

Dim vaLString As TValueType = 12

const vaNil: TValueType = 13;

const TValueType vaNil = 13

static let vaNil: TValueType = 13

Dim vaNil As TValueType = 13

const vaNull: TValueType = 0;

const TValueType vaNull = 0

static let vaNull: TValueType = 0

Dim vaNull As TValueType = 0

const vaSet: TValueType = 11;

const TValueType vaSet = 11

static let vaSet: TValueType = 11

Dim vaSet As TValueType = 11

const vaSingle: TValueType = 15;

const TValueType vaSingle = 15

static let vaSingle: TValueType = 15

Dim vaSingle As TValueType = 15

const vaString: TValueType = 6;

const TValueType vaString = 6

static let vaString: TValueType = 6

Dim vaString As TValueType = 6

const vaTrue: TValueType = 9;

const TValueType vaTrue = 9

static let vaTrue: TValueType = 9

Dim vaTrue As TValueType = 9

const vaUTF8String: TValueType = 20;

const TValueType vaUTF8String = 20

static let vaUTF8String: TValueType = 20

Dim vaUTF8String As TValueType = 20

const vaWString: TValueType = 18;

const TValueType vaWString = 18

static let vaWString: TValueType = 18

Dim vaWString As TValueType = 18

const vsIcon: TViewStyle = 0;

const TViewStyle vsIcon = 0

static let vsIcon: TViewStyle = 0

Dim vsIcon As TViewStyle = 0

const vsList: TViewStyle = 2;

const TViewStyle vsList = 2

static let vsList: TViewStyle = 2

Dim vsList As TViewStyle = 2

const vsReport: TViewStyle = 3;

const TViewStyle vsReport = 3

static let vsReport: TViewStyle = 3

Dim vsReport As TViewStyle = 3

const vsSmallIcon: TViewStyle = 1;

const TViewStyle vsSmallIcon = 1

static let vsSmallIcon: TViewStyle = 1

Dim vsSmallIcon As TViewStyle = 1

class var Application: TApplication;

static TApplication Application

static var Application: TApplication

Shared FIELD Application() As TApplication

class var Screen: TScreen;

static TScreen Screen

static var Screen: TScreen

Shared FIELD Screen() As TScreen

class method ComboWndProc(hWnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT

static LRESULT ComboWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

static func ComboWndProc(_ hWnd: HWND, _ message: UINT, _ wParam: WPARAM, _ lParam: LPARAM) -> LRESULT

Shared Function ComboWndProc(hWnd As HWND, message As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT

class method DefaultControlWndProc(hWnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT

static LRESULT DefaultControlWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

static func DefaultControlWndProc(_ hWnd: HWND, _ message: UINT, _ wParam: WPARAM, _ lParam: LPARAM) -> LRESULT

Shared Function DefaultControlWndProc(hWnd As HWND, message As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT

class method GlobalGraphicControlWndProc(hWnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT

static LRESULT GlobalGraphicControlWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

static func GlobalGraphicControlWndProc(_ hWnd: HWND, _ message: UINT, _ wParam: WPARAM, _ lParam: LPARAM) -> LRESULT

Shared Function GlobalGraphicControlWndProc(hWnd As HWND, message As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT

class method GlobalWndProc(hWnd: HWND; message: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT

static LRESULT GlobalWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

static func GlobalWndProc(_ hWnd: HWND, _ message: UINT, _ wParam: WPARAM, _ lParam: LPARAM) -> LRESULT

Shared Function GlobalWndProc(hWnd As HWND, message As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT

class method PlatformShowMessage(aMessage: String)

static void PlatformShowMessage(String aMessage)

static func PlatformShowMessage(_ aMessage: String)

Shared Sub PlatformShowMessage(aMessage As String)

class method ShowMessage(aMessage: String)

static void ShowMessage(String aMessage)

static func ShowMessage(_ aMessage: String)

Shared Sub ShowMessage(aMessage As String)