Вверх ↑
Этот топик читают: Гость
Ответов: 98
Рейтинг: 1
#1: 2016-04-13 10:38:53 ЛС | профиль | цитата
Заметил, что компонент не выдает данные по нижним точкам
code_37191.txt

Сборка Hiasm от CriDos
карма: 0

0
файлы: 1code_37191.txt [561B] [762]
Гость
Ответов: 17029
Рейтинг: 0
#2: 2016-04-13 10:51:59 правка | ЛС | профиль | цитата


Редактировалось 10 раз(а), последний 2024-03-29 01:09:36
карма: 0

0
Ответов: 98
Рейтинг: 1
#3: 2016-04-15 09:00:32 ЛС | профиль | цитата
г. ость писал(а):

Ага, спасибо!
карма: 0

0
Ответов: 233
Рейтинг: 12
#4: 2016-09-09 16:44:16 ЛС | профиль | цитата
Точка onChange выдает событие только при выборе последней вкладки, на остальные никакой реакции. Можно это как то исправить?
карма: 2

0
Разработчик
Ответов: 26113
Рейтинг: 2126
#5: 2016-09-09 18:01:03 ЛС | профиль | цитата
Iliya писал(а):
Точка onChange выдает событие только при выборе последней вкладки, на остальные никакой реакции. Можно это как то исправить?

Где?
Схема

Add(MainForm,16210424,245,119)
{
}
Add(PageControl,7034739,245,161)
{
Childrens=#1:1|1:2|1:3|1:4|
Selected="base"
link(onChange,2817064:doEvent,[])
}
BEGIN_SDK
Add(EditPolyMulti,6795868,21,21)
{
EventCount=#8:onChange|
}
Add(PagePanel,12628223,35,98)
{
Left=35
Top=105
Point(onChange)
link(onChange,6795868:onChange,[(74,104)(74,27)])
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,12589203,21,21)
{
EventCount=#8:onChange|
}
Add(PagePanel,2049967,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,8892139,21,21)
{
EventCount=#8:onChange|
}
Add(PagePanel,12119454,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,12540846,21,21)
{
EventCount=#8:onChange|
}
Add(PagePanel,15522021,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,36204,21,21)
{
EventCount=#8:onChange|
}
Add(PagePanel,3682387,35,105)
{
Left=35
Top=105
}
END_SDK
Add(Debug,2817064,308,161)
{
}


Редактировалось 2 раз(а), последний 2016-09-09 23:14:47
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#6: 2016-09-10 07:46:26 ЛС | профиль | цитата
nesco, а это :
Схема

Add(MainForm,2953706,56,98)
{
Width=557
Height=296
}
Add(ChanelToIndex,6086430,168,98)
{
link(onIndex,668848:doVisible,[])
}
Add(PageControl,668848,231,98)
{
Height=200
Align=2
Childrens=#1:1|1:2|1:3|1:4|1:5|1:6|
Selected="base"
Buttons=0
Point(doVisible)
}
BEGIN_SDK
Add(EditPolyMulti,7338538,21,21)
{
WorkCount=#9:doVisible|
link(doVisible,13263930:doVisible,[(28,27)(28,34)])
}
Add(PagePanel,13263930,49,28)
{
Top=-5
Width=535
Height=190
Point(doVisible)
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,14585266,21,21)
{
WorkCount=#9:doVisible|
}
Add(PagePanel,228418,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,6302882,21,21)
{
WorkCount=#9:doVisible|
}
Add(PagePanel,15471720,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,4159672,21,21)
{
WorkCount=#9:doVisible|
}
Add(PagePanel,10981776,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,14863897,21,21)
{
WorkCount=#9:doVisible|
}
Add(PagePanel,13897324,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,11548732,21,21)
{
WorkCount=#9:doVisible|
}
Add(PagePanel,1401424,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,9372108,21,21)
{
WorkCount=#9:doVisible|
}
Add(PagePanel,13398168,35,105)
{
Left=35
Top=105
}
END_SDK
Add(Button,9321000,98,98)
{
Left=95
Top=220
Width=100
Caption="Скрыть"
Data=Integer(0)
link(onClick,6086430:doWork1,[])
}
Add(Button,14372342,98,147)
{
Left=205
Top=220
Width=100
Caption="Показать"
Data=Integer(1)
link(onClick,6086430:doWork2,[(149,153)(149,111)])
}



Редактировалось 6 раз(а), последний 2016-09-10 09:05:04
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26113
Рейтинг: 2126
#7: 2016-09-10 11:38:40 ЛС | профиль | цитата
Tad писал(а):
а это

