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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
12470:
12471: procedure SIRegister_ovcfiler(CL: TPSPascalCompiler);
12472: begin
12473: SIRegister_TOvcAbstractStore(CL);
12474: //PExPropInfo', '^TExPropInfo // will not work
12475: // TExPropInfo', 'record PI : TPropInfo; AObject : TObject; end
12476: SIRegister_TOvcPropertyList(CL);
12477: SIRegister_TOvcDataFiler(CL);
12478: Procedure UpdateStoredList( AForm : TWinControl; AStoredList : TStrings; FromForm : Boolean)
12479: Procedure UpdateStoredList1( AForm : TCustomForm; AStoredList : TStrings; FromForm : Boolean)
12480: Function CreateStoredItem( const CompName, PropName : string) : string
12481: Function ParseStoredItem( const Item : string; var CompName, PropName : string) : Boolean
12482: //Function GetPropType( PropInfo : PExPropInfo) : PTypeInfo
12483: end;
12484:
12485: procedure SIRegister_ovccoco(CL: TPSPascalCompiler);
12486: begin
12487: 'ovsetsize','LongInt'( 16);
12488: 'etSyntax','LongInt'( 0);
12489: 'etSymantic','LongInt'( 1);
12490: 'chCR','Char #13);
12491: 'chLF','Char #10);
12492: 'chLineSeparator',' chCR);
12493: SIRegister_TCocoError(CL);
12494: SIRegister_TCommentItem(CL);
12495: SIRegister_TCommentList(CL);
12496: SIRegister_TSymbolPosition(CL);
12497: TGenListType', '( glNever, glAlways, glOnError )
12498: TovBitSet', 'set of Integer
12499: //PStartTable', '^TStartTable // will not work
12500: 'TovCharSet', 'set of AnsiChar
12501: TAfterGenListEvent', 'Procedure ( Sender : TObject; var PrintErrorCount : boolean)
12502: TCommentEvent', 'Procedure ( Sender : TObject; CommentList : TCommentList)
12503: TCustomErrorEvent', 'Function(Sender:TObject;const ErrorCode: longint;const Data:string): string
12504: TovErrorEvent', 'Procedure ( Sender : TObject; Error : TCocoError)
12505: TovErrorProc', 'Procedure ( ErrorCode : integer; Symbol : TSymbolP'
12506: +'osition; const Data : string; ErrorType : integer)
12507: TFailureEvent', 'Procedure ( Sender : TObject; NumErrors : integer)
12508: TGetCH', 'Function ( pos : longint) : char
12509: TStatusUpdateProc', 'Procedure ( Sender : TObject; Status: string; LineNum:integer)
12510: SIRegister_TCocoRScanner(CL);
12511: SIRegister_TCocoRGrammar(CL);
12512: '_EF','Char #0);
12513: '_TAB','Char').SetString( #09);
12514: '_CR','Char').SetString( #13);
12515: '_LF','Char').SetString( #10);
12516: '_EL','').SetString( _CR);
12517: '_EOF','Char').SetString( #26);
12518: 'LineEnds','TCharSet'(ord(_CR) or ord(_LF) or ord(_EF));
12519: 'minErrDist','LongInt'( 2);
12520: Function ovPadL( S : string; ch : char; L : integer) : string
12521: end;
12522:
12523: TFormatSettings = record
12524: CurrencyFormat: Byte;
12525: NegCurrFormat: Byte;
12526: ThousandSeparator: Char;
12527: DecimalSeparator: Char;
12528: CurrencyDecimals: Byte;
12529: DateSeparator: Char;
12530: TimeSeparator: Char;
12531: ListSeparator: Char;
12532: CurrencyString: string;
12533: ShortDateFormat: string;
12534: LongDateFormat: string;
12535: TimeAMString: string;
12536: TimePMString: string;
12537: ShortTimeFormat: string;
12538: LongTimeFormat: string;
12539: ShortMonthNames: array[1..12] of string;
12540: LongMonthNames: array[1..12] of string;
12541: ShortDayNames: array[1..7] of string;
12542: LongDayNames: array[1..7] of string;
12543: TwoDigitYearCenturyWindow: Word;
12544: end;
12545:
12546: procedure SIRegister_OvcFormatSettings(CL: TPSPascalCompiler);
12547: begin
12548: Function ovFormatSettings : TFormatSettings
12549: end;
12550:
12551: procedure SIRegister_ovcstr(CL: TPSPascalCompiler);
12552: begin
12553: TOvcCharSet', 'set of Char
12554: ovBTable', 'array[0..255] of Byte
12555: //BTable = array[0..{$IFDEF UNICODE}{$IFDEF
HUGE_UNICODE_BMTABLE}$FFFF{$ELSE}$FF{$ENDIF}{$ELSE}$FF{$ENDIF}] of Byte;
12556: Function BinaryBPChar( Dest : PChar; B : Byte) : PChar
12557: Function BinaryLPChar( Dest : PChar; L : LongInt) : PChar
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 145