vertikales Zentrieren in abgeleiteter Edit-Kompo

[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