Wie kann man für einen leeres Datenbankfeld mit TDBWPRichText die rechte Absatzmarke zu setzen.
v := WPCentimeterToTwips(10);
fValue := wRichtEdit.Header.PageWidth - wRichtEdit.Header.LeftMargin - wRichtEdit.Header.RightMargin - v;
// fvalue := 4259;
if wRichtEdit.isempty then
begin
wRichtEdit.CurrAttr.fontname := vclxGlob.FDefaultFont.name;
wRichtEdit.CurrAttr.size := vclxGlob.FDefaultFont.size;
wRichtEdit.CurrAttr.ASet(WPAT_IndentRight, fValue);
par := WPRichText1.bodytext.firstpar;
while par<>nil do
begin
par.SetProperty(WPAT_IndentRight, fValue);
// par.Aset(WPAT_IndentRight, fValue);
par := par.next;
end;
end;
WPRichText.ReformatAll(true, true);
Die Fonts werden gesetzt aber die rechte Absatzmarke gelingt uns einfach nicht.