gl_pascal.cs

UEStudioPortable.rar

function DialogBoxIndirectParam(Instance, DialogTemplate: THandle;  WndParent: HWnd; DialogFunc: TFarProc; InitParam: LongInt): Integer;
function DialogBoxParam(Instance: THandle; TemplateName: PChar;  WndParent: HWnd; DialogFunc: TFarProc; InitParam: LongInt): Integer;
function DispatchMessage(var Msg: TMsg): LongInt;
function DlgDirList(Dlg: HWnd; PathSpec: PChar; IDListBox,  IDStaticPath: Integer; Filetype: Word): Integer;
function DlgDirListComboBox(Dlg: HWnd; PathSpec: PChar; IDComboBox, IDStaticText: Integer; Filetype: Word): Integer;
function DlgDirSelect(Dlg: HWnd; Str: PChar; IDListBox: Integer): Bool;
function DlgDirSelectEx(Dlg: HWnd; Path: PChar; cbPath: Integer;  ListBox: Integer): Bool;
function DlgDirSelectComboBox(Dlg: HWnd; Str: PChar; IDComboBox: Integer): Bool;
function DrawIcon(DC: HDC; X, Y: Integer; Icon: HIcon): Bool;
function DrawText(DC: HDC; Str: PChar; Count: Integer; var Rect: TRect;  Format: Word): Integer;
function EnableCommNotification(A: Integer; B: HWnd; C, D: Integer): Bool;
function EnableHardwareInput(EnableInput: Bool): Bool;
function EnableMenuItem(Menu: HMenu; IDEnableItem: Word; Enable: Word): Bool;
function EnableScrollBar(A: HWnd; B: Integer; C: Word): Bool;
function EnableWindow(Wnd: HWnd; Enable: Bool): Bool;
function EnumChildWindows(WndParent: HWnd; EnumFunc: TFarProc; lParam: LongInt): Bool;
function EnumClipboardFormats(Format: Word): Word;
function EnumProps(Wnd: HWnd; EnumFunc: TFarProc): Integer;
function EnumTaskWindows(Task: THandle; EnumFunc: TFarProc; lParam: LongInt): Bool;
function EnumWindows(EnumFunc: TFarProc; lParam: LongInt): Bool;
function EqualRect(var Rect1, Rect2: TRect): Bool;
function EscapeCommFunction(Cid: Integer; Func: Integer): LongInt;
function ExcludeUpdateRgn(DC: HDC; Wnd: HWnd): Integer;
function ExitWindows(Reserved: LongInt; ReturnCode: Word): Bool;
function ExitWindowsExec(Exe: PChar; Params: PChar): Bool;
function FillRect(DC: HDC; var Rect: TRect; Brush: HBrush): Integer;
function FindWindow(Classname, WindowName: PChar): HWnd;
function FlashWindow(Wnd: HWnd; Invert: Bool): Bool;
function FlushComm(Cid, Queue: Integer): Integer;
function GetAsyncKeyState(Key: Integer): Integer;
function GetClassInfo(Instance: THandle; ClassInfo: PChar; var WndClass: TWndClass): Bool;
function GetClassLong(Wnd: HWnd; Index: Integer): LongInt;
function GetClassName(Wnd: HWnd; ClassName: PChar; MaxCount: Integer): Integer;
function GetClassWord(Wnd: HWnd; Index: Integer): Word;
function GetClipboardData(Format: Word): THandle;
function GetClipboardFormatName(Format: Word; FormatName: PChar; MaxCount: Integer): Integer;
function GetCommError(Cid: Integer; var Stat: TComStat): Integer;
function GetCommEventMask(Cid, EvtMask: Integer): Word;
function GetCommState(Cid: Integer; var DCB: TDCB): Integer;
function GetDC(Wnd: HWnd): HDC;
function GetDCEx(Wnd: HWnd; Clip: HRgn; Flags: Longint): HDC;
function GetDlgCtrlID(Wnd: HWnd): Integer;
function GetDlgItem(Dlg: HWnd; IDDlgItem: Integer): HWnd;
function GetDlgItemInt(Dlg: HWnd; IDDlgItem: Integer; Translate: PBool; Signed: Bool): Word;
function GetDlgItemText(Dlg: HWnd; IDDlgItem: Integer; Str: PChar;  MaxCount: Integer): Integer;
function GetDriverModuleHandle(Driver: THandle): THandle;
function GetDriverInfo(hDriver: THandle; lpdis: PDriverInfoStruct): Bool;
function GetFreeSystemResources(SysResource: Word): Word;
function GetKeyState(VirtKey: Integer): Integer;
function GetLastActivePopup(Owner: HWnd): HWnd;
function GetMenu(Wnd: HWnd): HMenu;
function GetMenuItemCount(Menu: HMenu): Word;
function GetMenuItemID(Menu: HMenu; Pos: Integer): Word;
function GetMenuState(Menu: HMenu; Id, Flags: Word): Word;
function GetMenuString(Menu: HMenu; IDItem: Word; Str: PChar; MaxCount: Integer; Flag: Word): Integer;
function GetMessage(var Msg: TMsg; Wnd: HWnd; MsgFilterMin, MsgFilterMax: Word): Bool;
function GetNextDlgGroupItem(Dlg, Ctl: HWnd; Previous: Bool): HWnd;
function GetNextDlgTabItem(Dlg, Ctl: HWnd; Previous: Bool): HWnd;
function GetNextDriver(Driver: THandle; lParam: Longint): THandle;
function GetNextWindow(Wnd: HWnd; Flag: Word): HWnd;
function GetParent(Wnd: HWnd): HWnd;
function GetPriorityClipboardFormat(var PriorityList; Count: Integer): Integer;
function GetProp(Wnd: HWnd; Str: PChar): THandle;
function GetQueueStatus(Flags: Word): Longint;
function GetScrollPos(Wnd: HWnd; Bar: Integer): Integer;
function GetSubMenu(Menu: HMenu; Pos: Integer): HMenu;
function GetSysColor(Index: Integer): TColorRef;
function GetSystemMenu(Wnd: HWnd; bRevert: Bool): HMenu;
function GetSystemMetrics(Index: Integer): Integer;
function GetTabbedTextExtent(DC: HDC; Str: PChar; Count: Integer;  TabPostions: Integer; var TabStopPostions): LongInt;
function GetTopWindow(Wnd: HWnd): HWnd;
function GetUpdateRect(Wnd: HWnd; var Rect: TRect; Erase: Bool): Bool;
function GetUpdateRgn(Wnd: HWnd; Rgn: HRgn; Erase: Bool): Integer;
function GetWindow(Wnd: HWnd; Cmd: Word): HWnd;
function GetWindowDC(Wnd: HWnd): HDC;
function GetWindowLong(Wnd: HWnd; Index: Integer): LongInt;
function GetWindowPlacement(Wnd: HWnd; Placement: PWindowPlacement): Bool;
function GetWindowTask(Wnd: HWnd): THandle;
function GetWindowText(Wnd: HWnd; Str: PChar; MaxCount: Integer): Integer;
function GetWindowTextLength(Wnd: HWnd): Integer;
function GetWindowWord(Wnd: HWnd; Index: Integer): Word;
function GlobalAddAtom(Str: PChar): TAtom;
function GlobalDeleteAtom(AnAtom: TAtom): TAtom;
function GlobalFindAtom(Str: PChar): TAtom;
function GlobalGetAtomName(AnAtom: TAtom; Buffer: PChar; Size: Integer): Word;
function GrayString(DC: HDC; Brush: HBrush; OutputFunc: TFarProc;   Data: LongInt; Count, X, Y, Width, Height: Integer): Bool;
function HiliteMenuItem(Wnd: HWnd; Menu: HMenu; IDHilite, Hilite: Word): Bool;
function InsertMenu(Menu: HMenu; Position, Flags, IDNewItem: Word; NewItem: PChar): Bool;
function IntersectRect(var DestRect, Src1Rect, Src2Rect: TRect): Integer;
function IsCharAlpha(Chr: Char): Bool;
function IsCharAlphaNumeric(Chr: Char): Bool;
function IsCharLower(Chr: Char): Bool;
function IsCharUpper(Chr: Char): Bool;
function IsChild(WndParent, Wnd: HWnd): Bool;
function IsClipboardFormatAvailable(Format: Word): Bool;
function IsDialogMessage(Dlg: HWnd; var Msg: TMsg): Bool;
function IsDlgButtonChecked(Wnd: HWnd; IDButton: Integer): Word;
function IsIconic(Wnd: HWnd): Bool;
function IsMenu(Menu: HMenu): Boolean;
function IsRectEmpty(var Rect: TRect): Bool;
function IsWindow(Wnd: HWnd): Bool;
function IsWindowEnabled(Wnd: HWnd): Bool;
function IsWindowVisible(Wnd: HWnd): Bool;
function IsZoomed(Wnd: HWnd): Bool;
function KillTimer(Wnd: HWnd; IDEvent: Integer): Bool;
function LoadAccelerators(Instance: THandle; TableName: PChar): THandle;
function LoadBitmap(Instance: THandle; BitmapName: PChar): HBitmap;
function LoadCursor(Instance: THandle; CursorName: PChar): HCursor;
function LoadIcon(Instance: THandle; IconName: PChar): HIcon;
function LoadMenu(Instance: THandle; MenuName: PChar): HMenu;
function LoadMenuIndirect(MenuTemplate: Pointer): HMenu;
function LoadString(Instance: THandle; ID: Word; Buffer: PChar;  BufferMax: Integer): Integer;
function LockInput(h1: THandle; hwndInput: HWnd; fLock: Bool): Bool;
function LockWindowUpdate(Wnd: HWnd): Bool;
function lstrcmp(Str1, Str2: PChar): Integer;
function lstrcmpi(Str1, Str2: PChar): Integer;
function MessageBox(WndParent: HWnd; Txt, Caption: PChar; TextType: Word): Integer;
function ModifyMenu(Menu: HMenu; Position, Flags, IDNewItem: Word;  NewItem: PChar): Bool;
function OpenClipboard(Wnd: HWnd): Bool;
function OpenComm(ComName: PChar; InQueue, OutQueue: Word): Integer;
function OpenDriver(DriverName, SectionName: PChar; lParam2: Longint): THandle;
function OpenIcon(Wnd: HWnd): Bool;
function PeekMessage(var Msg: TMsg; Wnd: HWnd; MsgFilterMin,  MsgFilterMax: Word; RemoveMsg: Word): Bool;
function PostAppMessage(Task: THandle; Msg, wParam: Word; lParam: LongInt): Bool;
function PostMessage(Wnd: HWnd; Msg, wParam: Word; lParam: LongInt): Bool;
function PtInRect(var Rect: TRect; Point: TPoint): Bool;
function QuerySendMessage(h1, h2, h3: THandle; lpmsg: PMsg): Bool;
function ReadComm(Cid: Integer; Buf: PChar; Size: Integer): Integer;
function RealizePalette(DC: HDC): Word;
function RedrawWindow(Wnd: HWnd; UpdateRect: PRect; UpdateRgn: HRgn;  Flags: Word): Bool;
function RegisterClass(var WndClass: TWndClass): Bool;
function RegisterClipboardFormat(FormatName: PChar): Word;
function RegisterWindowMessage(Str: PChar): Word;
function ReleaseDC(Wnd: HWnd; DC: HDC): Integer;
function RemoveMenu(Menu: HMenu; Position, Flags: Word): Bool;
function RemoveProp(Wnd: HWnd; Str: PChar): THandle;
function ScrollDC(DC: HDC; dx, dy: Integer; var Scroll, Clip: TRect;  UpdateRgn: HRgn; UpdateRect: PRect): Bool;
function ScrollWindowEx(Wnd: HWnd; dx, dy: Integer; Scroll, Clip: PRect; UpdateRgn: HRgn; UpdateRect: PRect; Flags: Word): Integer;
function SelectPalette(DC: HDC; Palette: HPalette; ForceBackground: Bool): HPalette;
function SendDlgItemMessage(Dlg: HWnd; IDDlgItem: Integer; Msg, wParam: Word; lParam: LongInt): LongInt;
function SendDriverMessage(Driver: THandle; message: Word; lParam1,  lParam2: Longint): Longint;
function SendMessage(Wnd: HWnd; Msg, wParam: Word; lParam: LongInt): LongInt;
function SetActiveWindow(Wnd: HWnd): HWnd;
function SetCapture(Wnd: HWnd): HWnd;
function SetClassLong(Wnd: HWnd; Index: Integer; NewLong: LongInt): LongInt;
function SetClassWord(Wnd: HWnd; Index: Integer; NewWord: Word): Word;
function SetClipboardData(Format: Word; Mem: THandle): THandle;
function SetClipboardViewer(Wnd: HWnd): HWnd;
function SetCommBreak(Cid: Integer): Integer;
function SetCommEventMask(Cid: Integer; EvtMask: Word): PWord;
function SetCommState(var DCB: TDCB): Integer;
function SetCursor(Cursor: HCursor): HCursor;
function SetFocus(Wnd: HWnd): HWnd;
function SetMenu(Wnd: HWnd; Menu: HMenu): Bool;
function SetMenuItemBitmaps(Menu: HMenu; Position, Flags: Word;  BitmapUnchecked, BitmapChecked: HBitmap): Bool;
function SetMessageQueue(Msg: Integer): Bool;
function SetParent(WndChild: HWnd; WndNewParent: HWnd): HWnd;
function SetProp(Wnd: HWnd; Str: PChar; Data: THandle): Bool;
function SetScrollPos(Wnd: HWnd; Bar, Pos: Integer; Redraw: Bool): Integer;
function SetSysModalWindow(Wnd: HWnd): HWnd;
function SetTimer(Wnd: HWnd; IDEvent: Integer; Elapse: Word; TimerFunc: TFarProc): Word;
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: LongInt): LongInt;
function SetWindowPlacement(Wnd: HWnd; Placement: PWindowPlacement): Bool;
function SetWindowsHook(FilterType: Integer; FilterFunc: TFarProc): TFarProc;
function SetWindowsHookEx(HookId: Integer; Hook: THookProc; Module, Task: THandle): HHook;
function SetWindowWord(Wnd: HWnd; Index: Integer; NewWord: Word): Word;
function ShowCursor(Show: Bool): Integer;
function ShowWindow(Wnd: HWnd; CmdShow: Integer): Bool;
function SubtractRect(var A, B, C: TRect): Bool;
function SwapMouseButton(Swap: Bool): Bool;
function SystemParametersInfo(A, B: Word; C: Pointer; D: Word): Bool;
function TabbedTextOut(HC: HDC; X, Y: Integer; Str: PChar; Count: Integer; TabPositions: Integer; var TabStopPositions; TabOrigin: Integer): LongInt;
function TrackPopupMenu(Menu: HMenu; Flags: Word; x, y, Reserved: Integer; Wnd: HWnd; Reserved: Pointer): Bool;
function TranslateAccelerator(Wnd: HWnd; AccTable: THandle; var Msg: TMsg): Integer;
function TranslateMDISysAccel(Wnd: HWnd; var Msg: TMsg): Bool;
function TranslateMessage(var Msg: TMsg): Bool;
function TransmitCommChar(Cid: Integer; Chr: Char): Integer;
function UngetCommChar(Cid: Integer; Chr: Char): Integer;
function UnhookWindowsHook(Hook: Integer; HookFunc: TFarProc): Bool;
function UnhookWindowsHookEx(Hook: HHook): Bool;
function UnionRect(var DestRect, Src1Rect, Src2Rect: TRect): Integer;
function UnregisterClass(ClassName: PChar; Instance: THandle): Bool;
function WindowFromPoint(Point: TPoint): HWnd;
function WinHelp(Wnd: HWnd; HelpFile: PChar; Command: Word; Data: LongInt): Bool;
function WNetAddConnection(lpszNetPath, lpszPassword, lpszLocalName: PChar): Word;
function WNetCancelConnection(lpszName: PChar; tForce: Bool): Word;
function WNetGetConnection(lpszLocalName, lpszRemoteName: PChar;  cbBufferSize: PWord): Word;
function WriteComm(Cid: Integer; Buf: PChar; Size: Integer): Integer;
function GetBValue(RGB: LongInt): Byte;
function GetGValue(RGB: LongInt): Byte;
function GetRValue(RGB: LongInt): Byte;
function GlobalDiscard(Mem: THandle): THandle;
function HiByte(A: Word): Byte;
function HiWord(A: LongInt): Word;
function LoByte(A: Word): Byte;
function LocalDiscard(Mem: THandle): THandle;
function LockData(Dummy: Integer): THandle;
function LoWord(A: LongInt): Word;
function MakeLong(A, B: Word): LongInt;
function MakeLP(Sel, Off: Word): Pointer;
function OffsetOf(lp: Pointer): Word;
function PaletteIndex(PaletteIndex: Integer): TColorRef;
function PaletteRGB(R: Byte; G: Byte; B: Byte): LongInt;
function RGB(R: Byte; G: Byte; B: Byte): LongInt;
function SelectorOf(lp: Pointer): THandle;
function UnlockData(Dummy: Integer): THandle;
function UnlockResource(ResData: THandle): Bool;
function TFM_Ext_Proc(Handle: HWnd; Msg: Word; lParam: Longint): Longint;
function TFM_UnDelete_Proc(Parent: HWnd; Dir: PChar): Longint;
function DdeAccessData(Data: HDDEData; DataSize: PLongint): Pointer;
function DdeCmpStringHandles(hsz1, hsz2: HSZ): Integer;
function DdeDisconnect(Conv: HConv): Bool;
function DdeDisconnectList(ConvList: HConvList): Bool;
function DdeEnableCallback(Inst: Longint; Conv: HConv; Cmd: Word): Bool;
function DdeFreeDataHandle(Data: HDDEData): Bool;
function DdeFreeStringHandle(Inst: Longint; HSZ: HSZ): Bool;
function DdeGetLastError(Inst: Longint): Word;
function DdeInitialize(var Inst: Longint; Callback: TCallback; Cmd, Res: Longint): Word;
function DdeKeepStringHandle(Inst: Longint; HSZ: HSZ): Bool;
function DdePostAdvise(Inst: Longint; Topic, Item: HSZ): Bool;
function DdeQueryNextServer(ConvList: HConvList; ConvPrev: HConv): HConv;
function DdeReconnect(Conv: HConv): HConv;
function DdeSetUserHandle(Conv: HConv; ID, User: Longint): Bool;
function DdeUnaccessData(Data: HDDEData): Bool;
function DdeUninitialize(Inst: Longint): Bool;
function GlobalAllocPtr(Flags: Word; Bytes: Longint): Pointer;
function GlobalFreePtr(P: Pointer): THandle;
function GlobalPtrHandle(P: Pointer): THandle;
function GlobalReAllocPtr(P: Pointer; Bytes: Longint; Flags: Word): Pointer;
function SetPrnFont(var F: Text; Font: HFont): HFont;

