Hallo,
ich habe folgenden Code:
Delphi-Quellcode:
procedure TAb_rechtsbuendig();
var
pf2: PARAFORMAT2;
begin
FillChar(pf2, SizeOf(pf2), 0);
pf2.cbSize := SizeOf(pf2);
pf2.dwMask := PFM_Tabstops;
pf2.cTabCount:=5;
pf2.rgxTabs[0]:=1440;
pf2.rgxTabs[1]:=2880;
pf2.rgxTabs[2]:=4000;
pf2.rgxTabs[3]:=5000;
pf2.rgxTabs[4]:=6000;
SendMessage(form1.Richedit1.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2));
end;
Ich möchte, dass die Tabstops rechtsbündig sind (also nicht der Text). D.h., wenn man mit der Tab-Taste weitergeht und Text eingibt, verschiebt sich dieser nach links (s. OpenOffice Writer, auf Tabstop doppelt klicken).
name 1
name 12
und eben nicht:
name 1
name 12
Hat jemand eine Idee? Ich bin ein Newbie mit den
API-Geschichten.
Danke!
[edit=Matze][delphi]-Tags eingefügt. MfG, Matze[/edit]