Что нового

Помогите перенести Скин из Delphi в Autoit

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
AutoIt: 3.2.1.2 - 3.3.0.0
Версия: 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
 

kaster

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

Sergey2210
не понял скины к чему? неужели для всего подряд? :wacko:
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
Re: Скин для вашей программы

Ты немного ошибься разделом...

Я перемещю в Примеры, а ты потом оформи тему в соответствий с правилами этого раздела.

Kaster
С новым аватаром тебя не узнать :laugh:
 
Автор
S

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Re: Скин для вашей программы

Для всего подрят,в первой ссылке в архиве находится библиотека,из неё добавляешь 3 функции в скрипт,и все элементы окна будут иметь такое же оформление,внутри архива пример на autoit'e
 
Автор
S

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Re: Скин для вашей программы

Извиняюсь,чтото попутал с разделом...
 

kaster

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

OffTopic:
CreatoR [?]
С новым аватаром тебя не узнать
мой котэ вдруг мутировал :(
наверное гречка паленая была ;D
 

Bloodrinker

<Блуждающий...>
Сообщения
228
Репутация
19
Re: SkinSharp - Скин для вашей программы

прикольная фигня.. но откуда откопал? можно оригинал статью?
 

Bloodrinker

<Блуждающий...>
Сообщения
228
Репутация
19
Re: SkinSharp - Скин для вашей программы

пасиб, ну ладно я понимаю английский, немецкий на край, но не китайский же блин! не могли сайт на английском сделать чтоли :'(
кстати на win 7 x64 как и следовало ожидать не работает)

у япошек dll свиснули :rofl:
 
Автор
S

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Re: SkinSharp - Скин для вашей программы

Помогите со второй ссылкой
 

Bloodrinker

<Блуждающий...>
Сообщения
228
Репутация
19
Re: SkinSharp - Скин для вашей программы

а что нетак с ней?
 
Автор
S

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Re: SkinSharp - Скин для вашей программы

С ней то всё нормально,речь идёт о её содержимом,там ещё лучше скины,там даже пример есть ток он на Delphi,а я в нём не шарю :'(
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
Re: SkinSharp - Скин для вашей программы

Предупреждение
Sergey2210 пожалуйста, старайтесь придерживаться правил оформления тем в этом разделе, иначе ваша тема будет заблокирована.
Правила обязательного оформления публикаций

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

ynbIpb

Скриптер
Сообщения
399
Репутация
109
Re: SkinSharp - Скин для вашей программы

Интересная библиотека.
Но как я понял она платная? Какие ограничения у этой версии?
 
Автор
S

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Re: SkinSharp - Скин для вашей программы

Я не знаю какие ограничения,всё работает,проверял! Я не знаю как ещё тему назвать, ничего на ум не приходит
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
Re: SkinSharp - Скин для вашей программы

Sergey2210 [?]
там ещё лучше скины,там даже пример есть ток он на Delphi
Пример для чего? Если скины кинуть в папку she, то всё должно работать.
Не смотрел пример. Ну там всё на чистом Delphi, поэтому взять так просто на AutoIt переписать не получится. Нужно чтобы спецы по Delphi взялись за это и сделали Dll'ку для использования внешними приложениями.
А пример шикарный, ничего не скажешь!

ynbIpb [?]
Какие ограничения у этой версии?
Иконка в заголовке окна, вроде больше нет ограничений.

Sergey2210 [?]
Я не знаю как ещё тему назвать
А никто не говорил ничего про название темы. Прочитай Правила обязательного оформления публикаций, в третьий раз (и последний) тебе даю эту ссылку!
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
CreatoR думаю для темы "Помогите перенести Скин из Delphi в Autoit" раздел "AutoIt для новичков" более подходящие место, тем более что Sergey2210 по-моему, правила читать не "любит"
 

Bloodrinker

<Блуждающий...>
Сообщения
228
Репутация
19
я чтот не понял смысля этого askinDemo. это просто показатель как работают скины или их редактор?
Если просто демка, показывающая работу, то куда применимы скины из папки?
UPD:
чтот откомпилить код в Delphi не удается, ошибку пишет:
Код:
[DCC Fatal Error] MainUnit.pas(2): F1026 File not found: 'sDefs.inc'
и в это место тычет:
Код:
{$I sDefs.inc}
видать прав на запись каких-то не хватает чтоли под 7-кой... попробую завтра на XP
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
Garrett [?]
думаю для темы "Помогите перенести Скин из Delphi в Autoit" раздел "AutoIt для новичков" более подходящие место
Ты бы хоть посмотрел историю этой темы ;D
Сначала она была в Графика и творчество в рамках AutoIt, я посчитал что теме самое место быть в примерах, перенёс с переименованием в «SkinSharp - Скин для вашей программы». Sergey2210 видимо не понял юмора сути этого переноса (или ему это не нужно), и переименовал тему по своему.

P.S
http://autoit-script.ru/index.php?topic=4580
 
Автор
S

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Я просто новичёк и запутался,а когда на тебя 2е наезжают ,вообще всё кругом идёт :IL_AutoIt_1:
 
Верх