/*procedure */
procedure Name();
procedure SetMode(Mode: Word);
procedure Flip(N: Integer);
procedure Flop(N: Integer);
procedure Flip();
procedure FillWord(var Dest; Count: Word; Data: Word);
procedure IntProc(Flags, CS, IP, AX, BX, CX, DX, SI, DI, DS, ES, BP: Word);
procedure Method(Param1, Param2: Integer);
procedure MethodName (<parameter list>);
procedure Name();
procedure Method(<parameter list>);
procedure Method(param1, Param2: Integer);
procedure Append(var f: Text);
procedure Arc(X,Y; Integer; StAngle, EndAngle, Radius; Word);
procedure Assign(var f; String);
procedure AssignCrt(var f: Text);
procedure Bar(x1, y1, x2, y2: Integer);
procedure Bar3D(x1, y1, x2, y2: Integer; Depth: Word; Top: Boolean);
procedure BlockRead(var F: File; var Buf; Count: Word [; var Result: Word]);
procedure BlockWrite(var f: File; var Buf; Count: Word [; var Result: Word]);
procedure ChDir(S: String);
procedure Circle(X,Y: Integer; Radius: Word);
procedure ClearDevice();
procedure ClearViewPort();
procedure Close(var F);
procedure CloseGraph();
procedure ClrEol();
procedure ClrScr();
procedure CursorTo(X, Y: Integer);
procedure Dec(var X[ ; N: Longint]);
procedure Delete(var S: String; Index: Integer; Count:Integer);
procedure DetectGraph(var GraphDriver, GraphMode: Integer);
procedure Dispose(var P: Pointer [ , Destructor ]);
procedure DoneWinCrt();
procedure DrawPoly(NumPoints: Word; var PolyPoints);
procedure Ellipse(X, Y: Integer; StAngle, EndAngle: Word; XRadius, YRadius: Word);
procedure Erase(var F);
procedure Exclude(var S: set of T;I:T);
procedure Exit();
procedure Fail();
procedure FillChar(var X; Count: Word; value);
procedure FillEllipse(X, Y: Integer;
procedure FillPoly(NumPoints: Word; var PolyPoints);
procedure FindFirst(Path: PChar; Attr: Word; var F: TSearchRec);