HiAsm
HiAsm
Вверх ↑
ФорумыСхемыДополнительные кнопки при выборе строки в ListBox ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 8975
Рейтинг: 824
#16: 2017-12-06 22:23:49 ЛС | профиль | цитата
Tad, а это:
Это


Add(MainForm,2953706,168,140)
{
}
Add(ChildForm,12086697,168,98)
{
}
BEGIN_SDK
  Add(EditMulti,3835402,21,21)
  {
   WorkCount=2
   link(doWork1,11640324:doLeft,[(137,27)(137,90)])
   link(doWork2,11640324:doTop,[(130,34)(130,97)])
  }
  Add(MainForm,11640324,147,56)
  {
   Left=35
   Top=50
   Width=100
   Height=75
   Point(doLeft)
   Point(doTop)
  }
END_SDK
Add(ScrollBar,12337846,112,98)
{
 Left=15
 Width=365
 Max=765
 Min=35
 Page=50
 Position=35
 link(onPosition,12086697:doWork1,[])
}
Add(ScrollBar,6135325,112,140)
{
 Top=15
 Width=15
 Height=230
 Max=550
 Min=50
 Page=40
 Position=50
 Kind=1
 link(onPosition,12086697:doWork2,[(151,146)(151,111)])
}
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#17: 2017-12-06 23:00:16 ЛС | профиль | цитата
Это нормально
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8975
Рейтинг: 824
#18: 2017-12-06 23:09:05 ЛС | профиль | цитата
Tad, значит и ТО должно быть нормально Нарисуйте ТО своими силами, как если бы сами решили сделать такое чудо, чтобы кнопки садились на выбранную строку
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#19: 2017-12-07 09:59:29 ЛС | профиль | цитата
Леонид писал(а):
значит и ТО должно быть нормально
Должно быть. Так ведь не я один.
flint2 писал(а):
левый, верхний угол экрана.
rav писал(а):
кнопки появились в левом верхнем углу главной формы.
И даже подумать страшно: А если в ListBox загрузить 500 или 1000 строк?
Нет уж, увольте от
Леонид писал(а):
Нарисуйте ТО своими силами, как если бы сами решили сделать такое чудо, чтобы кнопки садились на выбранную строку
Нужно какое-то другое решение.

Редактировалось 2 раз(а), последний 2017-12-07 10:09:46
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#20: 2017-12-07 11:02:02 ЛС | профиль | цитата
Вот вам, без рихтовки
схема Леонид-а


Add(MainForm,11711561,329,63)
{
 Width=184
 Height=200
 BorderStyle=3
 Position=1
 Point(Handle)
 Point(Left)
 Point(Top)
 Point(onMove)
 Point(doHeight)
 link(onCreate,920962:doCalc,[(371,83)(371,139)])
 link(onMove,10596629:doWork1,[(375,90)(375,62)(207,62)])
}
Add(ListBox,15837332,392,63)
{
 Width=168
 Height=152
 Align=5
 Font=[MS Sans Serif,10,0,0,1]
 Name="form"
 Strings=#5:line1|5:line2|5:line3|5:line4|5:line5|5:line6|5:line7|5:line8|5:line9|6:line10|6:line11|6:line12|6:line13|6:line14|0:|
 Point(Width)
 Point(MouseY)
 Point(String)
 Point(Index)
 link(onClick,13240540:doEvent1,[(452,76)(452,55)(172,55)(172,188)])
}
Add(ChildForm,10327731,427,182)
{
 FirstUsage=0
 link(onEvent1,3519927:doMessage,[])
 link(Data1,15837332:String,[])
}
BEGIN_SDK
  Add(EditMulti,10907509,14,7)
  {
   EventCount=1
   WorkCount=3
   DataCount=1
   Width=237
   Height=165
   VOffset=30
   link(doWork1,10308009:doLeft,[(39,43)(39,71)])
   link(doWork2,10308009:doTop,[(27,50)(27,78)])
   link(doWork3,10308009:doVisible,[(21,57)(21,85)])
  }
  Add(MainForm,10308009,49,23)
  {
   Width=174
   Height=24
   Color=8421504
   Visible=1
   Ctl3D=0
   WinStyle=1
   Caption=""
   BorderStyle=6
   TaskBar=1
   TransparentManager="transp"
   Point(doShiftLeft)
   Point(doShiftTop)
   Point(doLeft)
   Point(doTop)
   Point(doVisible)
  }
  Add(TransparentManager,13441677,147,86)
  {
   Name="transp"
   TransparentColor=8421504
   FormTranspColor=8421504
  }
  Add(Button,906471,98,9)
  {
   Left=5
   Top=1
   Width=20
   TabOrder=-1
   Caption="L"
   link(onClick,3175090:doWork1,[(163,15)])
  }
  Add(Button,3367558,98,44)
  {
   Left=30
   Top=1
   Width=20
   TabOrder=-1
   Caption="P"
   link(onClick,3175090:doWork3,[(163,50)])
  }
  Add(DoData,16545535,196,37)
  {
   link(onEventData,10907509:onEvent1,[])
   link(Data,10907509:Data1,[(202,22)(20,22)])
  }
  Add(HubEx,3175090,159,37)
  {
   link(onEvent,16545535:doData,[])
  }
