Можно ли установить тёмную тему в HiAsm?

Форумы Помощь по средеМожно ли установить тёмную тему в HiAsm? ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 56

Рейтинг: 2

#1: 2021-11-12 05:46:55 ЛС | профиль | цитата

Привет. Можно ли как-нибудь, установить тёмную тему? Как в Visual Studio и других программах? Глаза быстро устают от белого света...

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

Редактировалось 1 раз(а), последний 2021-11-12 08:20:04

карма: 2

На этом форуме, самые умные и добрые люди, всегда помогут! СПАСИБО!

Ответов: 316

Рейтинг: 26

#2: 2021-11-12 07:25:12 ЛС | профиль | цитата

NUB писал(а):

Как-то так

Да-да, именно так.
Как это сделать?

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Главный модератор

Ответов: 2999

Рейтинг: 396

#3: 2021-11-12 08:20:44 ЛС | профиль | цитата

Можно, но только для версии 5 или .NET

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Ответов: 56

Рейтинг: 2

#4: 2021-11-12 08:23:57 ЛС | профиль | цитата

Nic писал(а):

Можно, но только для версии 5 или .NET

Понял, спасибо. Жаль, что в обычной версии нельзя.

карма: 2

На этом форуме, самые умные и добрые люди, всегда помогут! СПАСИБО!

Ответов: 1343

Рейтинг: 31

#5: 2021-11-13 16:26:25 ЛС | профиль | цитата

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

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

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

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

карма: 2

Ответов: 316

Рейтинг: 26

#6: 2021-11-14 05:50:45 ЛС | профиль | цитата

Чем предлогаете "поковырять"

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 1343

Рейтинг: 31

#7: 2021-11-14 08:00:30 ЛС | профиль | цитата

OlyDbg, Ida итд

карма: 2

Ответов: 793

Рейтинг: 168

#8: 2021-11-15 09:27:34 ЛС | профиль | цитата

Поддался на провокацию.

Попробовал. На схеме пропали компоненты, линьки и некоторые точки.

Темная тема для Hiasm.PNG

карма: 16

Ответов: 316

Рейтинг: 26

#9: 2021-11-15 14:18:58 ЛС | профиль | цитата

Gunta писал(а):

Темная тема для Hiasm.PNG

Можете скинуть прогу и схему через которую меняли цвет?

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 793

Рейтинг: 168

#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

карма: 16

Ответов: 316

Рейтинг: 26

#11: 2021-11-15 17:27:37 ЛС | профиль | цитата

Gunta писал(а):

Я пошёл другим путём.

Получилось конечно классно но цвета в негативе. Так работать невозможно.
Мне бы узнать как получить адреса цветов программы и поменять их.

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 793

Рейтинг: 168

#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)
}

карма: 16

Ответов: 316

Рейтинг: 26

#13: 2021-11-15 21:52:30 ЛС | профиль | цитата

Gunta писал(а):

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

Нет...

Как мне работать с визуальными компонентами?
Мне что цвета наугад применять к кнопкам и другим визуальным компонентам.
То что вы сделали реально можно применить для просмотра фото в негативе.

Скачайте фото в негативе с инета и попробуйте, я бы глянул на это.
За старание БОЛЬШОЕ СПАСИБО.

БОЛЬШОЕ СПАСИБО

Редактировалось 4 раз(а), последний 2021-11-15 21:58:54

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 3

Рейтинг: 1

#14: 2021-11-17 19:24:51 ЛС | профиль | цитата

Gunta писал(а):

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

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

карма: 1

Ответов: 793

Рейтинг: 168

#15: 2021-11-20 20:19:21 ЛС | профиль | цитата

versus, Меня устраивает то, как выглядит Hiasm сейчас. Я собрал несколько разных схем только из спортивного интереса, не более.

карма: 16

Форумы Помощь по средеМожно ли установить тёмную тему в HiAsm? ← Ctrl12Ctrl →


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