Вверх ↑
Этот топик читают: Гость
Ответов: 2293
Рейтинг: 678
#166: 2025-01-16 13:10:37 ЛС | профиль | цитата
strannik_nebes, свойства IncludeNameList и ExcludeNameList используют NameList.pas, а он еще со старой ошибкой что была у ParametersList.sha (одинаково разбирали схему). Внесу изменения и в NameList.pas и выложу общим архивом. Сейчас главное понять устранены ли те ошибки что найдены на данный момент. Так что пока лучше хорошенько протестировать свойство Parameters.

Редактировалось 1 раз(а), последний 2025-01-16 13:11:26
карма: 11

0
Ответов: 322
Рейтинг: 26
#167: 2025-01-16 15:16:00 ЛС | профиль | цитата
Обновил до 2421
Перестал компилировать приложение с AdjustControls
Поправки с шапки все внёс в HiAsm
В HiAsm установлен RemoteAccessManager
Вот лог

Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: dcc32.exe "C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\AdjustControls.dpr" "-UC:\Users\USER\Desktop\HIASM FILES\." -Q
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(13) Error: Identifier redeclared: 'CLEAR_FULL'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(14) Error: Identifier redeclared: 'CLEAR_COLUMNS'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(15) Error: Identifier redeclared: 'CLEAR_TABLE'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(96) Error: Overloaded procedure 'FullSaveColumns' must be marked with the 'overload' directive

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(97) Error: Overloaded procedure 'FullLoadColumns' must be marked with the 'overload' directive

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(98) Error: Overloaded procedure 'FullSaveTable' must be marked with the 'overload' directive

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(99) Error: Overloaded procedure 'FullLoadTable' must be marked with the 'overload' directive

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(100) Error: Overloaded procedure 'FullClear' must be marked with the 'overload' directive

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(589) Error: Identifier redeclared: 'THIStringTable.FullSaveColumns'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(590) Error: Identifier redeclared: 'i'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(602) Error: Identifier redeclared: 'THIStringTable.FullLoadColumns'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(603) Error: Identifier redeclared: 'str'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(612) Error: Identifier redeclared: 'THIStringTable.FullSaveTable'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(613) Error: Identifier redeclared: 'i'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(614) Error: Identifier redeclared: 's'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(630) Error: Identifier redeclared: 'THIStringTable.FullLoadTable'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(631) Error: Identifier redeclared: 'i'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(632) Error: Identifier redeclared: 'SList'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(633) Error: Identifier redeclared: 's'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(655) Error: Identifier redeclared: 'THIStringTable.FullClear'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(96) Error: Unsatisfied forward or external declaration: 'THIStringTable.FullSaveColumns'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(97) Error: Unsatisfied forward or external declaration: 'THIStringTable.FullLoadColumns'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(98) Error: Unsatisfied forward or external declaration: 'THIStringTable.FullSaveTable'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(99) Error: Unsatisfied forward or external declaration: 'THIStringTable.FullLoadTable'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiStringTable.pas(100) Error: Unsatisfied forward or external declaration: 'THIStringTable.FullClear'

C:\Users\USER\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiAdjustControls.pas(8) Fatal: Could not compile used unit 'hiStringTable.pas'
Сборка завершена.

Сама схема

