ViewVC Help

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

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

Comparing ibx/trunk/ibcontrols/IBDynamicGrid.pas (file contents):
Revision 41 by tony, Sat Jul 16 12:25:48 2016 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

#	Line 311 | Line 311 | end;
311
312		implementation
313
314	<	uses Math, IBQuery, LCLType, Variants;
314	>	uses LCLType, Variants, EditBtn;
315
316		{ TIBGridControlLink }
317
#	Line 571 | Line 571 | begin
571		and (Key in [VK_RETURN,VK_UP,VK_DOWN]) then Exit; {Ignore Return in a CustomMemo}
572
573		if (AControl <> nil) and (AControl is TCustomGrid)
574	<	and (Key in [VK_RETURN,VK_UP,VK_DOWN,VK_TAB]) then Exit; {Ignore Return in a CustomMemo}
574	>	and (Key in [VK_RETURN,VK_UP,VK_DOWN,VK_TAB]) then Exit; {Ignore Return in a Custom Grid}
575	>
576	>	if (AControl <> nil) and ((AControl is TDateEdit) or (AControl is TEBEdit))
577	>	and (Key in [VK_RETURN,VK_UP,VK_DOWN,
578	>	VK_ESCAPE,VK_LEFT,VK_RIGHT]) then Exit; {Ignore Return in a Data edit}
579
580		if assigned(FOnKeyDownHander) then
581		OnKeyDownHander(Sender,Key,Shift,Done);

Diff Legend

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