vertikales Zentrieren in abgeleiteter Edit-Kompo

[messie]

Hallo,

ich würde gerne einem Editfeld (was ich schon anderweitig angepasst habe), auch eine Möglichkeit zum vertikalen Zentrieren geben.
Nach dem, was ich bisher verstanden habe, benutzt Tedit oder ähnliche Kompos die API-Funktion SetWindowText, die die DrawText-Option DT_VCENTER nicht kennt.
Kann man das irgendwie als zusätzlichen Parameter übergeben?

Grüße, Messie

[messie]

Hallo, ich habe leider noch keinen Ansatz gefunden.

Grüße, Messie

[SirThornberry]

Mit SetWindowText setzt man nur den Text selbst, nicht wie dieser angezeigt wird.

[messie]

Zitat:

Zitat von SirThornberry

Mit SetWindowText setzt man nur den Text selbst, nicht wie dieser angezeigt wird.

Wo wird denn die Art der Anzeige festgelegt?

Grüße, Messie

[Luckie]

Im Forum sollte es schon Code geben, wie man Text in einem Edit zentrieren kann.

[uwewo]

Delphi-Quellcode:

private
   FAlignment         : TAlignment;
   procedure SetAlignment(Value: TAlignment);
...
public
   procedure CreateParams(var Params: TCreateParams); Override;
...
published
   property Alignment: TAlignment read FAlignment write SetAlignment default taRightJustify;
...
end;

procedure TDeinEdit.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if Parent <> nil then
   case FAlignment of
     taLeftJustify  : Params.Style := Params.Style or ES_LEFT;
     taRightJustify : Params.Style := Params.Style or ES_RIGHT;
     taCenter       : Params.Style := Params.Style or ES_CENTER;
   end;
end;

procedure TDeinEdit.SetAlignment(Value: TAlignment);
begin
  if FAlignment <> Value then
  begin
    FAlignment := Value;
    ReCreateWnd;
  end;
end;

Eine Möglichkeit :wink:

[messie]

Ich wollte gerne vertikal zentrieren, horizontal läuft schon...

Grüße, Messie

[uwewo]

Uuups,

es gibt glaube ich kein "Edit Control Style" für vertikales zentrieren.

DT_VCENTER ist ein Format Flag von DrawText() von daher kann es nicht funktionieren.

[Luckie]

Du müsstest die Ausgabe selber zeichnen mit DrawText und dort das entsprechende Flag mit angeben.

[messie]

Zitat:

Zitat von Luckie

Du müsstest die Ausgabe selber zeichnen mit DrawText und dort das entsprechende Flag mit angeben.

Ja, hatte ich auch schon überlegt. Ich habe aber nichts gefunden wie Canvas etc. wo ich mit DrawText drankomme.

Grüße, Messie

[uwewo]

Versuchs mal damit, ungetestet!!!

Delphi-Quellcode:

ARect := Edit.BoundsRect;
DrawText(Edit.Handle,PChar('Text'), StrLen(PChar('Text')), ARect, DT_VCENTER or DT_CENTER);

[messie]

Zitat:

Zitat von uwewo

Versuchs mal damit, ungetestet!!!

Delphi-Quellcode:

ARect := Edit.BoundsRect;
DrawText(Edit.Handle,PChar('Text'), StrLen(PChar('Text')), ARect, DT_VCENTER or DT_CENTER);

Funzt leider nich'. In die Richtung hatte ich auch schon ein wenig gebastelt. Man kommt irgendwie nicht an die Zeichenfläche dran.

Grüße, Messie

[Luckie]

Wo hast du denn den Code hingeschrieben? Du müsstest die Paint-Methode von TEdit überschreiben und dort mit DrawText den Text ausgeben / zeichnen.

[messie]

Zitat:

Zitat von Luckie

Wo hast du denn den Code hingeschrieben? Du müsstest die Paint-Methode von TEdit überschreiben und dort mit DrawText den Text ausgeben / zeichnen.

Ich habe das, was ich versucht habe, nicht mehr wiedergefunden. Mein Edit ist aber aus dem TntEdit abgeleitet, was fürs Schreiben des WideStrings andere Routinen benutzt als TEdit

Delphi-Quellcode:

function Tnt_SetWindowTextW(hWnd: HWND; lpString: PWideChar): BOOL;
begin
  if Win32PlatformIsUnicode then
    Result := SetWindowTextW{TNT-ALLOW SetWindowTextW}(hWnd, lpString)
  else
    Result := SetWindowTextA{TNT-ALLOW SetWindowTextA}(hWnd, PAnsiChar(AnsiString(lpString)));
end;

Da hatte ich versucht, mit DrawText zu arbeiten aber das klappte nicht, deshalb die Frage.

Grüße, Messie