Komponenten zu labeled Komponenten "wandeln"

[Sherlock]

Ich geh ins Wochenende

Hier mein Versuch das per decorator pattern umzusetzen.
Das sind noch keine Komponenten, das käme später, es geht erstmal um Machbarkeit:

Delphi-Quellcode:

type
  TNxBoundLabel = class(TBoundLabel)            //* Damit wir an die protected-Innereien herankommen
  end;

  TNxLabeledControl = class(TCustomEdit)        //* Der Dekorateur für TCustomEdit
  private                                       //* TCustomEdit deshalb, weil viele Komponenten davon abgeleitet sind...Datepicker leider nicht.
    fCustomEdit: TCustomEdit;
    fEditLabel: TNxBoundLabel;
    fLabelPosition: TLabelPosition;
    fLabelSpacing: Integer;
    procedure SetLabelPosition(const Value: TLabelPosition);
    procedure SetLabelSpacing(const Value: Integer);
  protected
    procedure SetParent(AParent: TWinControl); override;
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
    procedure SetName(const Value: TComponentName); override;
    procedure CMVisiblechanged(var Message: TMessage); message CM_VISIBLECHANGED;
    procedure CMEnabledchanged(var Message: TMessage); message CM_ENABLEDCHANGED;
    procedure CMBidimodechanged(var Message: TMessage); message CM_BIDIMODECHANGED;
  public
    constructor Create(AOwner: TComponent; aCustomEdit: TCustomEdit); reintroduce;
    procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override;
    procedure SetupInternalLabel;
    property EditLabel: TNxBoundLabel read FEditLabel;
  published
    property LabelPosition: TLabelPosition read FLabelPosition
      write SetLabelPosition default lpAbove;
    property LabelSpacing: Integer read fLabelSpacing write SetLabelSpacing
      default 3;
  end;

  TNxEdit = class(TNxLabeledControl)    //* Das zu dekorierende Control ist in diesem einfachen Fall ein TEdit (siehe Code im Contrustor)
  private
    fNXLabeledControl: TNxLabeledControl;
  public
    constructor Create(aOwner: TComponent);
    destructor Destroy; override;
  end;

Die meisten Methoden sind im Prinzip C&P aus TCustomLabeledEdit. Worauf es IMO ankommt ist:

Delphi-Quellcode:

constructor TNxLabeledControl.Create(AOwner: TComponent; aCustomEdit: TCustomEdit);
begin
  inherited Create(AOwner);
  fCustomEdit := aCustomEdit;
  FLabelPosition := lpAbove;
  FLabelSpacing := 3;
  SetupInternalLabel;
end;

procedure TNxLabeledControl.SetupInternalLabel;
begin
  if Assigned(FEditLabel) then
    exit;
  if not Assigned(fCustomEdit) then
    exit;
  FEditLabel := TNxBoundLabel.Create(fCustomEdit);
  FEditLabel.FreeNotification(fCustomEdit);
  FEditLabel.FocusControl := fCustomEdit;
end;

Der Code für das zu labelnde Edit

Delphi-Quellcode:

constructor TNxEdit.Create(aOwner: TComponent);
begin
  inherited Create(aOwner, TEdit.Create(Self));   //* Hier steht endlich die zu verwendende Komponente
end;

destructor TNxEdit.Destroy;
begin
  fCustomEdit.Free;
  inherited;
end;

In einem ersten Test wird zwar das Edit angezeigt, nicht jedoch das Label Ich freue mich aber darüber das es nicht knallt

Ich schau Montag wieder rein. Bis denne!

Sherlock

[Helmi]

Hallo,

ich hab mir auch mal TLabeled-Komponenten gebaut
Hab ein TLabeledComboBox, TLabeledSpinEdit, TLabeledMaskEdit und ein paar Sonder-Komponenten.

Wobei ich nicht nur ein Label drin hab, sondern 2 (pre und pro)
Also eines vor links z. B. und eines vor rechts (z. B. links für einen Infotext, rechts für eine Einheit)

Anbei mal mein TLabeledSpinEdit

eigentlich unterscheiden sich die o. g. Komponenten nur in dieser Zeile:
TLabeledSpinEdit = class(TSpinEdit) (und natürlich der Klassennamen der functions....)

[Sherlock]

Hallo Helmi,
wunderschön. Sowas habe ich ja auch vor. Mit dem Unterschied, daß ich nicht für jede weitere gelabelte Komponente den gleichen Code kopieren möchte. Da muss es doch was von Ratioph...äh von den Freunden aus der GoF geben. Ich dachte eben an das Decorator Pattern, weil ich (eventuell zu bildlich denkend) das Label für die Dekoration eines Controls halte. Ich setze mich heute wieder ran, und schau ob ich es nicht doch noch hinbekomme. Ich will ja auch was lernen ISt ja eigentlich fast fertig, es fehlt schließlich nur die Anzeige des Labels.

Sherlock

[WoGe]

Wenn es darum geht das Decorator Pattern hier zu verwenden, ist mein Ansatz wahrscheinlich falsch.
Aber waren die Frames nicht auch dazu gedacht, genau so was zu realisieren?

Ein Frame der ein TLabel und ein TxxxxEdit enthält - samt der ganzen Logik die dazu benötigt wird?

Grüße
wo

[stahli]

Falls Du es mal testen willst, hier doch mal mein Ansatz.
(Einfach die Formulargröße soweit verkleinern dass die Contros zusammengeschoben werden und mehrfach Button4 drücken.)

Es werden Rahmen- bzw. Beschriftungscontrols dynamisch hinter die eigentlichen Controls platziert, ohne dass diese in irgendeiner Weise verändert werden.

Die Umschaltung des "Beschriftungsstiles" war grundsätzlich in einem Komponenteneditor zur Designtime vorgesehen. Die Eigentliche Komponente wird in meinem Fall verkleinert, so dass sie in den Rahmen passt (und die Komponente incl. Rahmen immer den gleichen Platz in ihrem Umfeld braucht).

Im Formular werden die dynamisch erzeugten "Rahmenkomponten" nicht gespeichert, sondern nur die Regeln, die für das Ausrichten und Beschriften gelten sollen.

Zur Laufzeit klappte das alles super. Innerhalb der IDE nicht so.

Es ist also m.E. nicht ganz so einfach, das dynamisch zu lösen, ohne Controlderivate zu verwenden. Immerhin musst Du ja auch den Beschriftungstext und die Ausrichtung irgendwie im Formular speichern.

Zeig mal ein paar Screenshots, wenn Du´s fertig hast...

[Sherlock]

Ich habe das Thema begraben, da es mit dem decorator pattern nicht mit vertretbaren Aufwand umsetzbar ist. Im Prinzip liegt es an der VCL. Es wäre ein Interface für TWinControl nötig, das als Grundlage für den Decorator dienen würde. Oder aber es müsste Mehrfachvererbung in Delphi geben...auch das gibts nicht. Also hab ich es beiseite gelegt und würde es über die althergebrachte Methode machen. Dabei werde ich halt versuchen so viel code wie möglich wiederzuverwenden, aber... elegant ist anders.

Ich danke Euch für Eure Ideen!

Sherlock

[Sir Rufo]

Bau dir doch einen Container (abgeleitet von TCustomPanel) und bestück das mit allem was du benötigst. Die Controls kannst du dann einfach da rein klatschen und gut ist.