sla8a писал(а):
Lora, такая тема уже обсуждалась и примеры выкладывались, попробуйте поиск.Что-то я не нашла ничего подходящего. Может я как-то не так ищу???
------------ Дoбавленo в 20.39:
В принципе я понимаю что там как-то надо связать координаты картинки+размер+координаты курсора. Но что-то ничего не выходит. Не получается увязать все это в грамотную схему.
------------ Дoбавленo в 00.17:
Ваш хвалёный "поиск" так мне и ничем и не помог. Ну не выдаёт он по запросу: "изменение картинки мышкой" ничего касаемо этой темы!!!
Но худо-бедно справилась сама. Угробила кучу времени, но тем не менее.
Я запаковала картинку в дочернюю форму и снабдила функцией активирующей рамку при клике. И всё бы ничего, но вот как быть если у меня будет 40 картинок? Это что же, делать 40 дочерних форм для каждой картинки???!!
Add(MainForm,6015176,266,196)
{
Width=357
Height=353
Point(Left)
Point(Top)
Point(onMove)
link(onCreate,15603061:doWork1,[(312,216)])
link(onMove,15603061:doWork2,[])
}
Add(Label,9527785,469,322)
{
Left=135
Top=255
Width=85
Alignment=2
link(Text,12715333:Result,[(475,317)(446,317)(446,370)(412,370)])
}
Add(StrCatDelim,12715333,406,322)
{
Delimiter=" х "
link(onStrCatDlm,9527785:doText,[])
link(Str1,6477786:Var3,[])
link(Str2,6477786:Var4,[])
}
Add(ChildForm,6477786,392,252)
{
link(onEvent1,12715333:doStrCatDlm,[(436,258)(436,293)(394,293)(394,328)])
}
BEGIN_SDK
Add(EditMulti,294958,21,21)
{
EventCount=1
WorkCount=2
VarCount=4
Width=776
Height=515
link(Var3,4698621:Width,[(41,389)(398,389)])
link(Var4,4698621:Height,[(48,398)(405,398)])
link(doWork1,4698621:doLeft,[(119,27)(119,244)])
link(doWork2,4698621:doTop,[(113,34)(113,251)])
}
Add(MainForm,4698621,378,210)
{
Left=35
Top=105
Width=132
Height=120
Color=-16777198
BorderStyle=0
Point(Left)
Point(Top)
Point(Width)
Point(Height)
Point(doLeft)
Point(doTop)
Point(doWidth)
Point(doHeight)
Point(doBorderStyle)
Point(onMouseDown)
Point(onKillFocus)
Point(Handle)
Point(onResize)
Point(doPicture)
link(onMouseDown,13034431:doData,[(506,237)(506,223)])
link(onKillFocus,5813637:doData,[])
link(onResize,294958:onEvent1,[(767,251)(767,27)])
}
Add(DoData,13034431,602,217)
{
Data=Integer(7)
link(onEventData,13767174:doWork1,[(686,223)])
}
Add(DoData,5813637,525,238)
{
Data=Integer(0)
link(onEventData,13767174:doWork2,[])
}
Add(HubEx,13767174,682,238)
{
Angle=1
link(onEvent,4698621:doBorderStyle,[(686,286)(366,286)(366,272)])
}
END_SDK
Add(MultiElement,5040457,266,252)
{
link(Data1,6015176:Left,[])
link(Data2,6015176:Top,[])
link(onEvent1,6477786:doWork1,[])
link(onEvent2,6477786:doWork2,[])
}
BEGIN_SDK
Add(EditMulti,10470734,21,21)
{
EventCount=2
WorkCount=1
DataCount=2
Width=762
Height=536
link(doWork1,7389300:doEvent1,[(53,27)(53,167)])
}
Add(Math,1700019,161,168)
{
Op2=50
link(onResult,10470734:onEvent2,[(542,174)(542,34)])
link(Op1,10470734:Data2,[(167,94)(34,94)])
}
Add(Math,6539096,203,105)
{
Op2=100
link(onResult,10470734:onEvent1,[(509,111)(509,27)])
link(Op1,10470734:Data1,[(209,63)(27,63)])
}
Add(Hub,7389300,84,161)
{
link(onEvent1,6539096:doOperation,[(150,167)(150,111)])
link(onEvent2,1700019:doOperation,[])
}
END_SDK
Add(HubEx,15603061,308,217)
{
link(onEvent,5040457:doWork1,[(331,223)(331,245)(254,245)(254,258)])
}
Поиск
Друзья
Администрация