Ошибки элементов Дерева кортежей

Вверх ↑

Форумы Ошибки в компонентахОшибки элементов Дерева кортежей ← Ctrl123Ctrl →

Этот топик читают: Гость

Ответов: 2479

Рейтинг: 698

#16: 2026-01-27 17:58:51 ЛС | профиль | цитата

Странно, проверил ещё раз, без проблем загружается: https://forum.hiasm.com/getfile/17052

карма: 11

Ответов: 1034

Рейтинг: 218

#17: 2026-01-27 18:11:57 ЛС | профиль | цитата

sla8a писал(а):

проверил ещё раз, без проблем загружается: https://forum.hiasm.com/getfile/17052

А какой у тебя браузер? В хроме пустой чёрный экран.

карма: 20

Ответов: 2479

Рейтинг: 698

#18: 2026-01-27 18:37:44 ЛС | профиль | цитата

Gunta, женным лисом пользуюсь и на смартфоне и на компьютере открываются ссылки на схемы как текст.

карма: 11

Ответов: 1034

Рейтинг: 218

#19: 2026-01-27 18:46:14 ЛС | профиль | цитата

sla8a,
Проверил, в Firefox и Edge открывается. В Chrome пустой черный экран.

карма: 20

Ответов: 2479

Рейтинг: 698

#20: 2026-01-27 22:21:18 ЛС | профиль | цитата

Gunta, странно. И чем это хромому обычные текстовые файлы не угодили.

карма: 11

Ответов: 213

Рейтинг: 5

#21: 2026-01-28 10:59:12 ЛС | профиль | цитата

sla8a, на компьютере с виндой файлы txt, sha отсюда не скачаешь - некоторые браузеры пишут, что опасные, а каспер их тупо удаляет по содержимому после скачивания. Только zip и то настаивают на удаление. Приходится пользоваться утилитой от Netsprinta "Скачивание файлов" (HTTP Components 2020-04-17).
P.S: на работе каспера не отключишь.

Редактировалось 4 раз(а), последний 2026-01-28 11:02:17

карма: 1

Сообщество Hiasm в VK https://vk.com/club_HiAsm (компоненты, статьи, схемы).

Разработчик

Ответов: 26325

Рейтинг: 2148

#22: 2026-01-28 12:49:13 ЛС | профиль | цитата

sla8a писал(а):

что-то не припомню с чем это связано и твоя это правка вообще?

Да, это моя правка, тк это переназначение отправляет в пустое место на заглушку. Там весь код переделан.

--- Добавлено в 2026-01-28 12:52:52

Все, что отключено, теперь работает вот здесь

    WM_MOUSEMOVE:
    begin
      t_MouseEvent.cbSize := SizeOf(TTrackMouseEvent);
      t_MouseEvent.hwndTrack := Control.Handle;
      t_MouseEvent.dwFlags := TME_LEAVE; 
      TrackMouseEvent(t_MouseEvent);

      Ms.X := LoWord(Msg.lParam);
      Ms.Y := HiWord(Msg.lParam); 

      if not InitMouseHover then
      begin
        GetCursorPos(pt);
        GetWindowRect(Control.Handle, rc);
        if PtInRect(rc, pt) then
          Sendmessage(Control.Handle, US_HINTMOUSEHOVER, 0, 0);
        InitMouseHover := true;
      end;
      if Assigned(_prop_HintManager)then
      begin
        if {$ifdef F_P}boolean{$endif}(_prop_HintManager.gethtreck) then
        begin
          if (Ms.X <> oldX) or (Ms.Y <> oldY) then
          begin
            oldX := Ms.X;
            oldY := Ms.Y;
            _prop_HintManager.move(hid, Ms.X, Ms.Y);
          end;
        end;
      end;

      case Msg.wParam of
        1:   b :=  0;
        2:   b :=  1;
        16:  b :=  2;
        else b := -1;
      end;
      Sendmessage(Control.Handle,US_MOUSEMOVE, 0, b);
    end;

--- Добавлено в 2026-01-28 13:14:34

С новым Хромом действительно траблы, он не хочет грузить файлы

--- Добавлено в 2026-01-28 13:18:15

Кстати, Edge тоже не открывает

Редактировалось 4 раз(а), последний 2026-01-28 13:18:15

карма: 22

Ответов: 1034

Рейтинг: 218

#23: 2026-01-28 15:12:25 ЛС | профиль | цитата

nesco писал(а):

Кстати, Edge тоже не открывает

Первый раз проверял, текстовая схема загрузилась. Попробовал ещё раз и облом..

