moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-07 10:40:19 -05:00
Code Issues Releases Wiki Activity

Resolve 169

Browse Source
This commit is contained in:
Merlijn Wajer 2010-04-29 19:01:20 +02:00
parent 0fe865619c
commit 9f59e8b3fd
3 changed files with 69 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Projects/SAMufasaGUI/debugimage.lfm
View File

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

110
Projects/SAMufasaGUI/testunit.lfm
View File

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

11
Projects/SAMufasaGUI/testunit.pas
View File

@ -248,6 +248,7 @@ type
procedure ChangeMouseStatus(Sender: TObject); procedure ChangeMouseStatus(Sender: TObject);
procedure CheckBoxMatchCaseClick(Sender: TObject); procedure CheckBoxMatchCaseClick(Sender: TObject);
procedure CloseFindPanel; procedure CloseFindPanel;
procedure doOnHide(Sender: TObject);
procedure editSearchListExit(Sender: TObject); procedure editSearchListExit(Sender: TObject);
procedure editSearchListKeyDown(Sender: TObject; var Key: Word; procedure editSearchListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
@ -1715,6 +1716,16 @@ begin
CurrScript.SynEdit.SetFocus; CurrScript.SynEdit.SetFocus;
end; 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; procedure TForm1.StopCodeCompletion;
begin begin
CodeCompletionForm.Hide; CodeCompletionForm.Hide;