HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуКак получить из таблицы значение ячейки по которой щелкнули мышкой? ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 2467
Рейтинг: 698
#16: 2015-10-25 16:11:32 ЛС | профиль | цитата
Tad в своем репертуаре.
Tad, ну вы же прекрасно понимаете что Леонид выложил заготовку, которую если понадобится ТС доработает. Да и доделать там два-три элемента.
Леонид, а что за фильм?
карма: 11

0
Разработчик
Ответов: 26322
Рейтинг: 2147
#17: 2015-10-25 16:15:21 ЛС | профиль | цитата
Ну-ка, напомните мне, сколько мест в кинотеатре и сколько у вас получится панелей?
карма: 22

0
Ответов: 2467
Рейтинг: 698
#18: 2015-10-25 16:17:38 ЛС | профиль | цитата
sla8a писал(а):
Ну-ка, напомните мне, сколько мест в кинотеатре и сколько у вас получится панелей?
Вот и я о том же! А еще добавте что в кинотеатре компьютер врядли будет быстрый.
карма: 11

0
Ответов: 16884
Рейтинг: 1239
#19: 2015-10-25 17:08:35 ЛС | профиль | цитата
sla8a писал(а):
Tad в своем репертуаре.
Как всегда.
Задача то стояла "Как получить значение ячейки по которой щелкнули мышкой?"
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 2467
Рейтинг: 698
#20: 2015-10-25 17:30:58 ЛС | профиль | цитата
Tad, ну ко мне то нет нареканий?
drawticket_03.sha
карма: 11

0
файлы: 1drawticket_03.sha [6.1KB] [375]
Ответов: 16884
Рейтинг: 1239
#21: 2015-10-25 18:20:53 ЛС | профиль | цитата

