Resolve 169

Projects/SAMufasaGUI/debugimage.lfm

@@ -1,10 +1,10 @@
 object DebugImgForm: TDebugImgForm
-  Left = 491
+  Left = 1335
   Height = 300
-  Top = 266
+  Top = 172
   Width = 400
   BorderIcons = [biSystemMenu, biMinimize]
-  BorderStyle = bsToolWindow
+  BorderStyle = bsSingle
   Caption = 'DebugImgForm'
   ClientHeight = 300
   ClientWidth = 400

Projects/SAMufasaGUI/testunit.lfm

@@ -1,18 +1,20 @@
 object Form1: TForm1
-  Left = 0
-  Height = 240
-  Top = 0
-  Width = 320
+  Left = 1594
+  Height = 623
+  Top = 69
+  Width = 660
+  ActiveControl = ScriptPanel
   AllowDropFiles = True
   Caption = 'THA FUKING SIMBA'
-  ClientHeight = 220
-  ClientWidth = 320
+  ClientHeight = 600
+  ClientWidth = 660
   KeyPreview = True
   Menu = MainMenu
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnDropFiles = FormDropFiles
+  OnHide = doOnHide
   OnShortCut = FormShortCuts
   LCLVersion = '0.9.29'
   Visible = True
@@ -20,7 +22,7 @@ object Form1: TForm1
     Left = 0
     Height = 24
     Top = 0
-    Width = 320
+    Width = 660
     Caption = 'ToolBar1'
     Images = Mufasa_Image_List
     ParentShowHint = False
@@ -82,40 +84,40 @@ object Form1: TForm1
       Action = ActionClearDebug
     end
     object TB_PickColour: TToolButton
-      Left = 1
+      Left = 316
       Hint = 'Pick a color'
-      Top = 24
+      Top = 2
       Caption = 'TB_PickColour'
       ImageIndex = 0
       OnClick = ButtonPickClick
     end
     object TB_SelectClient: TToolButton
-      Left = 24
+      Left = 339
       Hint = 'Select a client'
-      Top = 24
+      Top = 2
       Caption = 'TB_SelectClient'
       ImageIndex = 2
       OnMouseDown = ButtonSelectorDown
     end
     object ToolButton8: TToolButton
-      Left = 47
-      Top = 24
+      Left = 362
+      Top = 2
       Width = 4
       Caption = 'ToolButton8'
       Style = tbsDivider
     end
     object TB_ReloadPlugins: TToolButton
-      Left = 51
+      Left = 366
       Hint = 'Reload plugins'
-      Top = 24
+      Top = 2
       Caption = 'TB_ReloadPlugins'
       Enabled = False
       ImageIndex = 13
     end
     object TB_Tray: TToolButton
-      Left = 74
+      Left = 389
       Hint = 'Minimize to tray'
-      Top = 24
+      Top = 2
       Caption = 'TB_Tray'
       ImageIndex = 17
       OnClick = ButtonTrayClick
@@ -157,16 +159,16 @@ object Form1: TForm1
       Enabled = False
     end
     object ToolButton3: TToolButton
-      Left = 120
-      Top = 24
+      Left = 435
+      Top = 2
       Width = 4
       Caption = 'ToolButton3'
       Style = tbsDivider
     end
     object TT_Update: TToolButton
-      Left = 124
+      Left = 439
       Hint = 'A new update is available'
-      Top = 24
+      Top = 2
       Caption = 'TT_Update'
       ImageIndex = 1
       OnClick = TT_UpdateClick
@@ -198,17 +200,17 @@ object Form1: TForm1
       Style = tbsDivider
     end
     object TT_Console: TToolButton
-      Left = 97
+      Left = 412
       Hint = 'Hide/Show Console'
-      Top = 24
+      Top = 2
       Action = ActionConsole
     end
   end
   object StatusBar: TStatusBar
     Left = 0
-    Height = 22
-    Top = 198
-    Width = 320
+    Height = 17
+    Top = 583
+    Width = 660
     Panels = <    
       item
         Width = 60
@@ -229,17 +231,17 @@ object Form1: TForm1
   object PanelMemo: TPanel
     Left = 0
     Height = 154
-    Top = 44
-    Width = 320
+    Top = 429
+    Width = 660
     Align = alBottom
     ClientHeight = 154
-    ClientWidth = 320
+    ClientWidth = 660
     TabOrder = 2
     object Memo1: TMemo
       Left = 1
       Height = 152
       Top = 1
-      Width = 318
+      Width = 658
       Align = alClient
       Font.Height = -13
       Font.Name = 'Courier New'
