FreeBasic
Главная
Вход
Регистрация
Четверг, 28.03.2024, 20:19Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Кнопка и надпись без окна (Кнопка и надпись без окна)
Кнопка и надпись без окна
haavДата: Четверг, 06.12.2012, 09:28 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Кнопка и надпись без окна




На самом деле конечно окно есть, просто оно прозрачно. В итоге кнопка и надпись оказываются как бы "сиротами"

Code

#Include "window9.bi"

' буфер , принимающий сообщения
Dim As Integer iEvent

' хендл окна
Dim As HWND hWin

' Создаем окно без рамки
'и с возможной прозрачностью
hWin = OpenWindow(_
       "", 0, 0, 300, 180,_
       WS_POPUP Or WS_VISIBLE,_
       WS_EX_LAYERED _
       )

' окно поверх всех окон       
SetWindowTop(_
     hWin,1 _
     )

' окно по центру
CenterWindow(_
     hWin _
     )

' ставим цвет окна  
WindowColor(_
     hWin,&h1 _
     )
      
' ставим цвет прозрачных пикселов
SetLayeredWindowAttributes(_
          hWin,&h1,0,1 _
          )

' текстовый гаджет - надпись
TextGadget (_
     1, 6, 2, 220, 20,_
     "Для выхода нажать на кнопку",_
     SS_CENTER _
     )
      
' Кнопка
ButtonGadget (_
     2, 86, 30, 50, 20,_
     "Выход" _
     )     

' прозрачный фон, но
' непрозрачный текст
SetGadgetColor(_
      1, &h1 ,&hff,3 _
      )

' цикл отлова событий
Do
   
  iEvent = WaitEvent
   
  If iEvent = eventgadget Then
    
   Exit Do
   
  EndIf
   
Loop
Прикрепления: 6199392.png (2.1 Kb)


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Исходники » Кнопка и надпись без окна (Кнопка и надпись без окна)
  • Страница 1 из 1
  • 1
Поиск: