From 62e56cbbf3b63bec17f30c845e152682fc47fe17 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 26 Nov 2010 21:24:15 +0000
Subject: [PATCH] DBG: Fixed Callstack power mode

git-svn-id: trunk@28504 -
---
 debugger/callstackdlg.pp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/debugger/callstackdlg.pp b/debugger/callstackdlg.pp
index 3ab771a242..f012cf8e8c 100644
--- a/debugger/callstackdlg.pp
+++ b/debugger/callstackdlg.pp
@@ -469,14 +469,14 @@ end;
 
 procedure TCallStackDlg.actViewMoreExecute(Sender: TObject);
 begin
-  ToolButtonPower.Down := False;
+  ToolButtonPower.Down := True;
   ToolButtonPowerClick(nil);
   ViewLimit := ViewLimit + FViewCount;
 end;
 
 procedure TCallStackDlg.actViewTopExecute(Sender: TObject);
 begin
-  ToolButtonPower.Down := False;
+  ToolButtonPower.Down := True;
   ToolButtonPowerClick(nil);
   SetViewStart(0);
 end;
@@ -571,7 +571,7 @@ end;
 
 procedure TCallStackDlg.actViewLimitExecute(Sender: TObject);
 begin
-  ToolButtonPower.Down := False;
+  ToolButtonPower.Down := True;
   ToolButtonPowerClick(nil);
   ViewLimit := FViewCount;
 end;
@@ -579,7 +579,7 @@ end;
 procedure TCallStackDlg.SetViewStart(AStart: Integer);
 begin
   if CallStack = nil then Exit;
-  ToolButtonPower.Down := False;
+  ToolButtonPower.Down := True;
   ToolButtonPowerClick(nil);
 
   if (AStart > CallStack.Count - FViewLimit)
@@ -625,7 +625,7 @@ end;
 
 procedure TCallStackDlg.SetViewLimit(const AValue: Integer);
 begin
-  ToolButtonPower.Down := False;
+  ToolButtonPower.Down := True;
   ToolButtonPowerClick(nil);
   if FViewLimit = AValue then Exit;
   if (CallStack <> nil)