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

To V 1.2.0

Browse Source 
Bugfix from bugtracker applied

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7289 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber 2020-01-16 18:09:03 +00:00
parent 931d3ba977
commit 2bc0d54d4c
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/poweredby/latest_stable/poweredby.lpk
View File

@ -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.
"/>
<Version Major="1" Minor="1"/>
<Version Major="1" Minor="2"/>
<Files Count="2">
<Item1>
<Filename Value="upoweredby.pas"/>

11
components/poweredby/latest_stable/upoweredby.pas
View File

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