Entwickler-Ecke :: Thema anzeigen - rechtsbündig im edit

Abu36 - Di 15.08.06 16:01
Titel: rechtsbündig im edit - feld ????

hi,

ich wollt mal wissen was ich einstellen muss, damit ich im edit- feld rechtsbündig schreibe

danke

Leuchtturm - Di 15.08.06 16:03

Suche mal bei Torry [http://www.torry.net] nach AlignEdit

Abu36 - Di 15.08.06 16:20

danke, hab mir da jetzt was runtergeladen, und entpackt, aber wo soll ich das jetzt hinmachen???

Leuchtturm - Di 15.08.06 16:24

Mit Delphi7 eine Komponente installieren:
1.Komponenten->Komponente instalieren
2.Durchsuchen(Name der Unit)
3.name_der_kompo.pas
4.OK

dann müsste sie installiert sein

Leuchtturm

Abu36 - Di 15.08.06 16:34

ok, das hat auch geklappt, und wo stell ich das nun fürs edit um. hab die eigenschaften vom edit schou durchgeschaut, aber nichts gefunden

????

Leuchtturm - Di 15.08.06 16:36

Alignment ich glaube die Bezeichnungen sind aussagekräftig :wink:

magic87 - Do 17.08.06 14:02

Gibt es keine simplere Methode um im Edit rechtsbündig zu schreiben??? Gibts dafür nicht eine Eigenschaft die man einfach umstellen kann oder so? Würde das nämlich auch gerne wissen! würd mich freuen wenn das jemand weiß.
Liebe Grüße

FloL - Do 17.08.06 14:16

und zwar BIDIDMode da kannst du es einstellen.

Fighter#1 - Do 17.08.06 14:16

Du könntest mal was probieren:
Du schaust wie viel Pixel dein Wort, Satz im Edit an breite braucht. (kp wie[evtl mit Schriftgröße]) Dann schaust du wie viel Pixel das Edit breit ist und schaust dann wie viele Leerzeichen davor müssten dass es rechtsbündig wird...
Nur ein Ansatz

magic87 - Do 17.08.06 15:22

Mit BIDIMode geht es nicht!! Habe das ausprobiert! Oder welche Einstellung hast du da genommen? Hast du noch irgendeine Eigenschaft auf true oder so gesetzt??

Baumunk - Do 17.08.06 16:07

Hallo es gibt eigenschaften von windows die Borland nicht implementiert hat.
Da denn komponent der von TEdit abgeleitet.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

{ TEEdit}
  TTextAlign = (eLeft, eRight, eCenter);
  TEEdit = Class (TEdit)
  Private
    FAlign : TTextAlign;
    Procedure SetAlign (Const Value : TTextAlign);
  Protected
    procedure CreateParams(var Params: TCreateParams); override;
  Public
    constructor Create(AOwner: TComponent); override;
  published  
    Property TextAlign : TTextAlign Read FAlign Write SetAlign;
  End;

implementierung

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

{ TEEdit }

procedure TEEdit.CreateParams(var Params: TCreateParams);
Const
  Alignments     : array[TTextAlign] of DWORD = (ES_LEFT, ES_RIGHT, ES_CENTER);
Begin
  Inherited CreateParams (Params);
  Params.Style := Params.Style or Alignments [FAlign];
End;

Procedure TEEdit.SetAlign (Const Value : TTextAlign);
Begin
  If Value = FAlign Then Exit;
  FAlign := Value;
  ReCreateWnd;
End;

constructor TEEdit.Create(AOwner: TComponent);
Begin
  Inherited;
  FAlign := eLeft;
End;