RichEdit und Textausrichtung - Code hat keine Auswirkung

[TheMiller]

Halte mich für einen Idioten...: Aber auf die oben dargestellte Weise ist es i-wie cooler
Zumal das ganze Projekt so aufgebaut ist. Evtl. hilft es auch, da es nonvlc ist, denn ich die Editor-Komponente wechsel und diese vllt. nicht mehr diese Eigenschaft hat.

[himitsu]

Hat Perform nicht auch einen Rückgabewert (Result), welches man auswerten kann?

[TheMiller]

Danke für die Antwort. Daran habe ich garnicht gedacht.

Delphi-Quellcode:

...
end else if (Align = 'justify') then
  begin
    fmt.wAlignment:=PFA_JUSTIFY;
  end;

  ShowMessage(IntToStr(Editor.Perform(EM_SETPARAFORMAT, 0, lParam(@fmt))));
  ShowMessage(SysErrorMessage(GetLastError()));

ShowMessage1: 0
ShowMessage2: Der Vorgang wurde erfolgreich ausgeführt.

[himitsu]

hmmmmmm

du hast aber auch was markiert (SelStart und Co.), worauf diese Änderung ihre Auswirkung zeigen kann.

[TheMiller]

Ja klar. Ich haue zum Testen wie wild in die Tasten ("sadasdah had ad"), markiere den sinnreichen Text und klicke dann auf den Button mit dem o.g. Code. Nix tut sich.

Aber wie gesagt: Die Vorgehensweise ist mir bekannt und immer die gleiche. Der Editor ist auch der richtige ...

[Satty67]

Du holst Dir zuvor ParaFormat mit
Editor.Perform(EM_GETPARAFORMAT, 0, lParam(@fmt)); .
Ist danach etwas falsch gesetzt, evtl dwMask nicht mehr auf PFM_ALIGNMENT

[TheMiller]

Bingo! Das war's!

Das setzen der Mask muss nach dem Holen passieren! Vielen Dank für die Hilfe. Ich hätte noch Ewigkeiten gesucht.

Also so:

Delphi-Quellcode:

  Editor.Perform(EM_GETPARAFORMAT, 0, lParam(@fmt));
  fmt.dwMask:=PFM_ALIGNMENT;

Nicht so:

Delphi-Quellcode:

  fmt.dwMask:=PFM_ALIGNMENT;
  Editor.Perform(EM_GETPARAFORMAT, 0, lParam(@fmt));

Vielen Dank!