mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-23 07:48:50 -05:00
Added hide to tray.
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@302 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
parent
483d0b71c5
commit
7041409533
@ -5,7 +5,7 @@ object Form1: TForm1
|
||||
Width = 731
|
||||
ActiveControl = ScriptPanel
|
||||
Caption = 'THA FUKING MUFASA'
|
||||
ClientHeight = 532
|
||||
ClientHeight = 537
|
||||
ClientWidth = 731
|
||||
KeyPreview = True
|
||||
Menu = MainMenu1
|
||||
@ -166,8 +166,8 @@ object Form1: TForm1
|
||||
end
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Height = 21
|
||||
Top = 511
|
||||
Height = 23
|
||||
Top = 514
|
||||
Width = 731
|
||||
Panels = <
|
||||
item
|
||||
@ -185,7 +185,7 @@ object Form1: TForm1
|
||||
object PanelMemo: TPanel
|
||||
Left = 0
|
||||
Height = 154
|
||||
Top = 357
|
||||
Top = 360
|
||||
Width = 731
|
||||
Align = alBottom
|
||||
ClientHeight = 154
|
||||
@ -205,25 +205,25 @@ object Form1: TForm1
|
||||
Cursor = crVSplit
|
||||
Left = 0
|
||||
Height = 5
|
||||
Top = 352
|
||||
Top = 355
|
||||
Width = 731
|
||||
Align = alBottom
|
||||
ResizeAnchor = akBottom
|
||||
end
|
||||
object ScriptPanel: TPanel
|
||||
Left = 0
|
||||
Height = 328
|
||||
Height = 331
|
||||
Top = 24
|
||||
Width = 731
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Caption = 'ScriptPanel'
|
||||
ClientHeight = 328
|
||||
ClientHeight = 331
|
||||
ClientWidth = 731
|
||||
TabOrder = 4
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 293
|
||||
Height = 296
|
||||
Top = 0
|
||||
Width = 731
|
||||
Align = alClient
|
||||
@ -241,7 +241,7 @@ object Form1: TForm1
|
||||
object SearchPanel: TPanel
|
||||
Left = 0
|
||||
Height = 35
|
||||
Top = 293
|
||||
Top = 296
|
||||
Width = 731
|
||||
Align = alBottom
|
||||
BevelOuter = bvSpace
|
||||
@ -337,7 +337,7 @@ object Form1: TForm1
|
||||
end
|
||||
object LabeledEditSearch: TLabeledEdit
|
||||
Left = 104
|
||||
Height = 27
|
||||
Height = 21
|
||||
Top = 6
|
||||
Width = 174
|
||||
EditLabel.AnchorSideLeft.Control = LabeledEditSearch
|
||||
@ -345,10 +345,10 @@ object Form1: TForm1
|
||||
EditLabel.AnchorSideTop.Side = asrCenter
|
||||
EditLabel.AnchorSideRight.Control = LabeledEditSearch
|
||||
EditLabel.AnchorSideBottom.Control = LabeledEditSearch
|
||||
EditLabel.Left = 67
|
||||
EditLabel.Height = 18
|
||||
EditLabel.Top = 10
|
||||
EditLabel.Width = 34
|
||||
EditLabel.Left = 73
|
||||
EditLabel.Height = 14
|
||||
EditLabel.Top = 9
|
||||
EditLabel.Width = 28
|
||||
EditLabel.Caption = 'Find: '
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
@ -361,9 +361,9 @@ object Form1: TForm1
|
||||
end
|
||||
object CheckBoxMatchCase: TCheckBox
|
||||
Left = 320
|
||||
Height = 22
|
||||
Height = 17
|
||||
Top = 7
|
||||
Width = 97
|
||||
Width = 72
|
||||
Caption = 'Match case'
|
||||
OnClick = CheckBoxMatchCaseClick
|
||||
TabOrder = 1
|
||||
@ -2228,6 +2228,10 @@ object Form1: TForm1
|
||||
Caption = 'Show'
|
||||
OnClick = MenuItemShowClick
|
||||
end
|
||||
object MenuItemHide: TMenuItem
|
||||
Caption = 'Hide'
|
||||
OnClick = MenuItemHideClick
|
||||
end
|
||||
object MenuItemExit: TMenuItem
|
||||
Action = ActionExit
|
||||
Bitmap.Data = {
|
||||
|
File diff suppressed because it is too large
Load Diff
@ -89,6 +89,7 @@ type
|
||||
MenuFile: TMenuItem;
|
||||
MenuEdit: TMenuItem;
|
||||
MenuHelp: TMenuItem;
|
||||
MenuItemHide: TMenuItem;
|
||||
MenuItemDebugImage: TMenuItem;
|
||||
MenuItemAbout: TMenuItem;
|
||||
MenuItemMainExit: TMenuItem;
|
||||
@ -221,6 +222,7 @@ type
|
||||
procedure MenuItemAboutClick(Sender: TObject);
|
||||
procedure MenuItemCloseTabsClick(Sender: TObject);
|
||||
procedure MenuItemDebugImageClick(Sender: TObject);
|
||||
procedure MenuItemHideClick(Sender: TObject);
|
||||
procedure MenuItemShowClick(Sender: TObject);
|
||||
procedure MenuItemTabCloseClick(Sender: TObject);
|
||||
procedure MenuItemTabCloseOthersClick(Sender: TObject);
|
||||
@ -1056,6 +1058,14 @@ begin
|
||||
DebugImgForm.Hide;
|
||||
end;
|
||||
|
||||
procedure TForm1.MenuItemHideClick(Sender: TObject);
|
||||
begin
|
||||
if Self.Visible = false then
|
||||
MenuItemShowClick(sender)
|
||||
else
|
||||
Self.hide;
|
||||
end;
|
||||
|
||||
procedure TForm1.MenuItemShowClick(Sender: TObject);
|
||||
begin
|
||||
Self.Show;
|
||||
|
Loading…
Reference in New Issue
Block a user