END_SDK
Add(Hub,11888096,224,182)
{
 OutCount=3
 link(onEvent1,16488798:doOperation,[])
 link(onEvent2,5930408:doCalc,[])
 link(onEvent3,6409591:doForeground,[(249,202)(249,153)])
}
Add(Math,16488798,322,182)
{
 OpType=1
 Op2=55
 ResultType=0
 link(onResult,10327731:doWork1,[])
 link(Op1,11711561:Left,[(328,159)(342,159)])
}
Add(WinTools,6409591,280,119)
{
 Point(doForeground)
 link(Handle,11711561:Handle,[(286,110)(335,110)])
}
Add(Message,3519927,476,182)
{
}
Add(DoData,2557340,217,224)
{
 Data=Integer(1)
 link(onEventData,10327731:doWork3,[(410,230)(410,202)])
}
Add(MathParse,5930408,371,189)
{
 MathStr="%1*16 + 25 + %2"
 link(onResult,10327731:doWork2,[])
 link(X1,15837332:Index,[(377,159)(440,159)])
 link(X2,11711561:Top,[(384,173)(349,173)])
}
Add(MathParse,920962,385,133)
{
 DataCount=1
 MathStr="(%1>9)*(%1*16 + 40) + (%1<=9)*200"
 link(onResult,11711561:doHeight,[(424,139)(424,118)(319,118)(319,97)])
 link(X1,15837332:Count,[(391,124)(405,124)])
}
Add(Hub,13240540,182,182)
{
 link(onEvent1,10596629:doWork2,[])
 link(onEvent2,2557340:doData,[(207,195)(207,230)])
}
Add(HubEx,10596629,203,182)
{
 link(onEvent,11888096:doEvent1,[])
}
карма: 9

0
Ответов: 497
Рейтинг: 16
#21: 2017-12-08 01:39:41 ЛС | профиль | цитата
велосипедисты 


Add(MainForm,11711561,434,49)
{
 Width=184
 Height=200
 BorderStyle=3
 Position=1
 Point(Handle)
 Point(Left)
 Point(Top)
 Point(onMove)
 Point(doHeight)
 link(onCreate,920962:doCalc,[(490,69)(490,188)])
 link(onMove,10596629:doWork1,[(478,76)(478,165)(326,165)])
}
Add(ListBox,15837332,511,112)
{
 Width=168
 Height=152
 Align=5
 Font=[MS Sans Serif,10,0,0,1]
 Name="form"
 Strings=#5:line1|5:line2|5:line3|5:line4|5:line5|5:line6|5:line7|5:line8|5:line9|6:line10|6:line11|6:line12|6:line13|6:line14|0:|
 Point(Width)
 Point(MouseY)
 Point(String)
 Point(Index)
 link(onClick,13240540:doEvent1,[(575,125)(575,181)(289,181)(289,237)])
}
Add(Hub,11888096,343,231)
{
 OutCount=3
 link(onEvent2,5930408:doCalc,[])
}
Add(Message,3519927,742,126)
{
}
Add(DoData,2557340,336,273)
{
 Data=Integer(1)
 link(onEventData,14557721:doEvent1,[(394,279)(394,293)])
}
Add(MathParse,5930408,441,238)
{
 MathStr="%1*16"
 link(onResult,5551153:doEvent1,[])
 link(X1,15837332:Index,[(447,208)(559,208)])
}
Add(MathParse,920962,504,182)
{
 DataCount=1
 MathStr="(%1>9)*(%1*16 + 40) + (%1<=9)*200"
 link(onResult,11711561:doHeight,[(548,188)(548,146)(422,146)(422,83)])
 link(X1,15837332:Count,[(510,173)(524,173)])
}
Add(Hub,13240540,301,231)
{
 link(onEvent1,10596629:doWork2,[])
 link(onEvent2,2557340:doData,[(325,244)(325,279)])
}
Add(HubEx,10596629,322,231)
{
 link(onEvent,11888096:doEvent1,[])
}
Add(Hub,5551153,504,238)
{
 link(onEvent1,6407362:doTop,[(564,244)(564,176)])
 link(onEvent2,2422572:doTop,[(550,251)(550,288)])
}
Add(Hub,14557721,420,287)
{
 link(onEvent1,6407362:doVisible,[(522,293)(522,183)])
 link(onEvent2,2422572:doVisible,[(508,300)(508,295)])
}
Add(GetDataEx,10904761,567,203)
{
 link(Data,15837332:String,[(573,194)(552,194)])
}
Add(Button,6407362,588,163)
{
 Left=140
 Width=20
 Visible=1
 TabOrder=-1
 Caption="R"
 Point(doCaption)
 Point(doTop)
 Point(doVisible)
 link(onClick,11020844:doWork2,[])
}
Add(DoData,14347203,665,126)
{
 link(onEventData,3519927:doMessage,[])
 link(Data,10904761:Var2,[(671,121)(618,121)(618,218)(573,218)])
}
Add(Button,2422572,581,275)
{
 Left=115
 Width=20
 Visible=1
 TabOrder=-1
 Caption="L"
 Point(doCaption)
 Point(doTop)
 Point(doVisible)
 link(onClick,11020844:doWork3,[(650,281)])
}
Add(HubEx,11020844,646,163)
{
 Angle=3
 link(onEvent,14347203:doData,[(650,132)])
}


