From 2bc0d54d4c69253f79d4f2abc1dc7d46e20e777c Mon Sep 17 00:00:00 2001 From: gbamber Date: Thu, 16 Jan 2020 18:09:03 +0000 Subject: [PATCH] To V 1.2.0 Bugfix from bugtracker applied git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7289 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/poweredby/latest_stable/poweredby.lpk | 2 +- components/poweredby/latest_stable/upoweredby.pas | 11 ++++++++--- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/components/poweredby/latest_stable/poweredby.lpk b/components/poweredby/latest_stable/poweredby.lpk index bd66a84f9..6984c0f3a 100644 --- a/components/poweredby/latest_stable/poweredby.lpk +++ b/components/poweredby/latest_stable/poweredby.lpk @@ -49,7 +49,7 @@ Copyright (C)2014 minesadorada@charcodelvalle.com along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. "/> - + diff --git a/components/poweredby/latest_stable/upoweredby.pas b/components/poweredby/latest_stable/upoweredby.pas index b5d3fe39b..228ace39b 100644 --- a/components/poweredby/latest_stable/upoweredby.pas +++ b/components/poweredby/latest_stable/upoweredby.pas @@ -39,7 +39,7 @@ uses ExtCtrls, InterfaceBase, LCLType, LCLVersion, AboutPoweredbyunit; const - C_VERSIONSTRING = '1.0.4.0'; + C_VERSIONSTRING = '1.2.0.0'; C_WIDGETSET_GTK = 'GTK widget set'; C_WIDGETSET_GTK2 = 'GTK 2 widget set'; C_WIDGETSET_GTK3 = 'GTK 3 widget set'; @@ -104,7 +104,7 @@ procedure Register; implementation -uses {$IF (lcl_major > 0) and (lcl_minor > 6)}LCLPlatformDef {$ENDIF}; +Uses {$IF ((lcl_major = 1) and (lcl_minor > 6)) or (lcl_major > 1))} LCLPlatformDef {$ENDIF}; procedure Register; begin @@ -223,7 +223,8 @@ Choices are: begin Result := False; case WidgetSet.LCLPlatform of - lpWin32, lpQT: Result := True; + lpWin32: Result := True; +// lpWin32, lpQT: Result := True; else Result := False; end; @@ -298,6 +299,7 @@ begin // BackGround image - load from resource with img_background do begin + Align := alClient; Stretch := True; Parent := fPoweredByForm; @@ -311,6 +313,7 @@ begin // Set form properties with fPoweredByForm do begin + // PixelFormat:=pf32bit; position := poScreenCenter; borderstyle := bsnone; bordericons:=[]; @@ -320,7 +323,9 @@ begin Scaled:=True; if CanShowRoundedGraphic then begin + {$IFDEF WINDOWS} MakeTransparentWindow(fPoweredByForm,img_background); + {$ENDIF} end else begin