Действия в dbGrid (Страница 1 из 2)

Здравствуйте!
Ну честно говоря лучше все-таки нашими модулями пользоваться, писать намного меньше приходится.
Грид давно делался, когда возможности АПИ были минимальны.

По идее на нашу форму кладете Grid. При выборе в редакторе кода контрола https://help.technologics.ru/7.9/TCSHelp/_784.htm, в списке процедур должны появиться все события, которые мы распознали https://help.technologics.ru/7.9/TCSHelp/_785.htm. Соответственно на это событие и вешается код VBScript.

Ну других языках посложнее конечно.

По идее он сам должен все сделать. Набор данных (DataSource) нужно только обновить, который вы к нему прикрепили.

Ну да, там есть неудобство с докуменатами, хотя благодаря этому можно очень гибко настроить.

Попробуйте мастер создания эскизов. С ними попроще https://help.technologics.ru/7.9/TCSHelp/_257.htm.

Ну а так в данном случае лучше всего использовать дерево. Там очень много можно удобно и быстро делать https://forum.technologics.ru/post14273.html#p14273.

С событием посмотрим.

Здравствуйте.
Не понимаю почему макрос получает только один эскиз в операции, тогда как их в операции два.

Set TechSketches = AM.Properties("TechnologySketches").AsIDispatch
TechSketches.First
    Do
Pos = TechSketches.Properties("SKETCH_POS").AsSafeString
Call Node.SetNodePropValues( "REM", Pos )
Call Node.SetNodePropValues( "VALUE", TechSketches.Properties("SKETCH_NOTE").AsSafeString )
 TechSketches.Next
    Loop While Not TechSketches.Eof

Спасибо, разобрался.
Теперь снова затык по событиям нажатия.
Допустим есть два эскиза в дереве, как добавить событие онДблКлик на открытие предварительного просмотра эскиза?

Сделал так:

 Set Sketches = AM.Properties("TechnologySketches").AsIDispatch
 Set OpenSketch = Sketches.ActionList.ActionByName("PrvAction")

Call OpenSketch.Execute
 Call TCSApp.ShowErrorMessage( "DblClick" )

В таком виде работает, но окошко предварительного просмотра эскиза находится поверх сообщения "DblClick" и закрыть его нельзя.
Если выполнять скрипт без строчки Call TCSApp.ShowErrorMessage( "DblClick" ), тогда эскиз не выводится вообще. Странно как-то работает.

А какой смысл в использовании строчки Call TCSApp.ShowErrorMessage( "DblClick" )?
Ведь в скрипте до этой функции указано, какие действия выполнять.

То есть без использования Call TCSApp.ShowErrorMessage не обойтись, чтобы просто показывалось системное окно с предварительным просмотром эскиза?

Если можно покажите пожалуйста пример, какой модуль положить на форму и примерный код.

А какой модуль подключать для реализации показа эскиза?
Вы извините за такие вопросы, не получается никак сделать.

В общем-то реализация показа эскиза Ваша нравилась. Нужно было просто выполнить функцию показа эскиза, через 

Set OpenSketch = Sketches.ActionList.ActionByName("PrvAction")
Call OpenSketch.Execute

Для чего писать свои функции предпросмотра эскиза я так и не понял, так как Call OpenSketch.Execute в Api Explorer работает. Получается для реализации простого выполнения функции открытия нужно кучу не нужного самостоятельно написать, вместо того, чтобы воспользоваться системной функцией...

Касаемо выгрузки, как выгружать эскиз выделенной позиции в дереве?
Дерево строится так:

'Строим дерево по операциям ТП
oper.First
Do
 If oper.ClassType = CSDN_Const.ctOperation then
 operpos = oper.Properties("OPER_POS").AsSafeString
 nameoper = oper.Properties("NMK_NAME").AsSafeString
 oper1 = operpos & " (" & nameoper & ")"
Set rootNode = axTree.AddNode( oper1, nothing )
  Set TechSketches = oper.Properties("TechnologySketches").AsIDispatch
   if TechSketches.Properties("ID").value<>0 or TechSketches.Properties("id").value <> null then

'Строим дерево по эскизам в операциях ТП
      TechSketches.First
      Do
      a=a+1
        Set Node = axTree.AddNode( TechSketches.Properties("SKETCH_POS").AsSafeString, rootNode )
        Call Node.SetNodePropValues( "VALUE", TechSketches.Properties("SKETCH_NOTE").AsSafeString )
         TechSketches.Next
      Loop While Not TechSketches.Eof
    Call rootNode.Expand( True )
    end if
 end if
oper.Next
Loop While Not oper.Eof
 axTree.DbTree.SaveChangesEx

Ну в данном случае с эскизами непросто работать. Но специальной функции или модуля для показа эскиза в АПИ нет.

Вызов Action (как и работа с ChildModules) - это доступ к внутренним нашим объектам, и их работа сильно специфична от версии в версии.

Как и в TCS. Взять версию документа, у нее получить эскизы, найти нужный эскиз и сохранить его на диске.

Там нет понятия выделенной позиции, поэтому пример написать сложно, тут уже от вашей реализации зависит все (можно сделать сильно по разному).
По факту что то типа примера из хелпа  (немного модифицирован)

If App.Folders.RunModuleForSelect("Выберите документ", False) > 0 Then
    Set Sketches = App.Folders.Properties("SKETCHES").AsIDispatch
    If Sketches.RunModuleForSelect("Выберите эскизы документа", False ) >0 Then
       Call Sketches.SaveToFile( "C:\1.jpg" )
    End if
End If