Code: Select all
var
rve: TCustomRichViewEdit;
rve := RichViewEdit1.TopLevelEditor;
Alignment := rve.Style.ParaStyles[rve.GetItemPara(rve.CurItemNo)].Alignment;
Code: Select all
var
rve: TCustomRichViewEdit;
rve := RichViewEdit1.TopLevelEditor;
Alignment := rve.Style.ParaStyles[rve.GetItemPara(rve.CurItemNo)].Alignment;
Code: Select all
RichViewEdit1.TopLevelEditor.MoveCaret(rvcmBottom);