moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -05:00
Code Issues Releases Wiki Activity

Added hide to tray.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@302 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-12-20 20:11:11 +00:00
parent 483d0b71c5
commit 7041409533
3 changed files with 2934 additions and 2919 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
Projects/SAMufasaGUI/testunit.lfm
View File

@ -5,7 +5,7 @@ object Form1: TForm1
Width = 731 Width = 731
ActiveControl = ScriptPanel ActiveControl = ScriptPanel
Caption = 'THA FUKING MUFASA' Caption = 'THA FUKING MUFASA'
ClientHeight = 532 ClientHeight = 537
ClientWidth = 731 ClientWidth = 731
KeyPreview = True KeyPreview = True
Menu = MainMenu1 Menu = MainMenu1
@ -166,8 +166,8 @@ object Form1: TForm1
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 21 Height = 23
Top = 511 Top = 514
Width = 731 Width = 731
Panels = < Panels = <
item item
@ -185,7 +185,7 @@ object Form1: TForm1
object PanelMemo: TPanel object PanelMemo: TPanel
Left = 0 Left = 0
Height = 154 Height = 154
Top = 357 Top = 360
Width = 731 Width = 731
Align = alBottom Align = alBottom
ClientHeight = 154 ClientHeight = 154
@ -205,25 +205,25 @@ object Form1: TForm1
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 352 Top = 355
Width = 731 Width = 731
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
end end
object ScriptPanel: TPanel object ScriptPanel: TPanel
Left = 0 Left = 0
Height = 328 Height = 331
Top = 24 Top = 24
Width = 731 Width = 731
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'ScriptPanel' Caption = 'ScriptPanel'
ClientHeight = 328 ClientHeight = 331
ClientWidth = 731 ClientWidth = 731
TabOrder = 4 TabOrder = 4
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 293 Height = 296
Top = 0 Top = 0
Width = 731 Width = 731
Align = alClient Align = alClient
@ -241,7 +241,7 @@ object Form1: TForm1
object SearchPanel: TPanel object SearchPanel: TPanel
Left = 0 Left = 0
Height = 35 Height = 35
Top = 293 Top = 296
Width = 731 Width = 731
Align = alBottom Align = alBottom
BevelOuter = bvSpace BevelOuter = bvSpace
@ -337,7 +337,7 @@ object Form1: TForm1
end end
object LabeledEditSearch: TLabeledEdit object LabeledEditSearch: TLabeledEdit
Left = 104 Left = 104
Height = 27 Height = 21
Top = 6 Top = 6
Width = 174 Width = 174
EditLabel.AnchorSideLeft.Control = LabeledEditSearch EditLabel.AnchorSideLeft.Control = LabeledEditSearch
@ -345,10 +345,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 = 67 EditLabel.Left = 73
EditLabel.Height = 18 EditLabel.Height = 14
EditLabel.Top = 10 EditLabel.Top = 9
EditLabel.Width = 34 EditLabel.Width = 28
EditLabel.Caption = 'Find: ' EditLabel.Caption = 'Find: '
EditLabel.ParentColor = False EditLabel.ParentColor = False
LabelPosition = lpLeft LabelPosition = lpLeft
@ -361,9 +361,9 @@ object Form1: TForm1
end end
object CheckBoxMatchCase: TCheckBox object CheckBoxMatchCase: TCheckBox
Left = 320 Left = 320
Height = 22 Height = 17
Top = 7 Top = 7
Width = 97 Width = 72
Caption = 'Match case' Caption = 'Match case'
OnClick = CheckBoxMatchCaseClick OnClick = CheckBoxMatchCaseClick
TabOrder = 1 TabOrder = 1
@ -2228,6 +2228,10 @@ object Form1: TForm1
Caption = 'Show' Caption = 'Show'
OnClick = MenuItemShowClick OnClick = MenuItemShowClick
end end
object MenuItemHide: TMenuItem
Caption = 'Hide'
OnClick = MenuItemHideClick
end
object MenuItemExit: TMenuItem object MenuItemExit: TMenuItem
Action = ActionExit Action = ActionExit
Bitmap.Data = { Bitmap.Data = {

1155
Projects/SAMufasaGUI/testunit.lrs
View File

File diff suppressed because it is too large Load Diff

10
Projects/SAMufasaGUI/testunit.pas
View File

@ -89,6 +89,7 @@ type
MenuFile: TMenuItem; MenuFile: TMenuItem;
MenuEdit: TMenuItem; MenuEdit: TMenuItem;
MenuHelp: TMenuItem; MenuHelp: TMenuItem;
MenuItemHide: TMenuItem;
MenuItemDebugImage: TMenuItem; MenuItemDebugImage: TMenuItem;
MenuItemAbout: TMenuItem; MenuItemAbout: TMenuItem;
MenuItemMainExit: TMenuItem; MenuItemMainExit: TMenuItem;
@ -221,6 +222,7 @@ type
procedure MenuItemAboutClick(Sender: TObject); procedure MenuItemAboutClick(Sender: TObject);
procedure MenuItemCloseTabsClick(Sender: TObject); procedure MenuItemCloseTabsClick(Sender: TObject);
procedure MenuItemDebugImageClick(Sender: TObject); procedure MenuItemDebugImageClick(Sender: TObject);
procedure MenuItemHideClick(Sender: TObject);
procedure MenuItemShowClick(Sender: TObject); procedure MenuItemShowClick(Sender: TObject);
procedure MenuItemTabCloseClick(Sender: TObject); procedure MenuItemTabCloseClick(Sender: TObject);
procedure MenuItemTabCloseOthersClick(Sender: TObject); procedure MenuItemTabCloseOthersClick(Sender: TObject);
@ -1056,6 +1058,14 @@ begin
DebugImgForm.Hide; DebugImgForm.Hide;
end; end;
procedure TForm1.MenuItemHideClick(Sender: TObject);
begin
if Self.Visible = false then
MenuItemShowClick(sender)
else
Self.hide;
end;
procedure TForm1.MenuItemShowClick(Sender: TObject); procedure TForm1.MenuItemShowClick(Sender: TObject);
begin begin
Self.Show; Self.Show;