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

RxFPC:fix compile after lazarus rev.57722

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6360 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-04-27 06:11:12 +00:00
parent 468c8c7e08
commit ffd8d74165
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/trunk/rxcontrols/rxtooledit.pas
View File

@ -114,7 +114,9 @@ type
procedure EditKeyDown(var Key: word; Shift: TShiftState); override; procedure EditKeyDown(var Key: word; Shift: TShiftState); override;
procedure EditKeyPress( var Key: char); override; procedure EditKeyPress( var Key: char); override;
{$IF lcl_fullversion < 01090000}
function GetDefaultGlyph: TBitmap; override; function GetDefaultGlyph: TBitmap; override;
{$ENDIF}
function GetDefaultGlyphName: String; override; function GetDefaultGlyphName: String; override;
function CreatePopupForm:TPopupCalendar; function CreatePopupForm:TPopupCalendar;
procedure DoEnter; override; procedure DoEnter; override;
@ -849,17 +851,15 @@ begin
end; end;
end; end;
{$IF lcl_fullversion < 01090000}
function TCustomRxDateEdit.GetDefaultGlyph: TBitmap; function TCustomRxDateEdit.GetDefaultGlyph: TBitmap;
var var
R: TRect; R: TRect;
B: TCustomBitmap; B: TCustomBitmap;
begin begin
{$IF lcl_fullversion < 01090000}
Result := nil;
{$ELSE}
Result := DateGlyph; Result := DateGlyph;
{$ENDIF}
end; end;
{$ENDIF}
function TCustomRxDateEdit.GetDefaultGlyphName: String; function TCustomRxDateEdit.GetDefaultGlyphName: String;
begin begin