DBG: make tool windows

git-svn-id: trunk@28621 -

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

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

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

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

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 = <