xsms.hpp

boomerang library 5.11 internet ed

	__property int Height = {read=fHeight, write=SetHeight, nodefault};
	__property Types::TPoint Size = {read=GetSize, write=SetSize};
	__property Graphics::TBitmap* Images[int Index] = {read=GetImage, write=SetImage};
	__fastcall virtual TSMOTABitmap(void);
	__fastcall virtual ~TSMOTABitmap(void);
	void __fastcall ImportFromImage(Graphics::TBitmap* aBMP);
	void __fastcall ExportToImage(Graphics::TBitmap* aBMP);
};


class DELPHICLASS TSMScreenSaver;
class PASCALIMPLEMENTATION TSMScreenSaver : public TSMOTABitmap 
{
	typedef TSMOTABitmap inherited;
	
public:
	#pragma option push -w-inl
	/* TSMOTABitmap.Create */ inline __fastcall virtual TSMScreenSaver(void) : TSMOTABitmap() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSMOTABitmap.Destroy */ inline __fastcall virtual ~TSMScreenSaver(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMCLIIcon;
class PASCALIMPLEMENTATION TSMCLIIcon : public TSMOTABitmap 
{
	typedef TSMOTABitmap inherited;
	
protected:
	virtual AnsiString __fastcall Encode();
	virtual void __fastcall Decode(const AnsiString Value);
public:
	#pragma option push -w-inl
	/* TSMOTABitmap.Create */ inline __fastcall virtual TSMCLIIcon(void) : TSMOTABitmap() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSMOTABitmap.Destroy */ inline __fastcall virtual ~TSMCLIIcon(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMOperatorLogo;
class PASCALIMPLEMENTATION TSMOperatorLogo : public TSMOTABitmap 
{
	typedef TSMOTABitmap inherited;
	
private:
	Word fMCC;
	Byte fMNC;
	
protected:
	virtual AnsiString __fastcall Encode();
	virtual void __fastcall Decode(const AnsiString Value);
	
public:
	__property Word MCC = {read=fMCC, write=fMCC, nodefault};
	__property Byte MNC = {read=fMNC, write=fMNC, nodefault};
public:
	#pragma option push -w-inl
	/* TSMOTABitmap.Create */ inline __fastcall virtual TSMOperatorLogo(void) : TSMOTABitmap() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSMOTABitmap.Destroy */ inline __fastcall virtual ~TSMOperatorLogo(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMTextISO;
class PASCALIMPLEMENTATION TSMTextISO : public TSmartMessage 
{
	typedef TSmartMessage inherited;
	
private:
	AnsiString fText;
	
protected:
	virtual AnsiString __fastcall Encode();
	virtual void __fastcall Decode(const AnsiString Value);
	
public:
	__property AnsiString Text = {read=fText, write=fText};
public:
	#pragma option push -w-inl
	/* TSmartMessage.Create */ inline __fastcall virtual TSMTextISO(void) : TSmartMessage() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMTextISO(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMTextUnicode;
class PASCALIMPLEMENTATION TSMTextUnicode : public TSmartMessage 
{
	typedef TSmartMessage inherited;
	
private:
	WideString fText;
	
protected:
	virtual AnsiString __fastcall Encode();
	virtual void __fastcall Decode(const AnsiString Value);
	
public:
	__property WideString Text = {read=fText, write=fText};
public:
	#pragma option push -w-inl
	/* TSmartMessage.Create */ inline __fastcall virtual TSMTextUnicode(void) : TSmartMessage() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMTextUnicode(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMProfile;
class PASCALIMPLEMENTATION TSMProfile : public TSMTextUnicode 
{
	typedef TSMTextUnicode inherited;
	
public:
	#pragma option push -w-inl
	/* TSmartMessage.Create */ inline __fastcall virtual TSMProfile(void) : TSMTextUnicode() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMProfile(void) { }
	#pragma option pop
	
};


class DELPHICLASS TBitStream;
class PASCALIMPLEMENTATION TBitStream : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	AnsiString fData;
	Byte fBitCnt;
	int fByteCnt;
	bool fUnicodeFlag;
	void __fastcall SetData(const AnsiString Value);
	bool __fastcall GetEOF(void);
	
public:
	__property AnsiString Data = {read=fData, write=SetData};
	__property bool EOF = {read=GetEOF, nodefault};
	void __fastcall PutFillers(void);
	void __fastcall SkipFillers(void);
	bool __fastcall GetBit(void);
	void __fastcall PutBit(bool aVal);
	unsigned __fastcall GetBits(Byte aNum);
	void __fastcall PutBits(unsigned aVal, Byte aNum);
	void __fastcall Move(int aShift);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TBitStream(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TBitStream(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTPattern;
class PASCALIMPLEMENTATION TSMRTPattern : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Contnrs::TObjectList* fInstructions;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
	virtual void __fastcall Encode(TBitStream* BS);
	
public:
	Byte Id;
	Byte Loop;
	__property Contnrs::TObjectList* Instructions = {read=fInstructions};
	__fastcall virtual TSMRTPattern(void);
	__fastcall virtual ~TSMRTPattern(void);
};


class DELPHICLASS TSMRTInstruction;
class PASCALIMPLEMENTATION TSMRTInstruction : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS) = 0 ;
	virtual void __fastcall Encode(TBitStream* BS) = 0 ;
	
public:
	/*         class method */ static TSMRTInstruction* __fastcall CreateFromStream(TMetaClass* vmt, TBitStream* BS);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTInstruction(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTInstruction(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTNote;
class PASCALIMPLEMENTATION TSMRTNote : public TSMRTInstruction 
{
	typedef TSMRTInstruction inherited;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
	virtual void __fastcall Encode(TBitStream* BS);
	
public:
	Byte Value;
	Byte Duration;
	Byte DurationSpecifier;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTNote(void) : TSMRTInstruction() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTNote(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTScale;
class PASCALIMPLEMENTATION TSMRTScale : public TSMRTInstruction 
{
	typedef TSMRTInstruction inherited;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
	virtual void __fastcall Encode(TBitStream* BS);
	
public:
	Byte NoteScale;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTScale(void) : TSMRTInstruction() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTScale(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTStyle;
class PASCALIMPLEMENTATION TSMRTStyle : public TSMRTInstruction 
{
	typedef TSMRTInstruction inherited;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
	virtual void __fastcall Encode(TBitStream* BS);
	
public:
	Byte Value;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTStyle(void) : TSMRTInstruction() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTStyle(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTTempo;
class PASCALIMPLEMENTATION TSMRTTempo : public TSMRTInstruction 
{
	typedef TSMRTInstruction inherited;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
	virtual void __fastcall Encode(TBitStream* BS);
	
public:
	Byte BeatsPerMin;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTTempo(void) : TSMRTInstruction() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTTempo(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTVolume;
class PASCALIMPLEMENTATION TSMRTVolume : public TSMRTInstruction 
{
	typedef TSMRTInstruction inherited;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
	virtual void __fastcall Encode(TBitStream* BS);
	
public:
	Byte Value;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTVolume(void) : TSMRTInstruction() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTVolume(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTCommandPart;
class PASCALIMPLEMENTATION TSMRTCommandPart : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
	virtual void __fastcall Encode(TBitStream* BS);
	
public:
	/*         class method */ static TSMRTCommandPart* __fastcall CreateFromStream(TMetaClass* vmt, TBitStream* BS);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTCommandPart(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTCommandPart(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTRingingTone;
class PASCALIMPLEMENTATION TSMRTRingingTone : public TSMRTCommandPart 
{
	typedef TSMRTCommandPart inherited;
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTRingingTone(void) : TSMRTCommandPart() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTRingingTone(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTUnicode;
class PASCALIMPLEMENTATION TSMRTUnicode : public TSMRTCommandPart 
{
	typedef TSMRTCommandPart inherited;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTUnicode(void) : TSMRTCommandPart() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTUnicode(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTCancel;
class PASCALIMPLEMENTATION TSMRTCancel : public TSMRTCommandPart 
{
	typedef TSMRTCommandPart inherited;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
	virtual void __fastcall Encode(TBitStream* BS);
	
public:
	Byte Specifier;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTCancel(void) : TSMRTCommandPart() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTCancel(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTSound;
class PASCALIMPLEMENTATION TSMRTSound : public TSMRTCommandPart 
{
	typedef TSMRTCommandPart inherited;
	
private:
	void __fastcall UnsupportedSongType(void);
	
protected:
	void __fastcall EncodeType(TBitStream* BS);
	
public:
	/*         class method */ static TSMRTCommandPart* __fastcall CreateFromStream(TMetaClass* vmt, TBitStream* BS);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSMRTSound(void) : TSMRTCommandPart() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSMRTSound(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTTemporarySong;
class PASCALIMPLEMENTATION TSMRTTemporarySong : public TSMRTSound 
{
	typedef TSMRTSound inherited;
	
private:
	Contnrs::TObjectList* fPatterns;
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
	virtual void __fastcall Encode(TBitStream* BS);
	
public:
	__property Contnrs::TObjectList* Patterns = {read=fPatterns};
	__fastcall virtual TSMRTTemporarySong(void);
	__fastcall virtual ~TSMRTTemporarySong(void);
};


class DELPHICLASS TSMRTBasicSong;
class PASCALIMPLEMENTATION TSMRTBasicSong : public TSMRTTemporarySong 
{
	typedef TSMRTTemporarySong inherited;
	
private:
	WideString fTitle;
	void __fastcall SetTitle(const WideString Value);
	
protected:
	virtual void __fastcall Decode(TBitStream* BS);
	virtual void __fastcall Encode(TBitStream* BS);
	
public:
	__property WideString Title = {read=fTitle, write=SetTitle};
public:
	#pragma option push -w-inl
	/* TSMRTTemporarySong.Create */ inline __fastcall virtual TSMRTBasicSong(void) : TSMRTTemporarySong() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSMRTTemporarySong.Destroy */ inline __fastcall virtual ~TSMRTBasicSong(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSMRTMidiSong;
class PASCALIMPLEMENTATION TSMRTMidiSong : public TSMRTSound