@@ -252,29 +254,29 @@ object Form1: TForm1
     Cursor = crVSplit
     Left = 0
     Height = 5
-    Top = 39
-    Width = 320
+    Top = 424
+    Width = 660
     Align = alBottom
     ResizeAnchor = akBottom
   end
   object ScriptPanel: TPanel
     Left = 0
-    Height = 15
+    Height = 400
     Top = 24
-    Width = 320
+    Width = 660
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 15
-    ClientWidth = 320
+    ClientHeight = 400
+    ClientWidth = 660
     DockSite = True
     TabOrder = 4
     OnDockDrop = ScriptPanelDockDrop
     OnDockOver = ScriptPanelDockOver
     object PageControl1: TPageControl
       Left = 155
-      Height = 0
+      Height = 365
       Top = 0
-      Width = 165
+      Width = 505
       Align = alClient
       Images = Mufasa_Image_List
       PopupMenu = TabPopup
@@ -291,12 +293,12 @@ object Form1: TForm1
     object SearchPanel: TPanel
       Left = 0
       Height = 35
-      Top = -20
-      Width = 320
+      Top = 365
+      Width = 660
       Align = alBottom
       BevelOuter = bvSpace
       ClientHeight = 35
-      ClientWidth = 320
+      ClientWidth = 660
       TabOrder = 1
       Visible = False
       object SpeedButtonSearch: TSpeedButton
@@ -387,7 +389,7 @@ object Form1: TForm1
       end
       object LabeledEditSearch: TLabeledEdit
         Left = 104
-        Height = 23
+        Height = 27
         Top = 6
         Width = 174
         EditLabel.AnchorSideLeft.Control = LabeledEditSearch
@@ -395,10 +397,10 @@ object Form1: TForm1
         EditLabel.AnchorSideTop.Side = asrCenter
         EditLabel.AnchorSideRight.Control = LabeledEditSearch
         EditLabel.AnchorSideBottom.Control = LabeledEditSearch
-        EditLabel.Left = 71
-        EditLabel.Height = 16
-        EditLabel.Top = 9
-        EditLabel.Width = 30
+        EditLabel.Left = 67
+        EditLabel.Height = 18
+        EditLabel.Top = 10
+        EditLabel.Width = 34
         EditLabel.Caption = 'Find: '
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -411,9 +413,9 @@ object Form1: TForm1
       end
       object CheckBoxMatchCase: TCheckBox
         Left = 320
-        Height = 19
+        Height = 20
         Top = 7
-        Width = 80
+        Width = 95
         Caption = 'Match case'
         OnClick = CheckBoxMatchCaseClick
         TabOrder = 1
@@ -421,36 +423,34 @@ object Form1: TForm1
     end
     object SplitterFunctionList: TSplitter
       Left = 150
-      Height = 0
+      Height = 365
       Top = 0
       Width = 5
       OnCanResize = SplitterFunctionListCanResize
       Visible = False
     end
     inline frmFunctionList: TFunctionListFrame
-      Height = 0
+      Height = 365
       Width = 150
-      ClientHeight = 0
+      ClientHeight = 365
       ClientWidth = 150
       OnEndDock = nil
       TabOrder = 3
       inherited FunctionList: TTreeView
-        Height = 0
-        Top = 1
+        Height = 316
         Width = 150
         OnChange = FunctionListChange
         OnEnter = FunctionListEnter
         OnExit = FunctionListExit
       end
       inherited editSearchList: TEdit
-        Top = -23
+        Top = 338
         Width = 150
         OnExit = editSearchListExit
         OnKeyDown = editSearchListKeyDown
         OnKeyPress = editSearchListKeyPress
       end
       inherited FunctionListLabel: TLabel
-        Top = 0
         Width = 146
       end
     end

Projects/SAMufasaGUI/testunit.pas

@@ -248,6 +248,7 @@ type
     procedure ChangeMouseStatus(Sender: TObject);
     procedure CheckBoxMatchCaseClick(Sender: TObject);
     procedure CloseFindPanel;
+    procedure doOnHide(Sender: TObject);
     procedure editSearchListExit(Sender: TObject);
     procedure editSearchListKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -1715,6 +1716,16 @@ begin
     CurrScript.SynEdit.SetFocus;
 end;
 
+{
+  If we are being sent to the background; then minimize other active windows as
+  well.
+}
+procedure TForm1.doOnHide(Sender: TObject);
+begin
+  if DebugImgForm.Visible then
+    DebugImgForm.Hide;
+end;
+
 procedure TForm1.StopCodeCompletion;
 begin
   CodeCompletionForm.Hide;