maXbox3 3.9.9.195 14/05/2015 08:37:17 AM

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
16426: const 'SOFTDIST_ADSTATE_INSTALLED','LongWord').SetUInt( $00000003);
16427: //PCodeBaseHold', '^TCodeBaseHold // will not work');
16428: _tagCODEBASEHOLD', 'record cbSize : ULONG; szDistUnit : LPWSTR; '
16429: +'szCodeBase : LPWSTR; dwVersionMS : DWORD; dwVersionLS : DWORD; dwStyle : DWORD; end');
16430: TCodeBaseHold', '_tagCODEBASEHOLD');
16431: CODEBASEHOLD', '_tagCODEBASEHOLD');
16432: //PSoftDistInfo', '^TSoftDistInfo // will not work');
16433: _tagSOFTDISTINFO', 'record cbSize : ULONG; dwFlags : DWORD; dwAd'
16434: +'State : DWORD; szTitle : LPWSTR; szAbstract : LPWSTR; szHREF : LPWSTR; dwI'
16435: +'nstalledVersionMS : DWORD; dwInstalledVersionLS : DWORD; dwUpdateVersionMS'
16436: +' : DWORD; dwUpdateVersionLS : DWORD; dwAdvertisedVersionMS : DWORD; dwAdve'
16437: +'rtisedVersionLS : DWORD; dwReserved : DWORD; end');
16438: TSoftDistInfo', '_tagSOFTDISTINFO');
16439: SOFTDISTINFO', '_tagSOFTDISTINFO');
16440: SIRegister_ISoftDistExt(CL);
16441: Function GetSoftwareUpdateInfo( szDistUnit : LPCWSTR; var dsi : TSoftDistInfo) : HResult');
16442: Function SetSoftwareUpdateAdvertisementState(szDistUnit: LPCWSTR; dwAdState, dwAdvertisedVersionMS,
dwAdvertisedVersionLS : DWORD) : HResult');
16443: SIRegister_IDataFilter(CL);
16444: // PProtocolFilterData', '^TProtocolFilterData // will not work');
16445: _tagPROTOCOLFILTERDATA', 'record cbSize : DWORD; ProtocolSink : '
16446: +'IInternetProtocolSink; Protocol : IInternetProtocol; Unk : IUnknown; dwFil'
16447: +'terFlags : DWORD; end');
16448: TProtocolFilterData', '_tagPROTOCOLFILTERDATA');
16449: PROTOCOLFILTERDATA', '_tagPROTOCOLFILTERDATA');
16450: //PDataInfo', '^TDataInfo // will not work');
16451: _tagDATAINFO', 'record ulTotalSize : ULONG; ulavrPacketSize : UL'
16452: +'ONG; ulConnectSpeed : ULONG; ulProcessorSpeed : ULONG; end');
16453: TDataInfo', '_tagDATAINFO');
16454: DATAINFO', '_tagDATAINFO');
16455: SIRegister_IEncodingFilterFactory(CL);
16456: Function IsLoggingEnabled( pszUrl : PChar) : BOOL');
16457: //Function IsLoggingEnabledA( pszUrl : PAnsiChar) : BOOL');
16458: //Function IsLoggingEnabledW( pszUrl : PWideChar) : BOOL');
16459: //PHitLoggingInfo', '^THitLoggingInfo // will not work');
16460: _tagHIT_LOGGING_INFO', 'record dwStructSize : DWORD; lpszLoggedU'
16461: +rlName : LPSTR; StartTime : TSystemTime;EndTime:TSystemTime; lpszExtendedInfo : LPSTR; end');
16462: THitLoggingInfo', '_tagHIT_LOGGING_INFO');
16463: HIT_LOGGING_INFO', '_tagHIT_LOGGING_INFO');
16464: Function WriteHitLogging( const Logginginfo : THitLoggingInfo) : BOOL');
16465: end;
16466:
16467: procedure SIRegister_DFFUtils(CL: TPSPascalCompiler);
16468: begin
16469: Procedure reformatMemo( const m : TCustomMemo)');
16470: Procedure SetMemoMargins( m : TCustomMemo; const L, T, R, B : integer)');
16471: Procedure MoveToTop( memo : TMemo)');
16472: Procedure ScrollToTop( memo : TMemo)');
16473: Function LineNumberClicked( memo : TMemo) : integer');
16474: Function MemoClickedLine( memo : TMemo) : integer');
16475: Function ClickedMemoLine( memo : TMemo) : integer');
16476: Function MemoLineClicked( memo : TMemo) : integer');
16477: Function LinePositionClicked( Memo : TMemo) : integer');
16478: Function ClickedMemoPosition( memo : TMemo) : integer');
16479: Function MemoPositionClicked( memo : TMemo) : integer');
16480: Procedure AdjustGridSize( grid : TDrawGrid)');
16481: Procedure DeleteGridRow( Grid : TStringGrid; const ARow : integer)');
16482: Procedure InsertgridRow( Grid : TStringGrid; const ARow : integer)');
16483: Procedure Sortgrid( Grid : TStringGrid; const SortCol : integer);');
16484: Procedure Sortgrid1(Grid:TStringGrid; const SortCol : integer; sortascending : boolean);');
16485: Procedure sortstrDown( var s : string)');
16486: Procedure sortstrUp( var s : string)');
16487: Procedure rotatestrleft( var s : string)');
16488: Function dffstrtofloatdef( s : string; default : extended) : extended');
16489: Function deblank( s : string) : string');
16490: Function IntToBinaryString( const n : integer; MinLength : integer) : string');
16491: Procedure FreeAndClearListBox( C : TListBox);');
16492: Procedure FreeAndClearMemo( C : TMemo);');
16493: Procedure FreeAndClearStringList( C : TStringList);');
16494: Function dffgetfilesize( f : TSearchrec) : int64');
16495: end;
16496:
16497: procedure SIRegister_MathsLib(CL: TPSPascalCompiler);
16498: begin
16499: CL.AddTypeS('intset', 'set of byte');
16500: TPoint64', 'record x : int64; y : int64; end');
16501: Function GetNextPandigital( size : integer; var Digits : array of integer) : boolean');
16502: Function IsPolygonal( T : int64; var rank : array of integer) : boolean');
16503: Function GeneratePentagon( n : integer) : integer');
16504: Function IsPentagon( p : integer) : boolean');
16505: Function isSquare( const N : int64) : boolean');
16506: Function isCube( const N : int64) : boolean');
16507: Function isPalindrome( const n : int64) : boolean;');
16508: Function isPalindrome1( const n : int64; var len : integer) : boolean;');
16509: Function GetEulerPhi( n : int64) : int64');
16510: Function dffIntPower( a, b : int64) : int64;');
16511: Function IntPower1( a : extended; b : int64) : extended;');
16512: Function gcd2( a, b : int64) : int64');
16513: Function GCDMany( A : array of integer) : integer');
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 192