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

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