paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 09:50:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/EditOpts: Fix saving position of page-tabs. issue #0018399

Browse Source 
git-svn-id: trunk@28871 -
This commit is contained in:
martin 2011-01-05 14:25:35 +00:00
parent cfa9c9c875
commit 000f6941b0
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/editoroptions.pp
View File

@ -1069,8 +1069,6 @@ type
property HideSingleTabInWindow: Boolean
read FHideSingleTabInWindow write FHideSingleTabInWindow;
property ShowTabNumbers: Boolean read fShowTabNumbers write fShowTabNumbers;
property TabPosition: TTabPosition
read fTabPosition write fTabPosition default tpTop;
property UndoAfterSave: Boolean read fUndoAfterSave
write fUndoAfterSave default True;
property FindTextAtCursor: Boolean
@ -1164,10 +1162,12 @@ type
write FAutoRemoveEmptyMethods default False;
property CompletionLongLineHintInMSec: Integer
read FCompletionLongLineHintInMSec write FCompletionLongLineHintInMSec;
published
property CompletionLongLineHintType: TSynCompletionLongHintType
read FCompletionLongLineHintType write FCompletionLongLineHintType
default sclpExtendRightOnly;
public
// Code Folding
property UseCodeFolding: Boolean
read FUseCodeFolding write FUseCodeFolding default True;
@ -1177,6 +1177,8 @@ type
read FMultiWinEditAccessOrder write FMultiWinEditAccessOrder;
published { use RTTIConf}
property TabPosition: TTabPosition
read fTabPosition write fTabPosition default tpTop;
// Code Folding
property ReverseFoldPopUpOrder: Boolean
read FReverseFoldPopUpOrder write FReverseFoldPopUpOrder default True;
@ -3437,8 +3439,6 @@ begin
'EditorOptions/General/Editor/HideSingleTabInWindow', False);
fShowTabNumbers :=
XMLConfig.GetValue('EditorOptions/General/Editor/ShowTabNumbers', False);
fTabPosition := tpTop;
XMLConfig.ReadObject('EditorOptions/General/Editor/', self, self, 'TabPosition');
FCopyWordAtCursorOnCopyNone :=
XMLConfig.GetValue(
'EditorOptions/General/Editor/CopyWordAtCursorOnCopyNone', True);
@ -3639,7 +3639,6 @@ begin
, FHideSingleTabInWindow, False);
XMLConfig.SetDeleteValue('EditorOptions/General/Editor/ShowTabNumbers'
, fShowTabNumbers, False);
XMLConfig.WriteObject('EditorOptions/General/Editor/', self, nil, 'TabPosition');
XMLConfig.SetDeleteValue(
'EditorOptions/General/Editor/CopyWordAtCursorOnCopyNone',
FCopyWordAtCursorOnCopyNone, True);