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

richmemo: added tab offset mask (to prevent collision with tab underline information)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4043 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-17 02:28:31 +00:00
parent 3fec33252d
commit 3f4026e7c4
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/richmemo/win32/win32richmemo.pas
View File

@ -148,6 +148,7 @@ const
const
TAB_OFFSET_MASK = $7FFFFF;
TAB_OFFSET_BITS = 24;
TAB_ALIGN_MASK = 3;
TWIP_PT = 20; // Twips in Point. Twips are commonly used measurement unit for RichEdit inteface
TAB_LEFT = 0; // Ordinary tab
@ -844,7 +845,7 @@ begin
for i:=0 to AStopList.Count-1 do begin
v:=para.rgxTabs[i];
AStopList.Tabs[i].Offset:=(v and TAB_OFFSET_MASK) / TWIP_PT;
case v shr TAB_OFFSET_BITS of
case (v shr TAB_OFFSET_BITS) and TAB_ALIGN_MASK of
TAB_CENTER : al:=taCenter;
TAB_RIGHT : al:=taRight;
TAB_DECIMAL: al:=taDecimal;