diff --git a/components/tvplanit/source/vpabout.lfm b/components/tvplanit/source/vpabout.lfm index 51ab04828..238a34fae 100644 --- a/components/tvplanit/source/vpabout.lfm +++ b/components/tvplanit/source/vpabout.lfm @@ -14,6 +14,7 @@ object frmAbout: TfrmAbout OnCreate = FormCreate OnDestroy = FormDestroy Position = poScreenCenter + LCLVersion = '2.3.0.0' object ButtonPanel: TPanel AnchorSideTop.Control = Panel1 AnchorSideTop.Side = asrBottom diff --git a/components/tvplanit/source/vpabout.pas b/components/tvplanit/source/vpabout.pas index b1ed8d793..b14983817 100644 --- a/components/tvplanit/source/vpabout.pas +++ b/components/tvplanit/source/vpabout.pas @@ -34,7 +34,7 @@ interface uses {$IFDEF LCL} - LCLProc, LCLType, LCLIntf, + LCLProc, LCLType, LCLIntf, LCLVersion, {$ELSE} Windows, Messages, {$ENDIF} @@ -52,6 +52,10 @@ uses *) Classes, SysUtils; +{$IF LCL_FullVersion >= 2020000} + {$DEFINE HAS_ANTIALIASEDSTRETCHDRAW} +{$ENDIF} + type { TfrmAbout } @@ -155,7 +159,7 @@ begin bmp := TBitmap.Create; try bmp.SetSize(w, h); - {$IFDEF LCL} + {$IFDEF HAS_ANTIALIASEDSTRETCHDRAW} AntiAliasedStretchDrawBitmap(FLogo, bmp, w, h); {$ELSE} bmp.Canvas.StretchDraw(Rect(0, 0, bmp.Width,bmp.Height), FLogo);