pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: update helper to adjust tabs for all selected paragraphs, rather than under cursor position

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4049 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-18 15:53:20 +00:00
parent 885b7ba7a6
commit b4799b072a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/richmemo/richmemohelpers.pas
View File

@ -266,7 +266,7 @@ begin
Exit Exit
else begin else begin
stop.Tabs[index].Offset:=AValue; stop.Tabs[index].Offset:=AValue;
m.SetParaTabs(m.SelStart, 1, stop); m.SetParaTabs(m.SelStart, m.SelLength, stop);
end; end;
end; end;
@ -280,7 +280,7 @@ begin
if stop.Count<AValue then if stop.Count<AValue then
SetLength(stop.Tabs, AValue); SetLength(stop.Tabs, AValue);
stop.Count:=AValue; stop.Count:=AValue;
m.SetParaTabs(m.SelStart, 1, stop); m.SetParaTabs(m.SelStart, m.SelLength, stop);
end; end;
function TRichEditParaAttributes.GetAlignment: TRichEditAlignment; function TRichEditParaAttributes.GetAlignment: TRichEditAlignment;