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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
18140: Procedure RaiseSQLException( E : Exception)');
18141: //Procedure CopyColumnsInfo( FromList : TObjectList; ToList : TObjectList)');
18142: Function ToLikeString( const Value : string) : string');
18143: Function GetSQLHexWideString( Value : PChar; Len : Integer; ODBC : Boolean) : WideString');
18144: Function GetSQLHexAnsiString( Value : PChar; Len : Integer; ODBC : Boolean) : RawByteString');
18145: Function GetSQLHexString( Value : PChar; Len : Integer; ODBC : Boolean) : String');
18146: Function WideStringStream( const AString : WideString) : TStream');
18147: function ConvertAdoToTypeName(FieldType: SmallInt): string;
18148: function GetTableName(const AField: TField): string;');
18149: function GetFieldName(const AField: TField): string;');
18150: end;
18151:
18152: procedure SIRegister_JclTD32(CL: TPSPascalCompiler);
18153: CL.AddTypeS('TSymbolInfo', 'record Size : Word; SymbolType : Word; end');
18154: //CL.AddTypeS('PSymbolInfos', '^TSymbolInfos // will not work');
18155: SIRegister_TJclModuleInfo(CL);
18156: SIRegister_TJclLineInfo(CL);
18157: SIRegister_TJclSourceModuleInfo(CL);
18158: SIRegister_TJclSymbolInfo(CL);
18159: SIRegister_TJclProcSymbolInfo(CL);
18160: CL.AddClassN(CL.FindClass('TOBJECT'),'TJclLocalProcSymbolInfo');
18161: CL.AddClassN(CL.FindClass('TOBJECT'),'TJclGlobalProcSymbolInfo');
18162: SIRegister_TJclTD32InfoParser(CL);
18163: SIRegister_TJclTD32InfoScanner(CL);
18164: SIRegister_TJclPeBorTD32Image(CL);
18165: end;
18166:
18167: procedure SIRegister_JvIni(CL: TPSPascalCompiler);
18168: begin
18169: CL.AddTypeS('TReadObjectEvent', 'Function ( Sender : TObject; const Section, '
18170: +'Item, Value : string) : TObject');
18171: TWriteObjectEvent', 'Procedure ( Sender : TObject; const Section, Item: string; Obj: TObject)');
18172: Function StringToFontStyles( const Styles : string) : TFontStyles');
18173: Function FontStylesToString( Styles : TFontStyles) : string');
18174: Function FontToString( Font : TFont) : string');
18175: Procedure StringToFont( const Str : string; Font : TFont)');
18176: Function RectToStr( Rect : TRect) : string');
18177: Function StrToRect( const Str : string; const Def : TRect) : TRect');
18178: Function JPointToStr( P : TPoint) : string');
18179: Function JStrToPoint( const Str : string; const Def : TPoint) : TPoint');
18180: Function DefProfileName : string');
18181: Function DefLocalProfileName : string');
18182: CL.AddConstantN('idnListItem','String').SetString( 'Item');
18183: end;
18184:
18185: procedure SIRegister_JvHtControls(CL: TPSPascalCompiler);
18186: begin
18187: Procedure ItemHtDrawEx( Canvas : TCanvas; Rect : TRect; const State : TOwnerDrawState; const Text :
string; const HideSelColor : Boolean; var PlainItem : string; var Width : Integer; CalcWidth : Boolean)');
18188: Function ItemHtDraw( Canvas : TCanvas; Rect : TRect; const State : TOwnerDrawState; const Text : string;
const HideSelColor : Boolean) : string');
18189: Function ItemHtWidth( Canvas : TCanvas; Rect : TRect; const State : TOwnerDrawState; const Text : string;
const HideSelColor : Boolean) : Integer');
18190: Function ItemHtPlain( const Text : string) : string');
18191: Procedure ExecuteHyperlink(Sender:TObject;HyperLinkClick:TJvHyperLinkClickEvent;const LinkName:string);
18192: Function IsHyperLink(Canvas:TCanvas;Rect:TRect;const Text:string;MouseX,MouseY:Integer;var
HyperLink:string):Bool;
18193: end;
18194:
18195: procedure SIRegister_NeuralNetwork(CL: TPSPascalCompiler);
18196: begin
18197: CL.AddClassN(CL.FindClass('TOBJECT'),'TNeuron');
18198: CL.AddTypeS('TSynapse', 'record W : Real; Connection : TNeuron; end');
18199: CL.AddTypeS('TAcson', 'record Alfa : Real; Beta : Real; Gama : Real; end');
18200: SIRegister_TNeuron(CL);
18201: SIRegister_TNeuronLayer(CL);
18202: SIRegister_TNeuralNet(CL);
18203: end;
18204:
18205: procedure SIRegister_StExpr(CL: TPSPascalCompiler);
18206: begin
18207: //CL.AddTypeS('PStFloat', '^TStFloat // will not work');
18208: TStMethod0Param', 'Function : TStFloat');
18209: TStMethod1Param', 'Function ( Value1 : TStFloat) : TStFloat');
18210: TStMethod2Param', 'Function ( Value1, Value2 : TStFloat) : TStFloat');
18211: TStMethod3Param', 'Function ( Value1, Value2, Value3 : TStFloat) : TStFloat');
18212: TStGetIdentValueEvent', 'Procedure ( Sender : TObject; const Ide'
18213: +'ntifier : AnsiString; var Value : TStFloat)');
18214: TStToken', '( ssStart, ssInIdent, ssInNum, ssInSign, ssInExp, ss'
18215: +'Eol, ssNum, ssIdent, ssLPar, ssRPar, ssComma, ssPlus, ssMinus, ssTimes, ssDiv, ssEqual, ssPower )');
18216: SIRegister_TStExpression(CL);
18217: TStExprErrorEvent', 'Procedure ( Sender : TObject; ErrorNumber :'
18218: +' LongInt; const ErrorStr : AnsiString)');
18219: SIRegister_TStExpressionEdit(CL);
18220: Function AnalyzeExpr( const Expr : AnsiString) : Double');
18221: Procedure TpVal( const S : AnsiString; var V : Extended; var Code : Integer)');
18222: end;
18223:
18224: procedure SIRegister_GR32_Containers(CL: TPSPascalCompiler);
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 212