mirror of
https://github.com/moparisthebest/Simba
synced 2024-08-13 16:53:59 -04:00
Bug #240, extension menu item checked while it shouldn't, fixed.
This commit is contained in:
parent
59fe8feb5e
commit
8cf4c7adbb
@ -69,6 +69,7 @@ type
|
|||||||
{ TSimbaForm }
|
{ TSimbaForm }
|
||||||
|
|
||||||
TSimbaForm = class(TForm)
|
TSimbaForm = class(TForm)
|
||||||
|
ActionExtensions: TAction;
|
||||||
ActionSaveDef: TAction;
|
ActionSaveDef: TAction;
|
||||||
ActionConsole: TAction;
|
ActionConsole: TAction;
|
||||||
ActionNormalSize: TAction;
|
ActionNormalSize: TAction;
|
||||||
@ -235,6 +236,8 @@ type
|
|||||||
procedure ActionCutExecute(Sender: TObject);
|
procedure ActionCutExecute(Sender: TObject);
|
||||||
procedure ActionDeleteExecute(Sender: TObject);
|
procedure ActionDeleteExecute(Sender: TObject);
|
||||||
procedure ActionExitExecute(Sender: TObject);
|
procedure ActionExitExecute(Sender: TObject);
|
||||||
|
procedure ActionExtensionsExecute(Sender: TObject);
|
||||||
|
procedure ActionExtensionsUpdate(Sender: TObject);
|
||||||
procedure ActionFindNextExecute(Sender: TObject);
|
procedure ActionFindNextExecute(Sender: TObject);
|
||||||
procedure ActionFindstartExecute(Sender: TObject);
|
procedure ActionFindstartExecute(Sender: TObject);
|
||||||
procedure ActionNewExecute(Sender: TObject);
|
procedure ActionNewExecute(Sender: TObject);
|
||||||
@ -269,7 +272,6 @@ type
|
|||||||
procedure FunctionListExit(Sender: TObject);
|
procedure FunctionListExit(Sender: TObject);
|
||||||
procedure FunctionListTimerTimer(Sender: TObject);
|
procedure FunctionListTimerTimer(Sender: TObject);
|
||||||
procedure MenuItemBitmapConvClick(Sender: TObject);
|
procedure MenuItemBitmapConvClick(Sender: TObject);
|
||||||
procedure MenuItemExtensionsClick(Sender: TObject);
|
|
||||||
procedure MenuItemHandbookClick(Sender: TObject);
|
procedure MenuItemHandbookClick(Sender: TObject);
|
||||||
procedure MenuItemColourHistoryClick(Sender: TObject);
|
procedure MenuItemColourHistoryClick(Sender: TObject);
|
||||||
procedure dlgReplaceFind(Sender: TObject);
|
procedure dlgReplaceFind(Sender: TObject);
|
||||||
@ -1618,6 +1620,19 @@ begin
|
|||||||
Self.Close;
|
Self.Close;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TSimbaForm.ActionExtensionsExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if not ExtensionsForm.Showing then
|
||||||
|
ExtensionsForm.Show
|
||||||
|
else
|
||||||
|
ExtensionsForm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSimbaForm.ActionExtensionsUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TAction(Sender).Checked := ExtensionsForm.Showing;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TSimbaForm.ActionFindNextExecute(Sender: TObject);
|
procedure TSimbaForm.ActionFindNextExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
DoSearch(true, false);
|
DoSearch(true, false);
|
||||||
@ -1979,15 +1994,6 @@ begin
|
|||||||
BitmapConvForm.Show;
|
BitmapConvForm.Show;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TSimbaForm.MenuItemExtensionsClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
MenuItemExtensions.Checked := not ExtensionsForm.Visible;
|
|
||||||
if MenuItemExtensions.Checked then
|
|
||||||
ExtensionsForm.Show
|
|
||||||
else
|
|
||||||
ExtensionsForm.Hide;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSimbaForm.MenuItemHandbookClick(Sender: TObject);
|
procedure TSimbaForm.MenuItemHandbookClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
OpenURL('http://wizzup.org/simbadoc/');
|
OpenURL('http://wizzup.org/simbadoc/');
|
||||||
|
Loading…
Reference in New Issue
Block a user