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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
18485: Function ReadComponentTreeFromFile( FormOrComponent : TComponent; FileName : string) : Boolean');
18486: Function WriteComponentToFile( Component : TComponent; FileName : string; Format : TComponentFileFormat;
StoreComponentName : Boolean) : Boolean');
18487: Function WriteComponentTreeToFile( FormOrComponent : TComponent; FileName : string; Format :
TComponentFileFormat; StoreComponentName : Boolean) : Boolean');
18488: Function ReadComponentFromFile4( FormOrComponent : TComponent; FileName : string) : Boolean;');
18489: Function ReadFormFromFile( pInstance : TComponent; FormClass : TFormClass; FileName : string) : Boolean');
18490: Function ReadComponentResourceFile5( Instance : TObject; FileName : string) : Boolean;');
18491: Function
WriteComponentResourceFile(nstance:TObject;FileName:string;StoreFormAsVisible:Boolean):Boolean;');
18492: Function ReadComponentsResourceFile( Components : array of TComponent; FileName : string; NamingMethod :
TResourceNaming; bLoadTotalForm : Boolean) : Boolean');
18493: Function WriteComponentsResourceFile( Components : array of TComponent; FileName : string; NamingMethod :
TResourceNaming) : Boolean');
18494: Function ReadComponentResourceHeader( sHeaderInfo : TStrings; pSize : Integer; FileName : string;
NamingMethod : TResourceNaming) : Boolean');
18495: Function ConvertComponentResourceToTextFile(SourceFileName:string; TargetFileName : string;
bStoreResNames : Boolean) : Boolean');
18496: Function
CheckComponentInResourceFile(Component:TComponent;FileName:string;NamingMethod:TResourceNaming):Boolean;
18497: Function DeleteComponentFromResourceFile( ResourceName : string; FileName : string) : Boolean;');
18498: Function DeleteComponentFromResourceFile8( Component : TComponent; FileName : string; NamingMethod :
TResourceNaming) : Boolean;');
18499: //CL.AddDelphiFunction('Function CreateFormFromResFile( AOwner : TComponent; NewClassType : TFormClass;
FileName : string) : Pointer');
18500: //CL.AddDelphiFunction('Function CreateComponentFromResFile( AOwner : TComponent; NewClassType :
TComponentClass; FileName : string) : Pointer');
18501: end;
18502:
18503: procedure SIRegister_SMScript(CL: TPSPascalCompiler);
18504: begin
18505: CL.FindClass('TOBJECT'),'TSMScriptExecutor');
18506: SIRegister_TSMSEError(CL);
18507: CL.AddClassN(CL.FindClass('TOBJECT'),'TSMSEModule');
18508: CL.AddTypeS('TSMSEProcedureType', '( ptProcedure, ptFunction )');
18509: SIRegister_TSMSEProcedure(CL);
18510: SIRegister_TSMSEProcedures(CL);
18511: SIRegister_TSMSEModule(CL);
18512: SIRegister_TSMSEModules(CL);
18513: CL.AddTypeS('TSMScriptLanguage', '( slCustom, slVBScript, slJavaScript )');
18514: SIRegister_TSMScriptExecutor(CL);
18515: //CL.AddDelphiFunction('Procedure Register');
18516: end;
18517:
18518: procedure SIRegister_geometry2(CL: TPSPascalCompiler);
18519: begin
18520: TPointF2', 'record X : Double; Y : Double; end');
18521: TPoint3', 'record X : integer; Y : integer; Z : Integer; end');
18522: //CL.AddTypeS('PPointF3', '^TPointF3 // will not work');
18523: TPointF3', 'record X : double; Y : double; Z : Double; end');
18524: Function AreLinesParallel( p1, p2, p3, p4 : TPoint) : Boolean;');
18525: Function AreLinesParallel1( p1, p2, p3, p4 : TPointF2; e : Double) : Boolean;');
18526: Function AreLinesParallel2( p1, p2, p3, p4, p5, p6 : TPoint3) : Boolean;');
18527: Function AreLinesParallel3( p1, p2, p3, p4, p5, p6 : TPointF3; e : Double) : Boolean;');
18528: Function IntersectLines( p1, p2, p3, p4 : TPoint) : TPoint;');
18529: Function IntersectLines1( p1, p2, p3, p4 : TPointF2; e : Double) : TPointF2;');
18530: Function AngleDifference( alpha, beta : Double) : Double');
18531: end;
18532:
18533:
18534: function TRestRequest_createStringStreamFromStringList(strings: TStringList): TStringStream;
18535:
18536: {A simple Oscilloscope using TWaveIn class.
18537: More info at http://www.delphiforfun.org/programs/oscilloscope.htm }
18538: http://www.retroarchive.org/garbo/pc/turbopas/index.html
18539: uses
18540: Forms,
18541: U_Oscilloscope4 in 'U_Oscilloscope4.pas' {frmMain},
18542: ufrmOscilloscope4 in 'ufrmOscilloscope4.pas' {frmOscilloscope: TFrame},
18543: uColorFunctions in 'uColorFunctions.pas',
18544: AMixer in 'AMixer.pas',
18545: uSettings in 'uSettings.pas',
18546: UWavein4 in 'UWavein4.pas',
18547: U_Spectrum4 in 'U_Spectrum4.pas' {Form2},
18548: ufrmInputControl4 in 'ufrmInputControl4.pas' {frmInputControl: TFrame};
18549:
18550: Functions_max hex in the box maXbox
18551: functionslist.txt
18552: FunctionsList1 3.9.9.86/88/91/92/94/95/96/98/100/101/110/120/160/180/190/192
18553:
18554: *******************************************************************************
18555: Procedure
18556: PROCEDURE SIZE 8875 8396 8289 8242 7507 7401 6792 6310 5971 4438 3797 3600
18557: Procedure ****************************Now the Procedure list*******************
18558: Procedure ( ACol, ARow : Integer; Items : TStrings)
18559: Procedure ( Agg : TAggregate)
18560: Procedure ( ASender : TComponent; const AReplyStatus : TReplyStatus)
18561: Procedure ( ASender : TComponent; const AString : String; var AMsg : TIdMessage)
18562: Procedure ( ASender : TComponent; var AMsg : TIdMessage)
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 216