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 276 by tony, Mon Feb 4 13:43:20 2019 UTC vs.
Revision 278 by tony, Mon Feb 4 13:47:40 2019 UTC

#	Line 54 | Line 54 | type
54		FOwner: TIBLookupComboEditBox;
55		protected
56		procedure ActiveChanged; override;
57	<	{$if lcl_fullversion < 2000003}
57	>	{$if lcl_fullversion < 2000000}
58		procedure DataEvent(Event: TDataEvent; Info: Ptrint); override;
59		{$endif}
60		procedure RecordChanged(Field: TField); override;
#	Line 181 | Line 181 | begin
181		FOwner.ActiveChanged(self)
182		end;
183
184	<	{$if lcl_fullversion < 2000003}
184	>	{$if lcl_fullversion < 2000000}
185		procedure TIBLookupComboDataLink.DataEvent(Event: TDataEvent; Info: Ptrint);
186		begin
187		inherited DataEvent(Event, Info);
#	Line 640 | Line 640 | end;
640		{$ifend}
641
642		{$if lcl_fullversion = 2000002}
643	<	procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
643	>	procedure TIBLookupComboEditBox.UTF8KeyPress(var UTF8Key: TUTF8Char);
644		begin
645		if DataSource = nil then
646	<	THackedCustomComboBox(self).UTF8KeyPress(UTF8Key)
646	>	THackedCustomComboBox(self).CallUTF8KeyPress(UTF8Key)
647		else
648		inherited;
649		end;

Diff Legend

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