Вверх ↑
Этот топик читают: Гость
Ответов: 5
Рейтинг: 0
#1: 2017-03-19 01:24:44 ЛС | профиль | цитата
Всем привет! Подскажите, как можно изменить вид (скин) программы? Как сделать вид как здесь:

Вот ссылка на скины Delphi: https://happy-hack.ru/proger/12688-sbornik-skinov-delphi.html
Как их установить? Спасибо.

Редактировалось 4 раз(а), последний 2017-03-20 15:17:52
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 1341
Рейтинг: 31
#2: 2017-03-19 02:05:05 ЛС | профиль | цитата
вот, что то типо того, тему выбирать в MemoryStream (темы брать от Alpha Skins *.asz )
только вот походу тут много чего не доработано

Тык

Редактировалось 3 раз(а), последний 2017-03-19 02:07:25
карма: 2

0
файлы: 1ttbv.zip [845.6KB] [577]
Ответов: 322
Рейтинг: 8
#3: 2017-03-20 09:21:01 ЛС | профиль | цитата
Приветствую.
Попробовал запустить - замучился dll-ки искать. 5 штук нашёл, он ещё просит. Бросил.
Есть то же самое, но без "кучи dll"?
карма: 0

0
Ответов: 1341
Рейтинг: 31
#4: 2017-03-20 11:22:52 ЛС | профиль | цитата
Dad2016 писал(а):
Приветствую.
Попробовал запустить - замучился dll-ки искать. 5 штук нашёл, он ещё просит. Бросил.
Есть то же самое, но без "кучи dll"?


странно, оно вообще вроде длл не требует, там как одна внутри есть так и всё, на win 7 x64 работает нормально, даже после переустановки винды, может ЭТОГО не хватает

Редактировалось 1 раз(а), последний 2017-03-20 11:23:00
карма: 2

0
Ответов: 5
Рейтинг: 0
#5: 2017-03-20 15:08:27 ЛС | профиль | цитата
Привет. Не получается запустить программу. Нужен какой-то DLL.

Редактировалось 2 раз(а), последний 2017-03-20 15:13:01
карма: 0

0
Ответов: 1341
Рейтинг: 31
#6: 2017-03-20 16:39:48 ЛС | профиль | цитата
theme.zip

распакуй на диск C и оттуда запускай, а не чёрт пойми откуда
карма: 2

0
Ответов: 5
Рейтинг: 0
#7: 2017-03-20 17:13:18 ЛС | профиль | цитата
Я и из C диска запускал, та же хрень))

--- Добавлено в 2017-03-20 17:13:31

Вот теперь в архиве есть этот DLL. Спасибо. В первом что ты скидывал, был только один файл .sha))

Редактировалось 1 раз(а), последний 2017-03-20 17:13:31
карма: 0

0
Ответов: 322
Рейтинг: 8
#8: 2017-03-22 14:34:29 ЛС | профиль | цитата
Rysik писал(а):
может ЭТОГО не хватает

установил, всё равно требует dll-ки.
карма: 0

0
Ответов: 537
Рейтинг: 14
#9: 2017-03-22 22:11:12 ЛС | профиль | цитата
Получается красиво, но недоделано, пишет ошибки, что не может применить скин.
карма: 4

0
Ответов: 113
Рейтинг: 1
#10: 2017-03-28 15:53:18 ЛС | профиль | цитата
прикольно ))

схема

