From 7797575c940f583879594a1fdd759ba17fe0ac3d Mon Sep 17 00:00:00 2001 From: alexs75 Date: Thu, 30 Mar 2017 16:58:22 +0000 Subject: [PATCH] RxFPC:try to fix RxVersInfo - bug id 0031610 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5828 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/rx/trunk/rxcontrols/rxversinfo.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/rx/trunk/rxcontrols/rxversinfo.pas b/components/rx/trunk/rxcontrols/rxversinfo.pas index 40ed2dc34..c74d5fe4f 100644 --- a/components/rx/trunk/rxcontrols/rxversinfo.pas +++ b/components/rx/trunk/rxcontrols/rxversinfo.pas @@ -306,7 +306,7 @@ end; function TRxVersionInfo.GetWidgetName: string; begin - {$IF (lcl_fullversion < 010700)} + {$IF (lcl_fullversion < 01070000)} Result:=sWidget + LCLPlatformDirNames[WidgetSet.LCLPlatform]; {$ELSE} Result:=sWidget + LCLPlatformDisplayNames[WidgetSet.LCLPlatform];