asgmemo.hpp

wimax bs simulator对应的GUI程序

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'AsgMemo.pas' rev: 5.00

#ifndef AsgMemoHPP
#define AsgMemoHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <AdvGrid.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Asgmemo
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TAdvGridMemo;
class PASCALIMPLEMENTATION TAdvGridMemo : public Stdctrls::TMemo 
{
	typedef Stdctrls::TMemo inherited;
	
private:
	bool FTabIsExit;
	MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Msg);
	HIDESBASE MESSAGE void __fastcall WMKeyDown(Messages::TWMKey &Msg);
	
__published:
	__property bool TabIsExit = {read=FTabIsExit, write=FTabIsExit, nodefault};
public:
	#pragma option push -w-inl
	/* TCustomMemo.Create */ inline __fastcall virtual TAdvGridMemo(Classes::TComponent* AOwner) : Stdctrls::TMemo(
		AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomMemo.Destroy */ inline __fastcall virtual ~TAdvGridMemo(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvGridMemo(HWND ParentWindow) : Stdctrls::TMemo(
		ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TMemoEditLink;
class PASCALIMPLEMENTATION TMemoEditLink : public Advgrid::TEditLink 
{
	typedef Advgrid::TEditLink inherited;
	
private:
	TAdvGridMemo* FEdit;
	Graphics::TColor FColor;
	int FMaxLength;
	Stdctrls::TScrollStyle FScrollbars;
	bool FTabIsExit;
	bool FWantReturns;
	bool FWantTabs;
	
protected:
	HIDESBASE void __fastcall EditExit(System::TObject* Sender);
	
public:
	virtual void __fastcall EditKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift)
		;
	__fastcall virtual TMemoEditLink(Classes::TComponent* AOwner);
	virtual void __fastcall CreateEditor(Controls::TWinControl* AParent);
	virtual void __fastcall DestroyEditor(void);
	virtual Controls::TWinControl* __fastcall GetEditControl(void);
	virtual AnsiString __fastcall GetEditorValue();
	virtual void __fastcall SetEditorValue(AnsiString s);
	virtual void __fastcall SetProperties(void);
	
__published:
	__property Graphics::TColor Color = {read=FColor, write=FColor, nodefault};
	__property Stdctrls::TScrollStyle Scrollbars = {read=FScrollbars, write=FScrollbars, nodefault};
	__property int MaxLength = {read=FMaxLength, write=FMaxLength, nodefault};
	__property bool TabIsExit = {read=FTabIsExit, write=FTabIsExit, nodefault};
	__property bool WantReturns = {read=FWantReturns, write=FWantReturns, nodefault};
	__property bool WantTabs = {read=FWantTabs, write=FWantTabs, nodefault};
public:
	#pragma option push -w-inl
	/* TEditLink.Destroy */ inline __fastcall virtual ~TMemoEditLink(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Asgmemo */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Asgmemo;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// AsgMemo