HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуПрограмма формирования описания товара ← Ctrl12Ctrl →
Этот топик читают: Гость
Этот топик был перемещен из раздела "Помощь по среде"
Ответов: 133
Рейтинг: 0
#1: 2021-08-27 11:28:25 ЛС | профиль | цитата
Добрый день всем. Возникла такая проблема. Я создал программу для создания описания товаров. Есть несколько проблем.
1 - как увеличить ширину строк в выпадающем списке ComboBox. А то часть текста не видна и приходится методом тыка выбирать строку.
2 - Формирование описания делается методом выбора строчки в ComboBox и ввода текста в Поле ввода (edit). Далее это отправляется в Форматированная строка (FormatSTr) и далее в Memo. Проблема в том, как мне сделать так, чтобы текст из Edit в FormatStr попадал только после того как я введу текст, при этом в FormatStr к строке из Edit добавляется еще текст. Типа "скорость чтения до %1 Мб/с" где %1 это текст из Edit. И это все должно появляться ТОЛЬКО если я введу текст в Edit.
Помогите пожалуйста )

Make(delphi)
ver(4.05 build 186)
Add(ChildForm,2730399,714,287)
{
}
BEGIN_SDK
Add(EditMulti,9733784,203,42)
{
WorkCount=2
Width=1574
Height=550
link(doWork1,16100782:doShowModal,[(238,48)(238,286)])
link(doWork2,13250529:doClear,[(273,55)(273,370)])
}
Add(MainForm,16100782,315,252)
{
Width=516
Height=408
Visible=1
Caption="Корпус"
BorderStyle=1
Position=1
Point(doShowModal)
}
Add(ComboBox,6065265,371,91)
{
Left=20
Top=40
Width=105
Height=21
Strings=#012:2.5″, |12:3,5″, |5:M.2, |7CI-E, |
Text=""
ReadOnly=0
DropDownCount=80
link(onClick,581309:doEvent1,[(940,104)(940,167)])
}
Add(Label,10206948,371,49)
{
Left=20
Top=20
Width=75
Height=17
Caption="Форм-фактор"
}
Add(ComboBox,14452312,420,91)
{
Left=20
Top=90
Width=105
Height=21
Strings=#05:IDE, |6:SATA, |9CI-E x2,|9CI-E x4,|4:U.2,|4:SAS,|5:SCSI,|0
Text=""
ReadOnly=0
DropDownCount=80
link(onClick,581309:doEvent2,[(964,104)(964,174)])
}
Add(Label,10433440,420,49)
{
Left=20
Top=70
Width=65
Height=17
Caption="Интерфейс"
}
Add(ComboBox,2657817,462,91)
{
Left=20
Top=140
Width=105
Height=21
Strings=#014:буфер 128 Мб, |13:буфер 256 Мб,|
Text=""
ReadOnly=0
DropDownCount=80
link(onClick,581309:doEvent3,[(986,104)(986,181)])
}
Add(FormatStr,883418,742,378)
{
DataCount=7
Mask="%1 %2 %3 %4 скорсть чтения до %5 Мб/с, скорсть записи до %6 Мб/с, TBW %7 Тб"
link(onFString,13250529:doText,[])
link(Str1,6065265:String,[(748,169)(384,169)])
link(Str2,14452312:String,[(755,169)(433,169)])
link(Str3,2657817:String,[(762,169)(475,169)])
link(Str4,8942738:String,[(769,169)(524,169)])
link(Str5,14307822:Text,[(776,250)(578,250)])
link(Str6,13470322:Text,[(783,250)(627,250)])
link(Str7,7602494:Text,[(790,270)(682,270)])
}
Add(ComboBox,8942738,511,91)
{
Left=20
Top=190
Width=105
Height=21
Strings=#012:5400 об/мин,|12:7200 об/мин,|13:10000 об/мин,|
Text=""
ReadOnly=0
DropDownCount=80
link(onClick,581309:doEvent4,[(1010,104)(1010,188)])
}
Add(Label,16574191,462,49)
{
Left=20
Top=120
Width=59
Height=17
Caption="Буфер"
}
Add(Hub,581309,1176,161)
{
InCount=7
link(onEvent1,883418:doString,[(725,167)(725,384)])
}
Add(Memo,13250529,938,357)
{
Left=140
Top=40
Width=360
Height=320
}
Add(Label,14515376,508,46)
{
Left=20
Top=170
Width=59
Height=17
Caption="Обороты"
}
Add(Label,9722165,560,43)
{
Left=20
Top=220
Width=52
Height=17
Caption="Чтение"
Alignment=2
}
Add(Label,15822845,609,43)
{
Left=20
Top=270
Width=53
Height=17
Caption="Запись"
Alignment=2
}
Add(Label,9453449,655,40)
{
Left=20
Top=320
Height=17
Caption="TBW"
Alignment=2
}
Add(Edit,7602494,676,130)
{
Left=20
Top=340
Text=""
Point(doEnabled)
link(onChange,581309:doEvent7,[(942,136)(942,209)])
}
Add(Edit,13470322,621,117)
{
Left=20
Top=290
Text=""
link(onChange,581309:doEvent6,[(915,123)(915,202)])
}
Add(Edit,14307822,572,117)
{
Left=20
Top=240
Text=""
link(onChange,581309:doEvent5,[(890,123)(890,195)])
}
END_SDK
Add(Button,13021642,637,287)
{
Left=70
Top=40
Width=70
Caption="SSD/HDD"
link(onClick,8467078:doEvent1,[])
}
Add(Hub,8467078,686,287)
{
link(onEvent1,2730399:doWork1,[])
link(onEvent2,2730399:doWork2,[])
}
Add(MainForm,2849379,567,294)
{
Width=237
Height=127
Caption="Описание товара"
BorderStyle=1
Position=1
Point(doShowModal)
}


P.S. а как сюда файлик проекта залить?

--- Добавлено в 2021-08-27 11:38:07


Make(delphi)
ver(4.05 build 186)
Add(ChildForm,2730399,714,287)
{
}
BEGIN_SDK
  Add(EditMulti,9733784,203,42)
  {
   WorkCount=2
   Width=1574
   Height=550
   link(doWork1,16100782:doShowModal,[(238,48)(238,286)])
   link(doWork2,13250529:doClear,[(273,55)(273,370)])
  }
  Add(MainForm,16100782,315,252)
  {
   Width=516
   Height=408
   Visible=1
   Caption="Корпус"
   BorderStyle=1
   Position=1
   Point(doShowModal)
  }
  Add(ComboBox,6065265,371,91)
  {
   Left=20
   Top=40
   Width=105
   Height=21
   Strings=#0:|12:2.5″, |12:3,5″, |5:M.2, |7:PCI-E, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,581309:doEvent1,[(940,104)(940,167)])
  }
  Add(Label,10206948,371,49)
  {
   Left=20
   Top=20
   Width=75
   Height=17
   Caption="Форм-фактор"
  }
  Add(ComboBox,14452312,420,91)
  {
   Left=20
   Top=90
   Width=105
   Height=21
   Strings=#0:|5:IDE, |6:SATA, |9:PCI-E x2,|9:PCI-E x4,|4:U.2,|4:SAS,|5:SCSI,|0:|
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,581309:doEvent2,[(964,104)(964,174)])
  }
  Add(Label,10433440,420,49)
  {
   Left=20
   Top=70
   Width=65
   Height=17
   Caption="Интерфейс"
  }
  Add(ComboBox,2657817,462,91)
  {
   Left=20
   Top=140
   Width=105
   Height=21
   Strings=#0:|14:буфер 128 Мб, |13:буфер 256 Мб,|
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,581309:doEvent3,[(986,104)(986,181)])
  }
  Add(FormatStr,883418,742,378)
  {
   DataCount=7
   Mask="%1 %2 %3 %4 скорсть чтения до %5 Мб/с, скорсть записи до %6 Мб/с, TBW %7 Тб"
   link(onFString,13250529:doText,[])
   link(Str1,6065265:String,[(748,169)(384,169)])
   link(Str2,14452312:String,[(755,169)(433,169)])
   link(Str3,2657817:String,[(762,169)(475,169)])
   link(Str4,8942738:String,[(769,169)(524,169)])
   link(Str5,14307822:Text,[(776,250)(578,250)])
   link(Str6,13470322:Text,[(783,250)(627,250)])
   link(Str7,7602494:Text,[(790,270)(682,270)])
  }
  Add(ComboBox,8942738,511,91)
  {
   Left=20
   Top=190
   Width=105
   Height=21
   Strings=#0:|12:5400 об/мин,|12:7200 об/мин,|13:10000 об/мин,|
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,581309:doEvent4,[(1010,104)(1010,188)])
  }
  Add(Label,16574191,462,49)
  {
   Left=20
   Top=120
   Width=59
   Height=17
   Caption="Буфер"
  }
  Add(Hub,581309,1176,161)
  {
   InCount=7
   link(onEvent1,883418:doString,[(725,167)(725,384)])
  }
  Add(Memo,13250529,938,357)
  {
   Left=140
   Top=40
   Width=360
   Height=320
  }
  Add(Label,14515376,508,46)
  {
   Left=20
   Top=170
   Width=59
   Height=17
   Caption="Обороты"
  }
  Add(Label,9722165,560,43)
  {
   Left=20
   Top=220
   Width=52
   Height=17
   Caption="Чтение"
   Alignment=2
  }
  Add(Label,15822845,609,43)
  {
   Left=20
   Top=270
   Width=53
   Height=17
   Caption="Запись"
   Alignment=2
  }
  Add(Label,9453449,655,40)
  {
   Left=20
   Top=320
   Height=17
   Caption="TBW"
   Alignment=2
  }
  Add(Edit,7602494,676,130)
  {
   Left=20
   Top=340
   Text=""
   Point(doEnabled)
   link(onChange,581309:doEvent7,[(942,136)(942,209)])
  }
  Add(Edit,13470322,621,117)
  {
   Left=20
   Top=290
   Text=""
   link(onChange,581309:doEvent6,[(915,123)(915,202)])
  }
  Add(Edit,14307822,572,117)
  {
   Left=20
   Top=240
   Text=""
   link(onChange,581309:doEvent5,[(890,123)(890,195)])
  }
END_SDK
Add(Button,13021642,637,287)
{
 Left=70
 Top=40
 Width=70
 Caption="SSD/HDD"
 link(onClick,8467078:doEvent1,[])
}
Add(Hub,8467078,686,287)
{
 link(onEvent1,2730399:doWork1,[])
 link(onEvent2,2730399:doWork2,[])
}
Add(MainForm,2849379,567,294)
{
 Width=237
 Height=127
 Caption="Описание товара"
 BorderStyle=1
 Position=1
 Point(doShowModal)
}



Редактировалось 3 раз(а), последний 2021-08-27 11:38:07
карма: 1

0
Ответов: 4628
Рейтинг: 749
#2: 2021-08-27 11:43:13 ЛС | профиль | цитата
Serascer писал(а):
попадал только после того как я введу текст
А как программа (или, например, кто-то, сидящий сбоку возле тебя) должен узнать что ты ввел текст (закончил ввод)?
карма: 26

0
Ответов: 133
Рейтинг: 0
#3: 2021-08-27 11:45:32 ЛС | профиль | цитата
Netspirit писал(а):
Serascer писал(а):
попадал только после того как я введу текст
А как программа (или, например, кто-то, сидящий сбоку возле тебя) должен узнать что ты ввел текст (закончил ввод)?

onChange как бы вот это вроде отвечает за это? )
карма: 1

0
Ответов: 4628
Рейтинг: 749
#4: 2021-08-27 15:04:21 ЛС | профиль | цитата
Вроде. Только оно срабатывает на каждую введенную букву. А ты, как я понял, спрашивал "после того как введу текст", то есть, когда введешь весь текст.
Возможно тебе надо событие onEnter - после окончания ввода текста нажимаешь на клавиатуре Enter для выдачи события.
карма: 26

0
Ответов: 133
Рейтинг: 0
#5: 2021-08-27 15:41:49 ЛС | профиль | цитата
Netspirit писал(а):
Вроде. Только оно срабатывает на каждую введенную букву. А ты, как я понял, спрашивал "после того как введу текст", то есть, когда введешь весь текст.
Возможно тебе надо событие onEnter - после окончания ввода текста нажимаешь на клавиатуре Enter для выдачи события.

Да, я знаю про нее, но не удобно это. А если использовать еще один блок FormatStr для всех Edit и объединять с первым при выводе в Мемо?
карма: 1

0
Ответов: 133
Рейтинг: 0
#6: 2021-08-27 18:25:28 ЛС | профиль | цитата
С одной проблемой разобрался ) Помогите пожалуйста с модулем CharSet. Нужно сменить кодировку получаемого текста, взятого из MEMO, с CP1252 на CP1251. Подскажите как это делать.
карма: 1

0
Ответов: 8921
Рейтинг: 823
#7: 2021-08-27 20:23:25 ЛС | профиль | цитата
Serascer, подобные вещи надо делать на Базе Данных
Скажем, у вас изменился список товаров, вы что собираетесь каждый раз изменять списки в схеме и компилировать заново?
хотелки


Add(ChildForm,2730399,392,126)
{
}
BEGIN_SDK
  Add(EditMulti,9733784,42,28)
  {
   WorkCount=1
   Width=685
   Height=326
   link(doWork1,7274384:doEvent1,[(53,34)(53,83)])
  }
  Add(MainForm,16100782,105,42)
  {
   Width=516
   Height=408
   Visible=1
   Caption="Корпус"
   BorderStyle=1
   Position=1
   Point(doShowModal)
  }
  Add(ComboBox,6065265,70,182)
  {
   Left=20
   Top=40
   Width=105
   Height=21
   Strings=#0:|12:2.5″, |12:3,5″, |5:M.2, |7:PCI-E, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(doWidth)
   Point(onMouseMove)
   link(onClick,14127338:doEvent1,[])
   link(onMouseMove,15941200:doData,[(108,202)(108,265)(46,265)(46,300)])
  }
  Add(Label,10206948,70,133)
  {
   Left=20
   Top=20
   Width=75
   Height=17
   Caption="Форм-фактор"
  }
  Add(ComboBox,14452312,154,182)
  {
   Left=20
   Top=90
   Width=105
   Height=21
   Strings=#0:|5:IDE, |6:SATA, |9:PCI-E x2,|9:PCI-E x4,|4:U.2,|4:SAS,|5:SCSI,|0:|
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(onMouseMove)
   Point(doWidth)
   link(onClick,1011230:doEvent1,[])
   link(onMouseMove,6082153:doData,[(192,202)(192,270)(123,270)(123,300)])
  }
  Add(Label,10433440,154,133)
  {
   Left=20
   Top=70
   Width=65
   Height=17
   Caption="Интерфейс"
  }
  Add(ComboBox,2657817,238,182)
  {
   Left=20
   Top=140
   Width=105
   Height=21
   Strings=#0:|14:буфер 128 Мб, |13:буфер 256 Мб,|
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(doWidth)
   Point(onMouseMove)
   link(onClick,7243607:doEvent1,[])
   link(onMouseMove,2213382:doData,[(278,202)(278,272)(214,272)(214,300)])
  }
  Add(FormatStr,883418,448,273)
  {
   DataCount=7
   Mask="%1 %2 %3 %4 %5 %6 %7"
   link(onFString,13250529:doText,[(515,279)(515,307)])
   link(Str1,6065265:String,[(454,250)(83,250)])
   link(Str2,14452312:String,[(461,243)(167,243)])
   link(Str3,2657817:String,[(468,236)(251,236)])
   link(Str4,8942738:String,[(475,229)(342,229)])
   link(Str5,7383357:Value,[(482,229)(580,229)])
   link(Str6,6713380:Value,[(489,236)(622,236)])
   link(Str7,14739846:Value,[(496,243)(671,243)])
  }
  Add(ComboBox,8942738,329,182)
  {
   Left=20
   Top=190
   Width=105
   Height=21
   Strings=#0:|12:5400 об/мин,|12:7200 об/мин,|13:10000 об/мин,|
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(onMouseMove)
   Point(doWidth)
   link(onClick,9678482:doEvent1,[])
   link(onMouseMove,2661438:doData,[(367,202)(367,270)(312,270)(312,300)])
  }
  Add(Label,16574191,238,133)
  {
   Left=20
   Top=120
   Width=59
   Height=17
   Caption="Буфер"
  }
  Add(Memo,13250529,532,280)
  {
   Left=135
   Top=40
   Width=365
   Height=320
  }
  Add(Label,14515376,329,133)
  {
   Left=20
   Top=170
   Width=59
   Height=17
   Caption="Обороты"
  }
  Add(Label,9722165,441,42)
  {
   Left=20
   Top=220
   Width=52
   Height=17
   Caption="Чтение"
   Alignment=2
  }
  Add(Label,15822845,483,42)
  {
   Left=20
   Top=270
   Width=53
   Height=17
   Caption="Запись"
   Alignment=2
  }
  Add(Label,9453449,525,42)
  {
   Left=20
   Top=320
   Height=17
   Caption="TBW"
   Alignment=2
  }
  Add(Edit,7602494,525,91)
  {
   Left=20
   Top=340
   Text=""
   Point(doEnabled)
   link(onChange,826784:doCompare,[])
  }
  Add(Edit,13470322,483,133)
  {
   Left=20
   Top=290
   Text=""
   link(onChange,8916773:doCompare,[])
  }
  Add(Edit,14307822,441,182)
  {
   Left=20
   Top=240
   Text=""
   link(onChange,5360677:doCompare,[])
  }
  Add(Hub,7274384,70,77)
  {
   OutCount=3
   link(onEvent1,16100782:doShowModal,[(95,83)(95,76)])
   link(onEvent2,6045376:doData,[])
   link(onEvent3,13250529:doClear,[(116,97)(116,335)(508,335)(508,293)])
  }
  Add(If_else,826784,567,91)
  {
   Type=5
   Op2=String()
   link(onTrue,516839:doString,[])
   link(onFalse,14739846:doClear,[])
  }
  Add(DoData,6045376,154,84)
  {
   Data=String()
   link(onEventData,16444907:doEvent1,[])
  }
  Add(Hub,16444907,203,84)
  {
   OutCount=3
   link(onEvent1,7602494:doText,[(389,90)(389,97)])
   link(onEvent2,13470322:doText,[(396,97)(396,139)])
   link(onEvent3,14307822:doText,[(424,104)(424,188)])
  }
  Add(FormatStr,516839,616,91)
  {
   DataCount=1
   Mask=" TBW %1 Тб"
   link(onFString,14739846:doValue,[])
  }
  Add(Memory,14739846,665,91)
  {
   Default=String()
   link(onData,11107051:doWork1,[(704,97)])
  }
  Add(If_else,8916773,525,133)
  {
   Type=5
   Op2=String()
   link(onTrue,5370324:doString,[])
   link(onFalse,6713380:doClear,[])
  }
  Add(FormatStr,5370324,567,133)
  {
   DataCount=1
   Mask=" скорсть записи до %1 Мб/с,"
   link(onFString,6713380:doValue,[])
  }
  Add(Memory,6713380,616,133)
  {
   Default=String()
   link(onData,11107051:doWork2,[])
  }
  Add(If_else,5360677,483,182)
  {
   Type=5
   Op2=String()
   link(onTrue,15654513:doString,[])
   link(onFalse,7383357:doClear,[])
  }
  Add(FormatStr,15654513,525,182)
  {
   DataCount=1
   Mask=" скорсть чтения до %1 Мб/с,"
   link(onFString,7383357:doValue,[])
  }
  Add(Memory,7383357,574,182)
  {
   Default=String()
   link(onData,15601099:doWork2,[])
  }
  Add(DoData,14635486,63,287)
  {
   Data=Integer(105)
   link(onEventData,11045879:doWork2,[])
  }
  Add(DoData,15941200,70,294)
  {
   Data=Integer(250)
   link(onEventData,11045879:doWork3,[(109,300)])
  }
  Add(HubEx,11045879,105,287)
  {
   Angle=3
   link(onEvent,6065265:doWidth,[(109,271)(62,271)(62,216)])
  }
  Add(Hub,14127338,119,189)
  {
   link(onEvent1,14634685:doWork2,[(144,195)(144,174)])
   link(onEvent2,14635486:doData,[(137,202)(137,257)(53,257)(53,293)])
  }
  Add(DoData,6734160,140,287)
  {
   Data=Integer(105)
   link(onEventData,8038345:doWork2,[])
  }
  Add(DoData,6082153,147,294)
  {
   Data=Integer(250)
   link(onEventData,8038345:doWork3,[(186,300)])
  }
  Add(HubEx,8038345,182,287)
  {
   Angle=3
   link(onEvent,14452312:doWidth,[(186,254)(144,254)(144,216)])
  }
  Add(Hub,1011230,203,189)
  {
   link(onEvent1,14634685:doWork3,[(228,195)])
   link(onEvent2,6734160:doData,[(220,202)(220,262)(130,262)(130,293)])
  }
  Add(DoData,7127820,238,287)
  {
   Data=Integer(105)
   link(onEventData,4843659:doWork2,[])
  }
  Add(DoData,2213382,245,294)
  {
   Data=Integer(250)
   link(onEventData,4843659:doWork3,[(284,300)])
  }
  Add(HubEx,4843659,280,287)
  {
   Angle=3
   link(onEvent,2657817:doWidth,[(284,254)(229,254)(229,216)])
  }
  Add(Hub,7243607,287,189)
  {
   link(onEvent1,1754641:doWork3,[(312,195)])
   link(onEvent2,7127820:doData,[(309,202)(309,262)(220,262)(220,293)])
  }
  Add(DoData,2262455,329,287)
  {
   Data=Integer(105)
   link(onEventData,6407171:doWork2,[])
  }
  Add(DoData,2661438,336,294)
  {
   Data=Integer(250)
   link(onEventData,6407171:doWork3,[(375,300)])
  }
  Add(HubEx,6407171,371,287)
  {
   Angle=3
   link(onEvent,8942738:doWidth,[(375,258)(319,258)(319,216)])
  }
  Add(Hub,9678482,378,189)
  {
   link(onEvent1,11432323:doWork2,[])
   link(onEvent2,2262455:doData,[(403,202)(403,265)(319,265)(319,293)])
  }
  Add(HubEx,9931570,406,217)
  {
   Angle=1
   link(onEvent,883418:doString,[(410,279)])
  }
  Add(HubEx,11107051,700,133)
  {
   Angle=1
   link(onEvent,15601099:doWork1,[])
  }
  Add(HubEx,15601099,700,182)
  {
   Angle=1
   link(onEvent,9931570:doWork3,[(704,223)])
  }
  Add(HubEx,11432323,406,189)
  {
   Angle=1
   link(onEvent,9931570:doWork1,[])
  }
  Add(HubEx,14634685,224,168)
  {
   link(onEvent,1754641:doWork2,[])
  }
  Add(HubEx,1754641,308,168)
  {
   link(onEvent,11432323:doWork1,[(410,174)])
  }
