neue Komponente : "TlabeledLabel"

[Hansa]

Hi,

ich bräuchte folgende Komponente : 2 aneinander gekoppelte Labels. Das eine dient zur Beschriftung (also konstant), das andere zur Anzeige von beliebigen (variablen) Werten. Diese Komponente soll auf der Form immer im Zusammenhang verschoben werden können. Es geht u.A. darum, daß nicht die Beschriftung und der Wert ziel- und planlos in der Gegend rum stehen.

Der variable Teil sollte auch formatiert werden können. Also z.B. bei Zahlen rechtsbündig und bei reals auch mit definitiv 2 Nachkommastellen dargestellt werden.

Da Komponentenentwicklung angeblich überhaupt kein Problem ist (laut Forum), bitte ich um Hinweise, wie das am Besten zu machen ist, bzw. wie und wo anzufangen ist. Vor allem, da dies nun wirklich eine einfache Komponente ist.

[Alexander]

Ich glaube so etwas hatten wir schon mal. Such mal :)

Edit: schau mal hier

[fred.reichbier]

äähh... das thema hat er selber eröffnet...

[Hansa]

Haha, ist das alles ? :mrgreen: Bitte nur ernstgemeinte Beiträge und keine Hinweise auf andere Beiträge die ähnlich sind. Oder irgendwelche Suchhinweise. Ich warte auf die Komponentenentwickler und was die meinen, wie das am besten geht.

[RavenIV]

warum nimmst du nicht ein TLabeledEdit?
da hast du ein Label und ein Ausgabefeld, die gekoppelt sind.
und du kannst es aussehen lassen, wie zwei gekoppelte Labels.

gruessle

[woki]

Hi,

würde TLabeldEdit dein Problem vielleicht lösen?
Ich meine, das ist ja fast das was du suchst. Ansonsten wirst Du dir schon irgendein Tutorial nehmen, und dich ein wenig in Komponentenentwicklung einarbeiten müssen.

Kannst dafür dann TLabeledEdit als Vorbild nehmen.

Grüßw
Woki

[RavenIV]

ich war schneller ;-))

[Hansa]

Zitat:

Zitat von RavenIV

warum nimmst du nicht ein TLabeledEdit?
da hast du ein Label und ein Ausgabefeld...

Nicht Ausgabefeld, das beteiligte Edit ist eben ein Eingabe-Feld. Und das ist nicht erwünscht. Es soll auch nach außen hin nicht den Eindruck erwecken, man könne da was eingeben, also auch nicht bloß disabled aussehen.

[RavenIV]

du kannst das edit-feld aussehen lassen wie ein label.
also hintergrundfarbe ändern, rahmen wegmachen, usw.
schau dir mal die propoerties im objectinspector an.

gruessle

[mschaefer]

Moin, ins Saarland,

sag mal Hansa, würde Dir ein Label mit sagen wir drei Caption (Cap1,..,Cap3) Eigenschaften reichen?
Dann könnte man Währung - variabler Wert - Einheit in ein Label schieben. Die eigenschaften würden dann in den SetRoutinen zu dem gemeinsamen "Caption" zusammengehängt. Sowas könnte ich Dir sicherlich auch mal zwischendurch (Sorry leider wenig Zeit) zusammenschrauben.

Grüße // Martin

[Robert_G]

Warst du nichtmal so stolz auf dein labeled DB Edit?
Wenn wirklich du (und nicht etwa Motzi ;) ) das Ding geschrieben hast, sollte doch eine Adaption für ein Label kein Problem darstellen. :gruebel:

[Hansa]

Aha, der erste "Komponentenentwickler" ist aufgetaucht. 8) Nochmals, es geht nicht um ein Edit !!

Edit : wie siehts eigentlich mit konkreten Vorschlägen aus ?

[SirThornberry]

und hier ist das schmuckstück (sollte selbsterklärend sein):

Delphi-Quellcode:

  TLabelLabel = class(TGraphicControl)
  private
    fAlignment: TAlignment;
    fCaption: String;
    fLeftMargin: Integer;
    fText: String;
    procedure FSetAlignment(AValue: TAlignment);
    procedure FSetStr(AType: Integer; AValue: String);
  public
    constructor Create(AOwner: TComponent); override;
    procedure Paint; override;
  published
    property Alignment: TAlignment read fAlignment write FSetAlignment default taLeftJustify;
    property Caption: String Index 0 read fCaption write FSetStr;
    property Font;
    property Text: String Index 1 read fText write FSetStr;
  end;

