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

tvplanit: Fix compilation with Laz 2.0.12 (or older? - untested).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8497 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-21 18:07:10 +00:00
parent 352003d5d6
commit 4f5cea1fef
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/source/vpabout.lfm
View File

@ -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

8
components/tvplanit/source/vpabout.pas
View File

@ -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);