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

Add new quick filter menu item "Column IN (...)". Fixes issue #2606

Browse Source
This commit is contained in:
Ansgar Becker
2011-11-14 20:47:09 +00:00
parent d07cfcb7c6
commit 9dbb5d195c
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/main.dfm
View File

@@ -8675,6 +8675,11 @@ object MainForm: TMainForm
ImageIndex = 4
OnClick = QuickFilterClick
end
object QF20: TMenuItem
Caption = 'Column IN ()'
ImageIndex = 4
OnClick = QuickFilterClick
end
object N21: TMenuItem
Caption = '-'
end

3
source/main.pas
View File

@@ -534,6 +534,7 @@ type
ExportdatabaseasSQL1: TMenuItem;
Exportgridrows1: TMenuItem;
Synchronizedatabase2: TMenuItem;
QF20: TMenuItem;
procedure actCreateDBObjectExecute(Sender: TObject);
procedure menuConnectionsPopup(Sender: TObject);
procedure actExitApplicationExecute(Sender: TObject);
@@ -5529,12 +5530,14 @@ begin
QF17.Enabled := true; QF17.Hint := Col + ' > ' + esc(Value);
QF18.Enabled := true; QF18.Hint := Col + ' < ' + esc(Value);
QF19.Enabled := true; QF19.Hint := Col + ' LIKE ''%' + esc(Value, True, False) + '%''';
QF20.Enabled := true; QF20.Hint := Col + ' IN (' + Value + ')';
end else begin
QF15.Enabled := false; QF15.Hint := Col + ' = ' + CLPBRD;
QF16.Enabled := false; QF16.Hint := Col + ' != ' + CLPBRD;
QF17.Enabled := false; QF17.Hint := Col + ' > ' + CLPBRD;
QF18.Enabled := false; QF18.Hint := Col + ' < ' + CLPBRD;
QF19.Enabled := false; QF19.Hint := Col + ' LIKE %' + CLPBRD + '%';
QF20.Enabled := false; QF20.Hint := Col + ' IN (' + CLPBRD + ')';
end;
for i:=0 to menuQuickFilter.Count-1 do begin