HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуMTStrTbl ← Ctrl123456789101112Ctrl →
Этот топик читают: Гость
Разработчик
Ответов: 26249
Рейтинг: 2140
#136: 2025-03-08 14:37:52 ЛС | профиль | цитата
Результат отписать не забудьте.
карма: 22

0
Ответов: 183
Рейтинг: 4
#137: 2025-03-10 08:39:45 ЛС | профиль | цитата
Исправил. Исправления на SVN. Тестируйте.

Первая проблема, вроде как, решена. А теперь вторая проблема, которая проявляется с GridLayout, ToolBarLayout (смещение вверх ниже стоящих объектов на неопределенную высоту):
Add(MainForm,7341672,252,189)
{
 Width=1403
 Height=675
 link(onCreate,16088235:doResize,[(306,209)(306,272)])
}
Add(PageControl,4067262,626,336)
{
 Left=250
 Top=250
 Width=800
 Height=800
 Layout="1"
 WidthScale=100
 HeightScale=100
 Selected="base"
 AutoCreate=1
 SelectAdd=0
 link(onEventData,11457551:doSetOnChange,[])
 link(onClick,11295864:doTimer,[(667,349)(667,409)(513,409)(513,461)])
 link(Data,7473735:Value,[(632,317)(629,317)])
}
BEGIN_SDK
  Add(EditPolyMulti,14820162,21,21)
  {
   WorkCount=#5:##add|8:##delete|
   EventCount=#11:onEventData|7:onClick|
   VarCount=#7:##count|7:##index|4:Left|3:Top|
   DataCount=#4:Data|
   Width=755
   Height=529
   Point(##add)
   Point(##delete)
   Point(##count)
   Point(##index)
   link(##add,9099381:doData,[(98,27)(98,76)])
  }
  Add(PagePanel,13516436,273,49)
  {
   Left=255
   Top=5
   Width=1205
   Height=623
   Point(doCaption)
   Point(PHandle)
  }
  Add(DoData,9099381,175,70)
  {
   link(onEventData,11479888:doEvent1,[])
   link(Data,14820162:Data,[(181,46)(27,46)])
  }
  Add(Hub,11479888,231,70)
  {
   OutCount=4
   link(onEvent1,13516436:doCaption,[(259,76)(259,55)])
   link(onEvent2,11144517:doData,[(263,83)(263,104)])
   link(onEvent3,10041622:doEnum,[(419,90)(419,412)])
   link(onEvent4,11323944:doResize,[(259,97)(259,146)])
  }
  Add(DoData,11144517,273,98)
  {
   link(onEventData,14820162:onEventData,[(491,104)(491,27)])
   link(Data,13516436:PHandle,[])
  }
  Add(BitBtn,11571840,406,28)
  {
   Left=25
   Top=120
   Width=200
   Height=95
   Layout="left_v"
   Caption="Del_this"
   link(onClick,14820162:onClick,[])
  }
  Add(MST_UseEditCtrl,3498945,56,385)
  {
   @Color=43775
   MSTControl="usrs_lst"
   PColor(onCellSize,8421440)
   PColor(onEscCell,32768)
   link(onCellSize,15975994:doEvent1,[])
   link(onEnterCell,16046716:doEvent1,[(119,398)(119,412)])
   link(onEscCell,10333899:doWork1,[(109,412)(109,447)])
  }
  Add(MT_MultiData,4674596,252,385)
  {
   @Hint=#25:Положение и ширина ячейки|
   Count=4
   link(onData1,6564384:doLeft,[])
   link(onData2,6564384:doTop,[])
   link(onData3,6564384:doWidth,[])
   link(onData4,6564384:doHeight,[])
  }
  Add(Hub,16046716,133,406)
  {
   OutCount=5
   link(onEvent1,291971:doData,[(164,412)(164,384)])
   link(onEvent3,6564384:doBringToFront,[])
   link(onEvent4,6564384:doSetFocus,[(252,433)(252,419)])
   link(onEvent5,10333899:doWork2,[(179,440)(179,454)])
  }
  Add(DoData,291971,182,378)
  {
   link(onEventData,1427951:doConvert,[])
   link(Data,3498945:Cell,[(188,366)(136,366)(136,429)(83,429)])
  }
  Add(DateConvertor,1427951,294,378)
  {
   Mode=8
   Format="yyyy.MM.dd"
   Point(Data)
   link(onResult,6564384:doSetDate,[])
  }
  Add(DateConvertor,16664805,434,378)
  {
   Mode=9
   Format="yyyy.MM.dd"
   Point(Data)
   link(onResult,3498945:doSetData,[(477,384)(477,355)(44,355)(44,391)])
   link(Data,6564384:DateTime,[(440,366)(412,366)(412,449)(384,449)])
  }
  Add(ChanelToIndex,10333899,210,441)
  {
   link(onIndex,6564384:doVisible,[(372,447)(372,433)])
  }
  Add(MT_String,8919219,371,497)
  {
   link(onResult,5994652:doText,[])
  }
  Add(Label,5994652,448,497)
  {
   Left=30
   Top=10
   Width=200
   ParentFont=0
   Layout="left_v"
   AutoSize=1
  }
  Add(DatePicker,6564384,378,378)
  {
   Left=45
   Top=340
   Width=135
   Height=21
   Font=[Arial,12,0,0,204]
   Antialiased=4
   Visible=1
   Style=1
   DateFormat=1
   Format="yyyy.MM.dd"
   TitleBkColor=12639424
   TitleTextColor=-16777192
   MonthBkColor=-16777192
   Point(doLeft)
   Point(doTop)
   Point(doWidth)
   Point(doHeight)
   Point(DateTime)
   Point(doSetFocus)
   Point(doBringToFront)
   Point(doVisible)
   link(onChange,16664805:doConvert,[])
  }
  Add(Hub,15975994,224,385)
  {
   link(onEvent1,4674596:doSeparateMT,[])
   link(onEvent2,8919219:doStr,[(247,398)(247,503)])
  }
  Add(MTStrTbl,1840207,679,70)
  {
   Left=240
   Top=255
   Width=420
   Height=270
   akLeft=1
   akTop=1
   MinHeight=30
   Color=-16777192
   Font=[Arial Narrow,14,0,0,204]
   Antialiased=4
   Name="usrs_lst"
   HintTitle="Подсказка"
   HintIcon=1
   HintManager=""
   Layout="right_v"
   ColorSp=12639424
   Columns=#9:Ф.И.О=250|6:От=100|6:До=100|
   Point(onMouseDown)
   Point(Width)
  }
  Add(Button,3236190,462,182)
  {
   Left=25
   Top=35
   Width=200
   Layout="left_v"
   Caption="New_child->"
   link(onClick,11472170:doData,[])
  }
  Add(MST_RowAction,12985991,728,392)
  {
   MSTControl="usrs_lst"
  }
  Add(StrList,15034837,609,350)
  {
   Strings=#14:sdfsdf;aaaaa;0|14:fzsdfzs;bbbb;3|13:sdfszz;cccc;2|14:sdfszz;ddddd;0|14:sdfszz;eeeee;1|14:sdfszz;fffff;3|14:fzsdfzs;gggg;2|13:sdfszz;hhhh;0|15:fzsdfzs;iiiii;3|15:sdfszz;jjjjjj;1|
  }
  Add(MT_String,922736,679,392)
  {
   link(onResult,12985991:doRowAction,[])
  }
  Add(ArrayEnum,10041622,623,406)
  {
   link(onItem,922736:doMTString,[])
   link(Array,15034837:Array,[])
  }
  Add(PageControl,1796837,560,182)
  {
   Left=250
   Top=250
   Width=800
   Height=800
   Font=[Arial Narrow,12,0,0,204]
   Layout="main"
   WidthScale=100
   HeightScale=100
   Selected="base"
   AutoCreate=1
   SelectAdd=0
   link(onEventData,15057991:doSetOnChange,[])
   link(onClick,8596483:doTimer,[(607,195)(607,219)(457,219)(457,244)])
  }
  BEGIN_SDK
    Add(EditPolyMulti,2669103,21,21)
    {
     WorkCount=#5:##add|8:##delete|
     EventCount=#11:onEventData|7:onClick|
     VarCount=#7:##count|7:##index|4:Left|3:Top|
     DataCount=#4:Data|
     Width=755
     Height=529
     Point(##add)
     Point(##delete)
     Point(##count)
     Point(##index)
     link(##add,4192532:doData,[(98,27)(98,76)])
    }
    Add(PagePanel,5799095,273,49)
    {
     Left=675
     Top=5
     Width=610
     Height=600
     Point(doCaption)
     Point(PHandle)
    }
    Add(DoData,4192532,175,70)
    {
     link(onEventData,14263660:doEvent1,[])
     link(Data,2669103:Data,[(181,46)(27,46)])
    }
    Add(Hub,14263660,231,70)
    {
     OutCount=4
     link(onEvent1,5799095:doCaption,[(259,76)(259,55)])
     link(onEvent2,10177461:doData,[(263,83)(263,104)])
     link(onEvent3,13207358:doEnum,[(419,90)(419,412)])
     link(onEvent4,14595278:doResize,[(259,97)(259,146)])
    }
    Add(DoData,10177461,273,98)
    {
     link(onEventData,2669103:onEventData,[(491,104)(491,27)])
     link(Data,5799095:PHandle,[])
    }
    Add(BitBtn,3556873,658,28)
    {
     Left=-15
     Top=45
     Width=200
     Height=95
     Layout="left_v"
     Caption="Del"
     link(onClick,2669103:onClick,[])
    }
    Add(MST_UseEditCtrl,14180385,56,385)
    {
     @Color=43775
     MSTControl="usrs_lst"
     PColor(onCellSize,8421440)
     PColor(onEscCell,32768)
     link(onCellSize,4489480:doEvent1,[])
     link(onEnterCell,11346396:doEvent1,[(119,398)(119,412)])
     link(onEscCell,7742669:doWork1,[(109,412)(109,447)])
    }
    Add(MT_MultiData,12501725,252,385)
    {
     @Hint=#25:Положение и ширина ячейки|
     Count=4
     link(onData1,9737819:doLeft,[])
     link(onData2,9737819:doTop,[])
     link(onData3,9737819:doWidth,[])
     link(onData4,9737819:doHeight,[])
    }
    Add(Hub,11346396,133,406)
    {
     OutCount=5
     link(onEvent1,9208696:doData,[(164,412)(164,384)])
     link(onEvent3,9737819:doBringToFront,[])
     link(onEvent4,9737819:doSetFocus,[(252,433)(252,419)])
     link(onEvent5,7742669:doWork2,[(179,440)(179,454)])
    }
    Add(DoData,9208696,182,378)
    {
     link(onEventData,9149628:doConvert,[])
     link(Data,14180385:Cell,[(188,366)(136,366)(136,429)(83,429)])
    }
    Add(DateConvertor,9149628,294,378)
    {
     Mode=8
     Format="yyyy.MM.dd"
     Point(Data)
     link(onResult,9737819:doSetDate,[])
    }
    Add(DateConvertor,11591953,434,378)
    {
     Mode=9
     Format="yyyy.MM.dd"
     Point(Data)
     link(onResult,14180385:doSetData,[(482,384)(482,350)(44,350)(44,391)])
     link(Data,9737819:DateTime,[(440,366)(412,366)(412,449)(384,449)])
    }
    Add(ChanelToIndex,7742669,210,441)
    {
     link(onIndex,9737819:doVisible,[(310,447)(310,433)])
    }
    Add(MT_String,15298015,371,497)
    {
     link(onResult,5389103:doText,[])
    }
    Add(Label,5389103,448,497)
    {
     Left=5
     Top=15
     Width=200
     Layout="left_v"
    }
    Add(DatePicker,9737819,378,378)
    {
     Left=25
     Top=430
     Width=135
     Height=21
     Font=[Arial,12,0,0,204]
     Antialiased=4
     Visible=1
     Style=1
     DateFormat=1
     Format="yyyy.MM.dd"
     TitleBkColor=12639424
     TitleTextColor=-16777192
     MonthBkColor=-16777192
     Point(doLeft)
     Point(doTop)
     Point(doWidth)
     Point(doHeight)
     Point(DateTime)
     Point(doSetFocus)
     Point(doBringToFront)
     Point(doVisible)
     link(onChange,11591953:doConvert,[])
    }
    Add(Hub,4489480,224,385)
    {
     link(onEvent1,12501725:doSeparateMT,[])
     link(onEvent2,15298015:doStr,[(247,398)(247,503)])
    }
    Add(MTStrTbl,3085826,582,280)
    {
     Left=215
     Top=15
     Width=355
     Height=415
     akLeft=1
     akTop=1
     MinHeight=30
     Color=-16777192
     Font=[Arial Narrow,14,0,0,204]
     Antialiased=4
     Name="usrs_lst"
     HintTitle="Подсказка"
     HintIcon=1
     HintManager=""
     Layout="right_v"
     ColorSp=12639424
     Columns=#9:Ф.И.О=250|6:От=100|6:До=100|
     Point(onMouseDown)
     Point(Width)
    }
    Add(MST_RowAction,11663634,728,392)
    {
     MSTControl="usrs_lst"
    }
    Add(StrList,14703185,609,350)
    {
     Strings=#14:sdfsdf;aaaaa;0|14:fzsdfzs;bbbb;3|13:sdfszz;cccc;2|14:sdfszz;ddddd;0|14:sdfszz;eeeee;1|14:sdfszz;fffff;3|14:fzsdfzs;gggg;2|13:sdfszz;hhhh;0|15:fzsdfzs;iiiii;3|15:sdfszz;jjjjjj;1|
    }
    Add(MT_String,8920285,679,392)
    {
     link(onResult,11663634:doRowAction,[])
    }
    Add(ArrayEnum,13207358,623,406)
    {
     link(onItem,8920285:doMTString,[])
     link(Array,14703185:Array,[])
    }
    Add(HBoxLayout,14595278,273,140)
    {
     Name="main"
    }
    Add(GridLayout,9842705,315,224)
    {
     Name="mtrx_r"
     Space=10
     Layout="right_v"
     Rows=3
     Cols=1
     AddMode=1
    }
    Add(VBoxLayout,1732868,315,182)
    {
     Name="right_v"
     Layout="main"
    }
    Add(VBoxLayout,3693306,249,179)
    {
     Name="left_v"
     Layout="main"
    }
  END_SDK
  Add(DoData,11472170,504,182)
  {
   Data=String(base)
   link(onEventData,1796837:##add,[])
  }
  Add(HBoxLayout,11323944,273,140)
  {
   Name="main"
  }
  Add(Timer,8596483,469,238)
  {
   Interval=0
   Enable=1
   link(onTimer,14124304:doEvent1,[])
  }
  Add(Hub,14124304,518,238)
  {
   link(onEvent1,8596483:doStop,[(548,244)(548,294)(457,294)(457,251)])
   link(onEvent2,8724968:doWork2,[])
  }
  Add(DoData,14155477,567,245)
  {
   link(onEventData,1796837:##delete,[(607,251)(607,228)(548,228)(548,195)])
   link(Data,1796837:##index,[])
  }
  Add(InlineCode,15057991,630,182)
  {
   WorkPoints=#13:doSetOnChange|
   EventPoints=#8:onChange|
   Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses Windows, Kol, Share, Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|23:     Control: PControl;|35:     procedure _OnChange(Obj:PObj);|0:|9:   public|23:   onChange: THI_Event;|56:   procedure doSetOnChange(var _Data:TData; Index:word);|7:   end;|3:   |14:implementation|0:|36:procedure THiAsmClass.doSetOnChange;|16:var i: integer; |5:begin|50:     Control := PControl(ToInteger(_Data)).Parent;|32:     if Control = nil then exit;|41:     Control.OnSelChange := _OnChange;   |4:end;|0:|32:procedure THiAsmClass._OnChange;|5:begin|43:   _hi_OnEvent(onChange, Control.CurIndex);|4:end;|0:|4:end.|
  }
  Add(Button,5029591,462,308)
  {
   Left=25
   Top=60
   Width=200
   Height=55
   Layout="left_v"
   Caption="Dell_child"
   link(onClick,8724968:doWork3,[(557,314)])
  }
  Add(HubEx,8724968,553,245)
  {
   link(onEvent,14155477:doData,[])
  }
  Add(VBoxLayout,978984,308,224)
  {
   Name="right_v"
   Layout="main"
  }
  Add(Edit,3047672,574,70)
  {
   Left=245
   Top=25
   Width=115
   Layout="mtrx_r"
  }
  Add(Edit,7575744,619,69)
  {
   Left=380
   Top=25
   Width=265
   Layout="mtrx_r"
  }
  Add(VBoxLayout,7538617,249,179)
  {
   Name="left_v"
   Layout="main"
  }
  Add(GridLayout,13403536,308,182)
  {
   Name="mtrx_r"
   Space=10
   Layout="right_v"
   Rows=2
   Cols=2
   AddMode=1
  }
  Add(StringTable,1375031,644,245)
  {
   Left=255
   Top=150
   Width=400
   Layout="right_v"
  }
  Add(Edit,4508963,570,118)
  {
   Left=245
   Top=60
   Width=115
   Layout="mtrx_r"
  }
END_SDK
Add(Button,14856101,420,266)
{
 Left=55
 Top=255
 Width=145
 Height=50
 Layout="left"
 Caption="Add"
 link(onClick,3945858:doNext,[])
}
Add(Button,3697156,511,539)
{
 Left=95
 Top=345
 Width=105
 Height=55
 Layout="left"
 Caption="Dell"
 link(onClick,15360056:doWork3,[(620,545)])
}
Add(InlineCode,11457551,679,336)
{
 WorkPoints=#13:doSetOnChange|
 EventPoints=#8:onChange|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses Windows, Kol, Share, Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|23:     Control: PControl;|35:     procedure _OnChange(Obj:PObj);|0:|9:   public|23:   onChange: THI_Event;|56:   procedure doSetOnChange(var _Data:TData; Index:word);|7:   end;|3:   |14:implementation|0:|36:procedure THiAsmClass.doSetOnChange;|16:var i: integer; |5:begin|50:     Control := PControl(ToInteger(_Data)).Parent;|32:     if Control = nil then exit;|41:     Control.OnSelChange := _OnChange;   |4:end;|0:|32:procedure THiAsmClass._OnChange;|5:begin|43:   _hi_OnEvent(onChange, Control.CurIndex);|4:end;|0:|4:end.|
}
Add(Memory,7473735,623,266)
{
 @Hint=#15:Состояние хоста|
 Default=Integer(3)
 link(onData,6105568:doData,[(667,272)(667,307)(541,307)(541,342)])
}
Add(CounterEx,3945858,490,266)
{
 link(onNext,9667884:doStrCat,[])
}
Add(StrCat,9667884,553,266)
{
 Str1="Page "
 link(onStrCat,7473735:doValue,[])
 link(Str2,3945858:Count,[(566,254)(531,254)(531,310)(496,310)])
}
Add(DoData,6105568,553,336)
{
 Data=String(base)
 link(onEventData,4067262:##add,[])
}
Add(Timer,11295864,518,455)
{
 Interval=0
 Enable=1
 link(onTimer,8451700:doEvent1,[])
}
Add(Hub,8451700,567,455)
{
 link(onEvent1,11295864:doStop,[(597,461)(597,511)(506,511)(506,468)])
 link(onEvent2,15360056:doWork2,[(595,468)(595,461)])
}
Add(DoData,6001803,630,455)
{
 link(onEventData,4067262:##delete,[(674,461)(674,405)(611,405)(611,349)])
 link(Data,4067262:##index,[(636,411)(639,411)])
}
Add(HubEx,15360056,616,455)
{
 link(onEvent,6001803:doData,[])
}
Add(HBoxLayout,16088235,315,266)
{
 Name="1"
}
Add(VBoxLayout,8295331,315,336)
{
 Name="left"
 Layout="1"
}
Подозреваю, что проблема не связана напрямую с MTStrTbl.

Редактировалось 7 раз(а), последний 2025-03-10 09:32:30
карма: 1

0
Разработчик
Ответов: 26249
Рейтинг: 2140
#138: 2025-03-10 12:17:01 ЛС | профиль | цитата
Не понял. Разговор вот про это?


карма: 22

0
Ответов: 183
Рейтинг: 4
#139: 2025-03-10 13:07:12 ЛС | профиль | цитата
nesco, сама таблица наезжает на Edit-ы. Смещение (шаг) GridLayout, ToolBarLayout задают неверно для последующих контролов. Они оба динамические, в моем понимании и только с ними такая проблема.
У меня по-другому. Внешний контрол фиксируется правильно с таблицей, у тебя смещен (обновил через SVN).



Редактировалось 9 раз(а), последний 2025-03-10 13:29:59
карма: 1

0
Разработчик
Ответов: 26249
Рейтинг: 2140
#140: 2025-03-10 13:59:09 ЛС | профиль | цитата
strannik_nebes писал(а):
Внешний контрол фиксируется правильно с таблицей, у тебя смещен

Это у меня происходит при скроллинге. Те, в схеме у контрола Edit не отключается видимость, хотя управляющий элемент это предусматривает.

--- Добавлено в 2025-03-10 14:00:15

А вот со слоями, это не ко мне. Не я их разрабатывал и понятия не имею, как они должны правильно работать.

Редактировалось 1 раз(а), последний 2025-03-10 14:00:15
карма: 22

0
Ответов: 183
Рейтинг: 4
#141: 2025-03-10 14:08:00 ЛС | профиль | цитата

А вот со слоями, это не ко мне. Не я их разрабатывал и понятия не имею, как они должны правильно работать.

Судя по всему, программа умрет с этой ошибкой. Автор Dilma.
Те, в схеме у контрола Edit не отключается видимость, хотя управляющий элемент это предусматривает.

Если поместить их на задний план, что их не видно за таблицей.

Редактировалось 1 раз(а), последний 2025-03-10 14:11:11
карма: 1

0
Ответов: 2358
Рейтинг: 683
#142: 2025-03-10 17:19:05 ЛС | профиль | цитата
strannik_nebes писал(а):
Судя по всему, программа умрет с этой ошибкой.
Будет нормальная схема с минимум элементов, доказывающих что это ошибка, тогда можно будет делать такие заключения. А на данный момент это можно списать на не правильное использование элементов слоев.
карма: 11

0
Ответов: 183
Рейтинг: 4
#143: 2025-03-11 10:29:20 ЛС | профиль | цитата

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

sla8a, окэй
Add(MTStrTbl,1840207,749,259)
{
 Left=10
 Top=130
 Width=420
 Height=270
 akLeft=1
 akTop=1
 MinHeight=30
 Color=-16777192
 Font=[Arial Narrow,14,0,0,204]
 Antialiased=4
 Name="usrs_lst"
 HintTitle="Подсказка"
 HintIcon=1
 HintManager=""
 Layout="right_v"
 ColorSp=12639424
 Columns=#9:Ф.И.О=250|6:От=100|6:До=100|
 Point(onMouseDown)
 Point(Width)
}
Add(MainForm,7341672,462,154)
{
 Width=461
 Height=675
 link(onCreate,11323944:doResize,[])
}
Add(HBoxLayout,11323944,518,168)
{
 Name="main"
}
Add(VBoxLayout,978984,581,168)
{
 Name="right_v"
 Layout="main"
}
Add(GridLayout,13403536,651,168)
{
 Name="mtrx_r"
 Space=10
 Layout="right_v"
 Rows=3
 Cols=1
 AddMode=1
}
Add(Edit,4508963,759,202)
{
 Left=15
 Top=85
 Width=345
 Layout="mtrx_r"
}
Add(Edit,3047672,742,154)
{
 Left=20
 Top=25
 Width=340
 Layout="mtrx_r"
}
Add(Edit,7575744,787,153)
{
 Left=20
 Top=55
 Width=340
 Layout="mtrx_r"
}


Редактировалось 3 раз(а), последний 2025-03-11 10:33:42
карма: 1

0
Ответов: 2358
Рейтинг: 683
#144: 2025-03-11 11:40:35 ЛС | профиль | цитата
strannik_nebes писал(а):
окэй

Вот совсем не окэй. Смотря на схему возникают вопросы:
1. Что должны делать 3 элемента слоя с 4 элементами не совсем понятно?
2. Если смотреть по тому как они установлены в редакторе форм, то хватит и одного вертикального слоя: 

Add(MTStrTbl,1840207,434,259)
{
 Left=10
 Top=130
 Width=420
 Height=270
 akLeft=1
 akTop=1
 MinHeight=30
 Color=-16777192
 Font=[Arial Narrow,14,0,0,204]
 Name="usrs_lst"
 HintTitle="Iianeacea"
 HintIcon=1
 HintManager=""
 Layout="ver"
 HeightScale=100
 ColorSp=12639424
 Columns=#9:O.E.I=250|6:Io=100|6:Ai=100|
 Point(onMouseDown)
 Point(Width)
}
Add(MainForm,7341672,140,140)
{
 Width=461
 Height=675
 Position=1
}
Add(VBoxLayout,978984,336,238)
{
 Name="ver"
 Space=2
 Padding=2
 Layout="main"
}
Add(Edit,4508963,437,188)
{
 Left=15
 Top=85
 Width=345
 Layout="ver"
}
Add(Edit,3047672,420,140)
{
 Left=20
 Top=25
 Width=340
 Layout="ver"
}
Add(Edit,7575744,465,139)
{
 Left=20
 Top=55
 Width=340
 Layout="ver"
}
3. Какой смысл применять свой GridLayout (Слой решетка) чтоб использовать его как вертикальный (Свойство Cols = 1, это не решетка) слой?

Слои не идеальные элементы, но с большинством задач справляются. Возможно и есть какие-то ошибки и недочеты, но нужно выявить какие и где и уже потом пытаться это исправить.
карма: 11

0
Ответов: 183
Рейтинг: 4
#145: 2025-03-11 11:48:48 ЛС | профиль | цитата
sla8a, Если выложить схему, где это важно, то вопрос отпадет. Можно сделать матрицу кнопок, для примера 3х3. все тоже самое будет.
Если изворачиваться и делать 3 слоя столбиком, то есть вероятность, что поплывет расположение при масштабировании с "разносортными" виз.элементами
Add(MTStrTbl,1840207,714,406)
{
 Left=10
 Top=130
 Width=420
 Height=270
 akLeft=1
 akTop=1
 MinHeight=30
 Color=-16777192
 Font=[Arial Narrow,14,0,0,204]
 Antialiased=4
 Name="usrs_lst"
 HintTitle="Подсказка"
 HintIcon=1
 HintManager=""
 Layout="right_v"
 ColorSp=12639424
 Columns=#9:Ф.И.О=250|6:От=100|6:До=100|
 Point(onMouseDown)
 Point(Width)
}
Add(MainForm,10078368,427,280)
{
 Width=461
 Height=675
 link(onCreate,11323944:doResize,[])
}
Add(HBoxLayout,11323944,483,294)
{
 Name="main"
 WidthScale=100
}
Add(VBoxLayout,978984,546,294)
{
 Name="right_v"
 WidthScale=100
 Layout="main"
}
Add(GridLayout,13403536,616,294)
{
 Name="mtrx_r"
 Space=10
 Layout="right_v"
 Rows=3
 Cols=3
 AddMode=1
}
Add(Edit,4508963,724,328)
{
 Left=15
 Top=85
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,3047672,707,280)
{
 Left=20
 Top=25
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,7575744,752,279)
{
 Left=20
 Top=55
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,383787,857,356)
{
 Left=15
 Top=85
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,5386374,840,308)
{
 Left=20
 Top=25
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,1328770,885,307)
{
 Left=20
 Top=55
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,1809522,1011,384)
{
 Left=15
 Top=85
 Width=75
 Layout="mtrx_r"
}
Add(Edit,3334707,994,336)
{
 Left=20
 Top=25
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,7243612,1039,335)
{
 Left=20
 Top=55
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}


Редактировалось 4 раз(а), последний 2025-03-12 09:56:25
карма: 1

0
Ответов: 183
Рейтинг: 4
#146: 2025-03-12 09:14:04 ЛС | профиль | цитата
Условно выкрутиться можно так, если очень надо
Add(MTStrTbl,1840207,518,448)
{
 Left=15
 Top=200
 Width=420
 Height=270
 akLeft=1
 akTop=1
 MinHeight=30
 Color=-16777192
 Font=[Arial Narrow,14,0,0,204]
 Antialiased=4
 Name="usrs_lst"
 HintTitle="Подсказка"
 HintIcon=1
 HintManager=""
 Layout="right_v"
 ColorSp=12639424
 Columns=#9:Ф.И.О=250|6:От=100|6:До=100|
 Point(onMouseDown)
 Point(Width)
}
Add(MainForm,10078368,231,322)
{
 Width=461
 Height=675
 link(onCreate,11323944:doResize,[])
}
Add(HBoxLayout,11323944,287,336)
{
 Name="main"
 WidthScale=100
}
Add(VBoxLayout,978984,350,336)
{
 Name="right_v"
 WidthScale=100
 Layout="main"
}
Add(GridLayout,13403536,420,336)
{
 Name="mtrx_r"
 Space=10
 Layout="right_v"
 Rows=3
 Cols=3
 AddMode=1
}
Add(Edit,4508963,528,370)
{
 Left=15
 Top=85
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,3047672,511,322)
{
 Left=20
 Top=25
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,7575744,556,321)
{
 Left=20
 Top=55
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,383787,661,398)
{
 Left=15
 Top=85
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,5386374,644,350)
{
 Left=20
 Top=25
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,1328770,689,349)
{
 Left=20
 Top=55
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,1809522,815,426)
{
 Left=15
 Top=85
 Width=75
 Layout="mtrx_r"
}
Add(Edit,3334707,798,378)
{
 Left=20
 Top=25
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(Edit,7243612,843,377)
{
 Left=20
 Top=55
 Width=75
 Layout="mtrx_r"
 WidthScale=33
}
Add(LayoutSpacer,9657231,525,189)
{
 Left=15
 Top=125
 Width=420
 Height=60
 Layout="right_v"
}


Редактировалось 1 раз(а), последний 2025-03-12 09:19:06
карма: 1

0
Ответов: 2358
Рейтинг: 683
#147: 2025-03-12 11:19:15 ЛС | профиль | цитата
strannik_nebes, это точно ошибка элементов слоев, пробую решить проблему.
карма: 11

0
Ответов: 183
Рейтинг: 4
#148: 2025-03-17 11:06:54 ЛС | профиль | цитата
sla8a,nesco Точка выдает 29 раз номер столбца, кроме выхода из внеш.контрола. Это для чего?
Add(MainForm,314817,399,168)
{
 Width=445
 Height=261
 Caption="Пример использования MST_UseEditCtrl"
 Position=1
 link(onCreate,10041622:doEnum,[])
}
Add(MST_UseEditCtrl,3498945,392,266)
{
 MSTControl="MtS_tbl"
 PColor(onCellSize,8421440)
 PColor(onEscCell,32768)
 link(onCellSize,13620734:doValue,[(438,272)(438,237)])
 link(onEnterCell,87120:doEvent1,[])
 link(onVisibleCell,15269198:doMessage,[(457,286)(457,405)])
 link(onEscCell,9450650:doSendToBack,[(437,286)(437,307)])
}
Add(StrList,15034837,462,126)
{
 Strings=#15:sdfsdf;aaaaa;;0|15:fzsdfzs;bbbb;;3|14:sdfszz;cccc;;2|15:sdfszz;ddddd;;0|15:sdfszz;eeeee;;1|15:sdfszz;fffff;;3|15:fzsdfzs;gggg;;2|14:sdfszz;hhhh;;0|16:fzsdfzs;iiiii;;3|16:sdfszz;jjjjjj;;1|
}
Add(MT_String,922736,532,168)
{
 link(onResult,2904434:doRowAction,[])
}
Add(ArrayEnum,10041622,476,182)
{
 link(onItem,922736:doMTString,[])
 link(Array,15034837:Array,[])
}
Add(MST_RowAction,2904434,588,168)
{
 MSTControl="MtS_tbl"
}
Add(MT_MultiData,2622840,476,273)
{
 Point(Data)
 link(onData1,9450650:doLeft,[])
 link(onData2,9450650:doTop,[])
 link(Data,13620734:Value,[])
}
Add(Hub,15922927,539,287)
{
 link(onEvent1,9450650:doSetFocus,[])
 link(onEvent2,9450650:doBringToFront,[])
}
Add(Hub,87120,448,273)
{
 link(onEvent1,2622840:doSeparateMT,[])
 link(onEvent2,15922927:doEvent1,[(470,286)(470,293)])
}
Add(DatePicker,9450650,588,266)
{
 Left=30
 Top=205
 Width=90
 Font=[MS Sans Serif,6,0,0,1]
 Point(doLeft)
 Point(doTop)
 Point(doSetFocus)
 Point(doBringToFront)
 Point(DateTime)
 Point(doSendToBack)
 link(onChange,10029744:doConvert,[(634,272)(634,317)(576,317)(576,335)])
}
Add(DateConvertor,10029744,588,329)
{
 Mode=9
 Format="dd-MM-yyyy"
 Point(Data)
 link(onResult,3498945:doSetData,[(634,335)(634,373)(380,373)(380,272)])
 link(Data,9450650:DateTime,[])
}
Add(MTStrTbl,9842821,399,126)
{
 Left=25
 Top=20
 Width=360
 Height=170
 Font=[MS Sans Serif,12,0,0,1]
 Name="MtS_tbl"
 Columns=#1:1|1:2|1:3|
 ColumnWidth=90
}
Add(MT_Memory,13620734,476,231)
{
}
Add(Message,15269198,490,399)
{
}


Редактировалось 1 раз(а), последний 2025-03-17 11:09:11
карма: 1

0
Разработчик
Ответов: 26249
Рейтинг: 2140
#149: 2025-03-17 12:07:58 ЛС | профиль | цитата
strannik_nebes писал(а):
Точка выдает 29 раз номер столбца

Там что написано на точке -- "onVisibleCell=Событие происходит всякий раз при необходимости включить/выключить видимость внешнего элемента"
Где там что-то про выход написано?
Эта точка нужна для управления видимостью внешнего контрола. И это не номер столбца выдается, а лог единица на включение видимости контрола.
карма: 22

0
Ответов: 2358
Рейтинг: 683
#150: 2025-04-10 15:06:56 ЛС | профиль | цитата
nesco, есть ошибка и вопросы:
-Ошибка
Если использовать MST_DrawManager, иконки в строках, то отображается содержимое скрытого последнего столбца, хотя его заголовок не отображается (снимок 1 с ошибкой и снимок 2 без ошибки и без MST_DrawManager). В тестовой схеме достаточно удалить MST_DrawManager чтоб увидеть разницу.
-Вопрос 1
Можно ли достичь того чтоб цвет шрифта (в примере красный) оставался на выделенной строке того же цвета не используя MST_DrawManager? (выделенная строка на снимке 1)
-Вопрос 2
Можно ли достичь того чтоб не сбрасывалось выделение с строки если нажать курсором на пустую (не занятую строками снизу или не занятую столбцами справа) часть таблицы?
снимок 1
снимок 2
схема для тестирования


Add(MainForm,2953706,112,154)
{
 Width=609
 Height=361
 Position=1
 link(onCreate,3556725:doEnum,[])
}
Add(MTStrTbl,303165,427,161)
{
 Left=10
 Top=10
 Width=575
 Height=300
 Font=[MS Sans Serif,12,0,0,1]
 Name="testTable"
 Columns=#8:test1=80|9:test2=200|9:test3=200|6:test=0|
 NIdxIcon=0
 ColorItems=0
 Grid=0
 SmallIconsManager="iconColumn"
 DrawManager="drawTable"
}
Add(MT_String,6192416,294,161)
{
 link(onResult,4870764:doRowAction,[])
}
Add(StrList,6915816,140,98)
{
 Strings=#37:0;1;test string 111;test string 12;1;|37:0;2;test string 121;test string 22;2;|37:0;3;test string 131;test string 32;3;|37:0;4;test string 141;test string 42;4;|37:0;5;test string 151;test string 52;5;|37:0;6;test string 161;test string 62;6;|37:0;7;test string 171;test string 72;7;|37:0;8;test string 181;test string 82;8;|
}
Add(ArrayEnum,3556725,154,168)
{
 link(onItem,6192416:doMT,[])
 link(onEndEnum,14056293:doAdd,[(194,181)(194,258)])
 link(Array,6915816:Array,[])
}
Add(MST_RowAction,4870764,343,161)
{
 MSTControl="testTable"
}
Add(MST_RowAction,15658638,343,252)
{
 Action=5
 MSTControl="testTable"
}
Add(MT_AddData,14056293,203,252)
{
 link(onAdd,15658638:doRowAction,[])
 link(Data1,10227341:Value,[])
 link(Data2,1891607:Value,[(216,244)(251,244)])
}
Add(Memory,10227341,203,203)
{
 Default=Integer(3)
 AddHint(4,-18,21,13,Default)
}
Add(Memory,1891607,245,203)
{
 Default=Integer(9)
 AddHint(2,-18,21,13,Default)
}
Add(IconsManager,8032623,203,98)
{
 Name="iconColumn"
 ImgSize=20
 Icons=['down'=[ZIP7E04000078DA636060044201010620A9C090C1C2C020C6C0C0A001C44021A008441C041C5818860C602E63FF8F8CC9D12FB1C4E0BFD46663B2F5CBAEB4FAAFB0D3816CFD8AEB9CFFABEDF7254A3FBA7F41587367F07FBDE3B1FFB1C961D3EFFBB4E1BFC7C3EAFF0E378BFF5B5FC90363A3D329FF75F747FE575CEB04F68FD8226D9CFA43DF76609801D20F7203C81FF23B6C7186274F8510AA1B0BD8C066585CCC06B3D131C1F000AA717F5005368318F5D8F483FCE27AAF826CFD41AF5BC16690AB9F14FF0E14F8FF9F890984FFD8A3E203CCC8988505559E8503A60F006B34AD56]]
 Point(EndIdxIcons)
 Point(ImgSize)
}
Add(MST_DrawManager,7123157,427,245)
{
 Name="drawTable"
 LightTextSel=1
}
карма: 11

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