RichEdit und Textausrichtung - Code hat keine Auswirkung

[TheMiller]

Hallo Leute,

habe ein Projekt, bei dem ich ziemlich viel mit der Paraformat2-Struktur arbeite (Einrücken, Aufzählung etc..)

Nun wollte ich das Projekt um eine Textausrichtung erweitern. Dazu habe ich meinem Muster wieder eine Paraformat-Struktur angelegt, die Ausrichtung gesetzt und diese Struktur dem Editor übergeben. Es gibt keine Fehlermeldung, der Code hat halt einfach nur keine Auswirkung.

Ich finde den Fehler nicht. Die Vorgehensweise habe ich im ganzen Projekt - und da klappts dann auch immer

Delphi-Quellcode:

var
  fmt: TParaformat2;
begin
  ZeroMemory(@fmt, SizeOf(TParaFormat2));
  fmt.cbSize := SizeOf(TParaFormat2);

  fmt.dwMask:=PFM_ALIGNMENT;
  Editor.Perform(EM_GETPARAFORMAT, 0, lParam(@fmt));
  if (Align = 'left') then
  begin
    fmt.wAlignment:=PFA_LEFT;
  end else if (Align = 'center') then
  begin
    fmt.wAlignment:=PFA_CENTER;
  end else if (Align = 'right') then
  begin
    fmt.wAlignment:=PFA_RIGHT;
  end else if (Align = 'justify') then
  begin
    fmt.wAlignment:=PFA_JUSTIFY;
  end;

  Editor.Perform(EM_SETPARAFORMAT, 0, lParam(@fmt));

Ich hoffe, ihr könnt mir helfen. Achso: Ja, ich weiß, dass es einen Aligment-Typ gibt. Ich habe bei dem Erstellen dieses Codes nicht darauf geachtet. Ginge einfacher.

Danke im Voraus