Make(delphi)
ver(4.05 build 186)
Add(AdjustControls,1891344,329,245)
{
}
Add(Button,1124109,203,245)
{
Left=225
Top=80
link(onClick,2150137:doData,[])
}
Add(Button,1102877,427,217)
{
Left=545
Top=15
Name="b1"
AddHint(62,-39,27,13,Name)
}
Add(Button,1017741,427,266)
{
Left=545
Top=50
Name="b2"
}
Add(Button,14060833,427,315)
{
Left=545
Top=85
Name="b3"
}
Add(DoData,2150137,259,245)
{
link(onEventData,3294906:doWork2,[])
link(Data,13215217:Text,[])
}
Add(StrList,13215217,259,168)
{
Strings=#15:b1=Caption=Name|14:b2=Caption=Age|18:b3=Caption=Country|15:s1=Caption=Name|16:e1=FontColor=Red|
}
Add(Button,106875,203,364)
{
Left=225
Top=120
link(onClick,8243158:doData,[])
}
Add(DoData,8243158,259,364)
{
link(onEventData,3294906:doWork3,[(312,370)])
link(Data,15782353:Text,[])
}
Add(StrList,15782353,259,287)
{
Strings=#14:b1=Caption=Имя|18:b2=Caption=Возраст|17:b3=Caption=Страна|14:s1=Caption=Имя|18:e1=FontColor=Black|
}
Add(HubEx,3294906,308,245)
{
link(onEvent,1891344:doSet,[])
}
Add(Label,15863001,364,175)
{
Left=550
Top=120
Height=20
Name="s1"
AddHint(51,-51,26,13,Name)
}
Add(InfoTip,3226484,595,70)
{
Info=#65:Брать настройки можно как из StrList так и указывать в компоненте|86:Приоритетные настройки из компонента (если будет настроено и в компоненте и в StrList,|37:примениятся настройки из компонента).|0:|25: Возможности компонента|73:1. Изменения позиции и габаритов: Отступ слева и справа, ширина и высота.|26:2. Выравнивание элементов.|18:3. Цвет элементов.|19:4. Шрифт элементов.|37:5. Доступность и видимость элементов.|51:6. Очистка элемента (удаление текста, строк и т.п.)|31:7. Установка фокуса на элемент.|48:8. Перенос элемента на задний или передний план.|24:9. Перерисовка элемента.|89:10. Текст в элементах: Заголовок в формах, текст в текстовом поле, строки в списке строк.|56:11. Установка и снятие значения у Checkboxи RadioButton.|43:12. Установка вкладок в элемент TabControl.|40:13. Установка цветов в элемент ColorBox.|41:14. Установка даты в элемент DDatePicker.|73:15. Установка колонок и строк в таблицы StringTable StringTableMTMTStrTbl|40:16. Установка текста и строк в ComboBox.|
Font=[MS Sans Serif,10,1,16711680,1]
HAlign=0
Width=715
Height=340
}
Add(Edit,8894683,427,385)
{
Left=555
Top=155
Name="e1"
}
Add(ChildPanel,13973370,266,56)
{
}
BEGIN_SDK
Add(EditMulti,12349116,21,21)
{
}
Add(Panel,14408072,35,105)
{
Left=35
Top=20
Width=180
Height=165
}
END_SDK
Add(MainForm,6539903,280,532)
{
Width=736
Height=643
link(onCreate,3682515:doConvert,[])
}
Add(MST_ColAction,4139610,434,546)
{
Action=9
MaxColWidth=1000
Index=-2
MSTControl="tabl"
}
Add(MST_Load,571213,385,539)
{
Delimiter="\t"
LoadCheckBoxes=0
MSTControl="tabl"
link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,336,546)
{
Mode=7
Point(Data)
link(onResult,571213:doLoadFromStream,[])
link(Data,6934679:Text,[])
}
Add(StrList,6934679,336,490)
{
Strings=#42:Item Description Quantity Unit Price Value|66:0\t13930 Double-action Quickstart II rem. L=740mm 1 PC 98,66 98,66|56:0\t13100201 Spray gun for udder washer 20 PC 17,77 355,4|52:0\t13246007 COMBI-cock ш51 mm cpl. 10 PC 63,43 634,3|54:0\t25643301 Milk hose ш 24/14 x 2750 32 PC 9,76 312,32|59:0\t14291 Service no.1 RDS MAX double box 1 PC 250,51 250,51|57:0\t24144638 Spiral spring for tube filter 3 PC 43,2 129,6|43:0\t22121763 V-belt spz 1087 4 PC 5,91 23,64|64:0\tMH0015 Repair kit non-rotating cylinder ш40mm 8 PC 14,3 114,4|51:0\tGS9835 Revision set SAC Unipuls 4 PC 13,97 55,88|55:0\t22121735 El-motor 3,0kw 3x400v 1400 1 PC 186,4 186,4|58:0\t23544122 Carbon disc ш44,7/38,3x5,8mm 10 PC 16,92 169,2|58:0\t23544122 Carbon disc ш44,7/38,3x5,8mm 10 PC 16,92 169,2|57:0\t23544122 Carbon disc ш44,7/38,3x5,8mm 2 PC 16,92 33,84|67:0\t21200159 Top part UNIFL3/4 for steel bot.part 25 PC 30,09 752,25|60:0\t24400111 Hose f. pump compl. UNIWASH 153 PC 10,58 1618,74|61:0\t13225 Piston complete for valve UNIWASH3 4 PC 27,09 108,36|63:0\t12200105 Vacuumgauge glycerine ш100mm 3/8" 5 PC 40,57 202,85|0:|
}
Add(MTStrTbl,15214105,343,637)
{
Top=218
Width=720
Height=386
Align=4
Name="tabl"
ColorItems=0
Redaction=0
CheckBoxes=0
Grid=0
Point(onBeforeLineChange)
Point(onLineChange)
Point(onMouseUp)
link(onBeforeLineChange,8042369:doEvent,[])
link(onLineChange,12426016:doEvent,[(401,678)(401,685)])
link(onMouseUp,8844415:doEvent,[(391,685)(391,711)])
}
Add(Debug,8042369,406,665)
{
LogCount=100
}
Add(Debug,12426016,427,679)
{
LogCount=100
}
Add(Debug,8844415,408,705)
{
}
Add(TabControl,8424267,189,77)
{
Left=295
Width=225
Height=185
Tabs=#2:11|2:22|2:33|0:|
Bitmaps=[]
}


