Вверх ↑
Ответов: 687
Рейтинг: 142
#1: 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)
}

карма: 15

0