--- Добавлено в 2017-12-08 01:43:12

Tad, аналогичное поведение кнопок. после установки позиции положения где нужно опять в угол.

Редактировалось 1 раз(а), последний 2017-12-08 01:43:12
карма: 1
        ]  
0
Ответов: 16884
Рейтинг: 1239
#22: 2017-12-08 14:48:07 ЛС | профиль | цитата
RAWY_EX, тема: Дополнительные кнопки при выборе строки в ListBox
Вот тебе ListBox с кучей строк.
Add(MainForm,2953706,21,105)
{
 Width=354
 link(onCreate,11984534:doFor,[])
}
Add(ListBox,1908394,161,119)
{
 Left=155
 Top=10
 Width=170
 Height=225
}
Add(For,11984534,70,119)
{
 End=100
 link(onEvent,3922890:doStrCat,[])
}
Add(StrCat,3922890,112,119)
{
 Str1="Строка "
 link(onStrCat,1908394:doAdd,[])
}
На выбранной строке поставь Кнопки.
=====================================
Вопрос к TC: Зачем они там тебе нужны ?

Редактировалось 2 раз(а), последний 2017-12-08 14:50:17
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1536
Рейтинг: 176
#23: 2017-12-08 15:52:33 ЛС | профиль | цитата
Леонид писал(а):
Tad, кнопки приклеены слева формы, напротив выбранной строки , почему они у вас ставятся в угол не знаю, может провинились

Леонид, А у них с Nesco и колесо мыши как надо не работает, как выяснилось ранее с масштабированием картинки. Вот поэтому и кнопки у них ни как надо себя ведут.

Редактировалось 3 раз(а), последний 2017-12-08 15:55:22
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 8975
Рейтинг: 824
#24: 2017-12-08 16:22:54 ЛС | профиль | цитата
ser_davkin, а-а, понятно То-то Nesco молчит, наверное в отпуске, где-нибудь на Ямале отдыхает
карма: 19

0
Ответов: 8975
Рейтинг: 824
#25: 2017-12-08 17:34:10 ЛС | профиль | цитата
Tad, вот не более 2300 строк (наверное у ListBox-а предел по высоте в ~30000 пикселей)
На RAWY_EX не обижайся, он не с первого поста ТС читал
Не велосипед


