pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RX: use access class to call protected methods, fix compilation due to lazarus r17564

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@611 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2008-11-24 16:30:21 +00:00
parent e2e80eac2d
commit 8ca84f58b5
2 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/rx/rxlookup.pas
View File

@ -306,6 +306,12 @@ type
implementation
uses VCLUtils, Math, rxdconst;
type
TDbGridAccess = class(TDbGrid)
end;
TPopUpFormAccess = class(TPopUpForm)
end;
{ TCustomDBLookupEdit }
@ -470,7 +476,7 @@ begin
case Key of
vk_Return: HideList;
else
FList.KeyDown(Key, Shift);
TDbGridAccess(FList).KeyDown(Key, Shift);
exit;
end;
Key:=0;
@ -496,7 +502,7 @@ begin
begin
if Key=VK_RETURN then HideList
else
Flist.KeyDown(Key, Shift);
TDbGridAccess(Flist).KeyDown(Key, Shift);
Key := 0;
end
else
@ -1008,7 +1014,7 @@ procedure TRxCustomDBLookupCombo.KeyDown(var Key: Word; Shift: TShiftState);
begin
if (Key in [VK_PRIOR, VK_NEXT, VK_UP, VK_DOWN, VK_RETURN, VK_HOME, VK_END]) and PopupVisible then
begin
FRxPopUpForm.KeyDown(Key, Shift);
TPopUpFormAccess(FRxPopUpForm).KeyDown(Key, Shift);
{ if Key=VK_RETURN then
HideList
else

6
components/rx/tooledit.pas
View File

@ -180,6 +180,10 @@ function EditorTextMargins(Editor: TCustomMaskEdit): TPoint;
implementation
uses lclintf, LCLStrConsts, rxconst, rxstrutils, LResources, Forms;
type
TPopupCalendarAccess = class(TPopupCalendar)
end;
function EditorTextMargins(Editor: TCustomMaskEdit): TPoint;
var
DC: HDC;
@ -640,7 +644,7 @@ begin
VK_ADD, VK_SUBTRACT]) and
PopupVisible then
begin
FPopup.KeyDown(Key, Shift);
TPopupCalendarAccess(FPopup).KeyDown(Key, Shift);
Key := 0;
end
else