Вверх ↑
Ответов: 109
Рейтинг: 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)
}


карма: 1

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