END_SDK
Add(Button,13021642,343,126)
{
 Left=70
 Top=40
 Width=70
 Caption="SSD/HDD"
 link(onClick,2730399:doWork1,[])
}
Add(MainForm,2849379,273,133)
{
 Width=237
 Height=127
 Caption="Описание товара"
 BorderStyle=1
 Position=1
 Point(doShowModal)
}
карма: 19

0
Ответов: 133
Рейтинг: 0
#8: 2021-08-27 20:47:43 ЛС | профиль | цитата
Леонид писал(а):
Serascer, подобные вещи надо делать на Базе Данных
Скажем, у вас изменился список товаров, вы что собираетесь каждый раз изменять списки в схеме и компилировать заново?
хотелки

Ну как вам сказать, по мере надобности я добавляю в программу новый товар, но в общем и целом это не сложно. А вот то что вы показали это слишком уж усложнено, если честно )) Мой вариант проще ) Но спасибо за помощь.

У меня такой вопрос. Можете подсказать как сделать добавление текста в FormatSTR и далее в MEMO с помощью CheckBox. Т.е. есть несколько флажков например USB, USB 3.2, Type-C и так далее. Нужно ставить галочку напротив каждого из нужных и этот текст добавляется. Объясню для чего это нужно: есть внешние накопители ССД или жесткие диски с несколькими портами. И в описании товара нужно их перечислить. Я могу сделать это просто с ComboBox, но это не всегда удобно, проще галочки поставить )
карма: 1

