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;