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

Update for TRUNK

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5650 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2017-01-15 08:15:26 +00:00
parent 4e898d8dc5
commit 69c2a39d6e
3 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
components/poweredby/latest_stable/updates/poweredby.zip
View File

Binary file not shown.

4
components/poweredby/latest_stable/updates/update_poweredby.json
View File

@ -6,8 +6,8 @@
}, },
"UpdatePackageFiles" : [ "UpdatePackageFiles" : [
{ {
"ForceNotify" : false, "ForceNotify" : true,
"InternalVersion" : 1, "InternalVersion" : 2,
"Name" : "poweredby.lpk", "Name" : "poweredby.lpk",
"Version" : "1.0.4.0" "Version" : "1.0.4.0"
} }

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

@ -98,6 +98,7 @@ type
procedure Register; procedure Register;
implementation implementation
Uses {$IF (lcl_major > 0) and (lcl_minor > 6)}LCLPlatformDef {$ENDIF};
procedure Register; procedure Register;
begin begin
@ -211,11 +212,14 @@ Choices are:
lpCustomDrawn lpCustomDrawn
} }
begin begin
Result:=FALSE;
{
case WidgetSet.LCLPlatform of case WidgetSet.LCLPlatform of
lpWin32, lpQT: Result := True; lpWin32, lpQT: Result := True;
else else
Result := False; Result := False;
end; end;
}
end; end;
procedure TPoweredby.ShowPoweredByForm; procedure TPoweredby.ShowPoweredByForm;