diff --git a/ide/fpdebug.pas b/ide/fpdebug.pas index c51049c3b9..50b03d60bd 100644 --- a/ide/fpdebug.pas +++ b/ide/fpdebug.pas @@ -40,7 +40,7 @@ type { if true the current debugger raw will stay in middle of editor window when debugging PM } - CenterDebuggerRow : boolean; + CenterDebuggerRow : TCentre; Disableallinvalidbreakpoints : boolean; OrigPwd, { pwd at startup } LastFileName : string; @@ -2070,7 +2070,7 @@ begin if W<>nil then begin W^.Select; - W^.Editor^.TrackCursor(true); + W^.Editor^.TrackCursor(do_centre); W^.Editor^.SetLineFlagExclusive(lfHighlightRow,P^.Breakpoint^.Line); end; if Assigned(Owner) then diff --git a/ide/fpini.pas b/ide/fpini.pas index 01da2c6797..6630edbcc7 100644 --- a/ide/fpini.pas +++ b/ide/fpini.pas @@ -499,7 +499,7 @@ begin { Desktop } DesktopFileFlags:=INIFile^.GetIntEntry(secPreferences,ieDesktopFlags,DesktopFileFlags); { Debugger } - IniCenterDebuggerRow:=INIFile^.GetIntEntry(secPreferences,ieCenterDebuggerRow,1)<>0; + IniCenterDebuggerRow:=tcentre(INIFile^.GetIntEntry(secPreferences,ieCenterDebuggerRow,1)); { Preferences } AutoSaveOptions:=INIFile^.GetIntEntry(secPreferences,ieAutoSave,AutoSaveOptions); MiscOptions:=INIFile^.GetIntEntry(secPreferences,ieMiscOptions,MiscOptions); diff --git a/ide/fpvars.pas b/ide/fpvars.pas index 657c11fdf5..bda2a771b9 100644 --- a/ide/fpvars.pas +++ b/ide/fpvars.pas @@ -108,7 +108,7 @@ const ClipboardWindow : PClipboardWindow = nil; AutoSaveOptions : longint = asEnvironment+asDesktop; MiscOptions : longint = moChangeDirOnOpen+moCloseOnGotoSource; EditorModified : boolean = false; - IniCenterDebuggerRow : boolean = true; + IniCenterDebuggerRow : tcentre = do_centre; SleepTimeOut : longint = trunc(10*18.2); {$ifdef USE_EXTERNAL_COMPILER} UseExternalCompiler : boolean = true;