Progress Bar in help index

[Esabik]

Macro Scheduler-Help.jpg

Hi

I cannot seem to locate "Progress Bar" in the help index and I want to understand the instructions for it or am I missing something?? Curious, thanks......

[Marcus Tettmar]

I think you must be referring to the dialog object, in which case you should find it under Dialog Objects:
https://www.mjtnet.com/manual/index.htm ... erties.htm

[Esabik]

thanks, but if I want to use some of the settings, I am not clear on how to code these.

For example:

Smooth Specifies whether the progress bar is smooth or segmented.

SmoothReverse Sets and gets the ability to show a decrease in progress of the progress bar.

Smooth=1 ????
SmoothReverse=1 ????

Is there a sample of every setting in the list for the progress bar somewheres??

[zabros2020]

I tend to use this, bit hacky but does the trick

Code: Select all

Dialog>DialogProgress
object DialogProgress: TForm
  Left = 225
  Top = 225
  HelpContext = 5000
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'App-%fileVersion% please Wait...'
  ClientHeight = 46
  ClientWidth = 433
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = True
  PopupMode = pmExplicit
  Position = poScreenCenter
  ShowHint = True
  OnTaskBar = True
  PixelsPerInch = 96
  TextHeight = 13
  object lblProgressOf: TLabel
    Left = 4
    Top = 4
    Width = 52
    Height = 15
    Caption = 'progress'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Progressbar: TProgressBar
    Left = 1
    Top = 21
    Width = 430
    Height = 20
    MarqueeInterval = 20
    Step = 20
    TabOrder = 0
  end
end
EndDialog>DialogProgress

Let>fileVersion=Testv1%SPACE%
Let>perC=%
'Progressbar
Let>ProgressCounter=20
Let>ProgressOf=Progress Of "%fileVersion%" %ProgressCounter%%perC%
GoSub>DisplayProgressBar
'MAKE IT DO SOMETHING
Wait>2
'--------------------

'Progressbar
Let>ProgressCounter=40
Let>ProgressOf=Progress Of "%fileVersion%" %ProgressCounter%%perC%
GoSub>DisplayProgressBar
Wait>2
'MAKE IT DO SOMETHING
'--------------------

'Progressbar
Let>ProgressCounter=60
Let>ProgressOf=Progress Of "%fileVersion%" %ProgressCounter%%perC%
GoSub>DisplayProgressBar
Wait>2
'MAKE IT DO SOMETHING
'--------------------

'Progressbar
Let>ProgressCounter=80
Let>ProgressOf=Progress Of "%fileVersion%" %ProgressCounter%%perC%
GoSub>DisplayProgressBar
Wait>2
'MAKE IT DO SOMETHING
'--------------------

'Progressbar
Let>ProgressCounter=100
Let>ProgressOf=Progress Of "%fileVersion%" %ProgressCounter%%perC%
GoSub>DisplayProgressBar
'MAKE IT DO SOMETHING
'--------------------

SRT>DisplayProgressBar
    SetDialogProperty>DialogProgress,,FormStyle,fsStayOnTop
    Let>dlgCaption=APP-%fileVersion%: please wait...
    SetDialogProperty>DialogProgress,,Caption,%dlgCaption%

    Show>DialogProgress
    
    SetDialogProperty>DialogProgress,Progressbar,Position,%ProgressCounter%
    SetDialogProperty>DialogProgress,lblProgressOf,Caption,%ProgressOf%
        
    If>ProgressCounter=100
        SetDialogProperty>DialogProgress,,FormStyle,fsNormal
        CloseDialog>DialogProgress
    EndIf
END>DisplayProgressBar

[Esabik]

Nevermind just found it.......

Cheers!!!