moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Bug #240, extension menu item checked while it shouldn't, fixed.

This commit is contained in:
Niels 2010-08-04 14:19:11 +02:00
parent 59fe8feb5e
commit 8cf4c7adbb
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Projects/Simba/simbaunit.pas
View File

@ -69,6 +69,7 @@ type
{ TSimbaForm }
TSimbaForm = class(TForm)
ActionExtensions: TAction;
ActionSaveDef: TAction;
ActionConsole: TAction;
ActionNormalSize: TAction;
@ -235,6 +236,8 @@ type
procedure ActionCutExecute(Sender: TObject);
procedure ActionDeleteExecute(Sender: TObject);
procedure ActionExitExecute(Sender: TObject);
procedure ActionExtensionsExecute(Sender: TObject);
procedure ActionExtensionsUpdate(Sender: TObject);
procedure ActionFindNextExecute(Sender: TObject);
procedure ActionFindstartExecute(Sender: TObject);
procedure ActionNewExecute(Sender: TObject);
@ -269,7 +272,6 @@ type
procedure FunctionListExit(Sender: TObject);
procedure FunctionListTimerTimer(Sender: TObject);
procedure MenuItemBitmapConvClick(Sender: TObject);
procedure MenuItemExtensionsClick(Sender: TObject);
procedure MenuItemHandbookClick(Sender: TObject);
procedure MenuItemColourHistoryClick(Sender: TObject);
procedure dlgReplaceFind(Sender: TObject);
@ -1618,6 +1620,19 @@ begin
Self.Close;
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);
begin
DoSearch(true, false);
@ -1979,15 +1994,6 @@ begin
BitmapConvForm.Show;
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);
begin
OpenURL('http://wizzup.org/simbadoc/');