TLabeledEdit

[MichaelC]

Hallo zusammen, hab wieder mal ne Frage:

ich habe 3 Labelededits untereinander, jedes von ihnen hat ein unterschiedlich langes Label ( links neben dem Editfeld ).

Diese Labels sollen nun linksbündig ausgerichtet werden, also der Zwischenraum zwischen Label-ende und dem Editfeld soll mit Blanks aufgefüllt werden. Irgendwie haut das aber nicht hin, hat jemand eine Lösung oder vieleicht einen Vorschlag?



Vielen Dank bereits jetzt......

[Pascal]

Du kannst folgendes probieren, allerdings habe ich es selber noch nicht ausprobiert.

Du benötigst eine Variable
var Fcanvas: TControlCanvas; Nun baust du in deine Prozedur folgendes ein:

Delphi-Quellcode:

Fcanvas := TControlCanvas.Create;
FCanvas.Control := Self;

x := LabeledEdit1.EditLabel.Caption; //Text deines ersten Labels
y := LabeledEdit2.EditLabel.Caption; //Text deines zweiten Labels

Laenge1 := Fcanvas.TextWidth(x); //Laenge des ersten Textes in Pixel
Laenge2 := Fcanvas.TextWidth(y); //Laenge des zweiten Textes in Pixel

if Laenge1 > Laenge2 then 
   LabeledEdit2.LabelSpacing := LabeledEdit1.LabelSpacing 
                                  + (Laenge1 - Laenge2)
else
   LabeledEdit1.LabelSpacing := LabeledEdit2.LabelSpacing 
                                  + (Laenge2 - Laenge1);
//So setzt du den Abstand vom kleineren Label auf den 
//Laengenunterschied zwischen beiden Texten

Von der Idee her könnte das tun, du musst es aber noch ausprobieren und vielleicht ein wenig anpassen.

Viel Spaß dabei.
Gruß Pascal

[Hansa]

Hi,

sei gegrüßt. Das ist eine gute Frage. Suche mal hier nach meinem "Monsterthread". Suche am besten nach diesem Wort. Da kommt so was drin vor, ein "RealLabeledEdit". Aber genau diese Frage war noch unter anderem offen. Aber ich muß Dich zugleich warnen, das ist keine leichte Kost. Und im großen und ganzen ist dafür nur Motzi zuständig, vielleicht noch ich , aber ansonsten ist die Komponentenentwicklung unter Delphi recht gewöhnungsbedürftig und wird deshalb nur spärlich genutzt.

P.S.: sehe gerade Pascal hat zeitgleich etwas geschrieben. @Pascal: könntest Du Dir vielleicht auch mal den anderen Thread ansehen ? Das da sieht nämlich gut aus.

P.S.2: Das hier meinte ich:
http://www.delphipraxis.net/internal...ect.php?t=4392

[Pascal]

Zitat von Hansa:

@Pascal: könntest Du Dir vielleicht auch mal den anderen Thread ansehen ?
P.S.2: Das hier meinte ich:
http://www.delphipraxis.net/internal...ect.php?t=4392

Hi,
was soll ich mir da ansehen?
Ich sehe einen riesen Beitrag, wo viele Leute sich Gedanken gemacht haben, wie man eine Komponente ableitet und neue Funktionen hinzufügt. Aber was genau interessiert dich?
Willst du eine Komponente erstellen, Funktionen überschreiben oder was?
Wenn du mir schreibst, was du machen willst, versuche ich, dir (und anderen) zu helfen.

Gruß Pascal

[Hansa]

Stimmt, selbst mir ist es zuviel das nochmals alles durchzulesen. Dein Problem dürfte sich einfacher lösen lassen. Ich werde das mal verfolgen und eventuell in den alten Thread noch hinzufügen.

[oki]

Hi Hansa,

ich hab mir den Schmerz angetan und unseren Monster-Thread noch mal gelesen (ehrlich auch nur in Auszügen).

Ich dächte das Thema Lebelgröße hatten wir auf Seite 7 geklärt.

Gruß oki

[MichaelC]

Danke ersteinmal für die Hilfe, es klappt ( fast ) gut.

Falls es noch weitere Probs. gibt dann melde ich mich wieder....

bis dahin

schönes WE