А вот так и значение прозрачности при запуске передавать можно как параметр
Add(MainForm,471723,91,154) { Left=20 Top=105 link(onCreate,4713128:doEvent1,[]) } Add(DoData,10941799,273,308) { Data=Integer(100) link(onEventData,8348915:doAlphaBlendValue,[(313,314)(313,335)]) } Add(WinTools,8348915,329,301) { Point(doAlphaBlendValue) link(Handle,10948910:Handle,[(335,289)(279,289)(279,352)(223,352)]) } Add(WinTools,10828096,364,168) { Point(doAlphaBlendValue) link(Handle,464983:Handle,[(370,160)(216,160)]) } Add(FindWindow,10948910,217,308) { ClassName="Progman" SkipParam=1 link(onFind,10941799:doData,[]) } Add(FindWindow,464983,210,175) { ClassName="Shell_TrayWnd" SkipParam=1 link(onFind,12470304:doData,[]) } Add(Hub,4713128,147,168) { OutCount=3 link(onEvent1,13820895:doRead,[(195,174)(195,104)]) link(onEvent2,464983:doFind,[]) link(onEvent3,471723:doClose,[(189,188)(189,208)(79,208)(79,181)]) } Add(DoData,12470304,308,175) { Data=Integer(190) link(onEventData,10828096:doAlphaBlendValue,[(352,181)(352,202)]) link(Data,9457179:Value,[]) } Add(InfoTip,7334058,196,273) { Info=#28:Рабочий стол с прозрачностью| Width=183 Height=88 } Add(Application,8077533,203,49) { } Add(ArrayRW,13820895,210,98) { Index=Integer(0) link(onRead,13358263:doCase,[]) link(Array,8077533:Params,[]) } Add(Memory,9457179,308,98) { Default=Integer(190) } Add(Case,13358263,259,98) { link(onNextCase,9457179:doValue,[]) }
------------ Дoбавленo:
Мне понравилось и я ее немного улучшил. Прицепил TrayIcon и TrackBar для оперативной настройки с сохранением в реестре
Add(MainForm,471723,49,203) { Left=20 Top=105 Visible=1 Icon=[ZIP5E07000078DA636060044209090610C9E0C1CEC020C6C0C0A001C4402106030688380828B0338C82210E74666A18D42B19D52919D72A19572819572B1A542A1956291A562B9815299817C8BB66C978444B36D872B73AF335D8F001190D7640C4034320769B23AFF6221DBDD95A06D3D44CFBD54C7A54F5BAB495AA2D242B9DE51B2DF46668EA4FD534AC574A8E135F9EAFBA2A5D69B6BFC09C00C1398140526876800084312F50685188B0E12A7DFD357A8A1B354557A9F02E13E26E76E39D5C2031A349A4D151BC535771A5A6CA0C0DD57C85E9BD16272A548E644B1DCE963A922D7D2447E6301081B8D287B2A4B6264B1AAD31D45FA7A33ACB49A8DE56ACC64CB32348E9CE0FC13BFFC567CE16A9B7535BA7A3BD4CC7B450A1B356F772A3C6C552B90B4054A670A14CEE62990208952BDCACD7DA9325ADBF425F6DA1996AAB6D46B3F6F32992FFA732546F9EC670E233EF8A0D22CD3E52DD9E9A2B3583CBE5AA4A35EE4D32B9D9A07CBD4EF946BDD28D7A20A9024437EB951F77191E2E96335C0E34C75CACDE6566AFF8FF83FCFF77305C3BC2C07F2759F144A8FC446BBEEA70ED65DA3E657253CB349FCDB37ADCADF5B053E35EBBFAFD7620A9711F8C5E4D363B53A3ACBF584F6F9DAE689393E574F1BB5B24AECE524E5B15A9FBBFC6E37F95EE061FBECA40993996F6A50A4BEAF55E2DB17B3959EFC5041D10EA0792DA2F26E83E9FA8FB79AEE5C52675DD25BA7AEB74F8BA2D399ACDD5E34E2A9B7C63B0F82F77799AE55B77DDBD4EA26D4E32336C8109606B9FE5C7E5361F66E97D9865F06196FE7B100342EAFD5A6673BB4B5B67818EC9462391F9F23C75D6C2415FD54DFF4BE8FEE72E8FE2EF55106DB7565860AA365BDF2257EEDE12D79F3B3C7E2C31F9BAD0088C4CBE2E00B28DBF2D30FEBFD6E1FE643D9D85DABEFB3D430EFB194C7375EF5E6898F0D5A07873E06A97BCF37ED1E7535C4FFBCA77AB9965CA3E58EEFE67BFDF9FB5367F565BFD5967F377B3E3DF2DCE7F76B8FDDB60FF7FA7E7D3190686CB0D03AE0686DE0AC9F99A93F12633FD4546D4F5D8CCF759B9DF72125F2424BD4854AB57F52E547AB32FE2CFCDF4FFB733FEDF4AFB7F2BFDFFDD6C10BA9FFBFF61DEFFEB29EF17980003D96C9799C97613931D26E67BCDF5B7E94190F14E23ABFD56D607AD0A9AD537F4E83E5F60F96E99F5FBB58E6F9658BC5E60F26AAE111CBD9E67FC7681E9680933B4C07F1C0024450AC60500391FB554] link(onCreate,4713128:doEvent1,[]) } Add(WinTools,10828096,658,203) { Point(doAlphaBlendValue) link(Handle,464983:Handle,[(664,191)(398,191)(398,275)(174,275)]) } Add(FindWindow,464983,168,231) { ClassName="Shell_TrayWnd" SkipParam=1 link(onFind,12470304:doData,[]) } Add(Hub,4713128,98,217) { OutCount=4 link(onEvent1,4398565:In,[(140,223)(140,216)]) link(onEvent2,13820895:doRead,[(146,230)(146,160)]) link(onEvent3,464983:doFind,[]) link(onEvent4,11699333:doHide,[(153,244)(153,321)]) } Add(DoData,12470304,287,231) { Data=Integer(190) link(onEventData,10136096:doEvent1,[]) link(Data,9457179:Value,[]) } Add(Application,8077533,161,105) { } Add(ArrayRW,13820895,168,154) { Index=Integer(0) link(onRead,5063807:doWork2,[]) link(Array,8077533:Params,[]) } Add(Memory,9457179,287,154) { Default=Integer(190) } Add(Case,13358263,238,154) { link(onNextCase,9457179:doValue,[]) } Add(TrayIcon,11699333,168,308) { Hint="TrayAlpha" ShowWORemoveIcon=0 Point(doHint) link(onClick,6833938:doEvent,[]) } Add(IndexToChanel,6833938,224,308) { link(onEvent1,3368625:doData,[(268,314)(268,286)]) link(onEvent2,8397361:doEvent1,[]) } Add(ChildForm,15144711,539,315) { link(onEvent1,3875105:doEvent1,[]) link(onEvent2,11699333:doHint,[(583,328)(583,447)(153,447)(153,335)]) } BEGIN_SDK Add(EditMulti,10790387,21,21) { EventCount=2 WorkCount=4 VarCount=1 Width=216 Height=165 link(doWork1,287234:doEvent1,[(52,27)(52,97)]) link(doWork2,307283:doLeft,[(46,34)(46,111)]) link(doWork3,307283:doTop,[(39,41)(39,118)]) link(doWork4,10538825:doWork1,[(77,48)(77,34)]) link(Var1,307283:Height,[(27,135)(139,135)]) } Add(MainForm,307283,133,70) { Width=28 Height=200 Visible=1 BorderStyle=0 ClientSize=0 Position=1 Point(doVisible) Point(doLeft) Point(doTop) Point(Height) } Add(ChildPanel,10538825,133,28) { link(onEvent1,10790387:onEvent1,[(187,34)(187,27)]) link(onEvent2,10790387:onEvent2,[(201,41)(201,34)]) } BEGIN_SDK Add(EditMulti,169549,21,21) { EventCount=2 WorkCount=2 Width=328 Height=130 link(doWork1,5259947:doCalc,[(42,27)(42,83)]) link(doWork2,11592609:doSetFocus,[(42,34)(42,48)]) } Add(TrackBar,7982650,112,77) { Left=5 Top=5 Width=18 Height=190 TabOrder=-1 Max=0 Min=-255 Kind=1 Point(doHint) link(onPosition,2160857:doOperation,[]) } Add(Panel,11592609,63,35) { Width=28 Height=200 Point(doSetFocus) } Add(Math,2160857,161,77) { OpType=33 ResultType=0 link(onResult,10151876:doEvent1,[]) } Add(MathParse,5259947,63,77) { DataCount=1 MathStr="- %1" link(onResult,7982650:doPosition,[]) } Add(Hub,10151876,210,77) { OutCount=3 link(onEvent1,169549:onEvent1,[(259,83)(259,27)]) link(onEvent2,257092:doString,[]) link(onEvent3,7982650:doHint,[(258,97)(258,133)(100,133)(100,97)]) } Add(FormatStr,257092,273,84) { DataCount=1 Mask="TrayAlpha - %1" link(onFString,169549:onEvent2,[(327,90)(327,34)]) } END_SDK Add(Hub,287234,63,91) { link(onEvent1,10538825:doWork2,[(114,97)(114,41)]) link(onEvent2,307283:doVisible,[]) } END_SDK Add(DoData,3368625,287,280) { Data=Integer(0) link(onEventData,8667935:doWork1,[(354,286)]) } Add(HubEx,8667935,350,308) { link(onEvent,15144711:doWork1,[]) } Add(MouseEvent,1471177,392,336) { } Add(DoData,6823919,392,399) { link(onEventData,15144711:doWork2,[(433,405)(433,328)]) link(Data,1471177:MouseX,[]) } Add(Hub,8397361,287,315) { OutCount=3 link(onEvent1,8667935:doWork2,[]) link(onEvent2,6823919:doData,[(353,328)(353,405)]) link(onEvent3,3990090:doCalc,[(343,335)(343,412)]) } Add(MathParse,3990090,441,406) { MathStr="%1 - %2 - 16" link(onResult,15144711:doWork3,[(500,412)(500,335)]) link(X1,1471177:MouseY,[(447,387)(405,387)]) link(X2,15144711:Var1,[(454,387)(545,387)]) } Add(Hub,10136096,357,231) { link(onEvent1,2373126:doWork2,[]) link(onEvent2,15144711:doWork4,[(464,244)(464,342)]) } Add(HubEx,2373126,623,224) { link(onEvent,10828096:doAlphaBlendValue,[]) } Add(Registry,16506524,658,322) { HKey=1 Key="SoftwareTrayAlpha" Value="Alpha" DataType=0 link(onRead,6219115:In,[]) link(Data,10024593:Value,[]) } Add(Hub,3875105,588,315) { OutCount=3 link(onEvent1,2373126:doWork3,[(627,321)]) link(onEvent2,10024593:doValue,[(635,328)(635,286)]) link(onEvent3,16506524:doWrite,[]) } Add(Memory,10024593,658,280) { Default=Integer(0) } Add(LineBreak,14677926,581,350) { Caption="doRead" link(Out,16506524:doRead,[(645,356)(645,328)]) Primary=[4398565,-420,-140] } Add(LineBreak,723301,161,189) { Caption="onRead" link(Out,5063807:doWork3,[(221,195)]) Primary=[6219115,546,133] } Add(HubEx,5063807,217,147) { link(onEvent,13358263:doCase,[]) }
|