Ламерский двупанельный браузер, левая панель ведущая, правая - ведомая, при совпадении с маской ссылки откроются в ведомой, иначе - в ведущей, релиз кандидат.
Add(WebBrowser,12733755,350,357)
{
Left=389
Height=563
Align=5
URL=""
Point(Navigate)
Point(NewWindow)
link(URL,3677313:Value,[(356,293)(286,293)])
}
Add(WebBrowser,321519,217,357)
{
Width=185
Height=563
Align=1
URL="http://lavren.web-times.ru/"
Point(Navigate)
Point(NewWindow)
link(onNavigate,16083369:doData,[])
link(Navigate,3358293:Var2,[])
link(NewWindow,3358293:Var3,[(237,250)])
}
Add(EventFromData,15944348,224,196)
{
link(onEvent,3677313:doValue,[])
}
Add(StrMask,1724005,329,196)
{
Mask="*vkontakte.ru*"
Point(doMask)
link(onFalse,10529948:doData,[(382,202)])
link(onTrue,15552550:doEvent1,[(372,209)])
}
Add(DoData,13041680,497,231)
{
Data=Integer(1)
link(onEventData,15944348:doData,[(576,237)(576,156)(203,156)(203,202)])
link(Data,8909361:Var,[])
}
Add(GetDataEx,3358293,224,245)
{
link(Data,15944348:GetData,[])
}
Add(Hub,15552550,413,252)
{
link(onEvent1,10445741:doWork2,[(439,258)(439,237)])
link(onEvent2,12733755:doNavigate,[(439,265)(439,314)(338,314)(338,363)])
}
Add(Memory,3677313,280,196)
{
link(onData,1724005:doCompare,[])
}
Add(HubEx,10445741,450,231)
{
Angle=1
link(onEvent,13041680:doData,[(454,237)])
}
Add(GlobalVar,8909361,497,196)
{
Name="FirstRun"
Data=Integer(0)
link(onValue,10445741:doWork1,[(568,202)(568,218)(454,218)])
}
Add(DoData,16083369,266,357)
{
Data=Integer(1)
link(onEventData,1860182:doValue,[(310,363)(310,384)(254,384)(254,405)])
}
Add(GlobalVar,1860182,266,399)
{
Name="FirstRun"
Data=Integer(0)
}
Add(DoData,10529948,399,203)
{
Data=Integer(0)
link(onEventData,8909361:doValue,[(464,209)(464,202)])
}
Ламерский он ещё и потому, что мне, сами понимаете, в третьем часу ночи ещё и корректную работу кнопки "назад" в левой панели реализовывать - несколько чересчур даже для моего организма))
[offtop]Был ещё вариант со сменяемой маской, но при попытке печатать в поле Edit, на Win7 32bit он стабильно вылетает с фатальной ошибкой (kernel32.dll). Причём если onChange не клеить на doText, такого не будет, зато текст стирается по Enter. И промежуточное Memory не спасает. Завтра попробую на WinXP...[/offtop]