opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Doh.. fix "Clear" item when Filter memo is active.

Browse Source
This commit is contained in:
Ansgar Becker
2007-07-26 07:05:38 +00:00
parent 8d896f732d
commit 3174feaf64
1 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
source/childwin.pas
View File

@@ -3200,13 +3200,6 @@ begin
Mainform.ExecuteLine.Enabled := SynMemoQuery.LineText <> '';
btnQuerySave.Enabled := somechars;
btnQuerySaveSnippet.Enabled := somechars;
// Inserting file at cursor only makes sense with content
menuInsertFileAtCursor.Enabled := somechars;
menusave.Enabled := somechars;
menuSaveSelectionToFile.Enabled := SynMemoQuery.SelAvail;
menuSaveAsSnippet.Enabled := somechars;
menuSaveSelectionAsSnippet.Enabled := SynMemoQuery.SelAvail;
menuClear.Enabled := somechars;
end;
@@ -4173,7 +4166,8 @@ end;
procedure TMDIChild.popupQueryPopup(Sender: TObject);
var
NotInFilterMemo: Boolean;
NotInFilterMemo,
somechars : Boolean;
begin
// Depending which SynMemo is focused, (de-)activate some menuitems
// The popupQuery is used in both Filter- and Query-Memo
@@ -4200,16 +4194,23 @@ begin
if NotInFilterMemo then
begin
somechars := SynMemoQuery.GetTextLen > 0;
MenuRun.ShortCut := TextToShortCut('F9'); // Exec SQL with F9
MenuSetFilter.ShortCut := TextToShortCut('');
// Ensure certain menuitems are en-/disabled
SynMemoQueryChange(Sender);
// Inserting file at cursor only makes sense with content
MenuInsertFileAtCursor.Enabled := somechars;
Menusave.Enabled := somechars;
MenuSaveSelectionToFile.Enabled := SynMemoQuery.SelAvail;
MenuSaveAsSnippet.Enabled := somechars;
MenuSaveSelectionAsSnippet.Enabled := SynMemoQuery.SelAvail;
end
else
begin
somechars := SynMemoFilter.GetTextLen > 0;
MenuRun.ShortCut := TextToShortCut('');
MenuSetFilter.ShortCut := TextToShortCut('F9'); // set Filter with F9
end;
MenuClear.Enabled := somechars;
end;
procedure TMDIChild.popupResultGridPopup(Sender: TObject);