ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/ibcontrols/IBLookupComboEditBox.pas
(Generate patch)

Comparing ibx/trunk/ibcontrols/IBLookupComboEditBox.pas (file contents):
Revision 40 by tony, Tue May 17 08:14:52 2016 UTC vs.
Revision 41 by tony, Sat Jul 16 12:25:48 2016 UTC

# Line 31 | Line 31 | interface
31  
32   uses
33    Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, DbCtrls,
34 <  ExtCtrls, IBSQLParser, DB, StdCtrls, IBCustomDataSet;
34 >  ExtCtrls, IBSQLParser, DB, StdCtrls, IBCustomDataSet, LCLVersion;
35  
36   type
37  
# Line 145 | Line 145 | type
145  
146   implementation
147  
148 < uses IBQuery, LCLType, Variants, LCLProc;
148 > uses IBQuery, LCLType, Variants, LCLProc, LazUTF8;
149  
150   { TIBLookupControlLink }
151  
# Line 371 | Line 371 | begin
371        Parser.Add2WhereClause('Upper(' + GetRelationNameQualifier + '"' +  ListField + '") Like Upper(''' +
372                                    SQLSafe(Text) + '%'')');
373  
374 <  end;
375 <  if cbactSearchAscending in AutoCompleteText then
376 <  begin
377 <    FieldPosition := Parser.GetFieldPosition(ListField);
378 <    if FieldPosition = 0 then Exit;
374 >    if cbactSearchAscending in AutoCompleteText then
375 >    begin
376 >      FieldPosition := Parser.GetFieldPosition(ListField);
377 >      if FieldPosition = 0 then Exit;
378  
379 <    Parser.OrderByClause := IntToStr(FieldPosition) + ' ascending';
379 >      Parser.OrderByClause := IntToStr(FieldPosition) + ' ascending';
380 >    end;
381    end;
382   end;
383  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines