Fórum [Dúvida] Personalizando Componentes da VCL: TLabeledEdit #367139

unit LabeledEditEx;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls, ExtCtrls, Graphics;

type
  TLabeledEditEx = class(TCustomLabeledEdit)
  private
    { Private declarations }
    FEditWidth: Integer;
    FLabelBackgroundColor: TColor;
    FLabelFontColor: TColor;
    FLabelWidth: Integer;
    function GetEditWidth: Integer;
    procedure SetLabelWidth(Value: Integer);
    procedure SetLabelBackgroundColor(Value: TColor);
    procedure SetLabelFontColor(Value: TColor);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property LabelWidth: Integer Read GetEditWidth Write SetLabelWidth;
  published
    { Published declarations }
    property LabelBackugroundColor: TColor Read FLabelBackgroundColor Write SetLabelBackgroundColor Default clInactiveCaption;
    property LabelFontColor: TColor Read FLabelFontColor Write SetLabelFontColor Default clWindow;
    //property LabelWidth: Integer Read GetEditWidth Write SetLabelWidth;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(´Bruno Components´, [TLabeledEditEx]);
end;

{ TLabeledEditEx }

constructor TLabeledEditEx.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FLabelBackgroundColor := clInactiveCaption;
  FLabelFontColor := clWindow;

  EditLabel.Transparent := False;
  EditLabel.Color := FLabelBackgroundColor;
  EditLabel.Font.Color := FLabelFontColor;

  TLabel(EditLabel).AutoSize := False;
  TLabel(EditLabel).Alignment := taCenter;

  EditLabel.Width := Self.Width;
end;

destructor TLabeledEditEx.Destroy;
begin
  inherited Destroy;
end;

function TLabeledEditEx.GetEditWidth: Integer;
begin
  FLabelWidth := Self.Width;

  EditLabel.Width := FLabelWidth;

  Result := FLabelWidth;
end;

procedure TLabeledEditEx.SetLabelBackgroundColor(Value: TColor);
begin
  FLabelBackgroundColor := Value;

  EditLabel.Color := FLabelBackgroundColor;
end;

procedure TLabeledEditEx.SetLabelFontColor(Value: TColor);
begin
  FLabelFontColor := Value;

  EditLabel.Font.Color := FLabelFontColor;
end;

procedure TLabeledEditEx.SetLabelWidth(Value: Integer);
begin
  FLabelWidth := Self.Width;

  EditLabel.Width := FLabelWidth;
end;

end.