Вверх ↑
Этот топик читают: Гость
Ответов: 54
Рейтинг: 2
#1: 2021-11-12 05:46:55 ЛС | профиль | цитата
Привет. Можно ли как-нибудь, установить тёмную тему? Как в Visual Studio и других программах? Глаза быстро устают от белого света...

Как-то так (фотошоп)

Редактировалось 1 раз(а), последний 2021-11-12 08:20:04
карма: 2
На этом форуме, самые умные и добрые люди, всегда помогут! СПАСИБО!
0
vip
#1.1контекстная реклама от партнеров
Ответов: 58
Рейтинг: 1
#2: 2021-11-12 07:25:12 ЛС | профиль | цитата
NUB писал(а):
Как-то так

Да-да, именно так.
Как это сделать?
карма: 0
HiAsm Studio
0
Главный модератор
Ответов: 2982
Рейтинг: 393
#3: 2021-11-12 08:20:44 ЛС | профиль | цитата
Можно, но только для версии 5 или .NET
карма: 7
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 54
Рейтинг: 2
#4: 2021-11-12 08:23:57 ЛС | профиль | цитата
Nic писал(а):
Можно, но только для версии 5 или .NET

Понял, спасибо. Жаль, что в обычной версии нельзя.
карма: 2
На этом форуме, самые умные и добрые люди, всегда помогут! СПАСИБО!
0
Ответов: 1313
Рейтинг: 29
#5: 2021-11-13 16:26:25 ЛС | профиль | цитата
очень даже реально это сделать, просто поковырять файл HiAsm.exe и\или библиотеки, там же ничего не зашифровано, просто менять цвета элементов

Новый точечный рисунок.jpg

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

Редактировалось 4 раз(а), последний 2021-11-13 16:30:19
карма: 2

0
Ответов: 58
Рейтинг: 1
#6: 2021-11-14 05:50:45 ЛС | профиль | цитата
Чем предлогаете "поковырять"
карма: 0
HiAsm Studio
0
Ответов: 1313
Рейтинг: 29
#7: 2021-11-14 08:00:30 ЛС | профиль | цитата
OlyDbg, Ida итд
карма: 2

0
Ответов: 232
Рейтинг: 29
#8: 2021-11-15 09:27:34 ЛС | профиль | цитата
Поддался на провокацию.
Попробовал. На схеме пропали компоненты, линьки и некоторые точки.
Темная тема для Hiasm.PNG
карма: 5

0
Ответов: 58
Рейтинг: 1
#9: 2021-11-15 14:18:58 ЛС | профиль | цитата
Gunta писал(а):
Темная тема для Hiasm.PNG

Можете скинуть прогу и схему через которую меняли цвет?
карма: 0
HiAsm Studio
0
Ответов: 232
Рейтинг: 29
#10: 2021-11-15 16:22:00 ЛС | профиль | цитата
envoy_sky писал(а):
Можете скинуть прогу и схему через которую меняли цвет?

