Преглед изворни кода

* Fixes from Dave Strodtman

git-svn-id: trunk@3890 -
marco пре 19 година
родитељ
комит
4376a4ee35
2 измењених фајлова са 3 додато и 3 уклоњено
  1. 1 1
      ide/fpviews.pas
  2. 2 2
      ide/weditor.pas

+ 1 - 1
ide/fpviews.pas

@@ -2581,7 +2581,7 @@ begin
       SetCurPtr(0,DisasLines^.IndexOf(PL));
       PL^.SetFlags(lfDebuggerRow);
       CurL:=PL;
-      TrackCursor(do_centre);
+      TrackCursor(do_not_centre);
     end;
   GetCurrentLine:=PL;
 end;

+ 2 - 2
ide/weditor.pas

@@ -205,7 +205,7 @@ const
 
 
 type
-    Tcentre = (do_centre,do_not_centre);
+    Tcentre = (do_not_centre,do_centre);
 
     PCustomCodeEditor = ^TCustomCodeEditor;
     PEditorLineInfo = ^TEditorLineInfo;
@@ -6386,7 +6386,7 @@ begin
   OldSStart:=SelStart;}
   CurPos.X:=X;
   CurPos.Y:=Y;
-  TrackCursor(do_centre);
+  TrackCursor(do_not_centre);
   if not IsLineVisible(CurPos.Y) then
   begin
     F:=GetLineFold(CurPos.Y);