Вверх ↑
Этот топик читают: Гость
Ответов: 125
Рейтинг: 6
#1: 2011-11-21 16:24:59 ЛС | профиль | цитата
Подскажите пожалуйста как имея хендл окна, обвести это окно в рамку? Где-то видел, никак не смог найти. Даже не знаю с чего начинать
карма: 0

0
Ответов: 3889
Рейтинг: 362
#2: 2011-11-21 16:41:14 ЛС | профиль | цитата
mrumbert писал(а):
Даже не знаю с чего начинать

Начинать с изучения справки и поиска, естественно.
карма: 1

0
Ответов: 125
Рейтинг: 6
#3: 2011-11-21 16:43:47 ЛС | профиль | цитата
Поиск пока ни к чему еще не привел Справка тоже не ответила на мой вопрос.
карма: 0

0
Ответов: 3889
Рейтинг: 362
#4: 2011-11-21 16:45:56 ЛС | профиль | цитата
code_25856.txt
карма: 1

1
файлы: 1code_25856.txt [761B] [65]
Голосовали:mrumbert
Ответов: 125
Рейтинг: 6
#5: 2011-11-21 17:22:59 ЛС | профиль | цитата
Спасибо
------------ Дoбавленo в 17.22:
Еще одна проблемка. Как сделать чтоб выделение было только когда мышка под окном, а потом очищать, вроде сделал, но постоянно жестко мигает, и не всегда убирается даже(

Add(MainForm,2953706,413,378)
{
}
Add(Img_Rectangle,15618927,455,441)
{
Point2AsOffset=0
DrawSource=1
Color=255
Point(Point1)
Point(Point2)
link(Point1,9127626:Point,[])
link(Point2,14620309:Point,[(482,433)(517,433)])
}
Add(MouseEvent,15419088,441,224)
{
Point(Handle)
}
Add(PointXY,9127626,469,392)
{
link(X,4051470:Left,[])
link(Y,4051470:Top,[])
}
Add(WinInfo,4051470,455,329)
{
Point(Left)
Point(Top)
Point(Width)
Point(Height)
link(onWinInfo,10971449:doEvent1,[])
link(Handle,8554544:Data1,[])
}
Add(Timer,9884505,413,329)
{
Interval=100
link(onTimer,4051470:doWinInfo,[])
}
Add(PointXY,14620309,511,392)
{
link(X,4051470:Width,[(517,376)(489,376)])
link(Y,4051470:Height,[(524,371)(496,371)])
}
Add(WinTools,2286390,588,301)
{
Point(doRedraw)
link(Handle,8554544:Data2,[(594,289)(531,289)(531,317)(468,317)])
}
Add(Hub,10971449,511,329)
{
link(onEvent1,2286390:doRedraw,[])
link(onEvent2,15618927:doDraw,[(560,342)(560,487)(446,487)(446,447)])
}
Add(GetData,8554544,455,273)
{
link(Data,15419088:Handle,[])
}

карма: 0

0
Ответов: 3889
Рейтинг: 362
#6: 2011-11-21 18:36:15 ЛС | профиль | цитата
См. улучшенный вариант
------------ Дoбавленo в 18.36:
Вариант улучшенный:

Add(DoData,7900474,231,224)
{
link(onEventData,1110076:doLeft,[])
link(Data,4051470:Left,[])
}
Add(DoData,9448110,238,231)
{
link(onEventData,1110076:doTop,[])
link(Data,4051470:Top,[])
}
Add(DoData,1710228,245,238)
{
link(onEventData,1110076:doWidth,[])
link(Data,4051470:Width,[])
}
Add(MainForm,1110076,315,196)
{
Color=255
Visible=1
AlphaBlendValue=128
BorderStyle=0
Point(doLeft)
Point(doTop)
Point(doWidth)
Point(doHeight)
Point(Handle)
Point(onDblClick)
Point(doVisible)
link(onDblClick,1110076:doClose,[(362,223)(362,174)(303,174)(303,223)])
}
Add(MouseEvent,15419088,112,-21)
{
Point(Handle)
}
Add(WinInfo,4051470,217,84)
{
Point(Left)
Point(Top)
Point(Width)
Point(Height)
link(onWinInfo,758596:doCompare,[(387,90)(387,300)(142,300)(142,230)])
link(Handle,3916315:Var3,[(223,67)])
}
Add(Timer,9884505,70,77)
{
Interval=100
link(onTimer,15830301:doData,[])
}
Add(DoData,7560910,252,245)
{
link(onEventData,1110076:doHeight,[])
link(Data,4051470:Height,[])
}
Add(If_else,758596,154,224)
{
Type=5
link(onTrue,9499322:doEvent1,[])
link(Op1,3916315:Var2,[])
link(Op2,1110076:Handle,[(167,203)(194,203)(194,289)(321,289)])
}
Add(Hub,9499322,203,224)
{
OutCount=5
link(onEvent1,7900474:doData,[])
link(onEvent2,9448110:doData,[])
link(onEvent3,1710228:doData,[])
link(onEvent4,7560910:doData,[])
link(onEvent5,2308019:doWork2,[(235,258)(235,321)])
}
Add(GetDataEx,3916315,154,62)
{
link(Data,15419088:Handle,[(160,40)(132,40)])
}
Add(PointXY,15482429,112,35)
{
link(X,15419088:MouseX,[])
link(Y,15419088:MouseY,[])
}
Add(ChangeMon,15830301,112,77)
{
Point(onNoData)
link(onData,13237670:In,[])
link(Data,15482429:Point,[])
link(onNoData,4051470:doWinInfo,[])
}
Add(ChanelToIndex,2308019,252,308)
{
link(onIndex,1110076:doVisible,[(300,314)(300,258)])
}
Add(LineBreak,14295159,154,308)
{
Caption="doHide"
link(Out,2308019:doWork1,[])
Primary=[13237670,0,-231]
}
карма: 1

0
Ответов: 125
Рейтинг: 6
#7: 2011-11-21 18:52:43 ЛС | профиль | цитата
Переделал немножко по-удобнее Только кривовато иногда немного) А так все норм) Спасибо)code_25859.txt
карма: 0

0
файлы: 1code_25859.txt [2.2KB] [107]
Ответов: 51
Рейтинг: 3
#8: 2011-11-22 00:19:53 ЛС | профиль | цитата
Вот кстати не понятно как сделать чтоб когда мышка не на поле ввода, чтоб обводка убиралась..

code_25862.txt
карма: 0

0
файлы: 1code_25862.txt [1KB] [52]
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)