0
Ответов: 133
Рейтинг: 0
#9: 2021-08-28 16:37:09 ЛС | профиль | цитата
Вот программа кому надо будет ) в общем и целом работает

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2849379,553,336)
{
 Width=289
 Height=187
 Caption="Описание товара"
 BorderStyle=1
 Position=1
 Point(doShowModal)
}
Add(Button,14359719,665,441)
{
 Left=20
 Top=110
 Width=70
 Caption="Материнка"
 link(onClick,5150238:doEvent1,[])
}
Add(Button,15210138,665,399)
{
 Left=20
 Top=80
 Width=70
 Caption="Видеокарта"
 link(onClick,5041428:doEvent1,[])
}
Add(Button,2232691,665,357)
{
 Left=20
 Top=50
 Width=70
 Caption="Монитор"
 link(onClick,3741667:doEvent1,[])
}
Add(ChildForm,4073343,742,315)
{
}
BEGIN_SDK
  Add(EditMulti,5149506,126,0)
  {
   WorkCount=2
   Width=1574
   Height=767
   link(doWork1,2953706:doShowModal,[(147,6)(147,286)])
   link(doWork2,13073498:doClear,[(273,13)(273,377)])
  }
  Add(MainForm,2953706,154,252)
  {
   Width=668
   Height=650
   Visible=1
   Caption="Корпус"
   BorderStyle=1
   Position=1
   Point(doShowModal)
  }
  Add(ComboBox,5019878,294,91)
  {
   Left=20
   Top=40
   Width=105
   Height=21
   Strings=#0:|28:E-ATX, ATX, mATX, Mini-ITX, |21:ATX, mATX, Mini-ITX, |16:mATX, Mini-ITX, |10:Mini-ITX, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(doWidth)
   Point(onMouseDown)
   link(onClick,6463570:doEvent1,[(338,104)(338,66)(289,66)(289,27)])
   link(onMouseDown,5852751:doData,[(338,111)(338,185)(275,185)(275,258)])
  }
  Add(Label,9997514,294,49)
  {
   Left=20
   Top=20
   Width=60
   Height=17
   Caption="Материнки"
  }
  Add(ComboBox,3656158,371,91)
  {
   Left=20
   Top=90
   Width=105
   Height=21
   Strings=#0:|12:Full Tower, |12:Midi-Tower, |12:Mini-Tower, |14:Slim-Desktop, |13:Micro-Tower, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,6701563:doEvent2,[(964,104)(964,160)])
  }
  Add(Label,14543736,371,49)
  {
   Left=20
   Top=70
   Width=75
   Height=17
   Caption="Форм-фактор"
  }
  Add(ComboBox,4789375,434,91)
  {
   Left=20
   Top=140
   Width=105
   Height=21
   Strings=#0:|16:1 x 2,5″, |16:2 x 2,5″, |16:3 x 2,5″, |15:4 x 2,5″,|15:5 x 2,5″,|15:6 x 2,5″,|16:7 x 2,5″, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(doWidth)
   Point(onMouseDown)
   link(onClick,6701563:doEvent3,[(972,104)(972,167)])
  }
  Add(FormatStr,14286909,588,357)
  {
   DataCount=28
   Mask="%1 %2 отсеки: %3 %4 %5 разъёмы: %6 %7 %8 %9 %10 места для вентиляторов: %11 %12, %13, %14, %15, %16, возможность установки СВО: %17 %18 %19 %20 макс. высота кулера CPU %21 мм, макс. длина видеокарты %22 мм, макс. длина блока питания %23 мм, размеры (ШxВxГ): %24x%25x%26 мм, %27 %28"
   link(onFString,13073498:doText,[(852,363)(852,391)])
   link(Str1,5019878:String,[(594,169)(307,169)])
   link(Str2,3656158:String,[(601,169)(384,169)])
   link(Str3,4789375:String,[(608,169)(447,169)])
   link(Str4,1766699:String,[(615,169)(510,169)])
   link(Str5,9210795:String,[(622,169)(571,169)])
   link(Str6,14061903:String,[(629,169)(619,169)])
   link(Str7,7081272:String,[(636,169)(668,169)])
   link(Str8,15454303:String,[(643,171)(724,171)])
   link(Str9,2666735:String,[(650,171)(773,171)])
   link(Str10,5688669:String,[(657,169)(823,169)])
   link(Str11,6692473:String,[(664,169)(867,169)])
   link(Str12,6389865:String,[(671,191)(1245,191)(1245,432)(1006,432)])
   link(Str13,1182065:String,[(678,171)(916,171)])
   link(Str14,13388041:String,[(685,191)(1276,191)(1276,362)(1118,362)])
   link(Str15,6218157:String,[(692,170)(965,170)])
   link(Str16,10990600:String,[(699,191)(1307,191)(1307,474)(1209,474)])
   link(Str17,6602570:Value,[(706,345)(489,345)(489,387)(272,387)])
   link(Str18,14918536:Value,[(713,345)(499,345)(499,464)(286,464)])
   link(Str19,9381854:Value,[(720,345)(646,345)(646,457)(573,457)])
   link(Str20,1897753:Value,[(727,345)(759,345)(759,499)(790,499)])
   link(Str21,1817153:Text,[(734,246)(1054,246)])
   link(Str22,13202541:Text,[(741,246)(1103,246)])
   link(Str23,10822886:Text,[(748,245)(1151,245)])
   link(Str24,10389753:Text,[(755,243)(1203,243)])
   link(Str25,6194061:Text,[(762,245)(1256,245)])
   link(Str26,8428473:Text,[(769,249)(1305,249)])
   link(Str27,937093:String,[(776,254)(1368,254)])
   link(Str28,10576697:String,[(783,251)(1417,251)])
  }
  Add(ComboBox,1766699,497,98)
  {
   Left=20
   Top=190
   Width=105
   Height=21
   Strings=#0:|16:1 x 3,5″, |16:2 x 3,5″, |16:3 x 3,5″, |16:4 x 3,5″, |16:5 x 3,5″, |15:6 x 3,5″,|34:1 x 3,5″ или 1 x 2,5″,|34:2 x 3,5″ или 2 x 2,5″,|34:3 x 3,5″ или 3 x 2,5″,|34:3 x 3,5″ или 1 x 2,5″,|34:3 x 3,5″ или 2 x 2,5″,|35:4 x 3,5″ или 4 x 2,5″, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(onMouseDown)
   Point(doWidth)
   link(onClick,8893879:doEvent1,[(541,111)(541,66)(492,66)(492,27)])
   link(onMouseDown,2900182:doData,[(541,118)(541,188)(485,188)(485,258)])
  }
  Add(Label,13081015,434,49)
  {
   Left=20
   Top=120
   Width=59
   Height=17
   Caption="Отсеки 2,5"
   Alignment=2
  }
  Add(ComboBox,9210795,558,89)
  {
   Left=20
   Top=240
   Width=105
   Height=21
   Strings=#0:|17:1 x 5,25″, |17:2 x 5,25″, |17:3 x 5,25″, |17:4 x 5,25″, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,6701563:doEvent5,[(1034,102)(1034,181)])
  }
  Add(ComboBox,14061903,606,91)
  {
   Left=19
   Top=291
   Width=105
   Height=21
   Strings=#0:|13:1 x USB 2.0, |13:2 x USB 2.0, |13:3 x USB 2.0, |13:4 x USB 2.0, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,6701563:doEvent6,[(1058,104)(1058,188)])
  }
  Add(ComboBox,7081272,655,91)
  {
   Left=20
   Top=340
   Width=105
   Height=21
   Strings=#0:|13:1 x USB 3.0, |13:2 x USB 3.0, |13:3 x USB 3.0, |13:4 x USB 3.0, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,6701563:doEvent7,[(1082,104)(1082,195)])
  }
  Add(Label,14673630,607,47)
  {
   Left=20
   Top=270
   Width=44
   Height=17
   Caption="USB 2.0"
  }
  Add(Label,3832795,657,49)
  {
   Left=20
   Top=320
   Width=44
   Height=17
   Caption="USB 3.0"
  }
  Add(Hub,6701563,1477,147)
  {
   InCount=27
   OutCount=1
   link(onEvent1,14286909:doString,[(1509,153)(1509,363)])
  }
  Add(Memo,13073498,882,364)
  {
   Left=280
   Top=290
   Width=360
   Height=320
  }
  Add(ComboBox,15454303,711,93)
  {
   Left=20
   Top=390
   Width=105
   Height=21
   Strings=#0:|12:1 x Type-C, |13:2 x Type-C,  |
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,6701563:doEvent8,[(1110,106)(1110,202)])
  }
  Add(Label,6037833,706,51)
  {
   Left=20
   Top=370
   Width=38
   Height=17
   Caption="Type-C"
  }
  Add(ComboBox,2666735,760,93)
  {
   Left=20
   Top=440
   Width=105
   Height=21
   Strings=#0:|7:аудио, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,6701563:doEvent9,[(1134,106)(1134,209)])
  }
  Add(Label,7091299,755,51)
  {
   Left=20
   Top=420
   Width=31
   Height=17
   Caption="Audio"
  }
  Add(ComboBox,5688669,810,90)
  {
   Left=20
   Top=490
   Width=105
   Height=21
   Strings=#0:|11:картридер, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,6701563:doEvent10,[(1160,103)(1160,216)])
  }
  Add(Label,10938279,805,48)
  {
   Left=20
   Top=470
   Width=58
   Height=17
   Caption="Картридер"
  }
  Add(ComboBox,6692473,854,91)
  {
   Left=20
   Top=540
   Width=105
   Height=21
   Strings=#0:|15:1 x 80 мм сзади|15:1 x 92 мм сзади|16:1 x 120 мм сзади|23:1 x 80/<wbr>92 мм сзади|24:1 x 90/<wbr>120 мм сзади|32:1 x 80/<wbr>92/<wbr>120 мм сзади|25:1 x 120/<wbr>140 мм сзади|
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(doWidth)
   Point(onMouseDown)
   link(onClick,4702689:doEvent1,[(985,104)(985,27)])
   link(onMouseDown,7851505:doData,[(898,111)(898,185)(842,185)(842,258)])
  }
  Add(Label,27617,856,49)
  {
   Left=20
   Top=520
   Width=61
   Height=17
   Caption="Вент сзади"
  }
  Add(ComboBox,1182065,903,93)
  {
   Left=20
   Top=590
   Width=105
   Height=21
   Strings=#0:|25:1 x 80/<wbr>92 мм спереди|24:1 x 92/<wbr>120 мм сзади|34:1 x 80/<wbr>92/<wbr>120 мм спереди|17:1 x 92 мм спереди|18:1 x 120 мм спереди|18:2 x 120 мм спереди|18:3 x 120 мм спереди|18:1 x 140 мм спереди|18:2 x 140 мм спереди|18:3 x 140 мм спереди|27:1 x 120/<wbr>140 мм спереди|27:2 x 120/<wbr>140 мм спереди|31:2 x 120/<wbr>2 x 140 мм спереди|31:3 x 120/<wbr>2 x 140 мм спереди|31:3 x 120/<wbr>3 x 140 мм спереди|
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(doWidth)
   Point(onMouseDown)
   link(onClick,4250394:doEvent1,[(905,106)(905,27)])
   link(onMouseDown,9092624:doData,[(947,113)(947,189)(891,189)(891,272)])
  }
  Add(Label,14451845,905,51)
  {
   Left=20
   Top=570
   Width=73
   Height=17
   Caption="Вент спереди"
  }
  Add(Label,15539194,557,46)
  {
   Left=20
   Top=220
   Width=65
   Height=17
   Caption="Отсеки 5,25"
   Alignment=2
  }
  Add(Label,6023149,494,46)
  {
   Left=20
   Top=170
   Width=59
   Height=17
   Caption="Отсеки 3,5"
   Alignment=2
  }
  Add(ComboBox,6218157,952,92)
  {
   Left=160
   Top=40
   Width=105
   Height=21
   Strings=#0:|17:1 x 120 мм сверху|17:2 x 120 мм сверху|17:3 x 120 мм сверху|17:1 x 140 мм сверху|17:2 x 140 мм сверху|17:3 x 140 мм сверху|26:1 x 120/<wbr>140 мм сверху|26:2 x 120/<wbr>140 мм сверху|30:2 x 120/<wbr>2 x 140 мм сверху|30:3 x 120/<wbr>2 x 140 мм сверху|
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(onMouseDown)
   Point(doWidth)
   link(onClick,11375396:doEvent1,[(954,105)(954,27)])
   link(onMouseDown,12151921:doData,[(996,112)(996,192)(940,192)(940,272)])
  }
  Add(Label,10580772,952,50)
  {
   Left=160
   Top=20
   Width=65
   Height=17
   Caption="Вент сверху"
   Point(onKillFocus)
  }
  Add(Label,9860539,1050,57)
  {
   Left=160
   Top=220
   Width=67
   Height=17
   Caption="Высота CPU"
  }
  Add(Label,3837462,1099,57)
  {
   Left=160
   Top=270
   Width=63
   Height=17
   Caption="Длина GPU"
   Alignment=2
  }
  Add(ComboBox,937093,1355,99)
  {
   Left=159
   Top=441
   Width=105
   Height=21
   Strings=#0:|21:блок питания сверху, |20:блок питания снизу, |
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(doWidth)
   Point(onMouseDown)
   link(onClick,12354219:doEvent1,[(1399,112)(1399,73)(1353,73)(1353,34)])
   link(onMouseDown,12002782:doData,[(1399,119)(1399,259)(1346,259)(1346,398)])
  }
  Add(ComboBox,10576697,1404,99)
  {
   Left=160
   Top=490
   Width=105
   Height=21
   Strings=#0:|18:без блока питания |6:60 Вт |7:120 Вт |7:200 Вт |7:250 Вт |7:300 Вт |7:350 Вт |7:400 Вт |7:450 Вт |7:500 Вт |7:550 Вт |7:600 Вт |7:650 Вт |7:700 Вт |7:750 Вт |7:800 Вт |
   Text=""
   ReadOnly=0
   DropDownCount=80
   link(onClick,6701563:doEvent22,[(1456,112)(1456,300)])
  }
  Add(Label,14876612,1356,55)
  {
   Left=160
   Top=420
   Width=54
   Height=17
   Caption="Место БП"
  }
  Add(Label,6550928,1406,57)
  {
   Left=160
   Top=470
   Width=75
   Height=17
   Caption="Мощность БП"
  }
  Add(Label,4322901,1200,54)
  {
   Left=160
   Top=370
   Width=33
   Height=17
   Caption="Ш (W)"
   Alignment=2
  }
  Add(Label,8987701,1145,54)
  {
   Left=160
   Top=320
   Width=55
   Height=17
   Caption="Длина БП"
   Alignment=2
  }
  Add(Label,14193719,1250,56)
  {
   Left=200
   Top=370
   Width=28
   Height=17
   Caption="В (H)"
   Alignment=2
  }
  Add(Label,10226035,1299,56)
  {
   Left=240
   Top=370
   Width=38
   Height=17
   Caption="Г (D/L)"
   Alignment=2
  }
  Add(Label,8760511,123,300)
  {
   Left=160
   Top=70
   Width=26
   Height=17
   Caption="СВО"
  }
  Add(Edit,10389753,1197,98)
  {
   Left=160
   Top=390
   Width=30
   Text=""
   link(onChange,6701563:doEvent18,[(1353,104)(1353,272)])
  }
  Add(Edit,6194061,1250,102)
  {
   Left=200
   Top=390
   Width=30
   Text=""
   link(onChange,6701563:doEvent19,[(1380,108)(1380,279)])
  }
  Add(Edit,8428473,1299,109)
  {
   Left=240
   Top=390
   Width=30
   Text=""
   link(onChange,6701563:doEvent20,[(1404,115)(1404,286)])
  }
  Add(Edit,10822886,1145,102)
  {
   Left=160
   Top=340
   Text=""
   link(onChange,6701563:doEvent17,[(1327,108)(1327,265)])
  }
  Add(Edit,13202541,1097,103)
  {
   Left=160
   Top=290
   Text=""
   link(onChange,6701563:doEvent16,[(1303,109)(1303,258)])
  }
  Add(Edit,1817153,1048,103)
  {
   Left=160
   Top=240
   Text=""
   link(onChange,6701563:doEvent15,[(1278,109)(1278,251)])
  }
  Add(ComboBox,6389865,993,550)
  {
   Left=140
   Top=540
   Width=105
   Height=21
   Strings=#0:|24:(установлено 1 x 80 мм) |25:(установлено 1 x 120 мм) |25:(установлено 1 x 140 мм) |
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(onMouseDown)
   Point(doWidth)
   link(onClick,4395883:doEvent1,[(1037,563)(1037,523)(982,523)(982,482)])
   link(onMouseDown,8505858:doData,[(1037,570)(1037,645)(975,645)(975,720)])
  }
  Add(Label,5798985,988,508)
  {
   Left=140
   Top=520
   Width=71
   Height=17
   Caption="Установлено"
  }
  Add(ComboBox,13388041,1105,571)
  {
   Left=140
   Top=590
   Width=105
   Height=21
   Strings=#0:|23:(установлено 1 x 80 мм)|24:(установлено 1 x 120 мм)|24:(установлено 2 x 120 мм)|24:(установлено 3 x 120 мм)|24:(установлено 1 x 140 мм)|24:(установлено 2 x 140 мм)|24:(установлено 3 x 140 мм)|
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(doWidth)
   Point(onMouseDown)
   link(onClick,474653:doEvent1,[(1149,584)(1149,540)(1101,540)(1101,496)])
   link(onMouseDown,11133624:doData,[(1149,591)(1149,652)(1087,652)(1087,713)])
  }
  Add(Label,9125821,1100,529)
  {
   Left=140
   Top=570
   Width=71
   Height=17
   Caption="Установлено"
  }
  Add(ComboBox,10990600,1196,571)
  {
   Left=280
   Top=40
   Width=105
   Height=21
   Strings=#0:|24:(установлено 1 x 120 мм)|24:(установлено 2 x 120 мм)|24:(установлено 3 x 120 мм)|24:(установлено 1 x 140 мм)|24:(установлено 2 x 140 мм)|24:(установлено 3 x 140 мм)|
   Text=""
   ReadOnly=0
   DropDownCount=80
   Point(onMouseDown)
   Point(doWidth)
   link(onClick,2842974:doEvent1,[(1240,584)(1240,536)(1192,536)(1192,489)])
   link(onMouseDown,7086888:doData,[(1240,591)(1240,645)(1178,645)(1178,706)])
  }
  Add(Label,2832210,1191,529)
  {
   Left=280
   Top=20
   Width=71
   Height=17
   Caption="Установлено"
  }
  Add(Hub,11375396,959,21)
  {
   link(onEvent1,6701563:doEvent13,[(1264,27)(1264,237)])
   link(onEvent2,2824341:doData,[(985,34)(985,118)(940,118)(940,202)])
  }
  Add(Hub,10643862,1008,21)
  {
   link(onEvent1,6701563:doEvent14,[(1256,27)(1256,244)])
  }
  Add(Hub,4250394,917,21)
  {
   link(onEvent1,6406485:doData,[(943,27)(943,111)(891,111)(891,202)])
   link(onEvent2,6701563:doEvent12,[(1264,34)(1264,230)])
  }
  Add(Hub,4702689,868,21)
  {
   link(onEvent1,6701563:doEvent11,[(1284,27)(1284,223)])
   link(onEvent2,8744659:doData,[(894,34)(894,111)(842,111)(842,188)])
  }
  Add(Hub,8893879,504,21)
  {
   link(onEvent1,6701563:doEvent4,[(998,27)(998,174)])
   link(onEvent2,1374427:doData,[(530,34)(530,111)(485,111)(485,188)])
  }
  Add(Hub,12354219,1365,28)
  {
   link(onEvent1,6701563:doEvent21,[(1428,34)(1428,293)])
   link(onEvent2,14292498:doData,[(1391,41)(1391,199)(1346,199)(1346,356)])
  }
  Add(Hub,6463570,301,21)
  {
   link(onEvent1,6701563:doEvent1,[(896,27)(896,153)])
   link(onEvent2,5498366:doData,[(327,34)(327,111)(275,111)(275,188)])
  }
  Add(Hub,2842974,1204,483)
  {
   link(onEvent1,6701563:doEvent25,[(1228,489)(1228,321)])
   link(onEvent2,2300842:doData,[(1230,496)(1230,573)(1178,573)(1178,664)])
  }
  Add(Hub,474653,1113,490)
  {
   link(onEvent1,6701563:doEvent23,[(1204,496)(1204,307)])
   link(onEvent2,3150592:doData,[(1139,503)(1139,583)(1087,583)(1087,664)])
  }
  Add(Hub,4395883,994,476)
  {
   link(onEvent1,6701563:doEvent24,[(1176,482)(1176,314)])
   link(onEvent2,14963844:doData,[(1020,489)(1020,580)(975,580)(975,671)])
  }
  Add(DoData,14963844,987,665)
  {
   Data=Integer(105)
   link(onEventData,8481708:doEvent1,[(1027,671)(1027,699)])
  }
  Add(DoData,8505858,987,714)
  {
   Data=Integer(250)
   link(onEventData,8481708:doEvent2,[(1027,720)(1027,706)])
  }
  Add(Hub,8481708,1036,693)
  {
   InCount=2
   OutCount=1
   link(onEvent1,6389865:doWidth,[(1062,699)(1062,649)(981,649)(981,598)])
  }
  Add(DoData,3150592,1099,658)
  {
   Data=Integer(105)
   link(onEventData,11794616:doEvent1,[(1139,664)(1139,692)])
  }
  Add(DoData,11133624,1099,707)
  {
   Data=Integer(250)
   link(onEventData,11794616:doEvent2,[(1139,713)(1139,699)])
  }
  Add(Hub,11794616,1148,686)
  {
   InCount=2
   OutCount=1
   link(onEvent1,13388041:doWidth,[(1174,692)(1174,656)(1093,656)(1093,619)])
  }
  Add(DoData,2300842,1190,658)
  {
   Data=Integer(105)
   link(onEventData,5313652:doEvent1,[(1230,664)(1230,685)])
  }
  Add(DoData,7086888,1190,700)
  {
   Data=Integer(250)
   link(onEventData,5313652:doEvent2,[(1230,706)(1230,692)])
  }
  Add(Hub,5313652,1239,679)
  {
   InCount=2
   OutCount=1
   link(onEvent1,10990600:doWidth,[(1265,685)(1265,648)(1184,648)(1184,619)])
  }
  Add(DoData,14292498,1358,350)
  {
   Data=Integer(105)
   link(onEventData,9530203:doEvent1,[(1398,356)(1398,377)])
  }
  Add(DoData,12002782,1358,392)
  {
   Data=Integer(250)
   link(onEventData,9530203:doEvent2,[(1398,398)(1398,384)])
  }
  Add(Hub,9530203,1407,371)
  {
   InCount=2
   OutCount=1
   link(onEvent1,937093:doWidth,[(1433,377)(1433,262)(1343,262)(1343,147)])
  }
  Add(DoData,2824341,952,196)
  {
   Data=Integer(105)
   link(onEventData,15404644:doEvent1,[(957,202)(957,244)])
  }
  Add(DoData,12151921,952,266)
  {
   Data=Integer(250)
   link(onEventData,15404644:doEvent2,[(957,272)(957,251)])
  }
  Add(Hub,15404644,966,238)
  {
   InCount=2
   OutCount=1
   link(onEvent1,6218157:doWidth,[(992,244)(992,192)(940,192)(940,140)])
  }
  Add(DoData,6406485,903,196)
  {
   Data=Integer(105)
   link(onEventData,10957771:doEvent1,[(908,202)(908,237)])
  }
  Add(DoData,9092624,903,266)
  {
   Data=Integer(250)
   link(onEventData,10957771:doEvent2,[(908,272)(908,244)])
  }
  Add(Hub,10957771,917,231)
  {
   InCount=2
   OutCount=1
   link(onEvent1,1182065:doWidth,[(943,237)(943,189)(898,189)(898,141)])
  }
  Add(DoData,8744659,854,182)
  {
   Data=Integer(105)
   link(onEventData,11899210:doEvent1,[(859,188)(859,230)])
  }
  Add(DoData,7851505,854,252)
  {
   Data=Integer(250)
   link(onEventData,11899210:doEvent2,[(859,258)(859,237)])
  }
  Add(Hub,11899210,868,224)
  {
   InCount=2
   OutCount=1
   link(onEvent1,6692473:doWidth,[(894,230)(894,184)(842,184)(842,139)])
  }
  Add(DoData,1374427,497,182)
  {
   Data=Integer(105)
   link(onEventData,16679794:doEvent1,[(502,188)(502,230)])
  }
  Add(DoData,2900182,497,252)
  {
   Data=Integer(250)
   link(onEventData,16679794:doEvent2,[(502,258)(502,237)])
  }
  Add(Hub,16679794,511,224)
  {
   InCount=2
   OutCount=1
   link(onEvent1,1766699:doWidth,[(537,230)(537,184)(485,184)(485,146)])
  }
  Add(DoData,5498366,287,182)
  {
   Data=Integer(105)
   link(onEventData,9507274:doEvent1,[(292,188)(292,230)])
  }
  Add(DoData,5852751,287,252)
  {
   Data=Integer(250)
   link(onEventData,9507274:doEvent2,[(292,258)(292,237)])
  }
  Add(Hub,9507274,301,224)
  {
   InCount=2
   OutCount=1
   link(onEvent1,5019878:doWidth,[(327,230)(327,184)(282,184)(282,139)])
  }
  Add(CheckBox,3216548,126,343)
  {
   Left=160
   Top=90
   Width=40
   Caption="Нет"
   link(onCheck,11027859:doCase,[])
  }
  Add(FormatStr,11012626,210,343)
  {
   DataCount=5
   Mask="нет,"
   Point(FString)
   link(onFString,6602570:doValue,[])
  }
  Add(Memory,6602570,266,343)
  {
   link(onData,8954373:doEvent4,[])
  }
  Add(Case,11027859,168,343)
  {
   Value=String(1)
   link(onNextCase,6602570:doClear,[(233,349)(233,356)])
   link(onTrue,11012626:doString,[(205,356)(205,349)])
  }
  Add(Hub,8954373,357,322)
  {
   InCount=4
   OutCount=1
   link(onEvent1,6701563:doEvent26,[])
  }
  Add(CheckBox,4862289,133,469)
  {
   Left=230
   Top=90
   Caption="120"
   link(onCheck,7745744:doCase,[])
  }
  Add(Label,10101775,644,413)
  {
   Left=380
   Top=70
   Width=35
   Height=17
   Caption="Сзади"
  }
  Add(CheckBox,15017078,644,455)
  {
   Left=380
   Top=90
   Caption="120"
   link(onCheck,4461828:doCase,[])
  }
  Add(FormatStr,1220510,728,455)
  {
   DataCount=5
   Mask=" сзади 120 мм,"
   Point(FString)
   link(onFString,1897753:doValue,[])
  }
  Add(Memory,1897753,784,455)
  {
   link(onData,8954373:doEvent3,[(828,461)(828,401)(345,401)(345,342)])
  }
  Add(Case,4461828,686,455)
  {
   Value=String(1)
   link(onNextCase,1897753:doClear,[(751,461)(751,468)])
   link(onTrue,1220510:doString,[(723,468)(723,461)])
  }
  Add(CheckBox,16583471,137,515)
  {
   Left=230
   Top=110
   Caption="140"
   link(onCheck,418417:doCase,[(175,521)(175,517)])
  }
  Add(CheckBox,11066091,137,557)
  {
   Left=230
   Top=130
   Caption="240"
   link(onCheck,2519193:doCase,[(175,563)(175,559)])
  }
  Add(CheckBox,14974472,137,599)
  {
   Left=230
   Top=150
   Caption="280"
   link(onCheck,10656957:doCase,[(175,605)(175,601)])
  }
  Add(CheckBox,10314720,137,641)
  {
   Left=230
   Top=170
   Caption="360"
   link(onCheck,2307386:doCase,[(175,647)(175,643)])
  }
  Add(CheckBox,5996107,420,460)
  {
   Left=310
   Top=90
   Caption="120"
   link(onCheck,11866828:doCase,[(457,466)(457,461)])
  }
  Add(CheckBox,7869653,424,499)
  {
   Left=310
   Top=110
   Caption="140"
   link(onCheck,6777786:doCase,[(462,505)(462,503)])
  }
  Add(CheckBox,14484346,424,541)
  {
   Left=310
   Top=130
   Caption="240"
   link(onCheck,2897860:doCase,[(462,547)(462,545)])
  }
  Add(CheckBox,9794169,424,583)
  {
   Left=310
   Top=150
   Caption="280"
   link(onCheck,13249511:doCase,[(462,589)(462,587)])
  }
  Add(CheckBox,494150,424,625)
  {
   Left=310
   Top=170
   Caption="360"
   link(onCheck,7016576:doCase,[(462,631)(462,629)])
  }
  Add(Button,3600746,868,444)
  {
   Left=570
   Top=260
   Width=70
   Caption="Копировать"
   link(onClick,14628309:doPutText,[(916,450)(916,447)])
  }
  Add(Clipboard,14628309,931,441)
  {
   Point(PutText)
   link(PutText,13073498:Text,[(937,428)(888,428)])
  }
  Add(FormatStr,13475695,224,469)
  {
   DataCount=5
   Mask="120/<wbr>"
   Point(FString)
   link(onFString,14622980:doValue,[])
  }
  Add(Memory,14622980,280,469)
  {
   link(onData,15251134:doEvent1,[(338,475)(338,545)])
  }
  Add(Case,7745744,175,469)
  {
   Value=String(1)
   link(onNextCase,14622980:doClear,[(240,475)(240,482)])
   link(onTrue,13475695:doString,[(212,482)(212,475)])
  }
  Add(FormatStr,14202689,224,511)
  {
   DataCount=5
   Mask="140/<wbr>"
   Point(FString)
   link(onFString,2702523:doValue,[])
  }
  Add(Memory,2702523,280,511)
  {
   link(onData,15251134:doEvent2,[(338,517)(338,552)])
  }
  Add(Case,418417,182,511)
  {
   Value=String(1)
   link(onNextCase,2702523:doClear,[(248,517)(248,524)])
   link(onTrue,14202689:doString,[(219,524)(219,517)])
  }
  Add(FormatStr,12591778,224,553)
  {
   DataCount=5
   Mask="240"
   Point(FString)
   link(onFString,6915530:doValue,[])
  }
  Add(Memory,6915530,280,553)
  {
   link(onData,15251134:doEvent3,[])
  }
  Add(Case,2519193,182,553)
  {
   Value=String(1)
   link(onNextCase,6915530:doClear,[(247,559)(247,566)])
   link(onTrue,12591778:doString,[(219,566)(219,559)])
  }
  Add(FormatStr,9108921,224,595)
  {
   DataCount=5
   Mask="/<wbr>280"
   Point(FString)
   link(onFString,778940:doValue,[])
  }
  Add(Memory,778940,280,595)
  {
   link(onData,15251134:doEvent4,[(338,601)(338,566)])
  }
  Add(Case,10656957,182,595)
  {
   Value=String(1)
   link(onNextCase,778940:doClear,[(247,601)(247,608)])
   link(onTrue,9108921:doString,[(219,608)(219,601)])
  }
  Add(FormatStr,873350,224,637)
  {
   DataCount=5
   Mask="/<wbr>360"
   Point(FString)
   link(onFString,5594441:doValue,[])
  }
  Add(Memory,5594441,280,637)
  {
   link(onData,15251134:doEvent5,[(338,643)(338,573)])
  }
  Add(Case,2307386,182,637)
  {
   Value=String(1)
   link(onNextCase,5594441:doClear,[(250,643)(250,650)])
   link(onTrue,873350:doString,[(219,650)(219,643)])
  }
  Add(FormatStr,7553189,511,455)
  {
   DataCount=5
   Mask="120/<wbr>"
   Point(FString)
   link(onFString,4353085:doValue,[])
  }
  Add(Memory,4353085,567,455)
  {
   link(onData,450390:doEvent1,[(607,461)(607,510)])
  }
  Add(Case,11866828,462,455)
  {
   Value=String(1)
   link(onNextCase,4353085:doClear,[(526,461)(526,468)])
   link(onTrue,7553189:doString,[(499,468)(499,461)])
  }
  Add(FormatStr,1090169,511,497)
  {
   DataCount=5
   Mask="140/<wbr>"
   Point(FString)
   link(onFString,4164430:doValue,[])
  }
  Add(Memory,4164430,567,497)
  {
   link(onData,450390:doEvent2,[(607,503)(607,517)])
  }
  Add(Case,6777786,469,497)
  {
   Value=String(1)
   link(onNextCase,4164430:doClear,[(534,503)(534,510)])
   link(onTrue,1090169:doString,[(506,510)(506,503)])
  }
  Add(FormatStr,16024366,511,539)
  {
   DataCount=5
   Mask="240"
   Point(FString)
   link(onFString,11653908:doValue,[])
  }
  Add(Memory,11653908,567,539)
  {
   link(onData,450390:doEvent3,[(607,545)(607,524)])
  }
  Add(Case,2897860,469,539)
  {
   Value=String(1)
   link(onNextCase,11653908:doClear,[(534,545)(534,552)])
   link(onTrue,16024366:doString,[(506,552)(506,545)])
  }
  Add(FormatStr,403770,511,581)
  {
   DataCount=5
   Mask="/<wbr>280"
   Point(FString)
   link(onFString,10474139:doValue,[])
  }
  Add(Memory,10474139,567,581)
  {
   link(onData,450390:doEvent4,[(607,587)(607,531)])
  }
  Add(Case,13249511,469,581)
  {
   Value=String(1)
   link(onNextCase,10474139:doClear,[(534,587)(534,594)])
   link(onTrue,403770:doString,[(506,594)(506,587)])
  }
  Add(FormatStr,15445588,511,623)
  {
   DataCount=5
   Mask="/<wbr>360"
   Point(FString)
   link(onFString,12705336:doValue,[])
  }
  Add(Memory,12705336,567,623)
  {
   link(onData,450390:doEvent5,[(607,629)(607,538)])
  }
  Add(Case,7016576,469,623)
  {
   Value=String(1)
   link(onNextCase,12705336:doClear,[(537,629)(537,636)])
   link(onTrue,15445588:doString,[(506,636)(506,629)])
  }
  Add(CheckBox,3254798,133,413)
  {
   Left=210
   Top=70
   Width=65
   Caption="Спереди"
   link(onCheck,16514790:doCase,[])
  }
  Add(CheckBox,1593480,389,410)
  {
   Left=290
   Top=70
   Width=60
   Caption="Сверху"
   link(onCheck,5830047:doCase,[(413,416)(413,419)])
  }
  Add(FormatStr,4891248,224,420)
  {
   DataCount=5
   Mask="спереди %1 %2 %3 %4 %5 мм,"
   Point(FString)
   link(onFString,14918536:doValue,[])
   link(Str1,14622980:Value,[(230,408)(258,408)(258,513)(286,513)])
   link(Str2,2702523:Value,[(237,408)(261,408)(261,555)(286,555)])
   link(Str3,6915530:Value,[(244,408)(265,408)(265,597)(286,597)])
   link(Str4,778940:Value,[(251,408)(269,408)(269,639)(286,639)])
   link(Str5,5594441:Value,[(258,408)(272,408)(272,681)(286,681)])
  }
  Add(Memory,14918536,280,420)
  {
   link(onData,8954373:doEvent1,[(334,426)(334,328)])
  }
  Add(Case,16514790,175,413)
  {
   Value=String(1)
   link(onNextCase,14918536:doClear,[(240,419)(240,433)])
   link(onTrue,11034610:doWork2,[])
  }
  Add(FormatStr,6817070,511,413)
  {
   DataCount=5
   Mask=" сверху %1 %2 %3 %4 %5 мм,"
   Point(FString)
   link(onFString,9381854:doValue,[])
   link(Str1,4353085:Value,[(517,401)(545,401)(545,499)(573,499)])
   link(Str2,4164430:Value,[(524,401)(548,401)(548,541)(573,541)])
   link(Str3,11653908:Value,[(531,401)(552,401)(552,583)(573,583)])
   link(Str4,10474139:Value,[(538,401)(556,401)(556,625)(573,625)])
   link(Str5,12705336:Value,[(545,401)(559,401)(559,667)(573,667)])
  }
  Add(Memory,9381854,567,413)
  {
   link(onData,8954373:doEvent2,[(611,419)(611,377)(345,377)(345,335)])
  }
  Add(Case,5830047,434,413)
  {
   Value=String(1)
   link(onNextCase,9954110:doWork2,[])
   link(onTrue,4024717:doWork2,[])
  }
  Add(Hub,15251134,364,539)
  {
   InCount=5
   OutCount=1
   link(onEvent1,11034610:doWork3,[(390,545)(390,487)(214,487)])
  }
  Add(HubEx,11034610,210,420)
  {
   link(onEvent,4891248:doString,[])
  }
  Add(Hub,450390,616,504)
  {
   InCount=5
   OutCount=1
   link(onEvent1,4024717:doWork3,[(642,510)(642,470)(480,470)])
  }
  Add(HubEx,9954110,497,413)
  {
   link(onEvent,9381854:doClear,[(527,419)(527,426)])
  }
  Add(HubEx,4024717,476,420)
  {
   link(onEvent,6817070:doString,[(499,426)(499,419)])
  }