------------ Дoбавленo в 18.20:

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8974
Рейтинг: 824
#22: 2015-10-25 18:47:23 ЛС | профиль | цитата
Tad писал(а):
Нажал на место..
Надо было точно по центру нажимать Щаз зделаю!
------------ Дoбавленo в 18.47:
Вот: 
Add(MainForm,5414608,266,77){
 Width=673
 Height=520
 Color=15780518
 Caption="Синий театр  (Сектор.Ряд/Место)"
 link(onCreate,4610514:doEnum,[])
}
Add(ChildPanelEx,8766865,441,98)
{
 Mode=1
 link(Name,9001770:doStrCat,[])
 link(Mouse,11325770:doEvent1,[(480,111)(480,90)(361,90)(361,132)(284,132)(284,146)])
}
BEGIN_SDK
  Add(EditMultiEx,159737,21,21)
  {
   WorkCount=#5:##add|8:##select|7:doColor|7:##clear|
   EventCount=#4:Name|5:Mouse|
   VarCount=#12:##eventIndex|
   Point(##add)
   Point(##select)
   Point(##clear)
   Point(##eventIndex)
   link(##add,13759962:doSplit,[(32,27)(32,104)])
   link(doColor,6684169:doColor,[(158,41)(158,111)])
  }
  Add(Panel,6684169,175,98)
  {
   Left=80
   Top=5
   Width=50
   Color=12639424
   Font=[MS Sans Serif,8,1,0,1]
   Point(doColor)
   Point(onMouseDown)
   Point(Handle)
   Point(doLeft)
   Point(doTop)
   link(onMouseDown,8154066:doEvent1,[])
  }
  Add(MultiStrData,13759962,56,98)
  {
   Count=3
   link(onPart1,16701341:doValue,[(95,104)(95,48)])
   link(onPart2,6684169:doLeft,[(144,111)(144,118)])
   link(onPart3,6684169:doTop,[(138,118)(138,125)])
  }
  Add(Memory,16701341,112,42)
  {
   link(onData,6684169:doCaption,[(166,48)(166,104)])
  }
  Add(DoData,4551929,252,56)
  {
   link(onEventData,159737:Name,[(291,62)(291,27)])
   link(Data,16701341:Value,[(258,47)(209,47)(209,82)(118,82)])
  }
  Add(Hub,8154066,217,105)
  {
   link(onEvent1,4551929:doData,[(242,111)(242,62)])
   link(onEvent2,159737:Mouse,[(298,118)(298,34)])
  }
END_SDK
Add(Hub,11325770,294,140)
{
 link(onEvent1,10933178:doData,[(375,146)(375,111)])
 link(onEvent2,2121268:doCompare,[])
}
Add(DoData,10933178,378,105)
{
 link(onEventData,8766865:##select,[])
 link(Data,8766865:##eventIndex,[(384,96)(433,96)(433,138)(447,138)])
}
Add(DoData,9768335,378,147)
{
 Data=Integer(32768)
 link(onEventData,6196638:doWork2,[(417,153)(417,118)])
}
Add(If_else,2121268,322,147)
{
 Op2=Integer(0)
 link(onTrue,9768335:doData,[])
 link(onFalse,5424133:doData,[(368,160)(368,188)])
}
Add(DoData,5424133,378,182)
{
 Data=Integer(12639424)
 link(onEventData,6196638:doWork3,[(424,188)])
}
Add(HubEx,6196638,420,112)
{
 link(onEvent,8766865:doColor,[])
}
Add(StrList,6663799,308,35)
{
 Strings=#14:Лв.1/1;137;129|14:Лв.1/2;190;173|14:Ср.1/1;265;197|14:Ср.1/2;335;197|14:Пр.1/1;410;173|14:Пр.1/2;463;129|13:Лв.2/1;74;162|14:Лв.2/2;124;213|14:Лв.2/3;185;249|14:Ср.2/1;262;267|14:Ср.2/2;333;268|14:Пр.2/1;411;250|14:Пр.2/2;472;216|14:Пр.2/3;523;166|13:Лв.3/1;37;228|13:Лв.3/2;90;275|14:Лв.3/3;152;311|14:Ср.3/1;234;333|14:Ср.3/2;300;340|14:Ср.3/3;366;333|14:Пр.3/1;448;311|14:Пр.3/2;510;275|14:Пр.3/3;563;228|13:Лв.4/1;15;295|13:Лв.4/2;77;344|14:Лв.4/3;141;380|14:Ср.4/1;232;402|14:Ср.4/2;300;410|14:Ср.4/3;368;402|14:Пр.4/1;464;380|14:Пр.4/2;528;344|15:Пр.4//3;585;295|
}
Add(ArrayEnum,4610514,322,91)
{
 link(onItem,8766865:##add,[(368,97)(368,104)])
 link(Array,6663799:Array,[])
}
Add(StrCat,9001770,490,98)
{
 Str1="Синий театр  "
 link(onStrCat,5414608:doCaption,[(529,104)(529,27)(256,27)(256,83)])
}
:shock:
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#23: 2015-10-26 09:11:43 ЛС | профиль | цитата
Красота !
1. Сбой энегроснабжения. UPS на ремонте. Пропали отметки о продаже.
2. А сколько у меня денег в кассе ? (На то она и касса).
И т.д. и т.п. (а какой самый прибыльный день недели ? или месяц ? или год ?)
Леонид, sla8a, вопросы не к Вам.
Вопросы к PK.Kirill. Хотя задавать ему вопросы бесполезно - я задавал, он не ответил.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8974
Рейтинг: 824
#24: 2015-10-26 10:22:24 ЛС | профиль | цитата
Tad писал(а):
..Я бы применил SQLite..
Я бы тоже, или Excel, или HiAsm, или..., но всё надо знать как применить
карма: 19

0
Ответов: 223
Рейтинг: 24
#25: 2015-10-26 10:38:11 ЛС | профиль | цитата
Еще вариант...
Add(MainForm,2953706,84,315)
{
 Width=521
 Height=404
 link(onCreate,1048671:doTimer,[])
}
Add(PaintBox,13572165,222,136)
{
 Left=1
 Top=26
 Width=2202
 Height=378
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 Point(MouseX)
 Point(MouseY)
 Point(onMouseDown)
 Point(onDblClick)
 Point(onSetFocus)
 Point(onMouseEnter)
 Point(doSetFocus)
 link(onBeforeDraw,2569996:doDraw,[])
 link(onMouseDown,9063616:doEvent1,[(270,149)(270,216)(154,216)(154,282)])
}
Add(Hub,9063616,166,276)
{
 OutCount=4
 link(onEvent1,18897:doOperation,[(204,282)(204,247)])
 link(onEvent2,41274:doOperation,[(204,289)(204,247)])
 link(onEvent3,5635301:doSetStyle,[])
 link(onEvent4,11446254:doText,[(221,303)(221,387)])
}
Add(DocumentTemplate,2569996,306,136)
{
 Name="MainPage"
 Point(doDrawSource)
 Point(X)
 Point(Y)
 link(Bitmap,13572165:Bitmap,[(312,124)(270,124)(270,186)(228,186)])
}
BEGIN_SDK
  Add(Print_Table,9821859,-4,-4)
  {
   Name="mtable"
   X=-1
   Y=-1
   Width=488
   Height=361
   Columns=#5:|70|1|5:|70|1|5:|70|1|5:|70|1|5:|70|1|5:|70|1|5:|70|1|
   Visible=1
   Cells=#31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||31:||||||||||||||||||||||||||||||||
   CellBackColor=16579836
   Left=3
   Top=1
   Right=2
   Bottom=1
   TableBackColor=-16777201
   RowHeight=40
   TBorderColor=255
   TBorderStyle=5
   TableTrans=0
  }
END_SDK
Add(GlobalVar,4973443,489,241)
{
 Name="y"
}
Add(GlobalVar,3527031,482,266)
{
 Name="x"
}
Add(PC_TableSetCell,15826304,475,329)
{
 ItemName="mtable"
 Document="MainPage"
 Point(Object)
 link(Col,3527031:Var,[])
 link(Row,4973443:Var,[])
}
Add(Timer,331175,159,136)
{
 Interval=100
 link(onTimer,13572165:doRefresh,[])
}
Add(Math,18897,229,241)
{
 OpType=7
 Op2=71
 ResultType=0
 link(onResult,3527031:doValue,[(371,247)(371,272)])
 link(Op1,13572165:MouseX,[])
}
Add(Math,41274,236,241)
{
 OpType=7
 Op2=40
 ResultType=0
 link(onResult,4973443:doValue,[])
 link(Op1,13572165:MouseY,[])
}
Add(For,1051009,231,329)
{
 End=7
 link(onEvent,16134404:doValue,[])
}
Add(For,12970378,322,329)
{
 End=6
 link(onEvent,5003854:doValue,[])
}
Add(GlobalVar,5003854,369,329)
{
 Name="x"
 link(onValue,16560792:doNext,[])
}
Add(GlobalVar,16134404,278,329)
{
 Name="y"
 link(onValue,12970378:doFor,[])
}
Add(CounterEx,16560792,413,329)
{
 link(onNext,15826304:doText,[])
}
Add(Timer,1048671,168,329)
{
 Interval=1
 Enable=1
 AutoStop=1
 link(onTimer,1051009:doFor,[])
}
Add(GlobalVar,6439867,390,261)
{
 Name="x"
}
Add(GlobalVar,969240,397,238)
{
 Name="y"
}
Add(PC_TableCellStyle,5635301,390,290)
{
 ItemName="mtable"
 Document="MainPage"
 BgApply=0
 Background=4259584
 Color=8421631
 Point(Object)
 link(Col,6439867:Var,[])
 link(Row,969240:Var,[])
}
Add(Label,11446254,475,381)
{
 Left=170
 Top=5
 Width=95
 Caption="00"
 link(Text,15826304:CurrentText,[])
}
карма: 0

0
файлы: 1code_36439.txt [3.2KB] [315]
Ответов: 2467
Рейтинг: 698
#26: 2015-10-26 11:13:59 ЛС | профиль | цитата
wasya писал(а):
Еще вариант...
А потыкай курсоров в белую область за таблицей справа, ближе к нижнему краю. Вылетит птичка.
карма: 11

0
Ответов: 8974
Рейтинг: 824
#27: 2015-10-26 12:51:23 ЛС | профиль | цитата
sla8a писал(а):
а что за фильм?
+21
карма: 19

0
27
ФорумыПомощь по пакетуКак получить из таблицы значение ячейки по которой щелкнули мышкой? ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика