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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
16598: +'ct : TDatetime; LastContact : TDateTime; Magnitude:Extended;MaxeclipseUTime:TDateTime;end');
16599: TPlanet', '( MERCURY, VENUS, MARS, JUPITER, SATURN, URANUS, NEPTUNE, PLUTO )');
16600: TPlanetRec', 'record AsOf : TDateTime; Name : string; MeanLon : '
16601: +'extended; MeanLonMotion : extended; LonOfPerihelion : extended; Eccentrici'
16602: +'ty : extended; Inclination : extended; LonAscendingNode : extended; SemiMa'
16603: +'jorAxis : extended; AngularDiameter : extended; Magnitude : extended; end');
16604: TPlanetLocRec', 'record PlanetBaseData : TPlanetrec; HelioCentricLonLat : TRpoint; RadiusVector :
extended; UncorrectedEarthDistance : extended; GeoEclLonLat :TRpoint; CorrectedEarthDistance:extended;
ApparentRaDecl:TRPoint; end');
16605: SIRegister_TAstronomy(CL);
16606: Function AngleToStr( angle : extended) : string');
16607: Function StrToAngle( s : string; var angle : extended) : boolean');
16608: Function HoursToStr24( t : extended) : string');
16609: Function RPoint( x, y : extended) : TRPoint');
16610: Function getStimename( t : TDTType) : string');
16611: end;
16612:
16613: procedure SIRegister_UCardComponentV2(CL: TPSPascalCompiler);
16614: begin
16615: TCardValue', 'Integer');
16616: TCardSuit', '( Spades, Diamonds, Clubs, Hearts )');
16617: TShortSuit', '( cardS, cardD, cardC, cardH )');
16618: Type(TDecks,Standard1,Standard2,Fishes1,Fishes2,Beach,Leaves1,Leaves2,Robot,Roses,Shell,Castle,Hand);
16619: SIRegister_TCard(CL);
16620: SIRegister_TDeck(CL);
16621: end;
16622:
16623: procedure SIRegister_UTGraphSearch(CL: TPSPascalCompiler);
16624: begin
16625: tMethodCall', 'Procedure');
16626: tVerboseCall', 'Procedure ( s : string)');
16627: // PTEdge', '^TEdge // will not work');
16628: TEdge', 'record FromNodeIndex : Integer; ToNodeIndex : Integer; '
16629: +'Weight : integer; work : integer; Len : integer; Highlight : boolean; end');
16630: SIRegister_TNode(CL);
16631: SIRegister_TGraphList(CL);
16632: end;
16633:
16634: procedure SIRegister_UParser10(CL: TPSPascalCompiler);
16635: begin
16636: ParserFloat', 'extended');
16637: //PParserFloat', '^ParserFloat // will not work');
16638: TDFFToken', '( variab, constant, minus, sum, diff, prod, divis, mod'
16639: +'ulo, IntDiv, IntDIVZ, integerpower, realpower,square,third,fourth,FuncOneVar,FuncTwoVar )');
16640: //POperation', '^TOperation // will not work');
16641: TDFFOperation', 'record Arg1 : PParserFloat; Arg2 : PParserFloat; D'
16642: +'est : PParserFloat; NextOperation : POperation; Operation : TMathProcedure'
16643: +'; Token : TDFFToken; end');
16644: TMathProcedure','procedure(AnOperation: TDFFOperation)');
16645: (CL.FindClass('TOBJECT'),'EMathParserError');
16646: CL.FindClass('TOBJECT'),'ESyntaxError');
16647: (CL.FindClass('TOBJECT'),'EExpressionHasBlanks');
16648: (CL.FindClass('TOBJECT'),'EExpressionTooComplex');
16649: (CL.FindClass('TOBJECT'),'ETooManyNestings');
16650: (CL.FindClass('TOBJECT'),'EMissMatchingBracket');
16651: (CL.FindClass('TOBJECT'),'EBadName');
16652: (CL.FindClass('TOBJECT'),'EParserInternalError');
16653: ('TExParserExceptionEvent', 'Procedure ( Sender : TObject; E : Exception)');
16654: SIRegister_TCustomParser(CL);
16655: SIRegister_TExParser(CL);
16656: end;
16657:
16658: function isService: boolean;
16659: begin
16660: result:= NOT(Application is TApplication);
16661: {result:= Application is TServiceApplication;}
16662: end;
16663: function isApplication: boolean;
16664: begin
16665: result:= Application is TApplication;
16666: end;
16667: //SM_REMOTESESSION = $1000
16668: function isTerminalSession: boolean;
16669: begin
16670: result:= GetSystemMetrics(SM_REMOTESESSION) > 0;
16671: end;
16672:
16673: procedure SIRegister_cyIEUtils(CL: TPSPascalCompiler);
16674: begin
16675: CL.AddTypeS('TwbPageSetup', 'record font : String; footer : String; header : '
16676: +'String; margin_bottom : String; margin_left : String; margin_right : Strin'
16677: +'g; margin_top : String; Print_Background : String; Shrink_To_Fit : String; end');
16678: Function cyURLEncode( const S : string) : string');
16679: Function MakeResourceURL(const ModuleName:string;const ResName:PChar;const ResType:PChar):string;
16680: Function MakeResourceURL1(const Module:HMODULE;const ResName:PChar;const ResType:PChar):string;;
16681: Function cyColorToHtml( aColor : TColor) : String');
16682: Function HtmlToColor( aHtmlColor : String) : TColor');
16683: //Function GetStreamEncoding( aStream : TStream) : TEncoding');
16684: // Function IsStreamEncodedWith( aStream : TStream; Encoding : TEncoding) : Boolean');
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 194