* * *    
Главная » Статьи » Код PB

Просмотров: 2135 | Дата: 29.03.2024 | Коментарии (0)

Всплывающее сообщение в трее




Code
#WindowLength=180
#WindowHeight=50

Procedure SetWinOpacity (hwnd.l, Opacity.l) ; Opacity variable: 0-255  
  SetWindowLong_(hwnd, #GWL_EXSTYLE, $00080000)  
  SetLayeredWindowAttributes_(hwnd, 0, Opacity, 2)  
EndProcedure

Procedure.l CreatePopupMessage(*DeviceName.s)
  Define Window.l, rect.RECT, DummyWindow.l, i.l, TextGadget
  SystemParametersInfo_(#SPI_GETWORKAREA,0,rect.RECT,0)
  DummyWindow.l=OpenWindow(#PB_Any, 0, 0, 0, 0, "", #PB_Window_Invisible)
  Window=OpenWindow(#PB_Any, rect\right-#WindowLength, rect\bottom-#WindowHeight, #WindowLength, #WindowHeight, "Audio Device", #WS_POPUPWINDOW|#WS_DISABLED|#PB_Window_Invisible, WindowID(DummyWindow))
   
  If Window
  If CreateGadgetList(WindowID(Window))
  TextGadget=TextGadget(#PB_Any, 10, 10, 160, 30, "Default Audio Device:"+Chr($0A)+*DeviceName)
  EndIf
  StickyWindow(Window, 1)
  SetWindowColor(Window, RGB(255, 255, 255))
  SetWinOpacity(WindowID(Window), 0)
  HideWindow(Window, 0)
   
  For i=0 To 255 Step 10
  SetWinOpacity(WindowID(Window), i)
  While WindowEvent()
  Wend  
  Delay(20)
  Next
  Delay(1250)
  For i=255 To 0 Step -10
  SetWinOpacity(WindowID(Window), i)
  While WindowEvent()
  Wend  
  Delay(20)
  Next
  EndIf
  CloseWindow(Window)
  CloseWindow(DummyWindow)
EndProcedure
CreatePopupMessage(@"Synthblaster")










Сайт посвящён языку программирования PureBasic — коммерческий компилятор языка программирования, использующего синтаксис BASIC. Предназначен для создания кроссплатформенных приложений для AmigaOS, Linux, Microsoft Windows, Windows NT и Mac OS X. Разработан компанией Fantaisie Software.