gl_pascal.cs

UEStudioPortable.rar

VK_MULTIPLY {};
VK_ADD {};
VK_SEPARATOR {};
VK_SUBTRACT {};
VK_DECIMAL {};
VK_DIVIDE {};
VK_F1 {};
VK_F2 {};
VK_F3 {};
VK_F4 {};
VK_F5 {};
VK_F6 {};
VK_F7 {};
VK_F8 {};
VK_F9 {};
VK_F10 {};
VK_F11 {};
VK_F12 {};
VK_F13 {};
VK_F14 {};
VK_F15 {};
VK_F16 {};
VK_F17 {};
VK_F18 {};
VK_F19 {};
VK_F20 {};
VK_F21 {};
VK_F22 {};
VK_F23 {};
VK_F24 {};
VK_NUMLOCK {};
VK_SCROLL {};

/* functions */
function Swap(X);
function TextHeight(TextString: string): Word;
function TextWidth(TextString: string): Word;
function Trunc(X: Real): Longint;
function UpCase(Ch: Char): Char;
function Sum(var X: array of Real): Real;
function FileExists(FileName: String): Boolean;
function IntToStr(I: Longint): String;
function StrNew(S: PChar): PChar;
function NamePart(FileName: PChar): PChar;
function HasWildcards(FileName: PChar): Boolean;
function MakeWindow(AWindowsObject: PWindowsObject): PWindowsObject; virtual;
function ExecDialog(ADialog: PWindowsObject): Integer; virtual;
function ProcessAppMsg(var Message: TMsg): Boolean; virtual;
function ProcessDlgMsg(var Message: TMsg): Boolean; virtual;
function ProcessAccels(var Message: TMsg): Boolean; virtual;
function ProcessMDIAccels(var Message: TMsg): Boolean; virtual;
function ValidWindow(AWindowsObject: PWindowsObject):PWindowsObject;
function Transfer(DataPtr: Pointer; TransferFlag: Word): Word; virtual;
function At(Index: Integer): Pointer;
function FirstThat(Test: Pointer): Pointer;
function Matches(Item: Pointer): Boolean; far;
function IndexOf(Item: Pointer): Integer; virtual;
function LastThat(Test: Pointer): Pointer;
function Matches(Item: Pointer): Boolean; far;
function GetEditSel(var StartPos, EndPos: Integer): Boolean;
function SetEditSel(StartPos, EndPos: Integer): Integer;
function Transfer(DataPtr: Pointer; TransferFlag: Word);
function GetItemHandle(DlgItemID: Integer): HWnd;
function SendDlgItemMsg(DlgItemID: Integer; AMsg, WParam: Word; LParam: Longint): Longint;
function GetLineIndex(LineNumber: Integer): Integer; virtual;
function DeleteLine(LineNumber: Integer): Boolean; virtual;
function DeleteSubText(StartPos, EndPos: Integer): Boolean; virtual;
function GetLine(ATextString: PChar; StrSize, LineNumber: Integer): Boolean; virtual;
function GetLineFromPos(CharPos: Integer): Integer; virtual;
function GetLineLength(LineNumber: Integer): Integer; virtual;
function IsValid(ReportError: Boolean): Boolean;
function SetSelection(StartPos, EndPos: Integer): Boolean; virtual;
function Transfer(DataPtr: Pointer; TransferFlag: Word): Word; virtual;
function GetDialogInfo(var Pages: Integer): Boolean; virtual;
function GetSelection(var Start, Stop: Integer): Boolean; virtual;
function CanOverwrite(FileStr: PChar): Boolean; virtual;
function IsValid(const S: string): Boolean; virtual;
function IsValidInput(var S: string; SuppressFill: Boolean): Boolean; virtual;
function AddString(AString: PChar): Integer; virtual;
function DeleteString(Index: Integer): Integer; virtual;
function GetMsgID(AMsg: TMsgName): virtual;
function GetSelString(AString: PChar; MaxChars: Integer): Integer; virtual;
function GetString(AString: PChar; Index: Integer): Integer; virtual;
function GetStringLen(Index: Integer): Integer; virtual;
function InsertString(AString: PChar; Index: Integer): Integer; virtual;
function SetSelIndex(Index: Integer): Integer; virtual;
function SetSelString(AString: PChar; AIndex: Integer): Integer; virtual;
function Transfer(DataPtr: Pointer; TransferFlag: Word): Word; virtual;
function IsValid(const S: string): Boolean; virtual;
function Lookup(const S: string): Boolean; virtual;
function InitAbortDialog(Parent: PWindowsObject; Title: PChar): PDialog; virtual;
function InitPrintDialog(Parent: PWindowsObject; PrnDC: HDC; Pages: Integer;  SelAllowed: Boolean; var Data: TPrintDialogRec): PDialog; virtual;
function InitSetupDialog(Parent: PWindowsObject): PDialog; virtual;
function Print(ParentWin: PWindowsObject; PrintOut: PPrintOut): Boolean;
function GetDialogInfo(var Pages: Integer): Boolean; virtual;
function GetSelection(var Start, Stop: Integer): Boolean; virtual;
function IsValidInput(var S: string; SuppressFill: Boolean): Boolean; virtual;
function IsValid(const S: string): Boolean; virtual;
function Picture(var Input: string): TPicResult; virtual;
function IsValid(const S: string): Boolean; virtual;
function Transfer(var S: String; Buffer: Pointer; Flag: TVTransfer): Word; virtual;
function DeltaPos(Delta: Integer): Integer; virtual;
function Transfer(DataPtr: Pointer; TransferFlag: Word): Word; virtual;
function IsVisibleRect(X, Y: Longint; XExt, YExt: Integer): Boolean; virtual;
function Compare(Key1, Key2: Pointer): Integer; virtual;
function IndexOf(Item: Pointer): Integer; virtual;
function KeyOf(Item: Pointer): Pointer; virtual;
function Search(Key: Pointer; var Index: Integer): Boolean; virtual;
function GetText(ATextString: PChar; MaxChars: Integer): Integer; virtual;
function Transfer(DataPtr: Pointer; TransferFlag: Word): Word; virtual;
function Lookup(const S: string): Boolean; virtual;
function StrWrite(P: PChar);
function Compare(Key1, Key2: Pointer): Integer; virtual;
function GetItem(var S: TStream): Pointer; virtual;
function IsValid(const S: string): Boolean; virtual;
function IsValidInput(var S: string; SuppressFill: Boolean): Boolean;  virtual;
function Transfer(var S: String; Buffer: Pointer; Flag: TVTransfer): Word; virtual;
function Valid(const S: string): Boolean;
function At(I: Integer): PWindowsObject;
function ChildWithId(Id: Integer): PWindowsObject; virtual;
function FirstThat(Test: Pointer): PWindowsObject;
function IndexOf(P: PWindowsObject): Integer;
function IsFlagSet(Mask: Byte);
function Transfer(DataPtr: Pointer; TransferFlag: Word): Word; virtual;
function GetDialogInfo(var Pages: Integer): Boolean; virtual;
function ExtractIcon(Inst: THandle; ExeFileName: PChar; IconIndex: Word): HIcon;
function FindExecutable(FileName, Directory, Result: PChar): THandle;
function GetSystemDir(AppDir: PChar; Buffer: PChar; Size: Integer): Word;
function GetWindowsDir(AppDir: PChar; Buffer: PChar; Size: Integer): Word;
function VerLanguageName(Lang: Word; Lang: PChar; Size: Word): Word;
function VerQueryValue(Block: Pointer; SubBlock: PChar;	var Buffer: Pointer; var Len: Word): Bool;
function _lclose(FileHandle: Integer): Integer;
function _lcreat(PathName: PChar; Attribute: Integer): Integer;
function _lopen(PathName: PChar; ReadWrite: Integer): Integer;
function _lread(FileHandle: Integer; Buffer: PChar; Bytes: Integer): Word;
function _lwrite(FileHandle: Integer; Buffer: PChar; Bytes: Integer): Word;
function AccessResource(Instance, ResInfo: THandle): Integer;
function AddAtom(Str: PChar): TAtom;
function AllocDStoCSAlias(Selector: Word): Word;
function AllocSelector(Selector: Word): Word;
function AnsiToOem(AnsiStr, OemStr: PChar): Integer;
function Catch(var CatchBuf: TCatchBuf): Integer;
function CountVoiceNotes(Voice: Integer): Integer;
function DeleteAtom(AnAtom: TAtom): TAtom;
function FindAtom(Str: PChar): TAtom;
function FindResource(Instance: THandle; Name, ResType: PChar): THandle;
function FreeModule(Module: THandle): Bool;
function FreeResource(ResData: THandle): Bool;
function FreeSelector(Selector: Word): Word;
function GetAtomHandle(AnAtom: TAtom): THandle;
function GetAtomName(AnAtom: TAtom; Buffer: PChar; Size: Integer): Word;
function GetCodeHandle(Proc: TFarProc): THandle;
function GetDriveType(Drive: Integer): Word;
function GetFreeSpace(Flag: Word): LongInt;
function GetKeyboardType(TypeFlag: Integer): Integer;
function GetModuleFileName(Module: THandle; Filename: PChar; Size: Integer): Integer;
function GetModuleHandle(ModuleName: PChar): THandle;
function GetModuleUsage(Module: THandle): Integer;
function GetProcAddress(Module: THandle; ProcName: PChar): TFarProc;
function GetSelectorBase(Selector: Word): Longint;
function GetSelectorLimit(Selector: Word): Longint;
function GetSystemDirectory(Buffer: PChar; Size: Word): Word;
function GetTempDrive(DriveLetter: Char): Char;
function GetWinDebugInfo(DebugInfo: PWinDebugInfo; Flags: Word): Bool;
function GetWindowsDirectory(Buffer: PChar; Size: Word): Word;
function GlobalAlloc(Flags: Word; Bytes: LongInt): THandle;
function GlobalCompact(MinFree: LongInt): LongInt;
function GlobalDosAlloc(Bytes: LongInt): LongInt;
function GlobalDosFree(Selector: Word): Word;
function GlobalFlags(Mem: THandle): Word;
function GlobalFree(Mem: THandle): THandle;
function GlobalHandle(Mem: Word): LongInt;
function GlobalLock(Mem: THandle): Pointer;
function GlobalLRUNewest(Mem: THandle): THandle;
function GlobalLRUOldest(Mem: THandle): THandle;
function GlobalPageLock(Selector: THandle): Word;
function GlobalPageUnlock(Selector: THandle): Word;
function GlobalReAlloc(Mem: THandle; Bytes: LongInt; Flags: Word): THandle;
function GlobalSize(Mem: THandle): LongInt;
function GlobalUnfix(Mem: THandle): Bool;
function GlobalUnlock(Mem: THandle): Bool;
function GlobalUnWire(Mem: THandle): Bool;
function GlobalWire(Mem: THandle): Pointer;
function InitAtomTable(Size: Integer): Bool;
function IsBadCodePtr(lpfn: TFarProc): Bool;
function IsBadHugeReadPtr(lp: Pointer; cb: Longint): Bool;
function IsBadHugeWritePtr(lp: Pointer; cb: Longint): Bool;
function IsBadReadPtr(lp: Pointer; cb: Word): Bool;
function IsBadStringPtr(lpsz: PChar; cchMax: Word): Bool;
function IsBadWritePtr(lp: Pointer; cb: Word): Bool;
function IsDBCSLeadByte(Ch: Byte): Bool;
function IsTask(Task: THandle): Bool;
function LoadLibrary(LibFileName: PChar): THandle;
function LoadModule(ModuleName: PChar; ParameterBlock: Pointer): THandle;
function LoadResource(Instance: THandle; ResInfo: THandle): THandle;
function LocalAlloc(Flags, Bytes: Word): THandle;
function LocalCompact(MinFree: Word): Word;
function LocalFlags(Mem: THandle): Word;
function LocalFree(Mem: THandle): THandle;
function LocalHandle(Mem: Word): THandle;
function LocalInit(Segment, Start, EndPos: Word): Bool;
function LocalLock(Mem: THandle): Pointer;
function LocalReAlloc(Mem: THandle; Bytes, Flags: Word): THandle;
function LocalShrink(Seg: THandle; Size: Word): Word;
function LocalSize(Mem: THandle): Word;
function LocalUnlock(Mem: THandle): Bool;
function LockResource(ResData: THandle): Pointer;
function LockSegment(Segment: Word): THandle;
function lstrcat(Str1, Str2: PChar): PChar;
function lstrcpy(Str1, Str2: PChar): PChar;
function lstrcpyn(String1, String2: PChar; i: Integer): PChar;
function lstrlen(Str: PChar): Integer;
function MakeProcInstance(Proc: TFarProc; Instance: THandle): TFarProc;
function MapVirtualKey(Code, MapType: Word): Word;
function OemKeyScan(OemChar: Word): LongInt;
function OemToAnsi(OemStr, AnsiStr: PChar): Bool;
function PrestoChangoSelector(SourceSel, DestSel: Word): Word;
function SetErrorMode(Mode: Word): Word;
function SetHandleCount(Number: Word): Word;
function SetSelectorBase(Selector: Word; Base: Longint): Word;
function SetSelectorLimit(Selector: Word; Base: Longint): Word;
function SetSoundNoise(Source, Duration: Integer): Integer;
function SetSwapAreaSize(Size: Word): LongInt;
function SetVoiceAccent(Voice, Tempo, Volume, Mode, Pitch: Integer): Integer;
function SetVoiceEnvelope(Voice, Shape, RepeatCount: Integer): Integer;
function SetVoiceNote(Voice, Value, Length, Cdots: Integer): Integer;
function SetVoiceQueueSize(Voice, Bytes: Integer): Integer;
function SetVoiceThreshold(Voice, Notes: Integer): Integer;
function SetWinDebugInfo(DebugInfo: PWinDebugInfo): Bool;
function SizeofResource(Instance, ResInfo: THandle): LongInt;
function UnlockSegment(Segment: Word): THandle;
function VkKeyScan(Chr: Word): Word;
function WaitSoundState(State: Integer): Integer;
function WinExec(CmdLine: PChar; CmdShow: Word): Word;
function WriteProfileString(ApplicationName, KeyName, Str: PChar): Bool;
function wvsprintf(DestStr, Format: PChar; var ArgList): Integer;
function CopyLZFile(Source, Dest: Integer): Longint;
function GetExpandedName(Source, Buffer: PChar): Integer;
function LZCopy(Source, Dest: Integer): Longint;
function LZInit(Source: Integer): Integer;
function LZRead(LZFile: Integer; Buf: PChar; Count: Integer): Integer;
function LZSeek(LZFile: Integer; SeekTo: Longint; Mode: Integer): Longint;
function OleActivate(Self: POleObject; Verb: Word; Show, TakeFocus: Bool; hWnd: HWnd; Bounds: PRect): TOleStatus;
function OleBlockServer(Server: LHServer): TOleStatus;
function OleClone(OleObject: POleObject; Client: POleClient; ClientDoc:   LHClientDoc; ObjName: PChar; var OleObject: POleObject):      TOleStatus;
function OleClose(Self: POleObject): TOleStatus;
function OleCopyToClipboard(Self: POleObject): TOleStatus;
function OleCreateInvisible(Protocol: PChar; Client: POleClient; Class: PChar;ClientDoc: LHClientDoc; ObjName: PChar; var OleObject: POleObject; RenderOpt: TOleOPT_Render; Format: TOleClipFormat; Activate: Bool): TOleStatus;
function OleDelete(Self: POleObject): TOleStatus;
function OleEqual(Self: POleObject; OleObject: POleObject): TOleStatus;
function OleIsDcMeta(DC: HDC): Bool;
function OleLockServer(OleObject: POleObject; var Server: LHServer): TOleStatus;
function OleQueryBounds(Self: POleObject; var Bounds: TRect): TOleStatus;
function OleQueryCreateFromClip(Protocol: PChar; render_opt: TOleOPT_Render; Format: TOleClipFormat): TOleStatus;
function OleQueryLinkFromClip(Protocol: PChar; render_opt: TOleOPT_Render; Format: TOleClipFormat): TOleStatus;
function OleQueryOpen(Self: POleObject): TOleStatus;
function OleQueryOutOfDate(Self: POleObject): TOleStatus;
function OleQueryProtocol(Self: POleObject; Protocol: PChar): Pointer;
function OleQueryReleaseError(Self: POleObject): TOleStatus;
function OleQueryReleaseMethod(Self: POleObject): TOle_Release_Method;
function OleQueryReleaseStatus(Self: POleObject): TOleStatus;
function OleQuerySize(Self: POleObject; var Size: Longint): TOleStatus;
function OleQueryType(Self: POleObject; var LinkType: Longint): TOleStatus;
function OleReconnect(Self: POleObject): TOleStatus;
function OleRelease(Self: POleObject): TOleStatus;
function OleRename(Self: POleObject; NewName: PChar): TOleStatus;
function OleRenameServerDoc(Doc: LHServerDoc; NewName: PChar): TOleStatus;
function OleRevertClientDoc(ClientDoc: LHClientDoc): TOleStatus;
function OleRevertServerDoc(Doc: LHServerDoc): TOleStatus;
function OleRevokeClientDoc(ClientDoc: LHClientDoc): TOleStatus;
function OleRevokeServerDoc(Doc: LHServerDoc): TOleStatus;
function OleRevokeObject(Client: POleClient): TOleStatus;
function OleRevokeServer(Server: LHServer): TOleStatus;
function OleSavedClientDoc(ClientDoc: LHClientDoc): TOleStatus;
function OleSavedServerDoc(Doc: LHServerDoc): TOleStatus;
function OleSaveToStream(Self: POleObject; Stream: POleStream): TOleStatus;