Skip to content

Commit

Permalink
Such big changes, require such big version changes. Simba 2000.
Browse files Browse the repository at this point in the history
  • Loading branch information
ollydev committed Nov 9, 2023
1 parent 6b6c33d commit c02ddb0
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 7 deletions.
8 changes: 4 additions & 4 deletions Source/forms/simba.main.lfm
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@ object SimbaForm: TSimbaForm
OnKeyDown = FormKeyDown
OnWindowStateChange = FormWindowStateChange
Position = poScreenCenter
LCLVersion = '3.0.0.1'
LCLVersion = '3.0.0.2'
object DockPanel: TAnchorDockPanel
Left = 0
Height = 511
Expand Down Expand Up @@ -500,9 +500,9 @@ object SimbaForm: TSimbaForm
object Separator1: TMenuItem
Caption = '-'
end
object MenuItemDownloadAnotherSimba: TMenuItem
Caption = 'Download Another Simba'
OnClick = MenuItemDownloadAnotherSimbaClick
object MenuItemDownloadSimba: TMenuItem
Caption = 'Download Simba ...'
OnClick = MenuItemDownloadSimbaClick
end
end
object MainMenuView: TPopupMenu
Expand Down
6 changes: 3 additions & 3 deletions Source/forms/simba.main.pas
Original file line number Diff line number Diff line change
Expand Up @@ -67,7 +67,7 @@ interface
TSimbaForm = class(TForm)
DockPanel: TAnchorDockPanel;
Images: TImageList;
MenuItemDownloadAnotherSimba: TMenuItem;
MenuItemDownloadSimba: TMenuItem;
MenuItemSelectLine: TMenuItem;
MenuItemSelectWord: TMenuItem;
MenuItemFind: TMenuItem;
Expand Down Expand Up @@ -196,7 +196,7 @@ TSimbaForm = class(TForm)
procedure MenuFileClick(Sender: TObject);
procedure MenuFindClick(Sender: TObject);
procedure MenuGotoClick(Sender: TObject);
procedure MenuItemDownloadAnotherSimbaClick(Sender: TObject);
procedure MenuItemDownloadSimbaClick(Sender: TObject);
procedure MenuItemFindInFilesClick(Sender: TObject);
procedure MenuItemSelectLineClick(Sender: TObject);
procedure MenuItemSelectWordClick(Sender: TObject);
Expand Down Expand Up @@ -913,7 +913,7 @@ procedure TSimbaForm.MenuGotoClick(Sender: TObject);
end;
end;

procedure TSimbaForm.MenuItemDownloadAnotherSimbaClick(Sender: TObject);
procedure TSimbaForm.MenuItemDownloadSimbaClick(Sender: TObject);
begin
SimbaDownloadSimbaForm.ShowModal();
end;
Expand Down

0 comments on commit c02ddb0

Please sign in to comment.