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
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<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 />
10677: Function InitJvShellHooks : Boolean<br />
10678: Procedure UnInitJvShellHooks<br />
10679: end;<br />
10680:<br />
10681: procedure SIRegister_JvExControls(CL: TPSPascalCompiler);<br />
10682: begin<br />
10683: TDlgCode', '( dcWantAllKeys, dcWantArrows, dcWantChars, dcButton'<br />
10684: +', dcHasSetSel, dcWantTab, dcNative )<br />
10685: TDlgCodes', 'set of TDlgCode<br />
10686: 'dcWantMessage',' dcWantAllKeys);<br />
10687: SIRegister_IJvExControl(CL);<br />
10688: SIRegister_IJvDenySubClassing(CL);<br />
10689: SIRegister_TStructPtrMessage(CL);<br />
10690: Procedure SetDotNetFrameColors( FocusedColor, UnfocusedColor : TColor)<br />
10691: Procedure DrawDotNetControl( Control : TWinControl; AColor : TColor; InControl : Boolean);<br />
10692: Procedure DrawDotNetControl1( DC : HDC; R : TRect; AColor : TColor; UseFocusedColor : Boolean);<br />
10693: Procedure HandleDotNetHighlighting(Control:TWinControl;const Msg:TMessage;MouseOver:Boolean;Color:TColor);<br />
10694: Function CreateWMMessage( Msg : Integer; WParam : Integer; LParam : Longint) : TMessage;<br />
10695: Function CreateWMMessage1( Msg : Integer; WParam : Integer; LParam : TControl) : TMessage;<br />
10696: Function SmallPointToLong( const Pt : TSmallPoint) : Longint<br />
10697: Function ShiftStateToKeyData( Shift : TShiftState) : Longint<br />
10698: Function GetFocusedControl( AControl : TControl) : TWinControl<br />
10699: Function DlgcToDlgCodes( Value : Longint) : TDlgCodes<br />
10700: Function DlgCodesToDlgc( Value : TDlgCodes) : Longint<br />
10701: Procedure GetHintColor( var HintInfo : THintInfo; AControl : TControl; HintColor : TColor)<br />
10702: Function DispatchIsDesignMsg( Control : TControl; var Msg : TMessage) : Boolean<br />
10703: SIRegister_TJvExControl(CL);<br />
10704: SIRegister_TJvExWinControl(CL);<br />
107<strong>05</strong>: SIRegister_TJvExCustomControl(CL);<br />
10706: SIRegister_TJvExGraphicControl(CL);<br />
10707: SIRegister_TJvExHintWindow(CL);<br />
107<strong>08</strong>: SIRegister_TJvExPubGraphicControl(CL);<br />
10709: end;<br />
10710:<br />
10711: (*----------------------------------------------------------------------------*)<br />
10712: procedure SIRegister_EncdDecd(CL: TPSPascalCompiler);<br />
10713: begin<br />
107<strong>14</strong>: Procedure EncodeStream( Input, Output : TStream)<br />
10715: Procedure DecodeStream( Input, Output : TStream)<br />
10716: Function EncodeString1( const Input : string) : string<br />
107<strong>17</strong>: Function DecodeString1( const Input : string) : string<br />
10718: end;<br />
10719:<br />
10720: (*----------------------------------------------------------------------------*)<br />
10721: procedure SIRegister_SockAppReg(CL: TPSPascalCompiler);<br />
10722: begin<br />
10723: SIRegister_TWebAppRegInfo(CL);<br />
10724: SIRegister_TWebAppRegList(CL);<br />
10725: Procedure GetRegisteredWebApps( AList : TWebAppRegList)<br />
10726: Procedure RegisterWebApp( const AFileName, AProgID : string)<br />
10727: Procedure UnregisterWebApp( const AProgID : string)<br />
10728: Function FindRegisteredWebApp( const AProgID : string) : string<br />
10729: Function CreateRegistry( InitializeNewFile : Boolean) : TCustomIniFile<br />
10730: 'sUDPPort','String 'UDPPort<br />
10731: end;<br />
10732:<br />
10733: procedure SIRegister_PJEnvVars(CL: TPSPascalCompiler);<br />
10734: begin<br />
10735: // TStringDynArray', 'array of string<br />
10736: Function GetEnvVarValue( const VarName : string) : string<br />
107<strong>37</strong>: Function SetEnvVarValue( const VarName, VarValue : string) : Integer<br />
10738: Function DeleteEnvVar( const VarName : string) : Integer<br />
10739: Function CreateEnvBlock(const NewEnv:TStrings;const IncludeCurrent:Bool;const Buffer:string;const<br />
BufSize:Int):Int;<br />
10740: Function ExpandEnvVars( const Str : string) : string<br />
10741: Function GetAllEnvVars( const Vars : TStrings) : Integer<br />
10742: Procedure GetAllEnvVarNames( const Names : TStrings);<br />
10743: Function GetAllEnvVarNames1 : TStringDynArray;<br />
10744: Function EnvBlockSize : Integer<br />
10745: TPJEnvVarsEnum', 'Procedure ( const VarName : string; Data : TObject)<br />
10746: SIRegister_TPJEnvVarsEnumerator(CL);<br />
10747: SIRegister_TPJEnvVars(CL);<br />
10748: FindClass('TOBJECT'),'EPJEnvVars<br />
10749: FindClass('TOBJECT'),'EPJEnvVars<br />
10750: //Procedure Register<br />
10751: end;<br />
10752:<br />
10753: (*----------------------------------------------------------------------------*)<br />
10754: procedure SIRegister_PJConsoleApp(CL: TPSPascalCompiler);<br />
10755: begin<br />
10756: 'cOneSecInMS','LongInt'( 1000);<br />
10757: //'cDefTimeSlice','LongInt'( 50);<br />
10758: //'cDefMaxExecTime',' cOneMinInMS);<br />
10759: 'cAppErrorMask','LongInt'( 1 shl 29);<br />
10760: Function IsApplicationError( const ErrCode : LongWord) : Boolean<br />
10761: TPJConsoleAppPriority', '( cpDefault, cpHigh, cpNormal, cpIdle, cpRealTime )<br />
10762: TPJConsoleColors', 'record Foreground : TPJConsoleColor; Background:TPJConsoleColor; end;<br />
10763: Function MakeConsoleColors( const AForeground, ABackground : TPJConsoleColor):TPJConsoleColors;<br />
10764: Function MakeConsoleColors1( const AForeground, ABackground : TColor) : TPJConsoleColors;<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: 124