Первую схему выкладывать не буду . Там всё криво и неоднозначно.
Я пошёл другим путём. Вот Предварительный результат.
Вроде всё работает, но это не точно.
Темная тема для Hiasm 2.PNG
И схема.
Add(MainForm,123844,217,203)
{
Width=268
Height=73
WinStyle=1
Caption="Темный фон"
BorderStyle=0
DragForm=0
Point(Handle)
Point(PHandle)
Point(onKeyDown)
link(onCreate,6616881:doEvent1,[])
link(onKeyDown,808238:doCheckMask,[(256,230)(256,244)(39,244)(39,279)])
}
Add(Hub,6616881,266,217)
{
OutCount=4
link(onEvent1,4866552:doPopup,[(291,223)(291,111)])
link(onEvent2,8677992:doData,[(298,230)(298,132)])
link(onEvent3,4502086:doTransparentOn,[(305,237)(305,181)])
link(onEvent4,14448231:doEvent1,[])
}
Add(Timer,16261105,259,273)
{
Interval=100
link(onTimer,14448231:doEvent2,[(295,279)(295,251)])
}
Add(WinTools,4866552,385,98)
{
Point(doAlphaBlendValue)
link(Handle,12345619:getVar,[])
}
Add(InlineCode,4502086,385,175)
{
WorkPoints=#15:doTransparentOn|16:doTransparentOff|
DataPoints=#6:Handle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|22: Handle : THI_Event;|59: Procedure doTransparentOn (var _Data:TData; Index:word);|60: Procedure doTransparentOff (var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|69:Procedure THiAsmClass.doTransparentOn (var _Data:TData; Index:word);|5:Begin|136: SetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE, GetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE) or WS_EX_TRANSPARENT);|4:end;|0:|73: Procedure THiAsmClass.doTransparentOff (var _Data:TData; Index:word);|5:Begin|141: SetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE, GetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE) and not WS_EX_TRANSPARENT);|4:end;|0:|0:|4:end.|
link(Handle,541372:getVar,[])
}
Add(LineBreakEx,16074207,217,259)
{
Caption="h"
Type=3
link(_Data,123844:Handle,[])
}
Add(LineBreakEx,541372,385,147)
{
Caption="h"
Type=2
}
Add(LineBreakEx,12345619,385,63)
{
Caption="h"
Type=2
}
Add(DoData,8677992,329,126)
{
Data=Integer(200)
link(onEventData,4866552:doAlphaBlendValue,[])
}
Add(Hub,14448231,315,238)
{
InCount=2
OutCount=1
link(onEvent1,15114781:doFind,[])
}
Add(Hub,3916632,161,280)
{
link(onEvent1,16261105:doStop,[])
link(onEvent2,123844:doClose,[(186,293)(186,230)])
}
Add(KeyMask,808238,56,273)
{
Shift=1
Key=27
link(onTrue,1998301:doDeferredEvent,[])
}
Add(DeferredEvent,1998301,112,280)
{
link(onDeferredEvent,3916632:doEvent1,[])
}
Add(FindWindow,15114781,385,238)
{
ClassName="TForm1"
SkipParam=1
link(onFind,9911726:doWinInfo,[])
}
Add(WinInfo,9911726,455,238)
{
Point(Left)
Point(Top)
Point(Width)
Point(Height)
Point(ClientLeft)
link(onWinInfo,10625492:doCapture,[])
}
Add(Negative,9692135,609,238)
{
link(onResult,4106931:doLoad,[])
}
Add(Bitmap,4106931,665,238)
{
}
Add(ScreenShort,10625492,525,238)
{
link(onCapture,3355189:doEvent1,[])
link(Handle,15114781:Handle,[(531,229)(447,229)(447,278)(391,278)])
}
Add(Img_Bmp,13635248,658,315)
{
DrawSource=1
link(Bitmap,12906202:getVar,[(664,299)(636,299)])
link(SourceBitmap,4106931:Bitmap,[])
}
Add(Hub,3355189,574,238)
{
link(onEvent1,9692135:doNegative,[])
link(onEvent2,11870161:doEvent1,[(599,251)(599,286)(354,286)(354,342)])
}
Add(LineBreakEx,12906202,630,280)
{
Caption="h"
Type=2
}
Add(PosWindow,7041406,420,322)
{
link(Handle,56379:getVar,[(426,313)(398,313)])
link(Left,9911726:Left,[(433,292)(475,292)])
link(Top,9911726:Top,[(440,299)(482,299)])
}
Add(SizeWindow,8912309,476,350)
{
link(Handle,13610011:getVar,[(482,341)(461,341)])
link(Width,9911726:Width,[])
link(Height,9911726:Height,[])
}
Add(LineBreakEx,56379,392,294)
{
Caption="h"
Type=2
}
Add(LineBreakEx,13610011,455,308)
{
Caption="h"
Type=2
}
Add(Hub,11870161,364,336)
{
OutCount=5
link(onEvent1,7041406:doLeft,[(389,342)(389,328)])
link(onEvent2,7041406:doTop,[(396,349)(396,335)])
link(onEvent3,8912309:doWidth,[])
link(onEvent4,8912309:doHeight,[])
link(onEvent5,13635248:doDraw,[(515,370)(515,321)])
}

Внимание! Shift+Esc – для того чтобы остановить программу или через диспетчер.

Редактировалось 2 раз(а), последний 2021-11-15 17:08:30
карма: 5

0
Ответов: 58
Рейтинг: 1
#11: 2021-11-15 17:27:37 ЛС | профиль | цитата
Gunta писал(а):
Я пошёл другим путём.

Получилось конечно классно но цвета в негативе. Так работать невозможно.
Мне бы узнать как получить адреса цветов программы и поменять их.
карма: 0
HiAsm Studio
0
Ответов: 232
Рейтинг: 29
#12: 2021-11-15 20:44:09 ЛС | профиль | цитата
envoy_sky писал(а):
Получилось конечно классно но цвета в негативе. Так работать невозможно.

Можно убрать цвета полностью.

