🚀 go-pugleaf

Very thanks JD,
Safari

"JD" <nospam@nospam.com> wrote in message
news:3fdc6187$1@newsgroups.borland.com...
|
| "Safari" <Safari@alloymail.com> wrote:
| > I want to have a TEdit with taCenter alignment,
|
| You could use the SetWindowLong() function or subclass the
| TEdit and dynamically allocate the object:
|
| class TCEdit : public TEdit
| {
|     public:
|         __fastcall TCEdit( TComponent* Owner ) : TEdit( Owner )
|         {
|         }
|         void __fastcall CreateParams( TCreateParams& Params )
|         {
|           TEdit::CreateParams( Params );
|           Params.Style |= ES_CENTER;
|         }
| };
|
| TCEdit* CenteredEdit = new TCEdit( this );
|
| Note : you can also use the same code to make a right-aligned
| edit by replacing ES_CENTER with ES_RIGHT (and changing the
| name of course).
|
|
| OR derive your own component and install it to a package. Click Component
| New Component and make the code look like this:
|
| //---- header
| //-------------------------------------------------------------
| #ifndef CEditH
| #define CEditH
| //-------------------------------------------------------------
| #include <SysUtils.hpp>
| #include <Classes.hpp>
| #include <Controls.hpp>
| #include <StdCtrls.hpp>
| //-------------------------------------------------------------
| class PACKAGE TCEdit : public TEdit
| {
| private:
| protected:
| public:
|         __fastcall TCEdit(TComponent* Owner);
|    virtual void __fastcall CreateParams( TCreateParams& Params );
| __published:
| };
| //-------------------------------------------------------------
| #endif
| //-- cpp
| //-------------------------------------------------------------
| #include <vcl.h>
|
| #pragma hdrstop
|
| #include "CEdit.h"
| #pragma package(smart_init)
| //-------------------------------------------------------------
| // ValidCtrCheck is used to assure that the components created do not have
| // any pure virtual functions.
| //
|
| static inline void ValidCtrCheck(TCEdit *)
| {
|         new TCEdit(NULL);
| }
| //-------------------------------------------------------------
| __fastcall TCEdit::TCEdit(TComponent* Owner) : TEdit(Owner)
| {
| }
| //-------------------------------------------------------------
| void __fastcall TCEdit::CreateParams( TCreateParams& Params )
| {
|     TEdit::CreateParams( Params );
|     Params.Style = Params.Style | ES_CENTER; // ES_MULTILINE;
| }
| //-------------------------------------------------------------
| namespace Cedit
| {
|         void __fastcall PACKAGE Register()
|         {
|                  TComponentClass classes[1] = {__classid(TCEdit)};
|                  RegisterComponents("Samples", classes, 0);
|         }
| }
| //-------------------------------------------------------------
|
| Then save the files and click Component | Install Component
| and select a new package that you will provide the name for.
|
| Also note that not all versions of Windows support ES_CENTER
| and ES_RIGHT for single-line edit controls. The alternative is
| to use a TMemo instead, sized to a single line, and disable the
| Enter key and strip out carriage returns when pasting text.
|
| ~ JD