opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Optimize length of lines in auto created table wide filter

Browse Source
This commit is contained in:
Ansgar Becker
2010-08-14 06:38:49 +00:00
parent 985bd5583f
commit 3139169ca2
1 changed files with 4 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/main.pas
View File

@ -6759,20 +6759,15 @@ var
begin
ed := TEdit(Sender);
Clause := '';
Add := '';
if ed.Text <> '' then begin
for i:=0 to SelectedTableColumns.Count-1 do begin
if i > 0 then
Add := Add + ' OR ';
Add := Add + mask(SelectedTableColumns[i].Name) + ' LIKE ' + esc('%'+ed.Text+'%');
if Length(Add) > 45 then begin
Clause := Clause + Add + CRLF;
Add := '';
end;
Clause := Clause + ' OR ';
Clause := Clause + mask(SelectedTableColumns[i].Name) + ' LIKE ' + esc('%'+ed.Text+'%');
end;
if Add <> '' then
Clause := Clause + Add;
end;
// Add linebreaks at near right window edge
Clause := WrapText(Clause, SynMemoFilter.CharsInWindow-5);
SynMemoFilter.UndoList.AddGroupBreak;
SynMemoFilter.SelectAll;
SynMemoFilter.SelText := Clause;