Download: yandex
Discussion
Code: Select all
EnableExplicit
UsePNGImageDecoder()
Define hGUI, w, h, Counter, id_img, i
;- DataSection
DataSection
p1:
IncludeBinary "images\1.png"
p2:
IncludeBinary "images\2.png"
p3:
IncludeBinary "images\3.png"
p4:
IncludeBinary "images\4.png"
p5:
IncludeBinary "images\5.png"
p6:
IncludeBinary "images\6.png"
p7:
IncludeBinary "images\7.png"
p8:
IncludeBinary "images\8.png"
p9:
IncludeBinary "images\9.png"
p10:
IncludeBinary "images\10.png"
p11:
IncludeBinary "images\11.png"
p12:
IncludeBinary "images\12.png"
p13:
IncludeBinary "images\13.png"
p14:
IncludeBinary "images\14.png"
p15:
IncludeBinary "images\15.png"
p16:
IncludeBinary "images\16.png"
p17:
IncludeBinary "images\17.png"
p18:
IncludeBinary "images\18.png"
p19:
IncludeBinary "images\19.png"
p20:
IncludeBinary "images\20.png"
p21:
IncludeBinary "images\21.png"
p22:
IncludeBinary "images\22.png"
p23:
IncludeBinary "images\23.png"
p24:
IncludeBinary "images\24.png"
p25:
IncludeBinary "images\25.png"
p26:
IncludeBinary "images\26.png"
p27:
IncludeBinary "images\27.png"
p28:
IncludeBinary "images\28.png"
p29:
IncludeBinary "images\29.png"
p30:
IncludeBinary "images\30.png"
p31:
IncludeBinary "images\31.png"
p32:
IncludeBinary "images\32.png"
p33:
IncludeBinary "images\33.png"
p34:
IncludeBinary "images\34.png"
p35:
IncludeBinary "images\35.png"
p36:
IncludeBinary "images\36.png"
p37:
IncludeBinary "images\37.png"
p38:
IncludeBinary "images\38.png"
p39:
IncludeBinary "images\39.png"
p40:
IncludeBinary "images\40.png"
p41:
IncludeBinary "images\41.png"
EndDataSection
CatchImage(1, ?p1)
CatchImage(2, ?p2)
CatchImage(3, ?p3)
CatchImage(4, ?p4)
CatchImage(5, ?p5)
CatchImage(6, ?p6)
CatchImage(7, ?p7)
CatchImage(8, ?p8)
CatchImage(9, ?p9)
CatchImage(10, ?p10)
CatchImage(11, ?p11)
CatchImage(12, ?p12)
CatchImage(13, ?p13)
CatchImage(14, ?p14)
CatchImage(15, ?p15)
CatchImage(16, ?p16)
CatchImage(17, ?p17)
CatchImage(18, ?p18)
CatchImage(19, ?p19)
CatchImage(20, ?p20)
CatchImage(21, ?p21)
CatchImage(22, ?p22)
CatchImage(23, ?p23)
CatchImage(24, ?p24)
CatchImage(25, ?p25)
CatchImage(26, ?p26)
CatchImage(27, ?p27)
CatchImage(28, ?p28)
CatchImage(29, ?p29)
CatchImage(30, ?p30)
CatchImage(31, ?p31)
CatchImage(32, ?p32)
CatchImage(33, ?p33)
CatchImage(34, ?p34)
CatchImage(35, ?p35)
CatchImage(36, ?p36)
CatchImage(37, ?p37)
CatchImage(38, ?p38)
CatchImage(39, ?p39)
CatchImage(40, ?p40)
CatchImage(41, ?p41)
Declare AddLayeredWindow(x, y, Image)
ExamineDesktops()
w = DesktopWidth(0)
h = DesktopHeight(0)
hGUI = OpenWindow(0, 0, 0, 10, 10, "", #PB_Window_Invisible) ; Невидимое окно для таймера.
AddWindowTimer(0, 0, 100)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Timer
If EventTimer() = 0
Counter + 1
If Counter <= 150 ; Число картинок
id_img = Random(41, 1)
AddLayeredWindow(Random(w - ImageWidth(id_img), 0), Random(h - ImageHeight(id_img), 0), id_img)
Else
RemoveWindowTimer(0, 0)
EndIf
EndIf
Case #PB_Event_LeftClick, #PB_Event_RightClick
Break
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver
End
Procedure AddLayeredWindow(x, y, Image)
Protected WinNum, hGUI, hDC, pt2.Point, sz.Point, bf.BlendFunction
Static ID = 0
ID + 1
WinNum = OpenWindow(ID, x, y, ImageWidth(Image), ImageHeight(Image), "", #PB_Window_Invisible | #PB_Window_BorderLess)
hGUI = WindowID(ID)
SetWindowLongPtr_(hGUI, #GWL_EXSTYLE,
GetWindowLongPtr_(hGUI, #GWL_EXSTYLE) | #WS_EX_LAYERED | #WS_EX_TOOLWINDOW)
StickyWindow(ID, #True)
sz\x = ImageWidth(Image)
sz\y = ImageHeight(Image)
bf\BlendOp = #AC_SRC_OVER
bf\BlendFlags = 0
bf\SourceConstantAlpha = 255 ; общая прозрачность окна
bf\AlphaFormat = #AC_SRC_ALPHA ; используем альфа-канал
hDC = StartDrawing(ImageOutput(Image))
UpdateLayeredWindow_(hGUI, 0, 0, @sz, hDC, @pt2, 0, @bf, #ULW_ALPHA)
StopDrawing()
HideWindow(ID, #False)
ProcedureReturn ID
EndProcedure