Редактировалось 3 раз(а), последний 2025-01-16 15:30:51
карма: 2
0
Ответов: 2293
Рейтинг: 678
#168: 2025-01-16 15:40:32 ЛС | профиль | цитата
envoy_sky, файл hiStringTable.pas в архив и сюда, надо посмотреть чего его так покарежило
карма: 11

0
Ответов: 322
Рейтинг: 26
#169: 2025-01-16 16:00:02 ЛС | профиль | цитата
Вот https://forum.hiasm.com/getfile/39705
карма: 2
0
Ответов: 114
Рейтинг: 3
#170: 2025-01-17 09:00:09 ЛС | профиль | цитата
Так что пока лучше хорошенько протестировать свойство Parameters.


sla8a, После обновления svn появились ошибки, схожие с envoy_sky, банально добавлением AdjustControls на пустую форму. Файл hiTreeView.pas не менялся.
hiAdjustControls.pas(278) Error: Undeclared identifier: 'IndexToHandle'
Borland Delphi  Version 12.0  Copyright (c) 1983,98 Inprise Corporation

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiTreeView.pas(88) Warning: Constant expression violates subrange bounds

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiTreeView.pas(120) Warning: Constant expression violates subrange bounds

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiTreeViewEx.pas(148) Warning: Constant expression violates subrange bounds

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiTreeViewEx.pas(184) Warning: Constant expression violates subrange bounds

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiTreeViewTrain.pas(257) Warning: Constant expression violates subrange bounds

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiTreeViewTrain.pas(549) Warning: Constant expression violates subrange bounds

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiTreeViewTrain.pas(680) Warning: Return value of function 'THITreeViewTrain._onDrag' might be undefined

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiTreeViewTrain.pas(760) Warning: Constant 0 converted to NIL

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiTreeViewTrain.pas(853) Warning: Constant 0 converted to NIL

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiTreeViewTrain.pas(56) Hint: Private symbol '_onDrag' declared but never used

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiAdjustControls.pas(278) Error: Undeclared identifier: 'IndexToHandle'

D:\Soft\HiAsm 4 AltBuild\Elements\delphi\code\hiMainForm_8322BE0.pas(8) Fatal: Could not compile used unit 'hiAdjustControls.pas'
Сборка завершена.

Редактировалось 5 раз(а), последний 2025-01-17 09:12:16
карма: 0

0
Ответов: 2293
Рейтинг: 678
#171: 2025-01-17 14:46:18 ЛС | профиль | цитата
envoy_sky, strannik_nebes, в обоих случаях нужно изменять файлы под работу AdjustControls. С этим и должен был справлятся UpdateFiles.sha. Нужно его доделать и учесть все варианты обновления. Так что пока откатите файлы или подождите.
карма: 11

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