From dee564645a85717dea2593ff933722a33527adc6 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 4 Dec 2010 19:34:21 +0000
Subject: [PATCH] DBG: make tool windows

git-svn-id: trunk@28621 -
---
 debugger/assemblerdlg.lfm    |  1 +
 debugger/assemblerdlg.pp     | 14 +++++++-------
 debugger/debugeventsform.lfm |  2 +-
 debugger/debugoutputform.lfm |  3 +++
 debugger/registersdlg.lfm    |  3 +++
 5 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/debugger/assemblerdlg.lfm b/debugger/assemblerdlg.lfm
index 540898f8d5..1f6bcab234 100644
--- a/debugger/assemblerdlg.lfm
+++ b/debugger/assemblerdlg.lfm
@@ -7,6 +7,7 @@ inherited AssemblerDlg: TAssemblerDlg
   HorzScrollBar.Range = 399
   VertScrollBar.Page = 300
   VertScrollBar.Range = 300
+  BorderStyle = bsSizeToolWin
   Caption = 'Assembler'
   ClientHeight = 301
   ClientWidth = 721
diff --git a/debugger/assemblerdlg.pp b/debugger/assemblerdlg.pp
index 720ea43e80..5df516fedf 100644
--- a/debugger/assemblerdlg.pp
+++ b/debugger/assemblerdlg.pp
@@ -110,7 +110,7 @@ type
     procedure SetDebugger(const AValue: TDebugger);
     function FormatLine(ALine: TAsmDlgLineEntry; W: Integer): String;
     procedure UpdateView;
-    procedure UpdateActions;
+    procedure UpdateActionEnabled;
     procedure UpdateLineData;
     procedure UpdateLineDataEx(ALineMap: TAsmDlgLineEntries;
                                AFirstLine, ALineCount: Integer;
@@ -178,7 +178,7 @@ begin
   finally
     EndUpdate;
   end;
-  UpdateActions;
+  UpdateActionEnabled;
 end;
 
 procedure TAssemblerDlg.SetDebugger(const AValue: TDebugger);
@@ -191,7 +191,7 @@ begin
   FDebugger := AValue;
   if FDebugger <> nil
   then FDebugger.AddNotifyEvent(dnrDestroy, @DoDebuggerDestroyed);
-  UpdateActions;
+  UpdateActionEnabled;
 end;
 
 constructor TAssemblerDlg.Create(AOwner: TComponent);
@@ -231,7 +231,7 @@ begin
 
   actGotoAddr.Caption := lisDisAssGotoAddress;
   actGotoAddr.Hint := lisDisAssGotoAddressHint;
-  actGotoAddr.ImageIndex := IDEImages.LoadImage(16, 'callstack_goto');
+  actGotoAddr.ImageIndex := IDEImages.LoadImage(16, 'callstack_show');
 
   actCopy.Caption := lisMenuCopy;
   actCopy.Hint := lisMenuCopy;
@@ -552,7 +552,7 @@ begin
   pbAsm.Invalidate;
 end;
 
-procedure TAssemblerDlg.UpdateActions;
+procedure TAssemblerDlg.UpdateActionEnabled;
 var
   HasDisassembler: Boolean;
 begin
@@ -659,7 +659,7 @@ begin
     FSelectLine := 0;
   end;
   FSelectionEndLine := FSelectLine;
-  UpdateActions;
+  UpdateActionEnabled;
   UpdateView;
 end;
 
@@ -689,7 +689,7 @@ begin
   FSelectLine := 0;
   FSelectionEndLine := 0;
 
-  UpdateActions;
+  UpdateActionEnabled;
   if Visible then // otherwhise in resize
     UpdateView
   else
diff --git a/debugger/debugeventsform.lfm b/debugger/debugeventsform.lfm
index 1d49a0c0f9..d7618353a8 100644
--- a/debugger/debugeventsform.lfm
+++ b/debugger/debugeventsform.lfm
@@ -3,6 +3,7 @@ inherited DbgEventsForm: TDbgEventsForm
   Height = 208
   Top = 368
   Width = 577
+  BorderStyle = bsSizeToolWin
   ClientHeight = 208
   ClientWidth = 577
   object lstFilteredEvents: TListView[0]
@@ -15,7 +16,6 @@ inherited DbgEventsForm: TDbgEventsForm
       item
         Width = 100
       end>
-    ItemIndex = -1
     ShowColumnHeaders = False
     SmallImages = imlMain
     TabOrder = 0
diff --git a/debugger/debugoutputform.lfm b/debugger/debugoutputform.lfm
index 711d9b1179..458390949e 100644
--- a/debugger/debugoutputform.lfm
+++ b/debugger/debugoutputform.lfm
@@ -3,13 +3,16 @@ inherited DbgOutputForm: TDbgOutputForm
   Height = 200
   Top = 140
   Width = 400
+  BorderStyle = bsSizeToolWin
   Caption = 'Debug output'
   ClientHeight = 200
   ClientWidth = 400
   OnClose = FormClose
   OnCreate = FormCreate
   object txtOutput: TMemo[0]
+    Left = 0
     Height = 200
+    Top = 0
     Width = 400
     Align = alClient
     PopupMenu = mnuPopup
diff --git a/debugger/registersdlg.lfm b/debugger/registersdlg.lfm
index 497ccd2e72..3214d195b2 100644
--- a/debugger/registersdlg.lfm
+++ b/debugger/registersdlg.lfm
@@ -4,11 +4,14 @@ inherited RegistersDlg: TRegistersDlg
   Top = 117
   Width = 346
   ActiveControl = lvRegisters
+  BorderStyle = bsSizeToolWin
   Caption = 'Registers'
   ClientHeight = 253
   ClientWidth = 346
   object lvRegisters: TListView[0]
+    Left = 0
     Height = 253
+    Top = 0
     Width = 346
     Align = alClient
     Columns = <