END_SDK
Add(Button,12021518,665,315)
{
 Left=20
 Top=20
 Width=70
 Caption="Корпус"
 link(onClick,15184960:doEvent1,[])
}
Add(ChildForm,5605275,742,441)
{
}
BEGIN_SDK
  Add(EditMulti,6698239,175,175)
  {
   WorkCount=2
   Width=1483
   Height=550
   link(doWork1,5181887:doShowModal,[(189,181)(189,335)])
   link(doWork2,8666699:doClear,[(913,188)(913,384)])
  }
  Add(MainForm,5181887,196,301)
  {
   Width=861
   Height=461
   Visible=1
   Caption="Материнская плата"
   BorderStyle=1
   Position=1
   Point(doShowModal)
  }
  Add(ComboBox,14200084,273,245)
  {
   Left=25
   Top=40
   Width=105
   Height=21
   Strings=#0:|5:ATX, |6:mATX, |10:mini-ITX, |6:EATX, |
   Text=""
   ReadOnly=0
   DropDownCount=86
   link(onClick,3919024:doEvent23,[(849,258)(849,552)])
  }
  Add(Label,1277859,273,203)
  {
   Left=25
   Top=20
   Width=64
   Height=17
   Caption="Форм-Ф"
   Alignment=2
  }
  Add(ComboBox,2694625,322,245)
  {
   Left=25
   Top=90
   Width=105
   Height=21
   Strings=#0:|12:Сокет 1151, |14:Сокет 1151v2, |12:Сокет 1200, |14:Сокет 2011-3, |12:Сокет 2066, |12:Сокет 3647, |11:Сокет AM3, |11:Сокет AM4, |11:Сокет TR4, |13:Сокет STRX4, |11:Сокет SP3, |
   Text=""
   ReadOnly=0
   DropDownCount=86
   link(onClick,3919024:doEvent22,[(874,258)(874,545)])
  }
  Add(Label,10652761,322,203)
  {
   Left=25
   Top=70
   Width=64
   Height=17
   Caption="Сокет"
   Alignment=2
  }
  Add(ComboBox,6519047,364,245)
  {
   Left=25
   Top=140
   Width=105
   Height=21
   Strings=#0:|12:Intel B250, |12:Intel B360, |12:Intel B365, |12:Intel B460, |12:Intel B560, |12:Intel C246, |12:Intel C422, |12:Intel C622, |12:Intel H110, |12:Intel H270, |12:Intel H310, |12:Intel H370, |12:Intel H410, |12:Intel H510, |12:Intel H570, |12:Intel Q270, |12:Intel Q370, |12:Intel Q470, |12:Intel W480, |12:Intel X299, |11:Intel X99, |12:Intel Z270, |12:Intel Z370, |12:Intel Z390, |12:Intel Z490, |12:Intel Z590, |10:AMD 760G, |10:AMD A320, |10:AMD A520, |10:AMD B350, |10:AMD 

[size=9]--- Добавлено в 2021-08-28 17:32:25[/size]

Подскажите, почему в программе нормально русский отображается, а если скопировать текст куда угодно - там кракозябры?

[color=gray][size=9]Редактировалось 2 раз(а), последний 2021-08-28 17:32:40[/size][/color]
карма: 1

0
Ответов: 133
Рейтинг: 0
#10: 2021-08-28 17:38:26 ЛС | профиль | цитата
Подскажите, почему в окне программы нормальный русский, а если скопировать текст куда-либо (блокнот, браузер), то там кракозябры?
карма: 1

0
Ответов: 1343
Рейтинг: 31
#11: 2021-08-29 18:46:16 ЛС | профиль | цитата
Serascer писал(а):
Подскажите, почему в окне программы нормальный русский, а если скопировать текст куда-либо (блокнот, браузер), то там кракозябры?


перед копированием данных из программы нужно переключаться на русскую раскладку, можно делать это автоматически, компонентом "переключатель языков"
карма: 2

0
Ответов: 133
Рейтинг: 0
#12: 2021-08-29 18:59:01 ЛС | профиль | цитата
Rysik писал(а):
Serascer писал(а):
перед копированием данных из программы нужно переключаться на русскую раскладку, можно делать это автоматически, компонентом "переключатель языков"


Спасибо большое, все получилось!

Редактировалось 2 раз(а), последний 2021-08-29 19:34:43
карма: 1

0
Ответов: 1343
Рейтинг: 31
#13: 2021-08-29 20:31:06 ЛС | профиль | цитата
Serascer писал(а):
как увеличить ширину строк в выпадающем списке ComboBox


вопрос актуален, ибо даже подсказок нету при наведении на один из пунктов
карма: 2

0
Ответов: 494
Рейтинг: 163
#14: 2021-08-29 23:32:51 ЛС | профиль | цитата
Serascer писал(а):
У меня такой вопрос. Можете подсказать как сделать добавление текста в FormatSTR и далее в MEMO с помощью CheckBox. Т.е. есть несколько флажков например USB, USB 3.2, Type-C и так далее. Нужно ставить галочку напротив каждого из нужных и этот текст добавляется. Объясню для чего это нужно: есть внешние накопители ССД или жесткие диски с несколькими портами. И в описании товара нужно их перечислить. Я могу сделать это просто с ComboBox, но это не всегда удобно, проще галочки поставить )

