[CDR 2017-2021] Вызов индикатора фоновой работы из скрипта

[mnemonix]

В CorelDraw есть возможность включить работу в фоновом режиме (рис. 1) - сохранение, экспорт, генерацию PDF (рис. 2).
Вопрос: можно ли показать индикатор при генерации PDF скриптом?

 

[_MBK_]

Под скриптом вы снова VBA макрос, надо полагать, подразумеваете?
Корел не особо большие возможности для многозадачности предоставляет, индикатор можно

 

[mnemonix]

Наверное макрос, хотя теперь всё в 2021 называется скриптами)

Sub ExportJPG_PDF()

    Dim myDoc As Document
    Set myDoc = ActiveDocument
        With myDoc.PDFSettings
            .ColorMode = pdfCMYK
            .BitmapCompression = pdfJPEG
            .CompressText = True
            .pdfVersion = pdfVersion14
            .TextAsCurves = True
        End With
    
    myDoc.PublishToPDF Mid(ActiveDocument.FullFileName, 1, Len(ActiveDocument.FullFileName) - 3) & "pdf"
    
    Dim expOptions As New StructExportOptions
        expOptions.AntiAliasingType = cdrNormalAntiAliasing
        expOptions.Compression = cdrCompressionJPEG
        expOptions.ImageType = cdrRGBColorImage
        expOptions.MaintainAspect = True
        expOptions.ResolutionX = 300
        expOptions.ResolutionY = 300
        expOptions.UseColorProfile = True
    
    ActiveDocument.Export Mid(ActiveDocument.FullFileName, 1, Len(ActiveDocument.FullFileName) - 3) & "jpg", cdrJPEG, cdrCurrentPage, expOptions

End Sub

 

[_MBK_]

Ответ на оба ваших вопроса

 

[mnemonix]

Благодарю, постараюсь разобраться.

 

[mnemonix]

К сожалению указанные там макросы не работают в X7 и выше. печалька.

 

[_MBK_]

не работают в X7

Резонно

Version Information:

Corel PHOTO-PAINT:	2017, 2018, 2019, 2019.2, 2020, 2021
CorelDRAW:	2017, 2018, 2019, 2019.2, 2020, 2021
Corel DESIGNER:	2017.1, 20.1, 2019.2

 

[lev]

указанные там макросы не работают в X7

В заголовке темы Вы указали желаемую версию [CDR 2021]

 

[mnemonix]

Не смог добиться результата, будем курить мануалы))

 

[_MBK_]

Не смог добиться результата,

А какого результата вы хотели? И каков отрицательный результат или безрезультатный результат?

 

[mnemonix]

Не смог вызвать джинна индикатор. Из макроса не пошло, JS мне пока незнаком.

 

[_MBK_]

JS мне пока незнаком.

Зачем вам JS?
По документации должно работать именно из макроса, если у вас, конечно, правильная версия

 

[mnemonix]

Не заработало, там две версии вызова, обе не пошли.

 

[dastin]

Не заработало

так ить ... там же

при паблиш ту пдф нет циклов (даже при многостраничном документе) - процесс неделим. Или готово или нет

 

[mnemonix]

Именно так и делал, со счётчиком.

Sub TestProgressBar()
Const Max = 1000000
Dim stat As AppStatus, z&
    Set stat = Application.Status
    stat.BeginProgress
    For z = 1 To Max
        stat.Progress = (z / Max) * 100
        stat.UpdateProgress
    Next
    stat.EndProgress
End Sub

 

[dastin]

чтобы наверняка везде работало - попробуйте так:
- на форме создаете два Label - #1 с числами 0 слева и 100% справа
- Label #2 изначально имеет ширину 0, другой цвет и число исполненных процентов в Caption (с выравниванием справа)
и располагается ровно над Label#1
- по мере роста числа циклов меняйте в коде ширину Label#2
- получите подобие стандартного прогресс-бара

 

[dastin]

вариантов оформления масса - типа такого напрмер

 

[mnemonix]

Продолжаем разговор)) Данные команды вызывают прогресс-бар, но сразу половину (50%), по окончании закрывает. Но хотелось бы нормального движения. Пока не решил. Где может собака порыться?

Application.Status.BeginProgress

CanAbort = False

Application.Status.UpdateProgress step = 1

Application.Status.EndProgress

 

[mnemonix]

Sub TestProgressBar()
Const Max = 500000
Dim stat As AppStatus, z&
    Set stat = Application.Status
    stat.BeginProgress
    For z = 1 To Max

        stat.Progress = (z / Max) * 100
        stat.UpdateProgress step = 1
    Next
   stat.EndProgress
End Sub

Так, забегал бар, но только первый раз. После срабатывания stat.EndProgres бегать перестаёт. Может как-то обнулить/перезапустить?