gl_pascal.cs

UEStudioPortable.rar

function OleSetBounds(Self: POleObject; var Bounds: TRect): TOleStatus;
function OleUnblockServer(Server: LHServer; var Reqests: Bool): TOleStatus;
function OleUnlockServer(Sever: LHServer): TOleStatus;
function OleUpdate(Self: POleObject): TOleStatus;
function AbortDoc(DC: HDC): Integer;
function AddFontResource(Filename: PChar): Integer;
function Arc(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): Bool;
function Chord(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): Bool;
function CloseMetaFile(DC: THandle): THandle;
function CopyMetaFile(SrcMetaFile: THandle; FileName: PChar): THandle;
function CreateBitmap(Width, Height: Integer; Planes, BitCount: Byte;  Bits: Pointer): HBitmap;
function CreateBitmapIndirect(var Bitmap: TBitmap): HBitmap;
function CreateBrushIndirect(var LogBrush: TLogBrush): HBrush;
function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBitmap;
function CreateCompatibleDC(DC: HDC): HDC;
function CreateDC(DriverName, DeviceName, OutPut: PChar; InitData: Pointer): HDC;
function CreateDIBitmap(DC: HDC; var InfoHeader: TBitmapInfoHeader; dwUsage: LongInt; InitBits: PChar; var InitInfo: TBitmapInfo; wUsage: Word): HBitmap;
function CreateDIBPatternBrush(PackedDIB: THandle; Usage: Word): HBrush;
function CreateDiscardableBitmap(DC: HDC; Width, Height: Integer): HBitmap;
function CreateEllipticRgn(X1, Y1, X2, Y2: Integer): HRgn;
function CreateEllipticRgnIndirect(var Rect: TRect): HRgn;
function CreateFontIndirect(var LogFont: TLogFont): HFont;
function CreateHatchBrush(Index: Integer; Color: TColorRef): HBrush;
function CreateIC(DriverName, DeviceName, Output: PChar; InitData: Pointer): HDC;
function CreateMetaFile(Filename: PChar): THandle;
function CreatePalette(var LogPalette: TLogPalette): HPalette;
function CreatePatternBrush(Bitmap: HBitmap): HBrush;
function CreatePen(PenStyle, Width: Integer; Color: TColorRef): HPen;
function CreatePenIndirect(var LogPen: TLogPen): HPen;
function CreatePolygonRgn(var Points; Count, PolyFillMode: Integer): HRgn;
function CreatePolyPolygonRgn(var Points; var PolyCounts; Count, PolyFillMode: Integer): HRgn;
function CreateRectRgn(X1, Y1, X2, Y2: Integer): HRgn;
function CreateRectRgnIndirect(var Rect: TRect): HRgn;
function CreateRoundRectRgn(X1, Y1, X2, Y2, X3, Y3: Integer): HRgn;
function CreateScalableFontResource(A: HDC; B, C, D: PChar): Bool;
function CreateSolidBrush(Color: TColorRef): HBrush;
function DeleteDC(DC: HDC): Bool;
function DeleteMetaFile(MF: THandle): Bool;
function DeleteObject(Handle: THandle): Bool;
function DPtoLP(DC: HDC; var Points; Count: Integer): Bool;
function Ellipse(DC: HDC; X1, Y1, X2, Y2: Integer): Bool;
function EndDoc(DC: HDC): Integer;
function EndPage(DC: HDC): Integer;
function EnumFonts(DC: HDC; Facename: PChar; FontFunc: TFarProc; Data: Pointer): Integer;
function EnumMetaFile(DC: HDC; MF: THandle; CallbackFunc: TFarProc; ClientData: Pointer): Bool;
function EnumObjects(DC: HDC; ObjectType: Integer; ObjectFunc: TFarProc; Data: Pointer): Integer;
function EqualRgn(SrcRgn1, SrcRgn2: HRgn): Bool;
function Escape(DC: HDC; Escape, Count: Integer; InData, OutData: Pointer): Integer;
function ExcludeClipRect(DC: HDC; X1, Y1, X2, Y2: Integer): Integer;
function ExtFloodFill(DC: HDC; X, Y: Integer; Color: TColorRef; FillType: Word): Bool;
function ExtTextOut(DC: HDC; X, Y: Integer; Options: Word; Rect: PRect; Str: PChar; Count: Word; Dx: PInteger): Bool;
function FillRgn(DC: HDC; Rgn: HRgn; Brush: HBrush): Bool;
function FloodFill(DC: HDC; X, Y: Integer; Color: TColorRef): Bool;
function FrameRgn(DC: HDC; Rgn: HRgn; Brush: HBrush; Width, Height: Integer): Bool;
function GetAspectRatioFilter(DC: HDC): LongInt;
function GetAspectRatioFilterEx(DC: HDC; Size: PSize): Bool;
function GetBitmapBits(Bitmap: HBitmap; Count: LongInt; Bits: Pointer): LongInt;
function GetBitmapDimension(Bitmap: HBitmap): LongInt;
function GetBitmapDimensionEx(BM: HBitmap; Size: PSize): Bool;
function GetBkColor(DC: HDC): LongInt;
function GetBkMode(DC: HDC): Integer;
function GetBoundsRect(DC: HDC; var Bounds: TRect; Flags: Word): Word;
function GetBrushOrg(DC: HDC): LongInt;
function GetBrushOrgEx(DC: HDC; Point: PPoint): Bool;
function GetCharABCWidths(A: HDC; B, C: Word; var D: TABC): Bool;
function GetCharWidth(DC: HDC; FirstChar, LastChar: Word; var Buffer): Bool;
function GetClipBox(DC: HDC; var Rect: TRect): Integer;
function GetCurrentPosition(DC: HDC): LongInt;
function GetCurrentPositionEx(DC: HDC; Point: PPoint): Bool;
function GetDCOrg(DC: HDC): LongInt;
function GetDeviceCaps(DC: HDC; Index: Integer): Integer;
function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: Word; Bits: Pointer; var BitInfo: TBitmapInfo; Usage: Word): Integer;
function GetFontData(A: HDC; B, C: Longint; D: PChar; E: Longint): Longint;
function GetGlyphOutline(A: HDC; B, C: Word; var D: TGlyphMetrics; E: Longint; f: PChar; var g: TMat2): Longint;
function GetKerningPairs(DC: HDC; i: Integer; Pair: PKerningPair): Integer;
function GetMapMode(DC: HDC): Integer;
function GetMetaFile(Filename: PChar): THandle;
function GetMetaFileBits(MF: THandle): THandle;
function GetNearestColor(DC: HDC; Color: TColorRef): TColorRef;
function GetNearestPaletteIndex(Palette: HPalette; Color: TColorRef): Word;
function GetObject(hObject: THandle; Count: Integer; lpObject: Pointer): Integer;
function GetOutlineTextMetrics(A: HDC; B: Word; var C: TOutlineTextMetric): Word;
function GetPaletteEntries(Palette: HPalette; StartIndex, NumEntries: Word; var PaletteEntries): Word;
function GetPixel(DC: HDC; X, Y: Integer): TColorRef;
function GetPolyFillMode(DC: HDC): Integer;
function GetRasterizerCaps(var A: TRasterizer_Status; B: Integer): Bool;
function GetRgnBox(Rgn: HRgn; var Rect: TRect): Integer;
function GetROP2(DC: HDC): Integer;
function GetStockObject(Index: Integer): THandle;
function GetStretchBltMode(DC: HDC): Integer;
function GetSystemPaletteEntries(DC: HDC; StartIndex, NumEntries: Word; var PaletteEntries): Word;
function GetSystemPaletteUse(DC: HDC): Word;
function GetTextCharacterExtra(DC: HDC): Integer;
function GetTextAlign(DC: HDC): Word;
function GetTextColor(DC: HDC): TColorRef;
function GetTextExtent(DC: HDC; Str: PChar; Count: Integer): LongInt;
function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: Integer): Boolean;
function GetTextFace(DC: HDC; Count: Integer; Facename: PChar): Integer;
function GetTextMetrics(DC: HDC; var Metrics: TTextMetric): Bool;
function GetViewportExt(DC: HDC): LongInt;
function GetViewportExtEx(DC: HDC; Size: PSize): Bool;
function GetViewportOrg(DC: HDC): LongInt;
function GetViewportOrgEx(DC: HDC; Point: PPoint): Bool;
function GetWindowExt(DC: HDC): LongInt;
function GetWindowExtEx(DC: HDC; Size: PSize): Bool;
function GetWindowOrg(DC: HDC): LongInt;
function GetWindowOrgEx(DC: HDC; Point: PPoint): Bool;
function IntersectClipRect(DC: HDC; X1, Y1, X2, Y2: Integer): Integer;
function InvertRgn(DC: HDC; Rgn: HRgn): Bool;
function IsGDIObject(Obj: THandle): Bool;
function LineTo(DC: HDC; X, Y: Integer): Bool;
function LPtoDP(DC: HDC; var Points; Count: Integer): Bool;
function MoveTo(DC: HDC; X, Y: Integer): LongInt;
function MoveToEx(DC: HDC; nX, nY: Integer; Point: PPoint): Bool;
function OffsetClipRgn(DC: HDC; X, Y: Integer): Integer;
function OffsetRgn(Rgn: HRgn; X, Y: Integer): Integer;
function OffsetViewportOrg(DC: HDC; X, Y: Integer): LongInt;
function OffsetViewportOrgEx(DC: HDC; nX, nY: Integer; Point: PPoint): Bool;
function OffsetWindowOrg(DC: HDC; X, Y: Integer): LongInt;
function OffsetWindowOrgEx(DC: HDC; nX, nY: Integer; Point: PPoint): Bool;
function PaintRgn(DC: HDC; Rgn: HRgn): Bool;
function PatBlt(DC: HDC; X, Y, Width, Height: Integer; Rop: LongInt): Bool;
function Pie(DC: HDC; X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer): Bool;
function PlayMetaFile(DC: HDC; MF: THandle): Bool;
function Polygon(DC: HDC; var Points; Count: Integer): Bool;
function Polyline(DC: HDC; var Points; Count: Integer): Bool;
function PolyPolygon(DC: HDC; var Points; var PolyCounts; Count: Integer): Bool;
function PtInRegion(Rgn: HRgn; X, Y: Integer): Bool;
function PtVisible(DC: HDC; X, Y: Integer): Bool;
function QueryAbort(DC: HDC; Reserved: Integer): Bool;
function Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Bool;
function RectInRegion(Rgn: HRgn; var Rect: TRect): Bool;
function RectVisible(DC: HDC; var Rect: TRect): Bool;
function RemoveFontResource(Filename: PChar): Bool;
function ResetDC(aHdc: HDC; DevMode: PDevMode): HDC;
function ResizePalette(Palette: HPalette; NumEntries: Word): Bool;
function RestoreDC(DC: HDC; SavedDC: Integer): Bool;
function RoundRect(DC: HDC; X1, Y1, X2, Y2, X3, Y3: Integer): Bool;
function SaveDC(DC: HDC): Integer;
function ScaleViewportExt(DC: HDC; Xnum, Xdenom, Ynum, Ydenom: Integer): LongInt;
function ScaleViewportExtEx(DC: HDC; Xnum, Xdenom, Ynum, Ydenom: Integer; Size: PSize): Bool;
function ScaleWindowExt(DC: HDC; Xnum, Xdenom, Ynum, Ydenom: Integer): LongInt;
function ScaleWindowExtEx(DC: HDC; Xnum, Xdenom, Ynum, Ydenom: Integer; Size: PSize): Bool;
function SelectClipRgn(DC: HDC; Rgn: HRgn): Integer;
function SelectObject(DC: HDC; hObject: THandle): THandle;
function SetAbortProc(DC: HDC; AbortProc: TAbortProc): Integer;
function SetBitmapBits(Bitmap: HBitmap; Count: LongInt; Bits: Pointer): LongInt;
function SetBitmapDimension(Bitmap: HBitmap; X, Y: Integer): LongInt;
function SetBitmapDimensionEx(BM: HBitmap; nX, nY: Integer; Size: PSize): Bool;
function SetBkColor(DC: HDC; Color: TColorRef): TColorRef;
function SetBkMode(DC: HDC; BkMode: Integer): Integer;
function SetBoundsRect(DC: HDC; var Bounds: TRect; Flags: Word): Word;
function SetBrushOrg(DC: HDC; X, Y: Integer): LongInt;
function SetDIBits(DC: HDC; Bitmap: THandle; StartScan, NumScans: Word; Bits: Pointer; var BitsInfo: TBitmapInfo; Usage: Word): Integer;
function SetDIBitsToDevice(DC: HDC; DestX, DestY, Width, Height, SrcX, SrcY, nStartScan, NumScans: Word; Bits: Pointer; var BitsInfo: TBitmapInfo; Usage: Word): Integer;
function SetMapMode(DC: HDC; MapMode: Integer): Integer;
function SetMapperFlags(DC: HDC; Flag: LongInt): LongInt;
function SetMetaFileBits(Mem: THandle): THandle;
function SetMetaFileBitsBetter(MF: THandle): THandle;
function SetPaletteEntries(Palette: HPalette; StartIndex, NumEntries: Word; var PaletteEntries): Word;
function SetPixel(DC: HDC; X, Y: Integer; Color: TColorRef): LongInt;
function SetPolyFillMode(DC: HDC; PolyFillMode: Integer): Integer;
function SetROP2(DC: HDC; DrawMode: Integer): Integer;
function SetStretchBltMode(DC: HDC; StretchMode: Integer): Integer;
function SetSystemPaletteUse(DC: HDC; Usage: Word): Word;
function SetTextAlign(DC: HDC; Flags: Word): Word;
function SetTextCharacterExtra(DC: HDC; CharExtra: Integer): Integer;
function SetTextColor(DC: HDC; Color: TColorRef): TColorRef;
function SetTextJustification(DC: HDC; BreakExtra, BreakCount: Integer): Integer;
function SetViewportExt(DC: HDC; X, Y: Integer): LongInt;
function SetViewportExtEx(DC: HDC; nX, nY: Integer; Size: PSize): Bool;
function SetViewportOrg(DC: HDC; X, Y: Integer): LongInt;
function SetViewportOrgEx(DC: HDC; nX, nY: Integer; Point: PPoint): Bool;
function SetWindowExt(DC: HDC; X, Y: Integer): LongInt;
function SetWindowExtEx(DC: HDC; nX, nY: Integer; Size: PSize): Bool;
function SetWindowOrg(DC: HDC; X, Y: Integer): LongInt;
function SetWindowOrgEx(DC: HDC; nX, nY: Integer; Point: PPoint): Bool;
function SpoolFile(Printer, Port, Job, F: PChar): THandle;
function StartDoc(DC: HDC; var di: TDocInfo): Integer;
function StartPage(DC: HDC): Integer;
function StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Rop: LongInt): Bool;
function StretchDIBits(DC: HDC; DestX, DestY, DestWidth, DestHeight, SrcX, SrcY, SrcWidth, SrcHeight: Word; Bits: Pointer; var BitsInfo: TBitmapInfo;Usage: Word; Rop: LongInt): Integer;
function TextOut(DC: HDC; X, Y: Integer; Str: PChar; Count: Integer): Bool;
function UnrealizeObject(hObject: HBrush): Bool;
function UpdateColors(DC: HDC): Integer;
function ClassFirst(lpClass: PClassEntry): Bool;
function ClassNext(lpClass: PClassEntry): Bool;
function GlobalEntryHandle(lpGlobal: PGlobalEntry; hItem: THandle): Bool;
function GlobalEntryModule(lpGlobal: PGlobalEntry; hModule: THandle; wSeg: Word): Bool;
function GlobalFirst(lpGlobal: PGlobalEntry; wFlags: Word): Bool;
function GlobalHandleToSel(hMem: THandle): Word;
function GlobalInfo(lpGlobalInfo: PGlobalInfo): Bool;
function GlobalNext(lpGlobal: PGlobalEntry; wFlags: Word): Bool;
function InterruptRegister(hTask: THandle; lpfnIntCallBack: TIntCallBack): Bool;
function InterruptUnRegister(hTask: THandle): Bool;
function LocalFirst(lpLocal: PLocalEntry; hHeap: THandle): Bool;
function LocalInfo(lpLocal: PLocalInfo; hHeap: THandle): Bool;
function LocalNext(lpLocal: PLocalEntry): Boolean;
function MemManInfo(lpEnhMode: PMemManInfo): Bool;
function ModuleFindHandle(lpModule: PModuleEntry; hModule: THandle): THandle;
function ModuleFindName(lpModule: PModuleEntry; lpstrName: PChar): THandle;
function ModuleFirst(lpModule: PModuleEntry): Bool;
function ModuleNext(lpModule: PModuleEntry): Bool;
function NotifyRegister(hTask: THandle; lpfn: TNotifyCallBack; wFlags:Word): Bool;
function NotifyUnRegister(hTask: THandle): Bool;
function StackTraceFirst(lpStackTrace: PStackTraceEntry; hTask: THandle): Bool;
function StackTraceNext(lpStackTrace: PStackTraceEntry): Bool;
function SystemHeapInfo(lpSysHeap: PSysHeapInfo): Bool;
function TaskFindHandle(lpTask: PTaskEntry; hTask: THandle): Bool;
function TaskFirst(lpTask: PTaskEntry): Bool;
function TaskGetCSIP(hTask: THandle): Longint;
function TaskNext(lpTask: PTaskEntry): Bool;
function TaskSetCSIP(hTask: THandle; wCS, wIP: Word): Longint;
function TaskSwitch(hTask: THandle; dwNewCSIP: Longint): Bool;
function TimerCount(lpTimer: PTimerInfo): Bool;
function Global32CodeAliasFree(wSelector, wAlias, wFlags: Word): Word;
function Global32Free(wSelector, wFlags: Word): Word;
function ChooseColor(var CC: TChooseColor): Bool;
function ChooseFont(var ChooseFont: TChooseFont): Bool;
function FindText(var FindReplace: TFindReplace): HWnd;
function GetFileTitle(FileName, Title: PChar; TitleSize: Word): Integer;
function GetOpenFileName(var OpenFile: TOpenFilename): Bool;
function GetSaveFileName(var OpenFile: TOpenFilename): Bool;
function PrintDlg(var PrintDlg: TPrintDlg): Bool;
function ReplaceText(var FindReplace: TFindReplace): HWnd;
function AllocDiskSpace(lLeft:Longint, wDrive: Word): Integer;
function AllocFileHandles(Left: Integer): Integer;
function AllocGDIMem(wLeft: Word): Bool;
function AllocMem(dwLeft: Longint): Bool;
function AllocUserMem(wContig :Word): Bool;
function RegCloseKey(Key: HKey): Longint;
function RegCreateKey(Key: HKey; SubKey: PChar; var Result: HKey): Longint;
function RegDeleteKey(Key: HKey; SubKey: PChar): Longint;
function RegOpenKey(Key: HKey; SubKey: PChar; var Result: HKey): Longint;
function DragQueryPoint(Drop: THandle; var Pt: TPoint): Bool;
function AnsiLower(Str: PChar): PChar;
function AnsiLowerBuff(Str: PChar; Length: Word): Word;
function AnsiNext(CurrentChar: PChar): PChar;
function AnsiPrev(Start, CurrentChar: PChar): PChar;
function AnsiUpper(Str: PChar): PChar;
function AnsiUpperBuff(Str: PChar; Length: Word): Word;
function AppendMenu(Menu: HMenu; Flags, IDNewItem: Word; NewItem: PChar): Bool;
function ArrangeIconicWindows(Wnd: HWnd): Word;
function BeginDeferWindowPos(NumWindows: Integer): THandle;
function BeginPaint(Wnd: HWnd; var Paint: TPaintStruct): HDC;
function BuildCommDCB(Def: PChar; var DCB: TDCB): Integer;
function CallMsgFilter(var Msg: TMsg; Code: Integer): Bool;
function CallNextHookEx(Hook: HHook; Code: Integer; wParam: Word; lParam: Longint): Longint;
function CallWindowProc(PrevWndFunc: TFarProc; Wnd: HWnd; Msg, wParam: Word; lParam: LongInt): LongInt;
function ChangeClipboardChain(Wnd, WndNext: HWnd): Bool;
function CheckMenuItem(Menu: HMenu; IDCheckItem, Check: Word): Bool;
function ChildWindowFromPoint(Wnd: HWnd; Point: TPoint): HWnd;
function ClearCommBreak(Cid: Integer): Integer;
function CloseComm(Cid: Integer): Integer;
function CloseDriver(Driver: THandle; lParam1, lParam2: Longint): Longint;
function CopyCursor(hInst: THandle; hCur: HCursor): HCursor;
function CopyIcon(hInst: THandle; Icon: HIcon): HIcon;
function CreateDialog(Instance: THandle; TemplateName: PChar; WndParent: HWnd; DialogFunc: TFarProc): HWnd;
function CreateDialogIndirect(Instance: THandle; DialogTemplate: Pointer; WndParent: HWnd; DialogFunc: TFarProc): HWnd;
function CreateDialogIndirectParam(Instance: THandle;DialogTemplate: Pointer; WndParent: HWnd; DialogFunc: TFarProc; InitParam: LongInt): HWnd;
function CreateDialogParam(Instance: THandle; TemplateName: PChar; WndParent: HWnd; DialogFunc: TFarProc; InitParam: LongInt): HWnd;
function CreateIcon(Instance: THandle; Width, Height: Integer; Planes, BitsPixel: Byte; ANDbits, XORbits: Pointer): HIcon;
function CreateWindow(ClassName, WindowName: PChar; Style: LongInt; X, Y, Width, Height: Integer; WndParent: HWnd; Menu: HMenu; Instance: THandle; Param: Pointer): HWnd;
function CreateWindowEx(ExStyle: LongInt; ClassName, WindowName: PChar; Style: LongInt; X, Y, Width, Height: Integer; WndParent: HWnd; Menu: HMenu; Instance: THandle; Param: Pointer): HWnd;
function DefDlgProc(Dlg: HWnd; Msg, wParam: Word; lParam: LongInt): LongInt;
function DefDriverProc(DriverIdentifier: Longint; DriverId: THandle; Message: Word; lParam1, lParam2: Longint): Longint;
function DefFrameProc(Wnd, WndMDIClient: HWnd; Msg, wParam: Word; lParam: LongInt): LongInt;
function DefHookProc(Code: Integer; wParam: Word; lParam: LongInt;  lpfnNextHook: TFarProc): LongInt;
function DefMDIChildProc(Wnd: HWnd; Msg, wParam: Word; lParam: LongInt): LongInt;
function DefWindowProc(Wnd: HWnd; Msg, wParam: Word;lParam: LongInt): LongInt;
function DeleteMenu(Menu: HMenu; Position, Flags: Word): Bool;
function DestroyCursor(Cursor: HCursor): Bool;
function DestroyIcon(Icon: HIcon): Bool;
function DestroyMenu(Menu: HMenu): Bool;
function DestroyWindow(Wnd: HWnd): Bool;
function DialogBox(Instance: THandle; Templatename: PChar; WndParent: HWnd; DialogFunc: TFarProc): Integer;