Serascer, когда-то схожая задача была, пошёл путём "колхоза" нагородил такой вариант, может и пригодится такая идея
Пример

Add(ComboBox,11505514,91,182)
{
 Left=15
 Top=75
 Width=180
 Height=21
 Strings=#1:1|1:2|1:3|
}
Add(MainForm,2953706,35,35)
{
 Top=2
 Width=447
 Height=201
 Position=1
 link(onCreate,9572740:doSetFocus,[])
}
Add(ListBox,8924501,224,77)
{
 Left=15
 Top=45
 Width=180
 Height=21
 Font=[MS Sans Serif,10,0,0,204]
 Name="sp+"
 Strings=#3:USB|5:USB 2|7:USB 3.2|6:Type-C|
 MultiSelect=0
 Point(SelectArray)
 Point(doHeight)
}
Add(Button,13807484,84,105)
{
 Left=175
 Top=47
 Width=18
 Height=17
 Font=[Webdings,10,0,0,2]
 Caption="6"
 Point(doCaption)
 link(onClick,5569828:doEvent1,[])
}
Add(Switch,2213378,168,105)
{
 DataOn=Integer(70)
 DataOff=Integer(21)
 Point(onOn)
 Point(onOff)
 link(onSwitch,8924501:doHeight,[])
 link(onOff,6444800:doEvent1,[(208,125)(208,139)])
}
Add(ComboBox,9572740,91,21)
{
 Left=15
 Top=10
 Width=180
 Height=21
 Strings=#3:USB|5:USB 2|7:USB 3.2|6:Type-C|
 Text="USB"
 Point(doSetFocus)
}
Add(Switch,12421892,42,105)
{
 DataOn=String(4)
 DataOff=String(6)
 link(onSwitch,13807484:doCaption,[])
}
Add(Hub,5569828,126,105)
{
 link(onEvent1,2213378:doSwitch,[])
 link(onEvent2,12421892:doSwitch,[(148,118)(148,93)(29,93)(29,111)])
}
Add(Memo,16717496,539,175)
{
 Left=215
 Top=10
 Width=205
 Height=55
}
Add(ArrayEnum,3791885,245,161)
{
 link(onItem,14622725:doCompare,[])
 link(onEndEnum,3339556:doData,[(292,174)(292,202)])
 link(Array,8924501:SelectArray,[])
}
Add(ArrayRW,8125505,357,161)
{
 link(onRead,3320824:doStrCat,[])
 link(Array,8924501:Array,[(363,130)(244,130)])
 link(Index,3791885:Index,[(370,153)(345,153)(345,212)(258,212)])
}
Add(If_else,14622725,301,161)
{
 Op2=Integer(1)
 link(onTrue,8125505:doRead,[])
}
Add(Hub,6444800,217,133)
{
 OutCount=3
 link(onEvent2,13927386:doClear,[])
 link(onEvent3,3791885:doEnum,[(238,153)(238,167)])
}
Add(StrCat,13927386,483,133)
{
 Point(doClear)
 link(Str1,8955665:Var1,[(489,120)(474,120)(474,180)])
}
Add(DoData,3339556,483,196)
{
 PColor(onEventData,16711680)
 link(onEventData,16717496:doText,[])
 link(Data,8955665:Var2,[])
}
Add(StrCat,3320824,413,161)
{
 Str2="; "
 Point(doClear)
 link(onStrCat,13927386:doStrCat,[(467,167)(467,139)])
}
Add(GetDataEx,8955665,483,175)
{
 link(Data,13927386:Result,[])
}