[...]

constructor TLabelLabel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  fAlignment := taLeftJustify;
  fCaption := 'Caption:';
  fLeftMargin := 5;
  fText := 'Text';
end;

procedure TLabelLabel.Paint;
var LCaptionWidth, LTextWidth, LLeft: Integer;
begin
  Canvas.Brush.Style := bsClear;
  Canvas.Font.Assign(Font);
  LCaptionWidth := Canvas.TextWidth(fCaption);
  LTextWidth := Canvas.TextWidth(fText);
  Canvas.TextOut(0, 0, fCaption);
  if (fAlignment = taLeftJustify) or
     (Width < LCaptionWidth + fLeftMargin + LTextWidth) then
    Canvas.TextOut(LCaptionWidth + fLeftMargin, 0, fText)
  else begin
    if fAlignment = taRightJustify then
      Canvas.TextOut(Width - LTextWidth, 0, fText)
    else begin
      LLeft := (Width - LCaptionWidth - fLeftMargin - LTextWidth) div 2;
      Canvas.TextOut(LCaptionWidth + fLeftMargin + LLeft, 0, fText);
    end;
  end;
end;

procedure TLabelLabel.FSetAlignment(AValue: TAlignment);
begin
  if AValue <> fAlignment then
  begin
    fAlignment := AValue;
    Repaint;
  end;
end;

procedure TLabelLabel.FSetStr(AType: Integer; AValue: String);
  procedure LSetVal(var LStr: String);
  begin
    if AValue <> LStr then
    begin
      LStr := AValue;
      Repaint;
    end;
  end;
begin
  if AType = 0 then
    LSetVal(fCaption)
  else if AType = 1 then
    LSetVal(fText);
end;

[sandraeberlein]

Zitat:

es geht nicht um ein Edit !!

Edit : wie siehts eigentlich mit konkreten Vorschlägen aus ?

Warum machst du dann ein Edit? :D

[SirThornberry]

@sandraeberlein: Er hat doch gar kein Edit gemacht!!! zumindest nicht für den zweck, und damals hat ?er? ein db-Edit-irgendwas gebaut weil er das damals brauchte, jetzt braucht er aber was anderes.

@Hansa: wozu hast du eigentli icq wenn du dann ni antwortest?

[mschaefer]

Moin, Spätmoin,

@SirThornberry: Danke das Du meinen Part schon übernommen hast. Die Sache mit dem Index hat sogar einige Raffinesse. Da kann Hansa gleich sein Package einrichten...

Grüße // Martin

[SirThornberry]

No Problem, hat ja nur paar minütschen gedauert... Hmm, Raffinesse würd ich das ni nennen, eher faulheit weil ich kein bock hatte 2 SetMethoden zu schreiben

[Hansa]

Da fehlt aber noch etliches. Muß mal noch mehr im Source gucken. Was geht ist folgendes : der Text innerhalb des Labels kann rumgeschoben werden.

[SirThornberry]

wenn dir was fehlt kannst du es ja anpassen, die anforderungen die du gestellt hast wurden erfüllt und falls nicht ist es eigentlich auch egal weil du ursprünglich nur einen gedankenanstoß brauchtest wie man sowas umsetzt, und den solltest du ja jetzt bekommen haben.

Desweiteren hatte ich ja versucht dir bei icq zu schreiben (eben um eventuell weitere wünsche gleich mit reinzupacken), hab aber leider keine antwort erhalten.

[mschaefer]

Moin, mon,

also Hansa, morgendlich knapp, erst mal ist nicht jeder in bestiz einer großen Glaskugel, das Hellsehen wird leider auch nur noch sehr selten vererbt. Du solltest uns schon veraten was Du willst. Aber vielleicht postet Du ja die nächste Version. Bin jedenfalls mal neugierig...

Grüße // Martin

[woki]

Hi,

trotzdem wäre es eine gute Idee gewesen meinen Voschlag ernst zu nehmen, und ordentliche OOP zu machen. Nämlich mal bei TLabeledEdit im Source vorbeischauen, dann Kompponente|neue Komponente auswählen, wahscheinlich von TCustomlabel oder TLabel ableiten, nochmal bei TLabeldededit reinschauen, die anderen Label wahrscheinlich als Property vom Typ TBoundlabel deklarieren...


and you are on your proper OOP way and save a lot of work.

Grüsse
Woki

Edit: So wars gemeint