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

richmemo: renamed values of TTabAlignment from ta** to tab** to prevent name collision with Classes.TAlignment.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4140 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-05-18 12:16:18 +00:00
parent d245500ae0
commit e1182fc49d
3 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/richmemo/cocoa/cocoarichmemo.pas
View File

@ -472,11 +472,11 @@ var
rng : NSRange;
const
TabAlignMap : array [TTabAlignment] of NSTextTabType = (
NSLeftTabStopType, // taLeft,
NSCenterTabStopType, // taCenter,
NSRightTabStopType, // taRight,
NSDecimalTabStopType, // taDecimal
NSLeftTabStopType // taWordBar - not supported
NSLeftTabStopType, // tabLeft,
NSCenterTabStopType, // tabCenter,
NSRightTabStopType, // tabRight,
NSDecimalTabStopType, // tabDecimal
NSLeftTabStopType // tabWordBar - not supported
);
begin
view:=MemoTextView(AWinControl);
@ -526,9 +526,9 @@ begin
tab:=NSTextTab(tabs.objectAtIndex(i));
AStopList.Tabs[i].Offset:=tab.location;
case tab.tabStopType of
NSCenterTabStopType: AStopList.Tabs[i].Align:= taCenter;
NSRightTabStopType: AStopList.Tabs[i].Align:= taRight;
NSDecimalTabStopType: AStopList.Tabs[i].Align:= taDecimal;
NSCenterTabStopType: AStopList.Tabs[i].Align:= tabCenter;
NSRightTabStopType: AStopList.Tabs[i].Align:= tabRight;
NSDecimalTabStopType: AStopList.Tabs[i].Align:= tabDecimal;
else
AStopList.Tabs[i].Align:=taLeft;
end;

2
components/richmemo/richmemo.pas
View File

@ -94,7 +94,7 @@ type
end;
type
TTabAlignment = (taLeft, taCenter, taRight, taDecimal, taWordBar);
TTabAlignment = (tabLeft, tabCenter, tabRight, tabDecimal, tabWordBar);
TTabStop = record
Offset : Double;

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

@ -874,11 +874,11 @@ var
i : Integer;
const
PARAALIGN : array [TTabAlignment] of LongWord = (
0 shl TAB_OFFSET_BITS, // taHead,
1 shl TAB_OFFSET_BITS, // taCenter,
2 shl TAB_OFFSET_BITS, // taTail,
3 shl TAB_OFFSET_BITS, // taDecimal,
4 shl TAB_OFFSET_BITS // taWordBar
0 shl TAB_OFFSET_BITS, // tabHead,
1 shl TAB_OFFSET_BITS, // tabCenter,
2 shl TAB_OFFSET_BITS, // tabTail,
3 shl TAB_OFFSET_BITS, // tabDecimal,
4 shl TAB_OFFSET_BITS // tabWordBar
);
begin
@ -926,12 +926,12 @@ begin
v:=para.rgxTabs[i];
AStopList.Tabs[i].Offset:=(v and TAB_OFFSET_MASK) / TWIP_PT;
case (v shr TAB_OFFSET_BITS) and TAB_ALIGN_MASK of
TAB_CENTER : al:=taCenter;
TAB_RIGHT : al:=taRight;
TAB_DECIMAL: al:=taDecimal;
TAB_WORD : al:=taWordBar;
TAB_CENTER : al:=tabCenter;
TAB_RIGHT : al:=tabRight;
TAB_DECIMAL: al:=tabDecimal;
TAB_WORD : al:=tabWordBar;
else
al:=taLeft;
al:=tabLeft;
end;
AStopList.Tabs[i].Align:=al;
end;