Редактировалось 1 раз(а), последний 2021-08-29 23:34:40
карма: 4

0
Разработчик
Ответов: 26113
Рейтинг: 2126
#15: 2021-08-30 14:05:31 ЛС | профиль | цитата
Rysik писал(а):
вопрос актуален, ибо даже подсказок нету при наведении на один из пунктов

Прототип подсказки к пунктам длиннее ширины списка

Схема

Add(MainForm,10377423,266,231)
{
 Width=730
 Height=295
 Point(onMouseEnter)
}
Add(ComboBox,7723821,378,161)
{
 Left=75
 Top=30
 Width=155
 Height=21
 Strings=#44:12321455549839590752729090702702720752096502|5:11113|34:5739639639639639863986853963939893|5:11122|5:45464|5:67867|5:87867|5:34535|5:56546|5:46464|5:46546|
 ReadOnly=0
 Point(PHandle)
 Point(onMouseLeave)
 Point(onMouseEnter)
 Point(onMouseWheel)
 link(onMouseEnter,995737:doWork2,[(417,188)(417,153)(326,153)(326,244)])
}
Add(InlineCode,3059356,392,231)
{
 WorkPoints=#13:doGetTrackIdx|
 EventPoints=#13:onGetTrackIdx|13:onGetTrackTxt|12:onMouseLeave|
 VarPoints=#7:sHandle|
 DataPoints=#7:PHandle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Windows,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|24:     sControl: PControl;|25:     Info: TComboBoxInfo;|9:   public|19:     onGetTrackIdx,|19:     onGetTrackTxt,|18:     onMouseLeave,|24:     PHandle: THI_Event;|58:     procedure doGetTrackIdx(var _Data:TData; Index:word);|57:     procedure sHandle(var _Data:TData; Index:word);     |34:     destructor Destroy; override;|5: end;|0:|14:implementation|0:|3:var|23:  sDefWndProc: Pointer;|22:  global: integer = 0;|22:  fclass: THiAsmClass;|26:  Track: TTrackMouseEvent;|33:  Size_Params: TNCCalcSizeParams;|24:  itemidx: integer = -1;|15:  aRect: TRect;|17:  dRect: TRect;  |0:|88:function MyWndProc(wnd: THandle; wMsg: Cardinal; wParam, lParam: DWORD): DWORD; stdcall;|3:var|18:  i, len: integer;|16:  inRect: TRect;|23:  xPos, yPos: smallint;|16:  buffer: PChar;|13:  st: string;|11:  pDC: HDC;|18:  hOldFont: HFONT;|20:  SizeFont: TSize;  |5:begin|14:  case wMsg of|14:	WM_MOUSEMOVE:|10:    begin;|47:      i:= SendMessage(wnd, LB_GETCURSEL, 0, 0);|61:      SendMessage(wnd, LB_GETITEMRECT, i, cardinal(@inRect));|29:      xPos := LOWORD(lParam);|34:	  yPos := HIWORD(lParam);        |0:|38:      Track.cbSize := Sizeof( Track );|33:      Track.dwFlags := TME_LEAVE;|29:      Track.hwndTrack := wnd;|29:      TrackMouseEvent(Track);|12:		          |23:      if yPos >= 0 then|12:      begin |29:        if i <> itemidx  then|13:        begin|55:          len := SendMessage(wnd, LB_GETTEXTLEN, i, 0);|34:          GetMem(buffer, len + 1);|59:          SendMessage(wnd, LB_GETTEXT, i, integer(buffer));|37:          SetString(st, buffer, len);|26:          FreeMem(buffer);|22:		  pDC := GetDC(wnd);|69:          hOldFont := SelectObject(pDC, fclass.sControl.Font.Handle);|69:          GetTextExtentPoint32(pDC, PChar(st), Length(st), SizeFont);|38:          SelectObject(pDC, hOldFont);|24:          DeleteDC(pDC);|47:          _hi_onEvent(fclass.onGetTrackIdx, i);|66:		  if SizeFont.cx > (dRect.Right - dRect.Left) then 		           |50:            _hi_onEvent(fclass.onGetTrackTxt, st);|14:        end;  |21:        itemidx := i;|10:      end;|10:    end;  |18:    WM_NCCALCSIZE:|9:    begin|48:      Size_Params := PNCCalcSizeParams(lParam)^;|35:      aRect := Size_Params.rgrc[1];|11:	end;      |12:    WM_SIZE:|6:	begin|43://      ShowScrollBar(wnd, SB_VERT, false);|10:    end;  |18:    WM_MOUSELEAVE:|9:    begin|20:      itemidx := -1;|39:      _hi_onEvent(fclass.onMouseLeave);|11:      exit;|8:    end;|6:  end;|67:  Result := CallWindowProc(sDefWndProc, wnd, wMsg, wParam, lParam);|4:end;|0:|31:destructor THiAsmClass.Destroy;|5:begin|38:  if not Assigned(sControl) then exit;|34:  ZeroMemory(@Info, SizeOf(Info));|30:  Info.cbSize := SizeOf(Info);|41:  GetComboBoxInfo(sControl.Handle, Info);|68:  SetWindowLong(Info.hwndList, GWL_WNDPROC, cardinal(@sDefWndProc));|16:  inherited;    |6:end;  |0:|65:procedure THiAsmClass.doGetTrackIdx(var _Data:TData; Index:word);|5:begin|48:  sControl := PControl(ToIntegerEvent(PHandle));|38:  if not Assigned(sControl) then exit;|0:|34:  ZeroMemory(@Info, SizeOf(Info));|30:  Info.cbSize := SizeOf(Info);|41:  GetComboBoxInfo(sControl.Handle, Info);|0:|20:  if global = 0 then|7:  begin|70:    sDefWndProc := Pointer(GetWindowLong(Info.hwndList, GWL_WNDPROC));|68:    SetWindowLong(Info.hwndList, GWL_WNDPROC, cardinal(@MyWndProc));|43:    GetWindowRect(Info.hwndList,dRect);    |16:    global := 1;|19:    fclass := Self;|10:  end;    |4:end;|0:|59:procedure THiAsmClass.sHandle(var _Data:TData; Index:word);|5:begin|48:  sControl := PControl(ToIntegerEvent(PHandle));|38:  if not Assigned(sControl) then exit;|0:|34:  ZeroMemory(@Info, SizeOf(Info));|30:  Info.cbSize := SizeOf(Info);|41:  GetComboBoxInfo(sControl.Handle, Info);|2:  |33:  dtInteger(_Data,Info.hwndList);|5:end; |0:|4:end.|
 link(onGetTrackIdx,3594222:doWork2,[])
 link(onGetTrackTxt,16549724:doEvent1,[])
 link(PHandle,7723821:PHandle,[])
 link(onMouseLeave,3594222:doWork3,[(442,251)])
}
Add(ChanelToIndex,995737,336,231)
{
 link(onIndex,3059356:doGetTrackIdx,[])
}
Add(BaloonToolTips,3227334,532,245)
{
 link(Handle,3059356:sHandle,[(538,236)(573,236)(573,285)(398,285)])
}
Add(Hub,16549724,476,238)
{
 OutCount=3
 link(onEvent1,3880845:doWork2,[])
 link(onEvent2,3227334:doCreate,[])
 link(onEvent3,3227334:doShow,[(508,258)(508,265)])
}
Add(HubEx,3880845,518,238)
{
 Angle=1
 link(onEvent,3227334:doDestroy,[(522,258)])
}
Add(HubEx,3594222,438,231)
{
 Angle=3
 link(onEvent,3880845:doWork1,[(442,216)(522,216)])
}


Это только прототип. Сделать полноценную подсказку тоже можно, но это сложнее и за отдельную плату, а так сами пробуйте.
КМК, изменение ширины списка тоже можно без проблем сделать, но это не оправдано, тк может наезжать на сопутствующие элементы интерфейса, что совсем не комильфо.

Редактировалось 1 раз(а), последний 2021-08-30 14:10:09
карма: 22

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