Что нового

Скин для вашей программы!

DelphiExpert

Сначала подумай, потом сделай.
Сообщения
13
Репутация
7
Привет всем, вот вам выкладываю скрипт с красивым оформлением) :IL_AutoIt_1:

Вот сам скрипт:
Код:
#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. На форуме такого не видел!
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Не плохое оформление!

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Как правильно называть темы

"Не плохое оформление!" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор раздела.
 
Автор
D

DelphiExpert

Сначала подумай, потом сделай.
Сообщения
13
Репутация
7
Вот в этой теме нашел скрипт с похожим оформлением:
Сделайте пожалуйста отправку email
Посмотрел, да форма такая же, но только в моем скине кнопки другие.)
 

Ganibal95

GreenBytes
Сообщения
877
Репутация
240
Мало...


Добавлено:
Сообщение автоматически объединено:

Это вообще лишнее...
Код:
#include <Inet.au3>
#include <Misc.au3>
#Include <File.au3>


Сразу видно откуда то своровал, впрочем как и всегда...
 
Верх