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
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, along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
"/> "/>
<Version Major="1" Minor="1"/> <Version Major="1" Minor="2"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>
<Filename Value="upoweredby.pas"/> <Filename Value="upoweredby.pas"/>

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

@ -39,7 +39,7 @@ uses
ExtCtrls, InterfaceBase, LCLType, LCLVersion, AboutPoweredbyunit; ExtCtrls, InterfaceBase, LCLType, LCLVersion, AboutPoweredbyunit;
const const
C_VERSIONSTRING = '1.0.4.0'; C_VERSIONSTRING = '1.2.0.0';
C_WIDGETSET_GTK = 'GTK widget set'; C_WIDGETSET_GTK = 'GTK widget set';
C_WIDGETSET_GTK2 = 'GTK 2 widget set'; C_WIDGETSET_GTK2 = 'GTK 2 widget set';
C_WIDGETSET_GTK3 = 'GTK 3 widget set'; C_WIDGETSET_GTK3 = 'GTK 3 widget set';
@ -104,7 +104,7 @@ procedure Register;
implementation 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; procedure Register;
begin begin
@ -223,7 +223,8 @@ Choices are:
begin begin
Result := False; Result := False;
case WidgetSet.LCLPlatform of case WidgetSet.LCLPlatform of
lpWin32, lpQT: Result := True; lpWin32: Result := True;
// lpWin32, lpQT: Result := True;
else else
Result := False; Result := False;
end; end;
@ -298,6 +299,7 @@ begin
// BackGround image - load from resource // BackGround image - load from resource
with img_background do with img_background do
begin begin
Align := alClient; Align := alClient;
Stretch := True; Stretch := True;
Parent := fPoweredByForm; Parent := fPoweredByForm;
@ -311,6 +313,7 @@ begin
// Set form properties // Set form properties
with fPoweredByForm do with fPoweredByForm do
begin begin
// PixelFormat:=pf32bit;
position := poScreenCenter; position := poScreenCenter;
borderstyle := bsnone; borderstyle := bsnone;
bordericons:=[]; bordericons:=[];
@ -320,7 +323,9 @@ begin
Scaled:=True; Scaled:=True;
if CanShowRoundedGraphic then if CanShowRoundedGraphic then
begin begin
{$IFDEF WINDOWS}
MakeTransparentWindow(fPoweredByForm,img_background); MakeTransparentWindow(fPoweredByForm,img_background);
{$ENDIF}
end end
else else
begin begin