gl_pascal.cs

UEStudioPortable.rar

procedure FindNext(var F: TSearchRec);
procedure FloodFill(X, Y: Integer; Border: Word);
procedure Flush(var F: Text);
procedure FreeMem(var P: Pointer; Size: Word);
procedure FSplit(Path: PathStr; var Dir: DirStr; var Name: NameStr;
procedure GetArcCoords(var ArcCoords: _ArcCoordsType_);
procedure GetAspectRatio(var Xasp, Yasp: Word);
procedure GetCBreak(var Break: Boolean);
procedure GetDate(var Year, Month, Day, DayOfWeek: Word);
procedure GetDir(D: Byte; var S: String);
procedure GetFAttr(var F; var Attr: Word);
procedure GetFillPattern(var FillPattern: FillPatternType);
procedure GetFillSettings(var FillInfo: FillSettingsType);
procedure GetFTime(var F; var Time: Longint);
procedure GetImage(x1, y1, x2, y2: Integer; var BitMap);
procedure GetIntVec(IntNo: Byte; var Vector: Pointer);
procedure GetLineSettings(var LineInfo: LineSettingsType);
procedure GetMem(var P: Pointer; Size: Word);
procedure GetModeRange(GraphDriver:Integer; var LoMode, HiMode:Integer);
procedure GetPalette(var Palette: PaletteType);
procedure GetTextSettings(var TextInfo: TextSettingsType);
procedure GetTime(var Hour, Minute, Second, Sec100: Word);
procedure GetVerify(var Verify: Boolean);
procedure GetViewSettings(var ViewPort: ViewPortType);
procedure GotoXY(X, Y: Byte);
procedure GraphDefaults();
procedure Halt(Exitcode: Word);
procedure HighVideo;
procedure Inc(var X [ ; N: Longint ]);
procedure Include(var S: set of T; I:T);
procedure InitGraph(var GraphDriver:Integer; var GraphMode: Integer;
procedure InitWinCrt();
procedure Insert(Source: String; var S: String; Index: Integer);
procedure InsLine();
procedure Intr(IntNo: Byte; var Regs: TRegisters);
procedure Keep(ExitCode: Word);
procedure Abstract();
procedure DoneMemory();
procedure FreeMultiSel(P: PMultiSelRec);
procedure InitMemory();
procedure RegisterODialogs();
procedure RegisterOStdWnds();
procedure RegisterOWindows();
procedure RegisterType(var S: TStreamRec);
procedure RegisterValidate();
procedure RestoreMemory();
procedure Line(x1, y1, x2, y2: Integer);
procedure LineRel(Dx, Dy: Integer);
procedure LineTo(X, Y: Integer);
procedure LowVideo();
procedure Mark(var p: pointer);
procedure MkDir(S: String);
procedure Move(var Source, Dest; Count: Word);
procedure MoveRel(Dx, Dy: Integer);
procedure MoveTo(X, Y: Integer);
procedure MsDos(var Regs: TRegisters);
procedure New(var P: Pointer [ , Init: Constructor ]);
procedure NormVideo();
procedure NoSound();
procedure OutText(TextString: string);
procedure OutTextXY(X,Y: Integer; TextString: string);
procedure OvrClearBuf();
procedure OvrInit(FileName:string );
procedure OvrInitEMS();
procedure OvrSetBuf(Size: Longint);
procedure OvrSetRetry(Size : Longint);
procedure PackTime(var T: DateTime; var Time: Longint);
procedure PieSlice(X, Y: Integer; StAngle, EndAngle, Radius: Word);
procedure PutImage(X, Y: Integer; var BitMap; BitBlt: Word);
procedure PutPixel(X, Y: Integer; Pixel: Word);
procedure Randomize();
procedure Readln([ var F: Text; ] V1 [, V2, ...,Vn ]);
procedure Rectangle(x1, y1, x2, y2: Integer);
procedure Release(var p: pointer);
procedure Remove(Dir: PChar);
procedure Rename(var F; Newname);
procedure Reset(var F [: File; Recsize: Word ] );
procedure RestoreCrtMode();
procedure Rewrite(var F: File [; Recsize: Word ] );
procedure RmDir(S: String);
procedure RunError(Errorcode: Byte);
procedure ScrollTo(X, Y: Integer);
procedure Sector(x, y: Integer; StAngle,EndAngle, XRadius, YRadius: Word);
procedure Seek(var F; N: Longint);
procedure SetActivePage(Page: Word);
procedure SetAllPalette(var Palette);
procedure SetBkColor(ColorNum: Word);
procedure SetCBreak(Break: Boolean);
procedure SetColor(Color: Word);
procedure SetDate(Year, Month, Day: Word);
procedure SetFAttr(var F; Attr: Word);
procedure SetFillPattern(Pattern: FillPatternType; Color: Word);
procedure SetFillStyle(Pattern: Word; Color: Word);
procedure SetFTime(var F; Time: Longint);
procedure SetGraphBufSize(BufSize: Word);
procedure SetGraphMode(Mode: Integer);
procedure SetIntVec(IntNo: Byte; Vector: Pointer);
procedure SetLineStyle(LineStyle: Word; Pattern: Word; Thickness: Word);
procedure SetPalette(ColorNum: Word; Color: Shortint);
procedure SetRGBPalette(ColorNum, RedValue, GreenValue, BlueValue: Integer);
procedure SetTextJustify(Horiz, Vert: Word);
procedure SetTextStyle(Font, Direction: Word; CharSize: Word);
procedure SetTime(Hour, Minute, Second, Sec100: Word);
procedure SetTextBuf(var F: Text; var Buf [ ; Size:   Word ] );
procedure SetUserCharSize(MultX, DivX, MultY, DivY: Word);
procedure SetVerify(Verify: Boolean);
procedure SetViewPort(x1, y1, x2, y2: Integer; Clip: Boolean);
procedure SetVisualPage(Page: Word);
procedure SetWriteMode(WriteMode: Integer);
procedure Sound(Hz: Word);
procedure Str(X [: Width [: Decimals ]]; var S:string);
procedure SwapVectors();
procedure TextBackground(Color: Byte);
procedure TextColor(Color: Byte);
procedure TextMode(Mode: Integer);
procedure TrackCursor();
procedure Truncate(var F);
procedure UnpackTime(Time: Longint; var DT: TDateTime);
procedure Val(S; var V; var Code: Integer);
procedure Window(X1, Y1, X2, Y2: Byte);
procedure WriteBuf(Buffer: PChar; Count: Word);
procedure WriteChar(Ch: Char);
procedure Writeln([ var F: Text; ] P1 [, P2, ...,Pn ] );
procedure DefaultError(ErrorCode: Integer);
procedure FarProc();
procedure NearProc();
procedure FarProc();
procedure WriteHexWord(w: Word);
procedure StrDispose(S: PChar);
procedure Error(ErrorCode: Integer);
procedure InitApplication();
procedure InitInstance();
procedure InitMainWindow();
procedure MessageLoop();
procedure Run();
procedure SetKBHandler(AWindowsObject: PWindowsObject);
procedure Flush();
procedure Read(var Buf; Count: Word);
procedure Seek(Pos: Longint);
procedure Truncate();
procedure Write(var Buf; Count: Word);
procedure BNClicked(var Msg: TMessage);
procedure Check();
procedure SetCheck(CheckFlag: Word);
procedure Store(var S: TStream);
procedure Toggle();
procedure Uncheck();
procedure AtDelete(Index: Integer);
procedure AtFree(Index: Integer);
procedure AtInsert(Index: Integer; Item: Pointer);
procedure AtPut(Index: Integer; Item: Pointer);
procedure Delete(Item: Pointer);
procedure DeleteAll();
procedure Error(Code, Info: Integer);
procedure ForEach(Action: Pointer);
procedure PrintItem(Item: Pointer);
procedure Free(Item: Pointer);
procedure FreeAll();
procedure FreeItem(Item: Pointer);
procedure Insert(Item: Pointer);
procedure Pack();
procedure PutItem(var S: TStream; Item: Pointer);
procedure SetLimit(ALimit: Integer);
procedure Store(var S: TStream);
procedure Clear();
procedure HideList();
procedure SetText(Str: PChar);
procedure SetupWindow();
procedure ShowList();
procedure Store(var S: TStream);
procedure DefWndProc(var Msg: TMessage);
procedure WMPaint(var Msg: TMessage);
procedure Cancel(var Msg: TMessage);
procedure DefWndProc(var Msg: TMessage);
procedure Destroy();
procedure EndDlg(ARetValue: Integer);
procedure EnterCancel(var Msg: TMessage);
procedure EnterOk(var Msg: TMessage);
procedure Ok(var Msg: TMessage);
procedure SetName(AName: PChar);
procedure Store(var S: TStream);
procedure WMClose(var Msg: TMessage);
procedure WMInitDialog(var Msg: TMessage);
procedure WMPostInvalid(var Msg: TMessage);
procedure WMQueryEndSession(var Msg: TMessage);
procedure Cancel(var Msg: TMessage);
procedure GetWindowClass(var AWndClass: TWndClass);
procedure Ok(var Msg: TMessage);
procedure Read(var Buf; Count: Word);
procedure Seek(Pos: Longint);
procedure Truncate();
procedure Write(var Buf; Count: Word);
procedure CMEditClear(var Msg: TMessage);
procedure Copy();
procedure CMEditCopy(var Msg: TMessage);
procedure Cut();
procedure CMEditCut(var Msg: TMessage);
procedure CMEditDelete(var Msg: TMessage);
procedure GetSubText(ATextString: PChar; StartPos, EndPos: Integer);
procedure GetSelection(var StartPos, EndPos: Integer);
procedure Insert(ATextString: PChar);
procedure Paste();
procedure CMEditPaste(var Msg: TMessage);
procedure ClearModify();
procedure Search(StartPos: Integer; AText: PChar; CaseSensitive: Boolean): Integer;
procedure Scroll(HorizontalUnit, VerticalUnit: Integer);
procedure Undo();
procedure CMEditUndo(var Msg: TMessage);
procedure SetupWindow();
procedure SetValidator(AValid: PValidator);
procedure Store(var S: TStream);
procedure WMChar(var Msg: TMessage);
procedure WMGetDlgCode(var Msg: TMessage);
procedure WMKeyDown(var Msg: TMessage);
procedure WMKillFocus(var Msg: TMessage);
procedure BeginDocument(StartPage, EndPage: Integer; Flags: Word);
procedure PrintPage(Page: Word; var Rect: TRect; Flags: Word);
procedure SetPrintParams(ADC: HDC; ASize: TPoint);
procedure CMEditFind(var Msg: TMessage);
procedure CMEditFindNext(var Msg: TMessage);
procedure CMEditReplace(var Msg: TMessage);
procedure Store(var S: TStream);
procedure SetupWindow();
procedure WMSetFocus(var Msg: TMessage);
procedure WMSize(var Msg: TMessage);
procedure Read(var Buf; Count: Word);
procedure Seek(Pos: Longint);
procedure Truncate();
procedure Write(var Buf; Count: Word);
procedure FDDirLB(var Msg: TMessage);
procedure FDFileLB(var Msg: TMessage);
procedure GetFileName(ABuffer: PChar; ABufSize: Integer);
procedure GetMask(ABuffer: PChar; ABufSize: Integer);
procedure Ok(var Msg: TMessage);
procedure SetFileName(AFileName: PChar; ABufSize: Integer);
procedure SetMask(AMask: PChar; ABufSize: Integer);
procedure SetupWindow();
procedure SetValues(FileStr: PChar);
procedure UpdateItems();
procedure New();
procedure CMFileNew(var Msg: TMessage);
procedure CMFileSave(var Msg: TMessage);
procedure CMFileSaveAs(var Msg: TMessage);
procedure Open();
procedure CMFileOpen(var Msg: TMessage);
procedure NewFile();
procedure Read();
procedure ReadFrom();
procedure ReplaceWith(AFileName: PChar);
procedure Save();
procedure SaveAs();
procedure SetFileName(AFileName: PChar);
procedure SetupWindow; virtual;
procedure Store(var S: TStream);
procedure Write();
procedure WriteTo();
procedure Store(var S: TStream);
procedure SelectionChanged(ControlId: Integer);
procedure Store(var S: TStream);
procedure CreateTextBuffer(ATextSize: Integer);
procedure GetCaption(ABuffer: PChar; ABufSize: Integer);
procedure GetDefText(ABuffer: PChar; ABufSize: Integer);
procedure GetPrompt(ABuffer: PChar; ABufSize: Integer);
procedure GetText(ABuffer: PChar; ABufSize: Integer);
procedure Ok(var Msg: TMessage);
procedure SetCaption(ACaption: PChar);
procedure SetDefText(ADefText: PChar);
procedure SetPrompt(APrompt: PChar);
procedure SetupWindow();
procedure UpdateTextBuffer();
procedure ClearList();
procedure ArrangeIcons();
procedure CascadeChildren();
procedure Store(var S: TStream);
procedure TileChildren();
pr