ViewVC Help

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

root/public/ibx/branches/journaling/ibcontrols/IBLookupComboEditBox.pas

Comparing ibx/trunk/ibcontrols/IBLookupComboEditBox.pas (file contents):
Revision 310 by tony, Fri Apr 17 10:26:08 2020 UTC vs.
Revision 311 by tony, Mon Aug 24 09:32:58 2020 UTC

#	Line 370 | Line 370 | begin
370		UTF8Insert(sPrefixText, sResultText, 1);
371		end;
372		Text := sResultText;
373	–	SelStart := iSelStart;
374	–	SelLength := UTF8Length(Text) - iSelStart;
373		end;
374	+	SelStart := iSelStart;
375	+	SelLength := UTF8Length(Text) - iSelStart;
376		end
377		else
378		begin
#	Line 440 | Line 440 | procedure TIBLookupComboEditBox.Validate
440		var SQLDialect: integer;
441		FieldNames: TStringList;
442		begin
443	<	if (ListSource = nil) or (ListSource.DataSet = nil) then Exit;
443	>	if (ListSource = nil) or (ListSource.DataSet = nil) or
444	>	not (ListSource.DataSet is TIBCustomDataSet) or
445	>	((ListSource.DataSet as TIBCustomDataSet).Database = nil) then Exit;
446		SQLDialect := (ListSource.DataSet as TIBCustomDataSet).Database.SQLDialect;
447		FieldNames := TStringList.Create;
448		try

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines