Aufzählungszeichen und Nummerierung im Richedit

[DeddyH]

Wenn es da keine Aktion dafür gibt, musst Du wohl selbst ran, dazu kannst Du Dir EM_SETPARAFORMAT anschauen. Ich muss hier auch noch irgendwo entsprechenden Code herumliegen haben, wenn ich den finde, poste ich ihn.

[edit] Gefunden. Schau mal, ob das hier funktioniert, da ich den Code aus einer Methode herauskopiert habe. Ich denke zwar, ich habe nichts übersehen, aber man weiß ja nie.

Delphi-Quellcode:

uses RichEdit;

procedure SetParaNumbering(const RE: TRichEdit);
const
  PFNS_PERIOD    = $200;
  PFN_ARABIC     = $002;
  TWIPS_PER_INCH = $5A0;
var
  fmt: TParaformat2;
begin
  Assert(Assigned(RE));
  ZeroMemory(@fmt, SizeOf(fmt));
  fmt.cbSize := SizeOf(fmt);
  fmt.dwMask := PFM_NUMBERING or PFM_NUMBERINGSTART or PFM_NUMBERINGSTYLE or
                PFM_NUMBERINGTAB or PFM_STARTINDENT;
  fmt.wNumberingTab := TWIPS_PER_INCH shr 3;
  fmt.dxStartIndent := TWIPS_PER_INCH shr 2;
  fmt.wNumbering := PFN_ARABIC;
  fmt.wNumberingStart := 1;
  fmt.wNumberingStyle := PFNS_PERIOD;
  RE.Perform(EM_SETPARAFORMAT, 0, lParam(@fmt));
end;

[/edit]

[edit2] Konstanten deklariert bzw. Namen herausgesucht, macht den Code verständlicher [/edit2]