А это -- к Автору компонента. Похоже, что Visible в этом компоненте вообще не работает.
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#8: 2016-09-10 11:47:47 ЛС | профиль | цитата
nesco писал(а):
А это -- к Автору компонента. Похоже, что Visible в этом компоненте вообще не работает.
Не только.
Color тоже для комплекта.
Хорошо, обратимся к Автору.
Дай пример с ChildPanelPoly (как автор)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26113
Рейтинг: 2126
#9: 2016-09-10 12:16:20 ЛС | профиль | цитата
Tad писал(а):
Дай пример с ChildPanelPoly


Схема


Add(MainForm,2953706,63,112)
{
Width=454
link(onCreate,6481724:doEnum,[])
}
Add(ChildPanelPoly,3097703,280,126)
{
Childrens=#1:1|1:2|1:3|
Selected="base"
WorkScheme=1
}
BEGIN_SDK
Add(EditPolyMulti,2037483,21,21)
{
WorkCount=#5:##add|7:Visible|5:Color|
Point(##add)
link(Visible,7392687:doVisible,[(74,34)(74,69)])
link(Color,7392687:doColor,[(67,41)(67,76)])
}
Add(Panel,7392687,84,56)
{
Width=350
Height=160
Color=12632256
Point(doVisible)
Point(doColor)
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,6937023,21,21)
{
WorkCount=#5:##add|7:Visible|5:Color|
Point(##add)
}
Add(Panel,16471763,70,49)
{
Left=5
Top=5
Width=350
Height=160
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,9799945,21,21)
{
WorkCount=#5:##add|7:Visible|5:Color|
Point(##add)
link(##add,6070836:doData,[(39,27)(39,76)])
}
Add(Panel,7575610,140,63)
{
Left=5
Top=5
Width=350
Height=160
Point(doLeft)
Point(doTop)
}
Add(DoData,6070836,49,70)
{
Data=Integer(10)
link(onEventData,5860688:doEvent1,[])
}
Add(Hub,5860688,105,70)
{
link(onEvent1,7575610:doLeft,[])
link(onEvent2,7575610:doTop,[])
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,9689318,21,21)
{
WorkCount=#5:##add|7:Visible|5:Color|
Point(##add)
link(##add,6070836:doData,[(46,27)(46,69)])
}
Add(Panel,7575610,147,56)
{
Left=5
Top=5
Width=350
Height=160
Point(doLeft)
Point(doTop)
}
Add(DoData,6070836,56,63)
{
Data=Integer(15)
link(onEventData,5860688:doEvent1,[])
}
Add(Hub,5860688,112,63)
{
link(onEvent1,7575610:doLeft,[])
link(onEvent2,7575610:doTop,[])
}
END_SDK
Add(StrList,13369267,133,56)
{
Strings=#1:1|1:2|1:3|
}
Add(ArrayEnum,6481724,147,126)
{
link(onItem,3097703:##add,[])
link(Array,13369267:Array,[])
}
Add(Button,15341662,147,189)
{
Left=105
Top=225
TabOrder=-1
Caption="Hide"
link(onClick,13481194:doWork1,[])
}
Add(Button,8206157,147,231)
{
Left=165
Top=225
TabOrder=-1
Caption="Show"
link(onClick,13481194:doWork2,[(186,237)(186,202)])
}
Add(ChanelToIndex,13481194,203,189)
{
link(onIndex,3097703:Visible,[(242,195)(242,139)])
}
Add(Button,7350076,147,273)
{
Left=225
Top=225
TabOrder=-1
Caption="Color"
link(onClick,6591482:doOpen,[])
}
Add(ColorDialog,6591482,203,273)
{
link(onSelect,3097703:Color,[(249,279)(249,146)])
}

карма: 22

1
Голосовали:Tad
Ответов: 16884
Рейтинг: 1239
#10: 2016-09-15 19:31:59 ЛС | профиль | цитата
Нельзя на страницу помещать такую конструкцию



Add(StringTable,251504,91,56)
{
Left=90
Top=45
Align=5
Columns=#1:1|1:2|1:3|1:4|1:5|
Grid=0
Point(onDblClick)
link(onDblClick,13774792:doCompare,[])
}
Add(If_else,13774792,147,63)
{
Op2=Integer(1)
link(onTrue,7890279:doPopupHere,[])
}
Add(PopupMenu,7890279,210,63)
{
Menu=#8:Добавить|13:Редактировать|7:Удалить|
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26113
Рейтинг: 2126
#11: 2016-09-15 19:47:01 ЛС | профиль | цитата
Tad писал(а):
Нельзя на страницу помещать такую конструкцию

Чсзать -- не понял, а в чем подвох?
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#12: 2016-09-15 21:05:47 ЛС | профиль | цитата
Не переваривает PopUpMenu в странице.
Программа вылетает так, что мелкомягкие предлагают свою помощь.
Убираешь PopUpMenu - все работает.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26113
Рейтинг: 2126
#13: 2016-09-15 22:36:00 ЛС | профиль | цитата
Tad писал(а):
Не переваривает PopUpMenu в странице.

Давай свою схему. А то я создал страницу в PageControl-e, кинул на нее твою схему, сделал двойной клик ПКМ, и... Ничего не произошло, нормально вызвалось меню, без всяких приколов. Наверное я чего-то не догоняю в твоих приколах.

Редактировалось 2 раз(а), последний 2016-09-15 22:38:16
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#14: 2016-09-16 07:59:10 ЛС | профиль | цитата
Схема

Add(MainForm,2953706,21,105)
{
}
Add(PageControl,13419372,77,105)
{
Childrens=#1:1|1:2|1:3|
Selected="2"
}
BEGIN_SDK
Add(EditPolyMulti,7441193,21,21)
{
}
Add(PagePanel,12198348,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,798162,21,21)
{
}
Add(PagePanel,16751909,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,516712,21,21)
{
}
Add(PagePanel,6899692,35,105)
{
Left=35
Top=105
}
Add(StringTable,7303198,84,49)
{
Left=80
Top=45
Align=5
Columns=#1:1|1:2|1:3|1:4|
Grid=0
Point(onDblClick)
link(onDblClick,610022:doCompare,[])
}
Add(If_else,610022,133,56)
{
Op2=Integer(1)
link(onTrue,12641469:doPopupHere,[])
}
Add(PopupMenu,12641469,203,56)
{
Menu=#8:Добавить|8:Изменить|7:Удалить|
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,13585284,21,21)
{
}
Add(PagePanel,9082253,35,105)
{
Left=35
Top=105
}
END_SDK



Схема 2 (не работают компоненты Data_Source)

Add(MainForm,2953706,63,105)
{
Point(onClose)
link(onCreate,13768333:doOpen,[])
link(onClose,13768333:doClose,[])
}
Add(PageControl,13419372,182,168)
{
Childrens=#1:1|1:2|1:3|
Selected="2"
}
BEGIN_SDK
Add(EditPolyMulti,7441193,21,21)
{
}
Add(PagePanel,12198348,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,798162,21,21)
{
}
Add(PagePanel,16751909,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,516712,21,21)
{
Width=405
}
Add(PagePanel,6899692,35,105)
{
Left=35
Top=105
}
Add(StringTable,7303198,252,91)
{
Left=80
Top=45
Align=5
Columns=#1:1|1:2|
Grid=0
Point(onDblClick)
link(onDblClick,610022:doCompare,[])
}
Add(If_else,610022,301,98)
{
Op2=Integer(1)
link(onTrue,12641469:doPopupHere,[])
}
Add(DSC_Query,4782005,140,91)
{
SQL="SELECT * From test;"
DSManager="parent.my"
link(onQuery,3419646:doStr,[])
}
Add(MT_String,3419646,203,91)
{
link(onResult,7303198:doAdd,[])
}
Add(Button,12157886,91,91)
{
Left=275
Top=15
link(onClick,4782005:doQuery,[])
}
Add(PopupMenu,12641469,357,98)
{
Menu=#8:Добавить|8:Изменить|7:Удалить|
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,13585284,21,21)
{
}
Add(PagePanel,9082253,35,105)
{
Left=35
Top=105
}
END_SDK
Add(DS_SQLite,13768333,126,119)
{
Name="my"
FileName=":memory:"
link(onOpen,1966977:doExec,[])
}
Add(DSC_Exec,1966977,182,119)
{
SQL="CREATE TABLE test(id INTEGER PRIMARY KEY, name);\r\nINSERT INTO test values(NULL,'Иванов');\r\nINSERT INTO test values(NULL,'Петров');\r\nINSERT INTO test values(NULL,'Сидоров');\r\nINSERT INTO test values(NULL,'Козлов');"
DSManager="my"
}


Редактировалось 4 раз(а), последний 2016-09-16 09:25:10
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26113
Рейтинг: 2126
#15: 2016-09-16 11:04:27 ЛС | профиль | цитата
Первая схема у меня не вызывает никакой ошибки, и меню вызывается успешно. Вторая действительно выдает ошибку.

Редактировалось 1 раз(а), последний 2016-09-16 11:20:15
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)