карма: 20

Разработчик

Ответов: 26325

Рейтинг: 2148

#24: 2026-01-29 14:35:41 ЛС | профиль | цитата

Вернул работу метода OnMouseMove через заглушку. Вроде как Drag&Drop заработал. Проверяйте.

Редактировалось 2 раз(а), последний 2026-01-29 14:36:55

карма: 22

Ответов: 17

Рейтинг: 0

#25: 2026-01-29 17:11:21 ЛС | профиль | цитата

Как может заданное вкрасться в не меняемое значение? При том что sla8a вообще в node впихивает конвертированный стрим. На схемах с небольшой разницей результат неодинаков.


Add(MainForm,9944926,952,210)
{
 Width=527
 Height=306
 Caption="TreeViewTrain"
 Position=1
 link(onCreate,14398991:doEnum,[(1023,230)(1023,169)(380,169)(380,265)])
}
Add(TreeViewTrain,1574694,672,245)
{
 Width=175
 Height=279
 Align=5
 Name="main"
 DragDrop=0
 CaptionIndex=1
 ParentIDIndex=2
 IconIndex=3
 UseHashMap=0
 Point(doExpand)
 Point(NextID)
 link(onClick,3664420:doStr,[])
}
Add(TVT_AddNode,3105964,560,252)
{
 TreeView="main"
 link(onAddNode,1574694:doExpand,[])
}
Add(MT_String,2781724,462,252)
{
 link(onResult,3105964:doAddNode,[])
}
Add(MT_String,3664420,770,245)
{
 link(onResult,11840062:doEvent1,[])
}
Add(MultiStrPart,8456177,938,266)
{
 Count=3
 link(onSplit,7216145:doReset,[(982,272)(982,314)(456,314)(456,447)])
}
Add(Hub,11840062,826,245)
{
 OutCount=3
 link(onEvent1,9944926:doCaption,[(892,251)(892,216)])
 link(onEvent2,8456177:doSplit,[(894,258)(894,272)])
}
Add(TVT_EnumNodes,1775718,560,441)
{
 TreeView="main"
 link(onEnum,9247204:doValue,[])
}
Add(If_else,9247840,756,441)
{
 Op1=String()
 Op2=String()
 link(onFalse,9354627:doDeleteNode,[])
 link(Op1,13989992:Var2,[(762,367)(704,367)])
 link(Op2,7467601:Var1,[(769,366)])
}
Add(MT_MultiMem,9247204,651,441)
{
 Count=3
 link(onData,9247840:doCompare,[])
}
Add(GetDataEx,7467601,910,361)
{
 Angle=1
 link(Data,8456177:Part1,[(944,366)])
}
Add(GetDataEx,13989992,698,385)
{
 Angle=2
 link(Data,12595321:Var3,[(704,547)])
}
Add(TVT_ChangeNode,2712222,1204,455)
{
 TreeView="main"
}
Add(Switch,7216145,497,434)
{
 Default=0
 Point(onOff)
 link(onOff,1775718:doEnum,[])
}
Add(MT_AddData,9211333,1078,448)
{
 Count=3
 link(onAdd,5216300:doAddNode,[(1157,454)(1157,545)])
 link(Data1,13989992:Var3,[(1084,390)])
 link(Data2,9247204:Value2,[(1091,390)(1129,390)(1129,519)(664,519)])
 link(Data3,7467601:Var2,[(1098,413)(916,413)])
}
Add(StrList,9206708,308,252)
{
 Strings=#9:1;node;-1|11:2;nonode;-1|
}
Add(ArrayEnum,14398991,392,259)
{
 link(onItem,2781724:doMT,[])
 link(Array,9206708:Array,[(398,237)(277,237)(277,309)(328,309)])
}
Add(TVT_DeleteNode,9354627,959,448)
{
 TreeView="main"
 link(onDeleteNode,9211333:doAdd,[])
 link(Data,12595321:Var2,[(965,436)(825,436)(825,557)(685,557)])
}
Add(TVT_AddNode,5216300,1204,539)
{
 TreeView="main"
}
Add(GetDataEx,12595321,679,542)
{
 Angle=3
 link(Data,9247204:Value1,[(657,547)])
}

sha прикрепить как?


