mirror of
https://github.com/moparisthebest/Simba
synced 2025-01-31 07:10:28 -05:00
Resolve 169
This commit is contained in:
Merlijn Wajer
parent
0fe865619c
commit
9f59e8b3fd
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user