SkinFeature для PB 5.70+

Поделиться121.05.2020 00:47:22

Автор: appdurov
Новичок
Зарегистрирован: 21.05.2020
Приглашений: 0
Сообщений: 2
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
1 час 28 минут
Последний визит:
23.05.2020 14:31:28

Добрый день. Мне необходимо привести программу в более-менее комфортный глазу дизайн. Проблема в том, что стиль программы в темных тонах, а как известно у Gadget элементов с этим беда. Отличным вариантом для меня было бы нацепить скин, но SkinFeature на новом PB не желает вставать. Я тестировал на версии PB 4.61 и там SkinFeature работал. За это время синтаксис явно сильно поменялся и как адаптировать SkinFeature я ума не приложу
У меня есть небольшой бюджет, и если вы можете решить мою проблему я с удовольствием вас отблагодарю! Так же если будет желание, опять же за вознаграждение, мне необходимо отловить и исправить 2 бага в программе.
Из опыта гугления знаю что Пётр спец в вопросах про PB возлагаю надежды на вас!

0

Поделиться223.05.2020 00:33:47

Автор: Пётр
Активный участник
Зарегистрирован: 14.06.2009
Приглашений: 0
Сообщений: 2944
Уважение: [+96/-5]
Позитив: [+1/-0]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
18.04.2024 17:14:34

SkinFeature работает в новых версиях. Нужно всего лишь немного изменить код с учетом того что строки юникодные, а dll требует ascii. https://dropmefiles.com/Ueq8m

Код:

Prototype pInitLicenKeys(Key.p-ascii)
Prototype pLoadSkinFile(Skin.p-ascii, s.p-ascii)

;=============================================================================================
Global UnLoadSkin
Procedure Skin(skin.s)
OpenLibrary(0, "SkinFeature.dll")
InitializeSkin = GetFunction(0, "InitializeSkin")
UnLoadSkin = GetFunction(0, "UnLoadSkin")
rrr.s="Skin/"+skin.s
CallFunctionFast(InitializeSkin)

InitLicenKeys.pInitLicenKeys = GetFunction(0, "InitLicenKeys")
LoadSkinFile.pLoadSkinFile = GetFunction(0, "LoadSkinFile")

InitLicenKeys("КЛЮЧ")
LoadSkinFile(rrr, "")
EndProcedure
Skin(skin.s)

0

Поделиться323.05.2020 10:59:22

Автор: appdurov
Новичок
Зарегистрирован: 21.05.2020
Приглашений: 0
Сообщений: 2
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
1 час 28 минут
Последний визит:
23.05.2020 14:31:28

Пётр написал(а):

SkinFeature работает в новых версиях. Нужно всего лишь немного изменить код с учетом того что строки юникодные, а dll требует ascii. https://dropmefiles.com/Ueq8m

Благодарю за ответ! Но к сожалению чтобы я не делал, получаю ошибку
[11:22:43] Waiting for executable to start...
[11:22:43] Executable type: Windows - x64 (64bit, Unicode)
[11:22:43] Executable started.
[11:22:43] [ERROR] скин_dll.pb (Line: 19)
[11:22:43] [ERROR] Invalid memory access. (write error at address 0)

Я так понимаю что библиотека загружается, но вызвать функцию InitializeSkin не выходит

UPD: Я заметил что у вас win x86. Я попробовал компилятор x86 и всё заработало! Вроде бы моя программа тоже работает))

UPD: Я всё же заметил неприятную проблему, появилось явное мерцание у PanelGadget

Отредактировано appdurov (23.05.2020 12:11:14)

0