Opt("GuiOnEventMode", 1)

_gif(@TempDir & '\sunny.gif')

$form1 = GUICreate("Vremenska prognoza", -1, -1, -1, -1, -1, 0x00000080)
$form2 = GUICreate("Vremenska prognoza", 240, 180, 600, 100, 0x80000000, 0x00080000, $form1)
GUISetBkColor(11259375)
_winapi_setlayeredwindowattributes($form2, 11259375, 255)

$label = GUICtrlCreateLabel("10°C", 70, 30, 100, 120, -1, 1048576)
GUICtrlSetColor(-1, 16777215)
GUICtrlSetFont(-1, 28, 400, 2, "Tahoma")
GUISetState()

$form3 = GUICreate("Show", 70, 50, 0, 0, 0x80000000, BitOR(0x00080000, 0x00000040), $form2)
$sl = GUICtrlCreatePic(@TempDir & '\sunny.gif', 0, 0, 70, 50, -1, 1048576)
GUISetState()

While 1
	Sleep(100)
WEnd

Func _winapi_setlayeredwindowattributes($hwnd, $i_transcolor, $transparency = 255, $dwflages = 3, $iscolorref = False)
	If $dwflages = Default Or $dwflages = "" Or $dwflages < 0 Then $dwflages = 3
	If Not $iscolorref Then
		$i_transcolor = Hex(String($i_transcolor), 6)
		$i_transcolor = Execute("0x00" & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
	EndIf
	Local $ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $transparency, "long", $dwflages)
	Select
		Case @error
			Return SetError(@error, 0, 0)
		Case $ret[0] = 0
			Return SetError(4, _WinAPI_GetLastError(), 0)
		Case Else
			Return 1
	EndSelect
EndFunc   ;==>_winapi_setlayeredwindowattributes


Func _gif($n)
$dll_data=""
$dll_data&="47494638396140002800D50000FFD600FDD485FDBD37FBB025FFEDA3FFD05CFEC51AFFF8E5FFDB89FDBD20FFE98DFFDE00FFD749FEE7BBFFF1CFFFCC33FFD96EFCC65CFAAD27FDE2ADFFFCF1FFCE10FFF1C4FFD10AFFE7A1FFD992FFE600FFFFFFFDD077FCC14EFFDD9DFFD405FFDF7DFFDA5DFFEFD7FBB833FFC521FFE02DFFE9ADFECF6CFFECB8FECA16FFE66FFCBD40FFF4D9FFF4D1FFE3A0FCB723FFF9EFFDC44AFECE7AFFAD29FFEB00FFEAC2FFE35DFFDE94FFD631FFE496FFE3B4FFDE49FDC536FFEBADFFDD6EFFFFFF21F9040107003F002C00000000400028000006FFC09F70482C1A8FC8A472C96C0E4F14A7748AAC1D6B83CC5174A07A939D893162184589A2D1776D0C64D1AF45423B6C8C4EECBC50347871861C290B1F2B43130303627A7923721114070300"
$dll_data&="930962132F15035D8B6C1C151A061D27060BA5292B1998291D9C790D091AA09293932F981773423513191101AD46911DBE19133558A583A5B41517CE2F1D1D7DB62F56C045A90BCE0606B617C9CBB40017290909DCDC0978D745142B003434B1B1C93639160E0E1821CE151529005374DBC48E488317F312DA684101450E1F084C1C3800E15FC06E7F0A1A399122A106051430E0F840B2640E0A2E00A2D3A43158A3642A362028499364080A37D0F9697924032CFF0D2528CCAC5933C48602DC0688CA508360CB1A232A2C20E080A8550C35D225A066CB97076B7928D4C87042DA0B03DF0E80B04A14C7061EE6CC71B575A2419E1A2B10A5B8002061890D6CAD3A3811972B2AA76C284CE8F0421038152C021335E1412E5DBB0545701891E0DB02155525D3C45079EB0B0F3C"
$dll_data&="851CE05C6A0760D1251DC8306D0B754B0A1D12803B100236490A31E6FA39730DB76E703D50F84620622E22A5C439194F468B0185DE92715090C1F539A275D2A519484152DC49EC5671B0D031774404A6ECC436C8C02142DE17242FA0A0B0966808160E08C0152BA915114002F95D00020C0E20D01B0320A0B08107C2BD4047813F50308233FD54F0A000024D6DC0600631D0F6827760A5E6D307175460803F02A113176DDE216246811AEED54D0217696519351344E05D04055656C10B2BE476D10B330AD7C50119E435C02F3CADB055001490A1D3084C9A484D8A356C86594187AC608D96098CE0C141728D85E2162DAD80E510B9BD10C1262BD8A2C60F224833408A051E20421103A84904853B0DE1C685181E71673B888CA98B228D4AB159A58B848969A62D0501003B"
$writer=FileOpen($n,2)
$dll_data = "0x" & $dll_data
FileWrite($writer,Binary($dll_data))
FileClose($writer)
EndFunc