Add(MainForm,9944926,945,210)
{
 Width=527
 Height=306
 Caption="TreeViewTrain"
 Position=1
 link(onCreate,14398991:doEnum,[(1005,230)(1005,169)(380,169)(380,265)])
}
Add(TreeViewTrain,1574694,672,245)
{
 Width=175
 Height=279
 Align=5
 Name="main"
 DragDrop=0
 CaptionIndex=1
 ParentIDIndex=2
 IconIndex=3
 UseHashMap=0
 Point(doExpand)
 Point(NextID)
 link(onClick,3664420:doStr,[])
}
Add(TVT_AddNode,3105964,560,252)
{
 TreeView="main"
 link(onAddNode,1574694:doExpand,[])
}
Add(MT_String,2781724,462,252)
{
 link(onResult,3105964:doAddNode,[])
}
Add(MT_String,3664420,770,245)
{
 link(onResult,11840062:doEvent1,[])
}
Add(MultiStrPart,8456177,938,266)
{
 Count=3
 link(onSplit,7216145:doReset,[(982,272)(982,314)(456,314)(456,447)])
}
Add(Hub,11840062,826,245)
{
 OutCount=3
 link(onEvent1,9944926:doCaption,[(892,251)(892,216)])
 link(onEvent2,8456177:doSplit,[(894,258)(894,272)])
}
Add(TVT_EnumNodes,1775718,560,441)
{
 TreeView="main"
 link(onEnum,9247204:doValue,[])
}
Add(If_else,9247840,756,441)
{
 link(onFalse,260205:doEvent1,[])
 link(Op1,13989992:Var2,[(762,367)(704,367)])
 link(Op2,7467601:Var1,[(769,366)])
}
Add(MT_MultiMem,9247204,651,441)
{
 Count=3
 link(onData,9247840:doCompare,[])
}
Add(GetDataEx,7467601,910,361)
{
 Angle=1
 link(Data,8456177:Part1,[(944,366)])
}
Add(GetDataEx,13989992,698,385)
{
 Angle=2
 link(Data,9247204:Value1,[(704,547)(657,547)])
}
Add(TVT_ChangeNode,2712222,1062,448)
{
 TreeView="main"
}
Add(Switch,7216145,497,434)
{
 Default=0
 Point(onOff)
 link(onOff,1775718:doEnum,[])
}
Add(MT_AddData,9211333,950,448)
{
 Count=3
 link(onAdd,2712222:doChangeNode,[])
 link(Data1,13989992:Var3,[(956,390)])
 link(Data2,9247204:Value2,[(963,390)(1148,390)(1148,527)(664,527)])
 link(Data3,7467601:Var2,[(970,413)(916,413)])
}
Add(StrList,9206708,308,252)
{
 Strings=#9:1;node;-1|11:2;nonode;-1|
}
Add(ArrayEnum,14398991,392,259)
{
 link(onItem,2781724:doMT,[])
 link(Array,9206708:Array,[(398,237)(277,237)(277,309)(328,309)])
}
Add(Hub,260205,854,448)
{
 OutCount=3
 link(onEvent1,9211333:doAdd,[])
}

карма: 0

Ответов: 2479

Рейтинг: 698

#26: 2026-01-29 20:16:59 ЛС | профиль | цитата

Dictor, ну предупреждал же чтоб не мешать данные

. В твоих схемах ты сравниваешь число со строкой:

