nesco писал(а):
Ты бы лучше блокнот привязал, вот тогда и посмотрели бы------------ Дoбавленo в 05.11:
Вот, пожалуйста, пример вам с блокнотом.
Make(delphi)
ver(4.04 build 185)
Add(MainForm,3158579,483,315)
{
Width=659
Height=580
Position=1
Point(Handle)
link(onCreate,10332811:doEvent1,[])
}
Add(WinEnum,1218438,602,329)
{
link(onFindWindow,560410:doEvent1,[])
link(Caption,8438217:Text,[])
}
Add(VisualStrings,8438217,602,252)
{
Lines=#20:Безымянный - Блокнот|
Width=137
Height=32
}
Add(Hub,10332811,525,329)
{
link(onEvent1,955090:doExec,[(549,335)(549,314)])
link(onEvent2,1218438:doFind,[])
}
Add(WinExec,955090,560,308)
{
FileName="notepad.exe"
}
Add(Hub,560410,658,329)
{
OutCount=4
link(onEvent1,9783382:doSetParent,[])
link(onEvent2,1783027:doLeft,[])
link(onEvent3,1783027:doTop,[])
link(onEvent4,9079268:doWork1,[(689,356)(689,475)])
}
Add(PosWindow,1783027,700,336)
{
link(Handle,5775991:Var2,[])
}
Add(GetDataEx,5775991,700,312)
{
Angle=3
link(Data,7195231:Var3,[(642,317)(642,373)])
}
Add(SetParent,9783382,749,329)
{
link(Handle,5775991:Var3,[(755,317)])
link(NewParent,3158579:Handle,[(762,298)(468,298)(468,359)(489,359)])
}
Add(ChildForm,9079268,770,469)
{
link(Data1,7195231:Var2,[(776,450)(629,450)])
link(Data2,12787585:Value,[])
}
BEGIN_SDK
Add(EditMulti,14706909,21,21)
{
WorkCount=1
DataCount=2
Width=230
Height=172
link(doWork1,5450242:doData,[(35,27)(35,104)])
}
Add(MainForm,11065785,126,70)
{
Width=800
Height=600
Color=255
Font=[Tahoma,7,0,16777215,204]
WinStyle=1
Name="Table"
AlphaBlendValue=254
Caption=""
BorderStyle=0
TransparentColor=62495
Position=1
FormFastening="parent.Main"
Point(Handle)
Point(doAlphaBlendValue)
link(onCreate,9279770:in,[])
}
Add(MultiElementEx,9279770,189,84)
{
@Hint=#13:Вписываемся и|13:выравниваемся|
link(Handle,11065785:Handle,[(195,72)(163,72)(163,127)(132,127)])
link(ID рулетки,14706909:Data1,[(202,52)(27,52)])
AddHint(-85,63,95,26,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,11212567,21,21)
{
WorkCount=#2:in|
DataCount=#6:Handle|10:ID рулетки|
Width=160
Height=158
link(in,12392559:doSetParent,[(35,27)(35,90)])
}
Add(PosWindow,13486624,119,84)
{
@Hint=#13:Выравниваемся|
link(Handle,11574663:Var3,[(125,66)])
link(Left,9879325:Var1,[(132,72)])
link(Top,9879325:Var2,[])
AddHint(-68,68,98,13,@Hint)
}
Add(SetParent,12392559,49,84)
{
@Hint=#11:Вписываемся|
link(onSetParent,8755171:doEvent1,[])
link(Handle,11574663:Var2,[])
link(NewParent,11212567:ID рулетки,[(62,52)(34,52)])
AddHint(-19,44,86,13,@Hint)
}
Add(Memory,3474470,133,28)
{
Default=Integer(0)
AddHint(58,11,21,13,Default)
}
Add(GetDataEx,9879325,133,67)
{
Angle=1
link(Data,3474470:Value,[(139,72)])
}
Add(Hub,8755171,91,84)
{
link(onEvent1,13486624:doLeft,[])
link(onEvent2,13486624:doTop,[])
}
Add(GetDataEx,11574663,49,61)
{
Angle=3
link(Data,11212567:Handle,[(27,66)])
}
END_SDK
Add(DoData,5450242,77,98)
{
link(onEventData,11065785:doAlphaBlendValue,[])
link(Data,14706909:Data2,[(83,63)(34,63)])
}
END_SDK
Add(Memory,12787585,777,413)
{
@Hint=#15:AlphaBlendValue|
Default=Integer(255)
AddHint(-7,-28,33,13,Default)
AddHint(62,58,96,13,@Hint)
}
Add(InfoTip,2623824,819,357)
{
Info=#133:При значении AlphaBlendValue=255 встраиваемое окно выравнивается правильно, т.е. по координатам 0,0 внутри нового родительского окна.|0:|131:Если убавить значение AlphaBlendValue хотябы на 1, то выравнивание происходит по координатам 0,0 монитора, а не родительского окна.|
Transparent=1
HAlign=0
Width=358
Height=102
Margin=5
}
Add(GetDataEx,7195231,623,368)
{
Angle=3
link(Data,1218438:Handle,[(608,373)])
}