unit AlignEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type

  TAlign = (eaLeft, eaCenter, eaRight);

  TAlignEdit = class(TEdit)
  private
    { Private-Deklarationen }
    FAlign: TAlign;
    FOnExit: TNotifyEvent;
    FOnEnter: TNotifyEvent;
    procedure SetAlign(const Value: TAlign);
    procedure CMEnter(var Message: TMessage); message CM_ENTER;
    procedure CMExit(var Message: TMessage); message CM_EXIT;
  protected
    { Protected-Deklarationen }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
  published
    { Published-Deklarationen }
    property Alignment: TAlign read FAlign write SetAlign default eaCenter;
    property OnExit: TNotifyEvent read FOnExit write FOnExit;
    property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
  end;

procedure Register;

implementation

constructor TAlignEdit.Create(Aowner: TComponent);
begin
  inherited Create(AOwner);
  FAlign := eaCenter;
 autosize:=false;
 font.Name:='Arial';
 font.Size:=9;
 height:=15;
 width:=56;
 text:='--';
 bevelinner:=bvRaised;
 bevelkind:=bknone;
 bevelouter:=bvraised;
 alignment:=eaCenter;
 borderstyle:=bsnone;
 color:=RGB(187,187,175)
end;

procedure TAlignEdit.SetAlign(const Value: TAlign);
begin
  if FAlign <> Value then
  begin
    FAlign := Value;
    RecreateWnd;
  end;
end;

procedure TAlignEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  case FAlign of
    eaLeft: Params.Style   := Params.Style or ES_LEFT;
    eaCenter: Params.Style := Params.Style or ES_CENTER;
    eaRight: Params.Style  := Params.Style or ES_RIGHT;
  end;
end;

procedure TAlignEdit.CMEnter(var Message: TMessage);
begin
 if Assigned(FOnEnter) then
   FOnEnter(Self);

 if readonly=false then
  begin
   bevelkind:=bkflat;
   alignment:=eaLeft;
   borderstyle:=bsSingle;

   left:=left-2;
   width:=width+4;
   top:=top-2;
   height:=height+4
  end;
end;

procedure TAlignEdit.CMExit(var Message: TMessage);
begin
 if Assigned(FOnExit) then
   FOnExit(Self);
if bevelkind <> bknone then
 begin
  bevelkind:=bknone;
  borderstyle:=bsnone;
  alignment:=eaCenter;

  left:=left+2;
  width:=width-4;
  top:=top+2;
  height:=height-4;
  RecreateWnd;
 end;
end;

procedure Register;
begin
  RegisterComponents('SwissDelphiCenter', [TAlignEdit]);
end;

end.