Add(MainForm,1274679,259,91)
{
 Width=354
 link(onCreate,11984534:doFor,[])
}
Add(For,11984534,308,105)
{
 End=1999
 link(onEvent,3922890:doStrCat,[])
 link(onStop,11811932:doEvent1,[(347,118)(347,167)])
}
Add(StrCat,3922890,357,105)
{
 Str1="Строка "
 link(onStrCat,12018679:doAdd,[])
}
Add(ChildScrollBox,10792758,455,161)
{
 link(onEvent1,3991694:doMessage,[])
}
BEGIN_SDK
  Add(EditMulti,6627440,42,7)
  {
   EventCount=1
   WorkCount=1
   Width=384
   Height=151
   VOffset=14
   link(doWork1,12545247:doEvent1,[])
  }
  Add(ScrollBox,10858539,231,63)
  {
   Left=165
   Top=10
   Width=170
   Height=245
  }
  Add(ListBox,6302816,147,21)
  {
   Width=145
   Height=239
   Point(doHeight)
   Point(String)
   link(onClick,2237109:doEvent1,[])
  }
  Add(Button,7206904,322,21)
  {
   Left=85
   Top=20
   Width=25
   Height=15
   Visible=1
   Caption="<<"
   Point(doVisible)
   Point(doTop)
   link(onClick,6408338:doWork2,[])
  }
  Add(Button,1163970,322,56)
  {
   Left=115
   Top=20
   Width=25
   Height=15
   Visible=1
   Caption=">>"
   Point(doVisible)
   Point(doTop)
   link(onClick,6408338:doWork3,[(368,62)])
  }
  Add(Hub,12545247,63,21)
  {
   link(onEvent1,6302816:doText,[(97,27)(97,48)])
   link(onEvent2,4350418:doCalc,[(88,34)(88,69)])
  }
  Add(MathParse,4350418,98,63)
  {
   DataCount=1
   MathStr="(%1>18)*(%1*13 + 5) + (%1<=18)*239"
   ResultType=0
   link(onResult,6302816:doHeight,[])
   link(X1,6302816:Count,[(104,54)(139,54)(139,82)(160,82)])
  }
  Add(Hub,2237109,196,28)
  {
   link(onEvent1,45623:doWork2,[])
   link(onEvent2,15394140:doCalc,[(221,41)(221,111)])
  }
  Add(ChanelToIndex,45623,231,21)
  {
   link(onIndex,2559256:doEvent1,[])
  }
  Add(Hub,2559256,273,21)
  {
   link(onEvent1,7206904:doVisible,[])
   link(onEvent2,1163970:doVisible,[(296,34)(296,62)])
  }
  Add(MathParse,15394140,231,105)
  {
   MathStr="%1*13 - %2 + 1"
   ResultType=0
   link(onResult,10585858:doEvent1,[])
   link(X2,10858539:VPos,[])
  }
  Add(Hub,10585858,273,105)
  {
   link(onEvent1,7206904:doTop,[(305,111)(305,34)])
   link(onEvent2,1163970:doTop,[(312,118)(312,69)])
  }
  Add(HubEx,6408338,364,21)
  {
   link(onEvent,12443401:doData,[])
  }
  Add(DoData,12443401,378,21)
  {
   link(onEventData,6627440:onEvent1,[])
   link(Data,6302816:String,[(384,12)(188,12)(188,82)(174,82)])
  }
END_SDK
Add(StrList,12018679,406,105)
{
}
Add(DoData,14823194,406,161)
{
 link(onEventData,10792758:doWork1,[])
 link(Data,12018679:Text,[])
}
Add(Hub,11811932,364,161)
{
 link(onEvent1,14823194:doData,[])
 link(onEvent2,12018679:doClear,[(396,174)(396,118)])
}
Add(Message,3991694,504,161)
{
}
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#26: 2017-12-08 20:14:36 ЛС | профиль | цитата
Леонид,
1. я никогда ни на кого не обижаюсь.
2. ser_davkin, схема от Galkov-а (http://forum.hiasm.com/post/295650) прекрасно работает.
3. зачем нужны эти кнопки, если там есть уже две - ЛКМ и ПКМ
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8975
Рейтинг: 824
#27: 2017-12-08 21:25:31 ЛС | профиль | цитата
Tad, даже три кнопки уже есть и это ещё про DblClick забыли
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#28: 2017-12-08 22:33:08 ЛС | профиль | цитата
Леонид, а если прицепить PopUpMenu, то хоть двадцать.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 22
Рейтинг: 0
#29: 2017-12-09 14:34:30 ЛС | профиль | цитата
Tad, Для копирования в буфер обмена выделенной строки (отображается логин) одна кнопка и пароля вторая кнопка.
карма: 0

0
Ответов: 1536
Рейтинг: 176
#30: 2017-12-09 22:32:49 ЛС | профиль | цитата
rav писал(а):
Для копирования в буфер обмена выделенной строки (отображается логин) одна кнопка и пароля вторая кнопка.

Можно сделать ещё проще:
Весь список в таблице, где в одна колонка - логин, а другая - пароль. А дальше привязываем клик мыши по ячейке, - допустим, с паролем, - с автоматическим копированием этого пароля в буфер обмена. Если же кликнули по ячейке с логином - значит автоматически скопировали логин. И при этом никаких кнопок.

Редактировалось 3 раз(а), последний 2017-12-09 22:35:48
карма: 1
Не так страшна ошибка, как опасность её не заметить.

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