ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/ibcontrols/IBLookupComboEditBox.pas

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