Maybe of use to some
usage Include module
BSD_Licence_Freeware::Main(500, 400, "Pure Licence Program") ; params (Width, Height, sProgramName.s, sAuthorsName.s = "Your Name", sAuthorsAlias.s = "Your Alias", sAuthorsWebSite.s = "https://your_website.com")
Zebuddi.
Code: Select all
DeclareModule BSD_Licence_Freeware
EnableExplicit
Declare Main(Width, Height, sProgramName.s, sAuthorsName.s = "Your Name", sAuthorsAlias.s = "Your Alias", sAuthorsWebSite.s = "https://your_website.com")
EndDeclareModule
Module BSD_Licence_Freeware
Enumeration Window
#Window_0
EndEnumeration
Enumeration Gadgets
#WebGadget
EndEnumeration
Procedure Main(Width, Height, sProgramName.s, sAuthorsName.s = "Your Name", sAuthorsAlias.s = "Your Alias", sAuthorsWebSite.s = "https://your_website.com")
Protected iEvent.i, sLicenceString.s
If OpenWindow(#Window_0, 0, 0, Width, Height, sProgramName + " ---- Freeware Licence: " + FormatDate("%DD/%mm/%yyyy", Date()), #PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
WebGadget(#WebGadget, 2, 2, 494, 396,"")
sLicenceString.s = PeekS(?FreewareLicence_html_start, 5979, #PB_Ascii)
sLicenceString = ReplaceString(sLicenceString, "{((USERSNAME))}", sAuthorsName)
sLicenceString = ReplaceString(sLicenceString, "{((USERSALIAS))}", sAuthorsAlias)
sLicenceString = ReplaceString(sLicenceString, "{((AUTHORSWEBSITEADDRESS))}", sAuthorsWebSite)
SetGadgetItemText(#WebGadget, #PB_Web_HtmlCode, sLicenceString)
StickyWindow(GetActiveWindow(), #True)
EndIf
Repeat
iEvent = WaitWindowEvent()
Select iEvent
Case #PB_Event_CloseWindow
CloseWindow(#Window_0)
End
EndSelect
ForEver
EndProcedure
DataSection
FreewareLicence_html_start:
; size : 5979 bytes
Data.q $505954434F44213C,$0D3E6C6D74682045,$0D3E6C6D74683C0A,$646165683C20200A,$3C202020200A0D3E
Data.q $6E6F63206174656D,$6574223D746E6574,$3B6C6D74682F7478,$7465737261686320,$2022382D4654553D
Data.q $7571652D70747468,$746E6F63223D7669,$657079742D746E65,$202020200A0D3E22,$463E656C7469743C
Data.q $4C65726177656572,$2F3C65636E656369,$0A0D3E656C746974,$646165682F3C2020,$6F623C20200A0D3E
Data.q $6C6F636762207964,$662322203D20726F,$0D3E226462386639,$3E703C202020200A,$6572617765657246
Data.q $65736E6563694C20,$656D656572674120,$0A0D3E72623C746E,$3E702F3C20202020,$753C202020200A0D
Data.q $202020200A0D3E6C,$200A0D3E6C752F3C,$2073696854202020,$462072756F207369,$2065726177656572
Data.q $6572617774666F53,$65736E6563694C20,$656D656572674120,$63696877202C746E,$65696C7070612068
Data.q $6C6C61206F542073,$6F73202020200A0D,$7020657261777466,$2073746375646F72,$6C62616C69617661
Data.q $6F6420726F462065,$662064616F6C6E77,$7320623C206D6F72,$6F63223D656C7974,$65756C623A726F6C
Data.q $4128287B3E20223B,$455753524F485455,$4444414554495342,$3C7D292953534552,$20200A0D2C3E622F
Data.q $7373656C6E752020,$64656C6562616C20,$656D6F7320734120,$746F20676E696874,$6E65687420726568
Data.q $7261776565726620,$0A0D3E72623C2E65,$3E72623C20202020,$6F3C202020200A0D,$202020200A0D3E6C
Data.q $41203E696C3C2020,$7774666F73206C6C,$6961766120657261,$6F4620656C62616C,$6F6C6E776F642072
Data.q $3C20616976206461,$3D656C7974732062,$623A726F6C6F6322,$7B3E20223B65756C,$524F485455412828
Data.q $4554495342455753,$2953534552444441,$0A0D3E622F3C7D29,$2020202020202020,$79706F6320657261
Data.q $623C207468676972,$223D656C79747320,$6C623A726F6C6F63,$287B3E20223B6575,$4C41535245535528
Data.q $2F3C7D2929534149,$20616B61202E3E62,$656C79747320623C,$3A726F6C6F63223D,$3E20223B65756C62
Data.q $535245535528287B,$3C7D2929454D414E,$656C6E75203E622F,$726568746F207373,$6174732065736977
Data.q $696C2F3C2E646574,$20202020200A0D3E,$6F43203E696C3C20,$2074686769727970,$746F72702077616C
Data.q $6968742073746365,$617774666F732073,$72676F7270206572,$6120646E41206D61,$636F73736120796E
Data.q $200A0D6465746169,$6D20202020202020,$2E6C616972657461,$200A0D3E696C2F3C,$696C3C2020202020
Data.q $79747320623C203E,$6F6C6F63223D656C,$223B65756C623A72,$45535528287B3E20,$295341494C415352
Data.q $72203E622F3C7D29,$7420736E69617465,$206F5420656C7469,$656E776F20646E41,$4E49207069687372
Data.q $706F632065687420,$6F20746867697279,$200A0D6568742066,$7320202020202020,$206572617774666F
Data.q $206D6172676F7270,$2065687420646E41,$746169636F737361,$726574616D206465,$6C2F3C2E736C6169
Data.q $202020200A0D3E69,$54203E696C3C2020,$74666F7320736968,$2073692065726177,$766F727020746F4E
Data.q $2073412064656469,$642063696C627570,$6F73206E69616D6F,$3C2E657261777466,$20200A0D3E696C2F
Data.q $0D3E6C6F2F3C2020,$6C753C202020200A,$3C202020200A0D3E,$20200A0D3E6C752F,$623C203E703C2020
Data.q $202020200A0D3E72,$6177656572462020,$6E6563694C206572,$7468676952206573,$0A0D3E702F3C3A73
Data.q $3E6C753C20202020,$2F3C202020200A0D,$2020200A0D3E6C75,$200A0D3E6C6F3C20,$696C3C2020202020
Data.q $6F73206C6C41203E,$7020657261777466,$2073746375646F72,$6C62616C69617661,$6F6420726F462065
Data.q $662064616F6C6E77,$6F737361206D6F72,$0A0D646574616963,$2020202020202020,$2865746973626577
Data.q $656C6E75202C2973,$6C6562616C207373,$726568746F206465,$7261202C65736977,$6469766F72702065
Data.q $7266207341206465,$202E657261776565,$6572617765657246,$2020202020200A0D,$6375646F72702020
Data.q $7020657261207374,$2064656469766F72,$20666F2065657266,$3C2E656772616863,$20200A0D3E696C2F
Data.q $3E696C3C20202020,$200A0D3E72623C20,$6C2F3C2020202020,$202020200A0D3E69,$4F203E696C3C2020
Data.q $616E6F6973616363,$2065687420796C6C,$6867697279706F63,$7265646C6F682074,$736F702079616D20
Data.q $7571657220612074,$20726F4620747365,$6974616E6F642061,$202020200A0D6E6F,$73204E4920202020
Data.q $6F2074726F707075,$7320736968742066,$2E6572617774666F,$7974207369685420,$657220666F206570
Data.q $6F64207473657571,$6320746F4E207365,$68742065676E6168,$20202020200A0D65,$7373616C63202020
Data.q $6F69746163696669,$69687420666F206E,$617774666F732073,$7266207341206572,$202E657261776565
Data.q $6572617765657246,$72617774666F7320,$65622079616D2065,$2020202020200A0D,$4120646573752020
Data.q $7420796E616D2073,$2073412073656D69,$656B696C20756F79,$734120726F46202C,$734120676E6F6C20
Data.q $6B696C20756F7920,$0D3E696C2F3C2E65,$3C2020202020200A,$20756F59203E696C,$79706F632079616D
Data.q $73696420646E4120,$2065747562697274,$6F20736569706F63,$7020736968742066,$70206D6172676F72
Data.q $2064656469766F72,$756F792074616874,$2020202020200A0D,$74207065656B2020,$79706F6320736968
Data.q $6F6E207468676972,$646E412065636974,$69616C6373696420,$7720666F2072656D,$2079746E61727261
Data.q $3C2E746361746E69,$20200A0D3E696C2F,$3E696C3C20202020,$73756D20756F5920,$686320746F4E2074
Data.q $6E6F6D2065677261,$656620724F207965,$7420726F46207365,$7774666F73206568,$646F727020657261
Data.q $61206F5420746375,$200A0D656E6F796E,$6520202020202020,$6F54207470656378,$64207265766F6320
Data.q $7475626972747369,$74736F63206E6F69,$0D3E696C2F3C2E73,$3C2020202020200A,$20656854203E696C
Data.q $6867697279706F63,$7265646C6F682074,$6576726573657220,$6972206568742073,$72206F5420746867
Data.q $66697373616C6365,$7320736968742079,$0D6572617774666F,$202020202020200A,$6F6E206120734120
Data.q $6177656572662D6E,$75646F7270206572,$2061207461207463,$614420726574616C,$2E652E6928206574
Data.q $6177657261687320,$757020666F206572,$20200A0D63696C62,$6F64202020202020,$2F3C2E296E69616D
Data.q $2020200A0D3E696C,$203E696C3C202020,$6F7320676E696F44,$6F4E206C6C697720,$796669646F6D2074
Data.q $63696C2065687420,$7267612065736E65,$6F20746E656D6565,$6F69766572702066,$20200A0D796C7375
Data.q $6964202020202020,$6574756269727473,$7475636578652064,$2F3C2E73656C6261,$2020200A0D3E696C
Data.q $0A0D3E6C6F2F3C20,$3E6C753C20202020,$2F3C202020200A0D,$2020200A0D3E6C75,$72623C203E703C20
Data.q $20202020200A0D3E,$746E617272615720,$0A0D3E702F3C3A79,$3E6C753C20202020,$2F3C202020200A0D
Data.q $2020200A0D3E6C75,$7270207369685420,$7369206D6172676F,$656469766F727020,$7369207361222064
Data.q $756F687469772022,$6E61727261772074,$20666F2073656974,$646E696B20796E61,$726568746965202C
Data.q $7865202020200A0D,$2064657373657270,$696C706D6920724F,$6C636E69202C6465,$62202C676E696475
Data.q $6C20746F4E207475,$5420646574696D69,$6920656874202C6F,$77206465696C706D,$6569746E61727261
Data.q $6F202020200A0D73,$61686372656D2066,$696C69626120746E,$6620646E41207974,$46207373656E7469
Data.q $726170206120726F,$2072616C75636974,$2E65736F70727570,$20200A0D3E72623C,$0A0D3E72623C2020
Data.q $3E6C6F3C20202020,$2020202020200A0D,$656854203E696C3C,$20657269746E6520,$207341206B736972
Data.q $7120656874206F54,$41207974696C6175,$6F6672657020646E,$6F2065636E616D72,$7270206568742066
Data.q $7369206D6172676F,$2020202020200A0D,$7920687469572020,$3E696C2F3C2E756F,$2020202020200A0D
Data.q $6F6853203E696C3C,$2065687420646C75,$206D6172676F7270,$65642065766F7270,$2C65766974636566
Data.q $73736120756F7920,$2065687420656D75,$20666F2074736F63,$2020200A0D6C6C61,$63656E2020202020
Data.q $7320797261737365,$676E696369767265,$726961706572202C,$72726F6320724F20,$3C2E6E6F69746365
Data.q $20200A0D3E696C2F,$3E696C3C20202020,$65206F6E204E4920,$6C697720746E6576,$6F6320796E61206C
Data.q $2074686769727970,$62207265646C6F68,$656C6261696C2065,$20756F79206F5420,$616D616420726F46
Data.q $20200A0D2C736567,$6E69202020202020,$20676E6964756C63,$656E656720796E61,$657073202C6C6172
Data.q $6E69202C6C616963,$6C61746E65646963,$736E6F6320724F20,$6169746E65757165,$6567616D6164206C
Data.q $20202020200A0D73,$6973697261202020,$6F2054554F20676E,$7375206568742066,$616E6920724F2065
Data.q $54207974696C6962,$687420657375206F,$6172676F72702065,$756C636E6928206D,$74756220676E6964
Data.q $2020202020200A0D,$696C20746F4E2020,$6F5420646574696D,$666F2073736F6C20,$724F206174614420
Data.q $6562206174614420,$646E657220676E69,$616E692064657265,$2065746172756363,$6573736F6C20724F
Data.q $20202020200A0D73,$6174737573202020,$2079622064656E69,$7420724F20756F79,$7261702064726968
Data.q $20724F2073656974,$72756C6961662061,$65687420666F2065,$6D6172676F727020,$7265706F206F5420
Data.q $2020200A0D657461,$7469572020202020,$746F20796E612068,$676F727020726568,$2F3C2E29736D6172
Data.q $2020200A0D3E696C,$0A0D3E6C6F2F3C20,$3E6C753C20202020,$2F3C202020200A0D,$2020200A0D3E6C75
Data.q $72623C203E703C20,$20202020200A0D3E,$63696E6863655420,$6F70707553206C61,$0D3E702F3C3A7472
Data.q $6C753C202020200A,$3C202020200A0D3E,$20200A0D3E6C752F,$0A0D3E6C6F3C2020,$6C3C202020202020
Data.q $6E68636554203E69,$707573206C616369,$79616D2074726F70,$766F727020656220,$6169762064656469
Data.q $206C69616D2D6520,$7720724F2F646E41,$7020657469736265,$2E73676E6974736F,$200A0D3E696C2F3C
Data.q $696C3C2020202020,$20656C696857203E,$6665207972657665,$2073692074726F66,$206F54206564616D
Data.q $64656469766F7270,$20796C656D697420,$6163696E68636574,$726F70707573206C,$20200A0D6F6E2074
Data.q $7567202020202020,$736565746E617261,$656F737461687720,$2065726120726576,$206465696C706D69
Data.q $6365742074616874,$73206C6163696E68,$772074726F707075,$0A0D6562206C6C69,$2020202020202020
Data.q $64656469766F7270,$7461687420724F20,$63696E6863657420,$6F70707573206C61,$6E656877202C7472
Data.q $656469766F727020,$206C6C6977202C64,$7275636361206562,$696C2F3C2E657461,$20202020200A0D3E
Data.q $6F53203E696C3C20,$6F20657261777466,$6F20646572656666,$732073696874206E,$6220736920657469
Data.q $796C6C6163697361,$6F707075736E7520,$646E412064657472,$65696C7070757320,$20202020200A0D64
Data.q $6E61206E6F202020,$622073692D734120,$6C2F3C2E73697361,$202020200A0D3E69,$200A0D3E6C6F2F3C
Data.q $0D3E6C753C202020,$752F3C202020200A,$202020200A0D3E6C,$3E72623C203E703C,$2020202020200A0D
Data.q $7369642065646F43,$6F69747562697274,$0A0D3E702F3C3A6E,$3E6C753C20202020,$2F3C202020200A0D
Data.q $2020200A0D3E6C75,$200A0D3E6C6F3C20,$696C3C2020202020,$69736163634F203E,$7020796C6C616E6F
Data.q $20736E6F6974726F,$732065687420666F,$6F6320656372756F,$687420666F206564,$7774666F73207369
Data.q $2079616D20657261,$202020200A0D6562,$766F727020202020,$6169762064656469,$206C69616D2D6520
Data.q $6974736F7020724F,$7361206E6F20676E,$6465746169636F73,$6574697362657720,$796E41202E297328
Data.q $6F73206863757320,$20200A0D65637275,$6F63202020202020,$7270207369206564,$412064656469766F
Data.q $63696C6275702073,$2C6E69616D6F6420,$207373656C6E7520,$2064656C6562616C,$736977726568746F
Data.q $0D3E696C2F3C2E65,$3C2020202020200A,$6C627550203E696C,$69616D6F64206369,$692065646F63206E
Data.q $6F6320746F4E2073,$6574686769727970,$2068637553202E64,$2073692065646F63,$64657361656C6572
Data.q $0D656874206F5420,$202020202020200A,$2063696C62757020,$41206E69616D6F64,$7672657320612073
Data.q $74206F5420656369,$72676F7270206568,$6320676E696D6D61,$7974696E756D6D6F,$0A0D3E696C2F3C2E
Data.q $6C3C202020202020,$6D20756F59203E69,$6920657375207961,$6E6120726F462074,$736F707275702079
Data.q $6F73746168772065,$7469772072657665,$7365722074756F68,$6E6F697463697274,$200A0D726F46202C
Data.q $6620202020202020,$646E41202C656572,$74756F6874697720,$20676E6976696720,$5420746964657263
Data.q $756120656874206F,$696C2F3C726F6874,$20202020200A0D3E,$6128203E696C3C20,$206867756F68746C
Data.q $6920746964657263,$6365727070612073,$3C2E296465746169,$20200A0D3E696C2F,$3E696C3C20202020
Data.q $6F69736163634F20,$696420796C6C616E,$6574756269727473,$656372756F732064,$724F2065646F6320
Data.q $6E732065646F6320,$7720737465707069,$746E6F63206C6C69,$2020200A0D6E6961,$756F732020202020
Data.q $65646F6320656372,$7369207461687420,$706F632065687420,$6F20746867697279,$20726568746F2066
Data.q $2E73726F68747561,$200A0D3E696C2F3C,$696C3C2020202020,$7573206C6C41203E,$2065646F63206863
Data.q $6E6F63206C6C6977,$206E61206E696174,$6972706F72707061,$79706F6320657461,$6F6E207468676972
Data.q $646E412065636974,$2020202020200A0D,$6E69616D65722020,$6F63206568742073,$2074686769727970
Data.q $726965687420666F,$7463657073657220,$79706F6320657669,$776F207468676972,$6C2F3C2E7372656E
Data.q $202020200A0D3E69,$200A0D3E6C6F2F3C,$0D3E6C753C202020,$752F3C202020200A,$202020200A0D3E6C
Data.q $20200A0D3E72623C,$6741203E703C2020,$3A746E656D656572,$20200A0D3E702F3C,$0A0D3E6C753C2020
Data.q $6C752F3C20202020,$3C202020200A0D3E,$2020200A0D3E6C6F,$7320696C3C202020,$6F63223D656C7974
Data.q $226465523A726F6C,$7375207942203E3B,$2072756F20676E69,$6572617774666F73,$746375646F727020
Data.q $726120756F792073,$616D6F7475612065,$20796C6C61636974,$676E696565726761,$0D646E41206F5420
Data.q $202020202020200A,$687420776F687320,$6820756F79207461,$6461655220657661,$646E7520646E4120
Data.q $3C646F6F74737265,$20200A0D3E696C2F,$3E696C3C20202020,$7265742065687420,$6320646E4120736D
Data.q $6E6F697469646E6F,$6961746E6F632073,$687469772064656E,$2073696874206E69,$6572617765657246
Data.q $72617774666F5320,$20202020200A0D65,$6E6563694C202020,$6565726741206573,$6C2F3C2E746E656D
Data.q $202020200A0D3E69,$54203E696C3C2020,$6565724620736968,$666F532065726177,$694C206572617774
Data.q $67412065736E6563,$20746E656D656572,$206E656874207369,$7669746365666665,$20656C6968572065
Data.q $2020200A0D756F79,$6573752020202020,$6E6F4320646E4120,$6F542065756E6974,$737520656B616D20
Data.q $65687420666F2065,$7774666F73206573,$646F727020657261,$6C2F3C2E73746375,$202020200A0D3E69
Data.q $49203E696C3C2020,$6F6420756F792066,$72676120746F4E20,$2068746957206565,$656572462072756F
Data.q $666F532065726177,$694C206572617774,$67412065736E6563,$20746E656D656572,$2020200A0D756F79
Data.q $73756D2020202020,$737520746F4E2074,$6F732072756F2065,$7020657261777466,$2073746375646F72
Data.q $462073696874202D,$2065726177656572,$6572617774666F53,$65736E6563694C20,$2020202020200A0D
Data.q $6D65657267412020,$6C6C697720746E65,$6F4E206E65687420,$20796C7070612074,$3C2E756F79206F54
Data.q $20200A0D3E696C2F,$3E696C3C20202020,$7246207369685420,$5320657261776565,$206572617774666F
Data.q $2065736E6563694C,$6E656D6565726741,$6275732073692074,$206F54207463656A,$772065676E616863
Data.q $0A0D74756F687469,$2020202020202020,$3C2E656369746F6E,$20200A0D3E696C2F,$0D3E6C6F2F3C2020
Data.q $72623C202020200A,$41202020200A0D3E,$61706D6F6320796E,$73656D616E20796E,$2C736F676F6C202C
Data.q $73656F74746F6D20,$6F727020646E4120,$6D616E2074637564,$69746E656D207365,$20724F2064656E6F
Data.q $6E6F206E776F6873,$7361202020200A0D,$6465746169636F73,$6574697362657720,$623C724F20297328
Data.q $202020200A0D3E72,$7774666F73204E49,$646F727020657261,$79616D2073746375,$79706F6320656220
Data.q $74202C7468676972,$6B72616D65646172,$657220724F206465,$6465726574736967,$616D656461727420
Data.q $20200A0D64656B72,$6568742079622020,$6570736572207269,$776F206576697463,$200A0D2E7372656E
Data.q $3E79646F622F3C20,$6C6D74682F3C0A0D
Data.b $3E,$0D,$0A
FreewareLicence_html_end:
EndDataSection
EndModule
;----------- Example -------------------
CompilerIf #PB_Compiler_IsMainFile
BSD_Licence_Freeware::Main(500, 400, "Pure Licence Program") ; params (Width, Height, sProgramName.s, sAuthorsName.s = "Your Name", sAuthorsAlias.s = "Your Alias", sAuthorsWebSite.s = "https://your_website.com")
CompilerEndIf