PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

Small Module for Freeware Licence Gadget()

https://www.purebasic.fr/english/viewtopic.php?t=68208

Page 1 of 1

Small Module for Freeware Licence Gadget()

Posted: Wed Mar 29, 2017 12:00 am
by Zebuddi123
Hi to All Small Module for freeware Licence gadget. Takes program name, programmer name, programmers alias, programmer website as parameters which are added to the html code for the webgadget()

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
All times are UTC+01:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited