Progress Bar in help index

Ideas for new features & functions

Moderators: Dorian (MJT support), JRL

Post Reply
User avatar
Esabik
Pro Scripter
Posts: 52
Joined: Wed Jun 15, 2005 8:03 pm
Location: Fairfield, NJ

Progress Bar in help index

Post by Esabik » Mon Oct 17, 2016 2:38 pm

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...... :?
Just when you thought it was safe to go in the water........:evil:

User avatar
Marcus Tettmar
Site Admin
Posts: 7378
Joined: Thu Sep 19, 2002 3:00 pm
Location: Dorset, UK
Contact:

Re: Progress Bar in help index

Post by Marcus Tettmar » Mon Oct 17, 2016 3:55 pm

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
Marcus Tettmar
http://mjtnet.com/blog/ | http://twitter.com/marcustettmar

Did you know we are now offering affordable monthly subscriptions for Macro Scheduler Standard?

User avatar
Esabik
Pro Scripter
Posts: 52
Joined: Wed Jun 15, 2005 8:03 pm
Location: Fairfield, NJ

Re: Progress Bar in help index

Post by Esabik » Tue Oct 18, 2016 6:00 pm

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??
Just when you thought it was safe to go in the water........:evil:

zabros2020
Pro Scripter
Posts: 70
Joined: Sun May 03, 2009 11:49 pm
Location: AU

Re: Progress Bar in help index

Post by zabros2020 » Wed Oct 19, 2016 3:30 am

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

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

Loving MS's Capabilities!!!

User avatar
Esabik
Pro Scripter
Posts: 52
Joined: Wed Jun 15, 2005 8:03 pm
Location: Fairfield, NJ

Re: Progress Bar in help index

Post by Esabik » Fri Oct 21, 2016 4:15 pm

Nevermind just found it.......

Cheers!!!
Just when you thought it was safe to go in the water........:evil:

Post Reply
Sign up to our newsletter for free automation tips, tricks & discounts