Text im TMemo vertikal ausrichten...

[FriFra]

Ist es irgendwie möglich, die vertikale Ausrichtung des Textes in einem TMemo zu beeinflussen? Labels haben ja die Eigenschaft "Layout", wenn man die auf "tlCenter" setzt, wird der Text vertikal Zentriert, genau das will ich für ein TMemo...

[FriFra]

Ich hab jetzt eine Lösung gebastelt ;)

Delphi-Quellcode:

procedure VerticalAlignMemo(MyMemo: TMemo);
var
  R: Trect;
  LineHeight, LineTop: integer;
  TmpLabel: TLabel;
  TmpString: string;
  TmpCnt: integer;
  TmpControl: TWinControl;
begin
  TmpLabel := TLabel.Create(Texte);
  TmpLabel.Parent := Texte;
  TmpLabel.Visible := False;
  TmpLabel.Font.Assign(MyMemo.Font);
  LineHeight := TmpLabel.Canvas.TextHeight('T');
  TmpLabel.Free;

  TmpString := MyMemo.Text;
  LineTop := Trunc(((MyMemo.Height - 4) / 2) - (LineHeight / 2));
  TmpCnt := 1;
  while pos(#13, TmpString) > 0 do
  begin
    TmpString := Copy(TmpString, pos(#13, TmpString) + 1, Length(TmpString));
    TmpCnt := TmpCnt + 1;
    if (TmpCnt * (LineHeight / 2)) <= (MyMemo.Height / 2) then
      LineTop := Trunc(((MyMemo.Height - 4) / 2) - (TmpCnt * (LineHeight / 2)));
  end;

  R := Rect(1, LineTop, MyMemo.Width - 2, MyMemo.Height);

  SendMessage(MyMemo.Handle, EM_SETRECTNP, 0, LongInt(@R));
  SendMessage(MyMemo.Handle, EM_SCROLLCARET, 0, 0);

  TmpControl := MyMemo.Parent;
  while TmpControl.HasParent = True do
    TmpControl := TmpControl.Parent;
  if TmpControl.Visible = True then
    MyMemo.Repaint;
end;

Der Nachteil an der Sache ist, dass man es immer onChange aufrufen muss, weil das Memo sonst "normal" gezeichnet werden würde.