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 64 by tony, Thu Jun 29 11:11:22 2017 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

#	Line 350 | Line 350 | begin
350		SelLength := UTF8Length(Text);
351		end;
352		KeyValue := ListSource.DataSet.FieldByName(KeyField).AsVariant;
353	+	end
354	+	else
355	+	begin
356	+	SelStart := iSelStart;
357	+	SelLength := 0;
358		end;
359		end;
360		finally
#	Line 564 | Line 569 | begin
569		if assigned(FDataLink) then FDataLink.Free;
570		if assigned(FIBLookupControlLink) then FIBLookupControlLink.Free;
571		if assigned(FTimer) then FTimer.Free;
572	+	Application.RemoveAsyncCalls(self);
573		inherited Destroy;
574		end;
575

Diff Legend

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