Add(MainForm,9944926,840,189)
{
 Width=527
 Height=306
 Caption="TreeViewTrain"
 link(onCreate,14398991:doEnum,[(911,209)(911,148)(268,148)(268,244)])
}
Add(TreeViewTrain,1574694,560,224)
{
 Width=175
 Height=279
 Align=5
 Name="main"
 DragDrop=0
 CaptionIndex=1
 ParentIDIndex=2
 IconIndex=3
 UseHashMap=0
 Point(doExpand)
 Point(NextID)
 link(onClick,3664420:doStr,[])
}
Add(TVT_AddNode,3105964,448,231)
{
 TreeView="main"
 link(onAddNode,1574694:doExpand,[])
}
Add(MT_String,2781724,350,231)
{
 link(onResult,3105964:doAddNode,[])
}
Add(MT_String,3664420,658,224)
{
 link(onResult,11840062:doEvent1,[])
}
Add(MultiStrPart,8456177,826,245)
{
 Count=3
 link(onSplit,7216145:doReset,[(870,251)(870,293)(344,293)(344,426)])
}
Add(Hub,11840062,714,224)
{
 OutCount=3
 link(onEvent1,9944926:doCaption,[(780,230)(780,195)])
 link(onEvent2,8456177:doSplit,[(782,237)(782,251)])
}
Add(TVT_EnumNodes,1775718,448,420)
{
 TreeView="main"
 link(onEnum,9247204:doValue,[])
}
Add(If_else,9247840,644,420)
{
 Op1=String()
 Op2=String()
 link(onFalse,9354627:doDeleteNode,[])
 link(Op1,13203105:Var,[])
 link(Op2,6372998:Var,[])
}
Add(MT_MultiMem,9247204,539,420)
{
 Count=3
 link(onData,9247840:doCompare,[])
}
Add(GetDataEx,7467601,798,340)
{
 Angle=1
 link(Data,8456177:Part1,[(832,345)])
}
Add(GetDataEx,13989992,586,364)
{
 Angle=2
 link(Data,12595321:Var3,[(592,526)])
}
Add(TVT_ChangeNode,2712222,1092,434)
{
 TreeView="main"
}
Add(Switch,7216145,385,413)
{
 Default=0
 Point(onOff)
 link(onOff,1775718:doEnum,[])
}
Add(MT_AddData,9211333,966,427)
{
 Count=3
 link(onAdd,5216300:doAddNode,[(1045,433)(1045,524)])
 link(Data1,13989992:Var3,[(972,369)])
 link(Data2,9247204:Value2,[(979,369)(1017,369)(1017,498)(552,498)])
 link(Data3,7467601:Var2,[(986,392)(804,392)])
}
Add(StrList,9206708,196,231)
{
 Strings=#9:1;node;-1|11:2;nonode;-1|
}
Add(ArrayEnum,14398991,280,238)
{
 link(onItem,2781724:doMT,[])
 link(Array,9206708:Array,[(286,216)(165,216)(165,288)(216,288)])
}
Add(TVT_DeleteNode,9354627,847,427)
{
 TreeView="main"
 link(onDeleteNode,9211333:doAdd,[])
 link(Data,12595321:Var2,[(853,415)(713,415)(713,536)(573,536)])
}
Add(TVT_AddNode,5216300,1092,518)
{
 TreeView="main"
}
Add(GetDataEx,12595321,567,521)
{
 Angle=3
 link(Data,9247204:Value1,[(545,526)])
}
Add(Debug,13203105,644,392)
{
 WEName=""
 VDName="число"
 link(Data,13989992:Var2,[(650,358)(592,358)])
}
Add(Debug,6372998,651,378)
{
 WEName=""
 VDName="строка"
 link(Data,7467601:Var1,[(657,345)])
}

На этом любая логика поломается. А так не совсем понимаю что конкретно нужно получить (что куда вставить).

nesco писал(а):

Вернул работу метода OnMouseMove через заглушку. Вроде как Drag&Drop заработал. Проверяйте.

На первый взгляд все работает, но нужно понаблюдать.

strannik_nebes писал(а):

файлы txt, sha отсюда не скачаешь - некоторые браузеры пишут, что опасные

Вот и зачем такой браузер. Это же бред. Я может что-то упустил, но с каких это пор текстовой файл может нести угрозу? Откуда у браузеров эта паранойя? С антивирусниками то понятно, это их хлеб гавкать на любой шорох и показывать свою важность, а то хозяин выгонит. А к примеру http://svn.hiasm.com/packs/delphi/code/Win.pas тоже не откроется?

Редактировалось 5 раз(а), последний 2026-01-29 20:24:55

карма: 11

Ответов: 17

Рейтинг: 0

#27: 2026-01-29 20:53:05 ЛС | профиль | цитата

sla8a, пытаюсь
организовать замену данных в train на нужные , для смены положения указанного id в node или ветви; изменяются данные в индексе назначенном родительским. Debug предлагать будете?

карма: 0

Ответов: 2479

Рейтинг: 698

#28: 2026-01-29 22:48:56 ЛС | профиль | цитата

Dictor, элемент TVT_ChangeNode (Изменение элемента дерева) не изменяет индекс родителя. Если нужно поменять родителя, то удаление и вставка с нужным индексом родителя.

карма: 11

Ответов: 17

Рейтинг: 0

#29: 2026-01-30 07:21:43 ЛС | профиль | цитата

Короче, TVT_ChangeNode неограничен в возможности применения к Caption, - с пользой по максимуму.

карма: 0

Ответов: 2479

Рейтинг: 698

#30: 2026-01-30 07:51:17 ЛС | профиль | цитата

Dictor, TVT_ChangeNode меняет не только Caption, ещё картинку, чекбокс. Но понимаю ваше негодование, тоже в свое время был возмущён этим моментом. Но тут ничего не поделаешь, такая логика элемента.

карма: 11

Форумы Ошибки в компонентахОшибки элементов Дерева кортежей ← Ctrl123Ctrl →


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