maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
13959: Function SysToUTF8( const s : string) : string<br />
13960: Function ConsoleToUTF8( const s : string) : string<br />
13961: Function UTF8ToConsole( const s : string) : string}<br />
13962: Function FileExistsUTF8( const Filename : string) : boolean<br />
13963: Function FileAgeUTF8( const FileName : string) : Longint<br />
13964: Function DirectoryExistsUTF8( const Directory : string) : Boolean<br />
13965: Function ExpandFileNameUTF8( const FileName : string) : string<br />
13966: Function ExpandUNCFileNameUTF8( const FileName : string) : string<br />
13967: Function ExtractShortPathNameUTF8( const FileName : String) : String<br />
13968: Function FindFirstUTF8(const Path: string; Attr : Longint; out Rslt : TSearchRec) : Longint<br />
13969: Function FindNextUTF8( var Rslt : TSearchRec) : Longint<br />
13970: Procedure FindCloseUTF8( var F : TSearchrec)<br />
13971: Function FileSetDateUTF8( const FileName : String; Age : Longint) : Longint<br />
13972: Function FileGetAttrUTF8( const FileName : String) : Longint<br />
13973: Function FileSetAttrUTF8( const Filename : String; Attr : longint) : Longint<br />
13974: Function DeleteFileUTF8( const FileName : String) : Boolean<br />
13975: Function RenameFileUTF8( const OldName, NewName : String) : Boolean<br />
13976: Function FileSearchUTF8( const Name, DirList : String; ImplicitCurrentDir : Boolean) : String<br />
13977: Function FileIsReadOnlyUTF8( const FileName : String) : Boolean<br />
13978: Function GetCurrentDirUTF8 : String<br />
13979: Function SetCurrentDirUTF8( const NewDir : String) : Boolean<br />
13980: Function CreateDirUTF8( const NewDir : String) : Boolean<br />
13981: Function RemoveDirUTF8( const Dir : String) : Boolean<br />
13982: Function ForceDirectoriesUTF8( const Dir : string) : Boolean<br />
13983: Function FileOpenUTF8( const FileName : string; Mode : Integer) : THandle<br />
13984: Function FileCreateUTF8( const FileName : string) : THandle;<br />
13985: Function FileCreateUTF81( const FileName : string; Rights : Cardinal) : THandle;<br />
13986: Function ParamStrUTF8( Param : Integer) : string<br />
13987: Function GetEnvironmentStringUTF8( Index : Integer) : string<br />
13988: Function GetEnvironmentVariableUTF8( const EnvVar : string) : String<br />
13989: Function GetAppConfigDirUTF8( Global : Boolean; Create : boolean) : string<br />
13990: Function GetAppConfigFileUTF8(Global:Boolean; SubDir:boolean; CreateDir : boolean) : string<br />
13991: Function SysErrorMessageUTF8( ErrorCode : Integer) : String<br />
13992: end;<br />
13993:<br />
13994: procedure SIRegister_Keyboard(CL: TPSPascalCompiler);<br />
13995: begin<br />
13996: //VK_F23 = 134;<br />
13997: //{$EXTERNALSYM VK_F24}<br />
13998: //VK_F24 = 135;<br />
13999: TVirtualKeyCode', 'Integer<br />
<strong>14</strong>000: 'VK_MOUSEWHEELUP','integer'(134);<br />
<strong>14</strong>001: 'VK_MOUSEWHEELDOWN','integer'(135);<br />
<strong>14</strong>002: Function glIsKeyDown( c : Char) : Boolean;<br />
<strong>14</strong>003: Function glIsKeyDown1( vk : TVirtualKeyCode) : Boolean;<br />
<strong>14</strong>004: Function glKeyPressed( minVkCode : TVirtualKeyCode) : TVirtualKeyCode<br />
<strong>14</strong>0<strong>05</strong>: Function glVirtualKeyCodeToKeyName( vk : TVirtualKeyCode) : String<br />
<strong>14</strong>006: Function glKeyNameToVirtualKeyCode( const keyName : String) : TVirtualKeyCode<br />
<strong>14</strong>007: Function glCharToVirtualKeyCode( c : Char) : TVirtualKeyCode<br />
<strong>14</strong>0<strong>08</strong>: Procedure glKeyboardNotifyWheelMoved( wheelDelta : Integer)<br />
<strong>14</strong>009: end;<br />
<strong>14</strong>010:<br />
<strong>14</strong>011: procedure SIRegister_GLCrossPlatform(CL: TPSPascalCompiler);<br />
<strong>14</strong>012: begin<br />
<strong>14</strong>013: TGLPoint', 'TPoint<br />
<strong>14</strong>0<strong>14</strong>: //PGLPoint', '^TGLPoint // will not work<br />
<strong>14</strong>015: TGLRect', 'TRect<br />
<strong>14</strong>016: //PGLRect', '^TGLRect // will not work<br />
<strong>14</strong>0<strong>17</strong>: TDelphiColor', 'TColor<br />
<strong>14</strong>018: TGLPicture', 'TPicture<br />
<strong>14</strong>019: TGLGraphic', 'TGraphic<br />
<strong>14</strong>020: TGLBitmap', 'TBitmap<br />
<strong>14</strong>021: //TGraphicClass', 'class of TGraphic<br />
<strong>14</strong>022: TGLTextLayout', '( tlTop, tlCenter, tlBottom )<br />
<strong>14</strong>023: TGLMouseButton', '( mbLeft, mbRight, mbMiddle )<br />
<strong>14</strong>024: TGLMouseEvent', 'Procedure ( Sender : TObject; Button : TGLMouse'<br />
<strong>14</strong>025: +'Button; Shift : TShiftState; X, Y : Integer)<br />
<strong>14</strong>026: TGLMouseMoveEvent', 'TMouseMoveEvent<br />
<strong>14</strong>027: TGLKeyEvent', 'TKeyEvent<br />
<strong>14</strong>028: TGLKeyPressEvent', 'TKeyPressEvent<br />
<strong>14</strong>029: EGLOSError', 'EWin32Error<br />
<strong>14</strong>030: EGLOSError', 'EWin32Error<br />
<strong>14</strong>031: EGLOSError', 'EOSError<br />
<strong>14</strong>032: 'glsAllFilter','string'All // sAllFilter<br />
<strong>14</strong>033: Function GLPoint( const x, y : Integer) : TGLPoint<br />
<strong>14</strong>034: Function GLRGB( const r, g, b : Byte) : TColor<br />
<strong>14</strong>035: Function GLColorToRGB( color : TColor) : TColor<br />
<strong>14</strong>036: Function GLGetRValue( rgb : DWORD) : Byte<br />
<strong>14</strong>0<strong>37</strong>: Function GLGetGValue( rgb : DWORD) : Byte<br />
<strong>14</strong>038: Function GLGetBValue( rgb : DWORD) : Byte<br />
<strong>14</strong>039: Procedure GLInitWinColors<br />
<strong>14</strong>040: Function GLRect( const aLeft, aTop, aRight, aBottom : Integer) : TGLRect<br />
<strong>14</strong>041: Procedure GLInflateGLRect( var aRect : TGLRect; dx, dy : Integer)<br />
<strong>14</strong>042: Procedure GLIntersectGLRect( var aRect : TGLRect; const rect2 : TGLRect)<br />
<strong>14</strong>043: Procedure GLInformationDlg( const msg : String)<br />
<strong>14</strong>044: Function GLQuestionDlg( const msg : String) : Boolean<br />
<strong>14</strong>045: Function GLInputDlg( const aCaption, aPrompt, aDefault : String) : String<br />
<strong>14</strong>046: Function GLSavePictureDialog( var aFileName : String; const aTitle : String) : Boolean<br />
<strong>14</strong>047: Function GLOpenPictureDialog( var aFileName : String; const aTitle : String) : Boolean<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 163