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

richmemo: adjusted renamed tab align properties

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

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

@ -149,6 +149,12 @@ const
TAB_OFFSET_MASK = $7FFFFF;
TAB_OFFSET_BITS = 24;
TWIP_PT = 20; // Twips in Point. Twips are commonly used measurement unit for RichEdit inteface
TAB_LEFT = 0; // Ordinary tab
TAB_CENTER = 1; // Center tab
TAB_RIGHT = 2; // Right-aligned tab
TAB_DECIMAL = 3; // Decimal tab
TAB_WORD = 4; // Word bar tab (vertical bar)
procedure LockRedraw(AHandle: HWND);
begin
@ -839,12 +845,12 @@ begin
v:=para.rgxTabs[i];
AStopList.Tabs[i].Offset:=(v and TAB_OFFSET_MASK) / TWIP_PT;
case v shr TAB_OFFSET_BITS of
1: al:=taCenter;
2: al:=taTail;
3: al:=taDecimal;
4: al:=taWordBar;
TAB_CENTER : al:=taCenter;
TAB_RIGHT : al:=taRight;
TAB_DECIMAL: al:=taDecimal;
TAB_WORD : al:=taWordBar;
else
al:=taHead
al:=taLeft;
end;
AStopList.Tabs[i].Align:=al;
end;