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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
8557: Procedure XRTLRaiseError( E : Exception)
8558: Procedure XRTLRaise( E : Exception)');
8559: Procedure XRaise( E : Exception)');
8560: Procedure XRTLInvalidOperation( ClassName:string; OperationName:string; Description: string)
8561:
8562:
8563: procedure SIRegister_xrtl_util_Value(CL: TPSPascalCompiler);
8564: begin
8565: SIRegister_IXRTLValue(CL);
8566: SIRegister_TXRTLValue(CL);
8567: //AddTypeS('PXRTLValueArray', '^TXRTLValueArray // will not work
8568: AddTypeS('TXRTLValueArray', 'array of IXRTLValue
8569: Function XRTLValue( const AValue : Cardinal) : IXRTLValue;
8570: Function XRTLSetValue( const IValue : IXRTLValue; const AValue : Cardinal) : Cardinal;
8571: Function XRTLGetAsCardinal( const IValue : IXRTLValue) : Cardinal
8572: Function XRTLGetAsCardinalDef( const IValue : IXRTLValue; const DefValue : Cardinal) : Cardinal
8573: Function XRTLValue1( const AValue : Integer) : IXRTLValue;
8574: Function XRTLSetValue1( const IValue : IXRTLValue; const AValue : Integer) : Integer;
8575: Function XRTLGetAsInteger( const IValue : IXRTLValue) : Integer
8576: Function XRTLGetAsIntegerDef( const IValue : IXRTLValue; const DefValue : Integer) : Integer
8577: Function XRTLValue2( const AValue : Int64) : IXRTLValue;
8578: Function XRTLSetValue2( const IValue : IXRTLValue; const AValue : Int64) : Int64;
8579: Function XRTLGetAsInt64( const IValue : IXRTLValue) : Int64
8580: Function XRTLGetAsInt64Def( const IValue : IXRTLValue; const DefValue : Int64) : Int64
8581: Function XRTLValue3( const AValue : Single) : IXRTLValue;
8582: Function XRTLSetValue3( const IValue : IXRTLValue; const AValue : Single) : Single;
8583: Function XRTLGetAsSingle( const IValue : IXRTLValue) : Single
8584: Function XRTLGetAsSingleDef( const IValue : IXRTLValue; const DefValue : Single) : Single
8585: Function XRTLValue4( const AValue : Double) : IXRTLValue;
8586: Function XRTLSetValue4( const IValue : IXRTLValue; const AValue : Double) : Double;
8587: Function XRTLGetAsDouble( const IValue : IXRTLValue) : Double
8588: Function XRTLGetAsDoubleDef( const IValue : IXRTLValue; const DefValue : Double) : Double
8589: Function XRTLValue5( const AValue : Extended) : IXRTLValue;
8590: Function XRTLSetValue5( const IValue : IXRTLValue; const AValue : Extended) : Extended;
8591: Function XRTLGetAsExtended( const IValue : IXRTLValue) : Extended
8592: Function XRTLGetAsExtendedDef( const IValue : IXRTLValue; const DefValue : Extended) : Extended
8593: Function XRTLValue6( const AValue : IInterface) : IXRTLValue;
8594: Function XRTLSetValue6( const IValue : IXRTLValue; const AValue : IInterface) : IInterface;
8595: Function XRTLGetAsInterface( const IValue : IXRTLValue) : IInterface;
8596: //Function XRTLGetAsInterface1( const IValue : IXRTLValue; out Obj) : IInterface;
8597: Function XRTLGetAsInterfaceDef( const IValue : IXRTLValue; const DefValue : IInterface) : IInterface;
8598: Function XRTLValue7( const AValue : WideString) : IXRTLValue;
8599: Function XRTLSetValue7( const IValue : IXRTLValue; const AValue : WideString) : WideString;
8600: Function XRTLGetAsWideString( const IValue : IXRTLValue) : WideString
8601: Function XRTLGetAsWideStringDef( const IValue : IXRTLValue; const DefValue : WideString) : WideString
8602: Function XRTLValue8( const AValue : TObject; const AOwnValue : Boolean) : IXRTLValue;
8603: Function XRTLSetValue8( const IValue : IXRTLValue; const AValue : TObject) : TObject;
8604: Function XRTLGetAsObject( const IValue : IXRTLValue; const ADetachOwnership : Boolean) : TObject;
8605: Function XRTLGetAsObjectDef(const IValue:IXRTLValue;const DefValue:TObject;const
ADetachOwnership:Boolean):TObject;
8606: //Function XRTLValue9( const AValue : __Pointer) : IXRTLValue;
8607: //Function XRTLSetValue9( const IValue : IXRTLValue; const AValue : __Pointer) : __Pointer;
8608: //Function XRTLGetAsPointer( const IValue : IXRTLValue) : __Pointer
8609: //Function XRTLGetAsPointerDef( const IValue : IXRTLValue; const DefValue : __Pointer) : __Pointer
8610: Function XRTLValueV( const AValue : Variant) : IXRTLValue;
8611: Function XRTLSetValueV( const IValue : IXRTLValue; const AValue : Variant) : Variant;
8612: Function XRTLGetAsVariant( const IValue : IXRTLValue) : Variant
8613: Function XRTLGetAsVariantDef( const IValue : IXRTLValue; const DefValue : Variant) : Variant
8614: Function XRTLValue10( const AValue : Currency) : IXRTLValue;
8615: Function XRTLSetValue10( const IValue : IXRTLValue; const AValue : Currency) : Currency;
8616: Function XRTLGetAsCurrency( const IValue : IXRTLValue) : Currency
8617: Function XRTLGetAsCurrencyDef( const IValue : IXRTLValue; const DefValue : Currency) : Currency
8618: Function XRTLValue11( const AValue : Comp) : IXRTLValue;
8619: Function XRTLSetValue11( const IValue : IXRTLValue; const AValue : Comp) : Comp;
8620: Function XRTLGetAsComp( const IValue : IXRTLValue) : Comp
8621: Function XRTLGetAsCompDef( const IValue : IXRTLValue; const DefValue : Comp) : Comp
8622: Function XRTLValue12( const AValue : TClass) : IXRTLValue;
8623: Function XRTLSetValue12( const IValue : IXRTLValue; const AValue : TClass) : TClass;
8624: Function XRTLGetAsClass( const IValue : IXRTLValue) : TClass
8625: Function XRTLGetAsClassDef( const IValue : IXRTLValue; const DefValue : TClass) : TClass
8626: Function XRTLValue13( const AValue : TGUID) : IXRTLValue;
8627: Function XRTLSetValue13( const IValue : IXRTLValue; const AValue : TGUID) : TGUID;
8628: Function XRTLGetAsGUID( const IValue : IXRTLValue) : TGUID
8629: Function XRTLGetAsGUIDDef( const IValue : IXRTLValue; const DefValue : TGUID) : TGUID
8630: Function XRTLValue14( const AValue : Boolean) : IXRTLValue;
8631: Function XRTLSetValue14( const IValue : IXRTLValue; const AValue : Boolean) : Boolean;
8632: Function XRTLGetAsBoolean( const IValue : IXRTLValue) : Boolean
8633: Function XRTLGetAsBooleanDef( const IValue : IXRTLValue; const DefValue : Boolean) : Boolean
8634: end;
8635:
8636: //*****************************unit uPSI_GR32;*******************************************
8637:
8638: Function Color32( WinColor : TColor) : TColor32;
8639: Function Color321( R, G, B : Byte; A : Byte) : TColor32;
8640: Function Color322( Index : Byte; var Palette : TPalette32) : TColor32;
8641: Function Gray32( Intensity : Byte; Alpha : Byte) : TColor32
8642: Function WinColor( Color32 : TColor32) : TColor
8643: Function ArrayOfColor32( Colors : array of TColor32) : TArrayOfColor32
8644: Procedure Color32ToRGB( Color32 : TColor32; var R, G, B : Byte)
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 100