From 09e3c1d77292b1ed7483f06e93d55174b9fc1db7 Mon Sep 17 00:00:00 2001 From: alexs75 Date: Thu, 30 Mar 2017 07:01:39 +0000 Subject: [PATCH] RxFPC: try fix compile rxversinfo.pas on lazarus 1.6 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5826 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/rx/trunk/rxcontrols/rxversinfo.pas | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/components/rx/trunk/rxcontrols/rxversinfo.pas b/components/rx/trunk/rxcontrols/rxversinfo.pas index 4092cefef..40ed2dc34 100644 --- a/components/rx/trunk/rxcontrols/rxversinfo.pas +++ b/components/rx/trunk/rxcontrols/rxversinfo.pas @@ -306,7 +306,11 @@ end; function TRxVersionInfo.GetWidgetName: string; begin + {$IF (lcl_fullversion < 010700)} + Result:=sWidget + LCLPlatformDirNames[WidgetSet.LCLPlatform]; + {$ELSE} Result:=sWidget + LCLPlatformDisplayNames[WidgetSet.LCLPlatform]; + {$ENDIF} end; end.