Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Открылся сайт "Total Commander и PowerPro" 
Author Message
Вахмурка



PostPosted: Tue Sep 27, 2005 21:03    Post subject: Reply with quote

2Volniy
Volniy, ты редиска. Ты меня взял на слабо, как сопливого пацана. И я в течение часа занимался тем, что я никогда не буду использовать. Только чтобы слиться с тобой в экстазе "компаративной фаллометрии". Бяка ты, Volniy.
Ну, а если серьезно. Ты не совсем четко поставил задачу, и я имел право решить ее для частного случая, а именно:
1) используются только "стандартные положения" разделителя;
2) предполагается, что разделитель вертикальный, а не горизонтальный.
Больше мериться с тобой не буду (обещала лиса кур не таскать...). Хотя пути решения могу наметить, если хочешь, там все тривиально.
Code:

;arg(1) is "1" for 20% from left, "2" for 30%, ... etc ..., "7" for 80%
local Where = arg(1)
local i
local Hand = win.handle("c=TTOTAL_CMD")

flag set 1

for(i = 1; 1; i = i + 1)
   hh = childwin.handle(Hand, i)
   if(hh != "" && win.width(hh) == 3) do
      flag clear 1
      break
   endif
endfor

if(pproflag(1))
   quit

local HCenter = (win.left(hh) + win.right(hh))/2
local VCenter = (win.top(hh) + win.bottom(hh))/2
local expr = "ab " ++ HCenter ++ " " ++ VCenter
win.mouse(expr)
wait.for(10)
mouse rightdown
wait.for(10)
mouse rightup

for(i = 1; i <= Where; i = i + 1)
   *keys {down}
endfor

*keys {enter}
View user's profile Send private message Send e-mail Visit poster's website


Powered by phpBB © 2001, 2005 phpBB Group