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

RxFPC: try fix compile rxversinfo.pas on lazarus 1.6

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5826 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-03-30 07:01:39 +00:00
parent 7a395b0e3e
commit 09e3c1d772
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/rxcontrols/rxversinfo.pas
View File

@ -306,7 +306,11 @@ end;
function TRxVersionInfo.GetWidgetName: string; function TRxVersionInfo.GetWidgetName: string;
begin begin
{$IF (lcl_fullversion < 010700)}
Result:=sWidget + LCLPlatformDirNames[WidgetSet.LCLPlatform];
{$ELSE}
Result:=sWidget + LCLPlatformDisplayNames[WidgetSet.LCLPlatform]; Result:=sWidget + LCLPlatformDisplayNames[WidgetSet.LCLPlatform];
{$ENDIF}
end; end;
end. end.