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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
18053: CL.AddTypeS('TGPSDatasEvent', 'Procedure ( Sender : TObject; GPSDatas : TGPSDatas)');
18054: CL.AddTypeS('TMsgGP', '( msgGP, msgGPGGA, msgGPGLL, msgGPGSV, msgGPRMA, msgGPRMC, msgGPZDA )');
18055: CL.AddTypeS('TSpeedUnit', '( suKilometre, suMile, suNauticalMile )');
18056: SIRegister_TGPSLink(CL);
18057: SIRegister_TCustomGPS(CL);
18058: SIRegister_TGPS(CL);
18059: SIRegister_TGPStoGPX(CL);
18060: SIRegister_TGPSSpeed(CL);
18061: SIRegister_TGPSSatellitesPosition(CL);
18062: SIRegister_TGPSSatellitesReception(CL);
18063: SIRegister_TGPSCompass(CL);
18064: //Procedure Register( )');
18065: Function IndexMsgGP( StrMsgGP : String) : TMsgGP');
18066: Function StrCoordToAngle( Point : Char; Angle : String) : Double');
18067: Function StrTimeToTime( const Time : String) : TDateTime');
18068: Function StrToInteger( const Str : String) : Integer');
18069: Function StrToReal( const Str : String) : Extended');
18070: Function GPSRotatePoint( Angle : Double; Ct, Pt : TPoint) : TPoint');
18071: Procedure LoadRessource( RessourceName : String; ImageList : TImageList)');
18072: end;
18073:
18074: procedure SIRegister_NMEA(CL: TPSPascalCompiler);
18075: begin
18076: NMEADataArray', 'array of string');
18077: Procedure TrimNMEA( var S : string)');
18078: Procedure ExpandNMEA( var S : string)');
18079: Function ParseNMEA( S : string) : NMEADataArray');
18080: Function ChkValidNMEA( S : string) : Boolean');
18081: Function IdNMEA( S : string) : string');
18082: Function ChkSumNMEA( const S : string) : string');
18083: Function PosInDeg( const PosStr : string) : Double');
18084: Function DateTimeNMEA( const StrD, StrT : string) : TDateTime');
18085: Function SysClockSet( const StrD, StrT : string) : Boolean');
18086: function Ticks2Secs(Ticks : LongInt) : LongInt;');
18087: function Secs2Ticks(Secs : LongInt) : LongInt;');
18088: function MSecs2Ticks(MSecs : LongInt) : LongInt;');
18089: end;
18090:
18091: procedure SIRegister_SortUtils(CL: TPSPascalCompiler);
18092: begin
18093: CL.AddTypeS('SortType1', 'Byte');
18094: CL.AddTypeS('SortType2', 'Double');
18095: CL.AddTypeS('SortType3', 'DWord');
18096: //CL.AddTypeS('PDWordArray', '^DWordArray // will not work');
18097: CL.AddTypeS('TDataRecord4', 'record Value : Integer; Data : Integer; end');
18098: Function('Procedure QuickSort( var List : array of SortType1; Min, Max : Integer)');
18099: Procedure QuickSortDWord( var List : array of SortType3; Min, Max : Integer)');
18100: Procedure QuickSortDataRecord4( var List : array of TDataRecord4; Count : Integer)');
18101: Procedure HeapSort( var List : array of SortType1; Count : DWord; FirstNeeded : DWord)');
18102: Function QuickSelect( var List : array of SortType1; Min, Max, Wanted : Integer) : SortType1');
18103: Function QuickSelectDouble( var List : array of SortType2; Min, Max, Wanted : Integer) : SortType2');
18104: Function QuickSelectDWord( var List : array of SortType3; Min, Max, Wanted : Integer) : SortType3');
18105: end;
18106:
18107: procedure SIRegister_BitmapConversion(CL: TPSPascalCompiler);
18108: begin
18109: // TMatrix3x3 = array[1..3,1..3] of Double;
18110: // TMatrix4x4 = array[1..4,1..4] of Double;
18111: CL.AddTypeS('TMatrix3x31', 'array[1..3] of Double');
18112: CL.AddTypeS('TMatrix3x3', 'array[1..3] of TMatrix3x31');
18113: CL.AddTypeS('TMatrix4x41', 'array[1..4] of Double');
18114: CL.AddTypeS('TMatrix4x4', 'array[1..4] of TMatrix4x41');
18115: Procedure ColorTransform( A, B, C : Byte; out X, Y, Z : Byte; const T : TMatrix4x4);');
18116: Procedure ColorTransform1( A, B, C : Byte; out X, Y, Z : Float; const T : TMatrix4x4);');
18117: Procedure ColorTransform2( const A, B, C : Float; out X, Y, Z : Byte; const T : TMatrix4x4);');
18118: Procedure ColorTransformHSI2RGB( H, S, I : Byte; out R, G, B : Byte)');
18119: Procedure ColorTransformRGB2HSI( R, G, B : Byte; out H, S, I : Byte)');
18120: Procedure ColorTransformRGB2Lab( R, G, B : Byte; out L, a_, b_ : Byte)');
18121: Procedure ColorTransformLab2RGB( L, a_, b_ : Byte; out R, G, B : Byte)');
18122: Procedure ColorTransformRGB2LOCO( R, G, B : Byte; out S0, S1, S2 : Byte)');
18123: Procedure ColorTransformLOCO2RGB( S0, S1, S2 : Byte; out R, G, B : Byte)');
18124: Procedure ConvertColorSpace( Image : TLinarBitmap; const T : TMatrix4x4; NewImage : TLinarBitmap);');
18125: //Procedure
ConvertColorSpace1(Image:TLinarBitmap;ColorTransform:TColorTransformProc;NewImage:TLinarBitmap);');
18126: Procedure ConvertToGrayscale( const Image, GrayImage : TLinarBitmap);');
18127: Procedure ConvertToGrayscale1( const Image : TLinarBitmap);');
18128: end;
18129:
18130: procedure SIRegister_ZDbcUtils(CL: TPSPascalCompiler);
18131: begin
18132: { TZSQLType = (zsqlstUnknown, zsqlstBoolean, zsqlstByte, zsqlstShort, zsqlstInteger, zsqlstLong,
18133: zsqlstFloat, zsqlstDouble, zsqlstBigDecimal, zsqlstString, zsqlstUnicodeString, zsqlstBytes,
18134: zsqlstDate, zsqlstTime, zsqlstTimestamp, zsqlstDataSet, zsqlstGUID,
18135: stAsciiStream, stUnicodeStream, stBinaryStream);}
18136: Function ResolveConnectionProtocol( Url : string; SupportedProtocols : TStringDynArray) : string');
18137: //Procedure ResolveDatabaseUrl( const Url: string; Info:TStrings; var HostName:string; var
Port:Integer;var Database : string; var UserName : string; var Password : string; ResultInfo : TStrings)');
18138: Function CheckConvertion( InitialType : TZSQLType; ResultType : TZSQLType) : Boolean');
18139: Function DefineColumnTypeName( ColumnType : TZSQLType) : string');
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 211