Add(MainForm,2953706,119,91)
{
Width=429
Height=381
Position=1
link(onCreate,4731668:doEvent1,[])
}
Add(Memory,4192986,378,161)
{
Default=Integer(1)
}
Add(Memory,9679428,315,154)
{
@Hint=#12:путь к файлу|
Default=String(cold.asz)
AddHint(-9,-38,80,13,@Hint)
}
Add(InlineCode,12083863,315,217)
{
DataPoints=#8:SkinName|7:SkinDir|9:ExtBorder|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|33:uses kol,windows,Share,Debug,win;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|17: c: PControl;|19: sn,sd: string;|17: eb: integer;|14: SkinName,|13: SkinDir,|26: ExtBorder: THI_Event;|24: constructor Create;|20: procedure Init;|3: |6: end; |40: procedure SetSkinForm(ASkin: PChar; |43: ASkinDir: PChar; |54: ExtBord: Boolean); stdcall; |63: external 'SF.dll' name 'SetSkinForm';|0:|14:implementation|0:|31:constructor THiAsmClass.Create;|5:begin|16: InitAdd(Init);|4:end;|0:|0:|27:procedure THiAsmClass.Init;|14:var dt: TData;|15: l: integer;|15: b: boolean;|21: st: TWindowState;|5:begin|26: c := Applet.Children[0];|24: st := c.WindowState; |35: eb := ReadInteger(dt, ExtBorder);|12: case eb of|18: 0: b := False;|17: 1: b := True;|8: end; |37: sd := ReadString(dt, SkinDir, '.');|34: sn := ReadString(dt, SkinName,);|18: l := Length(sd);|38: if sd[l] <> '\' then sd := sd + '\';|30: if FileExists(sd + sn) then |7: begin|41: SetSkinForm(PChar(sn), PChar(sd), b);|54: // тупое дёргание для избежания глюка с TabControl|11: c.Hide;|28: c.Width := c.Width + 1; |30: c.Height := c.Height + 1; |27: c.ProcessPaintMessages;|24: c.WindowState := st;|15: c.Show; |9: end; |4:end;|0:|15:initialization |66: // Можно и так инициализировать (InitAdd(Init); закоментировать)|60: //SetSkinForm('Office2007 Black.asz', 'C:\Skins\', False);|58: //SetSkinForm('Matrix_contrast.asz', 'C:\Skins\', True);|4:end.|
link(SkinName,9679428:Value,[])
link(ExtBorder,4192986:Value,[(335,205)(384,205)])
}
Add(Button,14389453,28,161)
{
Left=50
Top=90
link(onClick,15386250:doExecute,[])
}
Add(ODialog,15386250,77,161)
{
link(onExecute,9785985:doEvent1,[])
}
Add(Ini,2151906,224,154)
{
FileName="set.ini"
Section="thema"
Key="skin"
Type=1
link(onResult,9679428:doValue,[])
link(FileName,15093261:FString,[])
}
Add(Dir,15855472,224,49)
{
}
Add(FormatStr,15093261,224,105)
{
Mask="%1\set.ini"
Point(FString)
link(Str1,15855472:CurrentDir,[])
}
Add(Hub,4731668,168,105)
{
link(onEvent1,15093261:doString,[])
link(onEvent2,2151906:doRead,[(203,118)(203,160)])
}
Add(FilePartElm,13029901,168,161)
{
link(onPart,2151906:doWrite,[])
}
Add(Hub,9785985,119,161)
{
link(onEvent1,13029901:doPart,[])
link(onEvent2,2953706:doClose,[(145,174)(145,146)(107,146)(107,118)])
}


skin.jpg


а вот архив в темами http://forum.hiasm.com/getfile/38073

при выборе программа закрывается, по идее нужно перезапускать что бы применить тему

--- Добавлено в 2017-03-28 16:02:36

кодировка ,еще кудато меняется, если обзор открыть, там внизу видно что кирилицу не понимает

Редактировалось 4 раз(а), последний 2017-03-28 16:02:36
карма: 0
well done turner
0
Ответов: 233
Рейтинг: 12
#11: 2017-03-28 19:11:35 ЛС | профиль | цитата
В первой схеме получается прога пытается записать из себя SF.dll но требуется он раньше.... можно это как нибудь победить? Очень удобно было бы не таскать эти 2 файла рядом
карма: 2

0
Ответов: 233
Рейтинг: 12
#12: 2017-03-29 17:14:04 ЛС | профиль | цитата
Есть все таки интересные темы, не все контролы конечно нормально поддерживает - но жить можно.

Нашел 2 недостатка:

Не отображаются картинки

При сворачивании формы пропадает тень и у некоторых тем меняется оформление


P.S. Может кто-нибудь может за деньги перевести dll в pas файл?
карма: 2

0
12
Сообщение
...
Прикрепленные файлы
(файлы не залиты)