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

RxFPC: fix compile in lazarus 1.2.4

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3619 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-10-02 05:56:55 +00:00
parent 3b69ec270c
commit 03960e3649
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/trunk/tooledit.pas
View File

@ -114,12 +114,12 @@ type
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: Char); override; procedure KeyPress(var Key: Char); override;
procedure EditKeyDown(var Key: word; Shift: TShiftState); override;
procedure EditKeyPress( var Key: char); override;
{$IFDEF OLD_EDITBUTTON} {$IFDEF OLD_EDITBUTTON}
procedure DoButtonClick (Sender: TObject); override; procedure DoButtonClick (Sender: TObject); override;
{$ELSE} {$ELSE}
procedure ButtonClick; override; procedure ButtonClick; override;
procedure EditKeyDown(var Key: word; Shift: TShiftState); override;
procedure EditKeyPress( var Key: char); override;
{$ENDIF} {$ENDIF}
function GetDefaultGlyphName: String; override; function GetDefaultGlyphName: String; override;
@ -788,6 +788,7 @@ begin
inherited KeyPress(Key); inherited KeyPress(Key);
end; end;
{$IFNDEF OLD_EDITBUTTON}
procedure TCustomRxDateEdit.EditKeyDown(var Key: word; Shift: TShiftState); procedure TCustomRxDateEdit.EditKeyDown(var Key: word; Shift: TShiftState);
begin begin
if (Key in [VK_PRIOR, VK_NEXT, VK_LEFT, VK_UP, VK_RIGHT, VK_DOWN, if (Key in [VK_PRIOR, VK_NEXT, VK_LEFT, VK_UP, VK_RIGHT, VK_DOWN,
@ -839,6 +840,7 @@ begin
end; end;
inherited EditKeyPress(Key); inherited EditKeyPress(Key);
end; end;
{$ENDIF}
{$IFDEF OLD_EDITBUTTON} {$IFDEF OLD_EDITBUTTON}
procedure TCustomRxDateEdit.DoButtonClick(Sender: TObject); procedure TCustomRxDateEdit.DoButtonClick(Sender: TObject);