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 208 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 54 | Line 54 | type
54		FOwner: TIBLookupComboEditBox;
55		protected
56		procedure ActiveChanged; override;
57	+	procedure DataEvent(Event: TDataEvent; Info: Ptrint); override;
58		procedure RecordChanged(Field: TField); override;
59		procedure UpdateData; override;
60		public
#	Line 169 | Line 170 | begin
170		FOwner.ActiveChanged(self)
171		end;
172
173	+	procedure TIBLookupComboDataLink.DataEvent(Event: TDataEvent; Info: Ptrint);
174	+	begin
175	+	inherited DataEvent(Event, Info);
176	+	if Event = deLayoutChange then
177	+	FOwner.LookupCache := FOwner.LookupCache; {sneaky way of calling UpdateLookup}
178	+	end;
179	+
180		procedure TIBLookupComboDataLink.RecordChanged(Field: TField);
181		begin
182		FOwner.RecordChanged(self,Field);

Diff Legend

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