Add(MainForm,123844,217,196)
{
Width=268
Height=73
WinStyle=1
Caption="Темный фон"
BorderStyle=0
DragForm=0
Point(Handle)
Point(PHandle)
Point(onKeyDown)
link(onCreate,6616881:doEvent1,[])
link(onKeyDown,808238:doCheckMask,[(256,223)(256,265)(46,265)(46,279)])
}
Add(Hub,6616881,266,210)
{
OutCount=4
link(onEvent1,4866552:doPopup,[(291,216)(291,160)])
link(onEvent2,8677992:doData,[(298,223)(298,181)])
link(onEvent3,4502086:doTransparentOn,[])
link(onEvent4,14448231:doEvent1,[(305,237)(305,272)])
}
Add(Timer,16261105,259,273)
{
Interval=50
link(onTimer,14448231:doEvent2,[])
}
Add(WinTools,4866552,385,147)
{
Point(doAlphaBlendValue)
link(Handle,12345619:getVar,[])
}
Add(InlineCode,4502086,385,224)
{
WorkPoints=#15:doTransparentOn|16:doTransparentOff|
DataPoints=#6:Handle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|22: Handle : THI_Event;|59: Procedure doTransparentOn (var _Data:TData; Index:word);|60: Procedure doTransparentOff (var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|69:Procedure THiAsmClass.doTransparentOn (var _Data:TData; Index:word);|5:Begin|136: SetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE, GetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE) or WS_EX_TRANSPARENT);|4:end;|0:|73: Procedure THiAsmClass.doTransparentOff (var _Data:TData; Index:word);|5:Begin|141: SetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE, GetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE) and not WS_EX_TRANSPARENT);|4:end;|0:|0:|4:end.|
link(Handle,541372:getVar,[])
}
Add(LineBreakEx,16074207,217,245)
{
Caption="h"
Type=3
link(_Data,123844:Handle,[])
}
Add(LineBreakEx,541372,385,196)
{
Caption="h"
Type=2
}
Add(LineBreakEx,12345619,385,112)
{
Caption="h"
Type=2
}
Add(DoData,8677992,329,175)
{
Data=Integer(200)
link(onEventData,4866552:doAlphaBlendValue,[])
}
Add(Hub,14448231,315,266)
{
InCount=2
OutCount=1
link(onEvent1,15114781:doFind,[])
}
Add(Hub,3916632,161,280)
{
link(onEvent1,16261105:doStop,[])
link(onEvent2,123844:doClose,[(186,293)(186,223)])
}
Add(KeyMask,808238,56,273)
{
Shift=1
Key=27
link(onTrue,1998301:doDeferredEvent,[])
}
Add(DeferredEvent,1998301,112,280)
{
link(onDeferredEvent,3916632:doEvent1,[])
}
Add(FindWindow,15114781,385,266)
{
ClassName="TForm1"
SkipParam=1
link(onFind,9911726:doWinInfo,[])
}
Add(WinInfo,9911726,455,266)
{
Point(Left)
Point(Top)
Point(Width)
Point(Height)
Point(ClientLeft)
link(onWinInfo,10625492:doCapture,[])
}
Add(Negative,9692135,609,266)
{
Point(Result)
link(onResult,901017:doGrayScale,[])
}
Add(ScreenShort,10625492,525,266)
{
link(onCapture,3355189:doEvent1,[])
link(Handle,15114781:Handle,[(531,257)(435,257)(435,305)(391,305)])
}
Add(Img_Bmp,13635248,700,413)
{
DrawSource=1
link(Bitmap,12906202:getVar,[(706,404)(678,404)])
link(SourceBitmap,7260652:Result,[])
}
Add(Hub,3355189,574,266)
{
OutCount=3
link(onEvent1,9692135:doNegative,[])
link(onEvent3,11870161:doEvent1,[(599,286)(599,314)(410,314)(410,370)])
}
Add(LineBreakEx,12906202,672,378)
{
Caption="h"
Type=2
}
Add(PosWindow,7041406,462,350)
{
link(Handle,56379:getVar,[(468,341)(440,341)])
link(Left,9911726:Left,[])
link(Top,9911726:Top,[])
}
Add(SizeWindow,8912309,518,378)
{
link(Handle,13610011:getVar,[(524,369)(503,369)])
link(Width,9911726:Width,[(531,327)(489,327)])
link(Height,9911726:Height,[(538,306)(496,306)])
}
Add(LineBreakEx,56379,434,322)
{
Caption="h"
Type=2
}
Add(LineBreakEx,13610011,497,336)
{
Caption="h"
Type=2
}
Add(Hub,11870161,420,364)
{
OutCount=5
link(onEvent1,7041406:doLeft,[(445,370)(445,356)])
link(onEvent2,7041406:doTop,[(452,377)(452,363)])
link(onEvent3,8912309:doWidth,[])
link(onEvent4,8912309:doHeight,[])
link(onEvent5,13635248:doDraw,[(466,398)(466,419)])
}
Add(GrayScale,901017,658,266)
{
link(onResult,7260652:doSharpened,[])
}
Add(Sharpened,7260652,707,266)
{
Point(Result)
}

карма: 5

0
Ответов: 58
Рейтинг: 1
#13: 2021-11-15 21:52:30 ЛС | профиль | цитата
Gunta писал(а):
Можно убрать цвета полностью

Нет... Как мне работать с визуальными компонентами?
Мне что цвета наугад применять к кнопкам и другим визуальным компонентам.
То что вы сделали реально можно применить для просмотра фото в негативе.
Скачайте фото в негативе с инета и попробуйте, я бы глянул на это.
За старание БОЛЬШОЕ СПАСИБО.
БОЛЬШОЕ СПАСИБО

Редактировалось 4 раз(а), последний 2021-11-15 21:58:54
карма: 0
HiAsm Studio
0
Ответов: 3
Рейтинг: 1
#14: 2021-11-17 19:24:51 ЛС | профиль | цитата
Gunta писал(а):
Можно убрать цвета полностью.

Данное решение память отжирает значительно.
карма: 1

0
Ответов: 232
Рейтинг: 29
#15: 2021-11-20 20:19:21 ЛС | профиль | цитата
versus, Меня устраивает то, как выглядит Hiasm сейчас. Я собрал несколько разных схем только из спортивного интереса, не более.
карма: 5

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