Sergey2210
Осваивающий
- Сообщения
- 263
- Репутация
- 31
AutoIt: 3.2.1.2 - 3.3.0.0
Версия: 00.03.08
Категория:
Описание: Здравствуйте,нарыл в просторах интернета
бесплатные скины,решил выложить,может кому пригодятся ;D
Пример:
Здесь полностью готовые и бесплатные скины
Ссылка:http://narod.ru/disk/7832879001/Skin.7z.html
_____________________________________________________________________________
А теперь самое главное,нашёл ещё более грамотные скины,
но проблема в том что в пример с ними идёт скрипт на Delphi,
помогите разобраться! Я Delphi совсем не знаю :(
Ссылка:http://narod.ru/disk/7833140001/askin.zip.html
Версия: 00.03.08
Категория:
Описание: Здравствуйте,нарыл в просторах интернета
бесплатные скины,решил выложить,может кому пригодятся ;D
Пример:
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Skin_UDF.au3>
#include <ButtonConstants.au3>
#include <GuiListView.au3>
#include <File.au3>
#include <GuiTab.au3>
$cfg = 'skin.ini'
Global $_SheSkinListDir = @ScriptDir & '\She'
Global $_SheSkinListArray = _FileListToArray($_SheSkinListDir, '*.she', 1)
If Not FileExists($cfg) Then
IniWrite($cfg,"setting","skin","\she\aero.she")
IniWrite($cfg,"effekts","transparency","0")
IniWrite($cfg,"effekts","brightness of shadow","0")
IniWrite($cfg,"effekts","sharpness of shadow","0")
IniWrite($cfg,"effekts","size of shadow","0")
IniWrite($cfg,"effekts","WinSetTrans","255")
EndIf
Global $skin = IniRead($cfg,"setting","skin",'')
Global $transeffekts = IniRead($cfg,"effekts","transparency",'')
Global $brightnesseffekts = IniRead($cfg,"effekts","brightness of shadow",'')
Global $sharpnesseffekts = IniRead($cfg,"effekts","sharpness of shadow",'')
Global $sizeeffekts = IniRead($cfg,"effekts","size of shadow",'')
Global $WinSetTrans = IniRead($cfg,"effekts","WinSetTrans",'')
_SkinH_Init(@ScriptDir, 0)
$GUI = GUICreate("Речевое управление компьютером", 400, 300,-1,-1,BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX))
GUIRegisterMsg($WM_NOTIFY, "_WmNotify")
_SkinH_AttachEx( @ScriptDir & $skin); Скин формы
_SkinH_SetWindowAlpha($Gui, $WinSetTrans)
; Эффекты:1-прозрачность,2-яркость тени,3-точность тени,4-размер тени
_SkinH_AdjustAero($transeffekts,$brightnesseffekts,$sharpnesseffekts,$sizeeffekts)
$Tab = GUICtrlCreateTab (0,0,415,400,$TCS_BUTTONS)
GUICtrlCreateTabitem ("Окно")
GUICtrlCreateButton("dddd",40,80,80,20)
GUICtrlCreateTabitem ( "Скин")
Global $_ListView = GUICtrlCreateListView("Skin's", 0, 21, 394, 260,$LVS_REPORT)
_GUICtrlListView_SetColumnWidth($_ListView, 0, 370)
_CreateListViewItem($_ListView, $_SheSkinListArray)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _WmNotify($_Wnd, $_Msg, $_WParam, $_LParam)
$_Tnmtv = DllStructCreate($tagNMTVDISPINFO, $_LParam)
$_Code = DllStructGetData($_Tnmtv, "Code")
$_Index = _GUICtrlListView_GetSelectedIndices($_ListView)
If $_Code = $NM_CLICK And StringLen($_Index) <> 0 Then
_SkinH_AttachEx($_SheSkinListDir & '\' & _GUICtrlListView_GetItemText($_ListView, Number($_Index)))
IniWrite($cfg,"setting","skin","\she\" & _GUICtrlListView_GetItemText($_ListView, Number($_Index)))
Return
EndIf
EndFunc
Func _CreateListViewItem($_ListViewId, $_ListArray)
For $_I = 1 To UBound($_ListArray) - 1
GUICtrlCreateListViewItem($_ListArray[$_I], $_ListViewId)
Next
EndFunc
Здесь полностью готовые и бесплатные скины
Ссылка:http://narod.ru/disk/7832879001/Skin.7z.html
_____________________________________________________________________________
А теперь самое главное,нашёл ещё более грамотные скины,
но проблема в том что в пример с ними идёт скрипт на Delphi,
помогите разобраться! Я Delphi совсем не знаю :(
Ссылка:http://narod.ru/disk/7833140001/askin.zip.html