DelphiExpert
Сначала подумай, потом сделай.
- Сообщения
- 13
- Репутация
- 7
Привет всем, вот вам выкладываю скрипт с красивым оформлением) :IL_AutoIt_1:
Вот сам скрипт:
P.S. На форуме такого не видел!
Вот сам скрипт:
Код:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <Inet.au3>
#include <Misc.au3>
#Include <File.au3>
Opt("TrayOnEventMode", 1) ; Use event trapping for tray menu
Opt("TrayMenuMode", 3) ; Default tray menu items will not be shown.
TraySetIcon("shell32.dll", 48)
TraySetToolTip("Скин")
TrayCreateItem("Автор")
TrayItemSetOnEvent(-1, "AvtorTip")
TrayCreateItem("Выход")
TrayItemSetOnEvent(-1, "On_Exit")
TraySetState()
$Width = 200
$Height = 190
GUISetBkColor(0xFFFFFF)
$hGUI = GUICreate(" Skin v0.1 - by Gettero", $Width, $Height, -1, -1, BitOR($WS_POPUP, $WS_BORDER))
$Close = GUICtrlCreateLabel("X", $Width - 15, 0, 11, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetCursor(-1, 0)
$Formtitle = GUICtrlCreateLabel(" Skin v0.1 - by Gettero", 0, 3, @DesktopWidth, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Formtitlebackground = GUICtrlCreateGraphic(0, 0, @DesktopWidth, 22)
GUICtrlSetBkColor(-1, 0x000000)
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Кнопка1", 16, 48, 163, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Button2 = GUICtrlCreateButton("Кнопка2", 16, 88, 163, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Button3 = GUICtrlCreateButton("Выход", 16, 128, 163, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetColor(-1, 0x000000)
$UnHooked = GUICtrlCreateButton("Кнопка3", 120, 160, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Close
Exit
Case $Button3
Exit
EndSwitch
WEnd
Func AvtorTip()
MsgBox(64, "Автор", "Программу написал Gettero")
EndFunc
Func On_Exit()
Exit
EndFunc
P.S. На форуме такого не видел!