USING Progress.Lang.*.
USING Progress.Windows.Form.
CLASS progressbar INHERITS Form:
DEFINE PRIVATE VARIABLE components AS System.ComponentModel.IContainer NO-UNDO.
DEFINE PRIVATE VARIABLE progressBar1 AS System.Windows.Forms.ProgressBar NO-UNDO.
CONSTRUCTOR PUBLIC progressbar ( ):
SUPER().
InitializeComponent().
THIS-OBJECT:ComponentsCollection:ADD(THIS-OBJECT:components).
CATCH e AS Progress.Lang.Error:
UNDO, THROW e.
END CATCH.
END CONSTRUCTOR.
METHOD PRIVATE VOID InitializeComponent( ):
THIS-OBJECT:progressBar1 = NEW System.Windows.Forms.ProgressBar().
THIS-OBJECT:SuspendLayout().
THIS-OBJECT:progressBar1:Location = NEW System.Drawing.Point(13, 13).
THIS-OBJECT:progressBar1:Name = "progressBar1".
THIS-OBJECT:progressBar1:Size = NEW System.Drawing.Size(267, 22).
THIS-OBJECT:progressBar1:TabIndex = 0.
THIS-OBJECT:progressBar1:Value = 33. /* <--- this indicates % */
THIS-OBJECT:ClientSize = NEW System.Drawing.Size(292, 266).
THIS-OBJECT:Controls:Add(THIS-OBJECT:progressBar1).
THIS-OBJECT:Name = "progressbar".
THIS-OBJECT:Text = "progressbar".
THIS-OBJECT:ResumeLayout(FALSE).
CATCH e AS Progress.Lang.Error:
UNDO, THROW e.
END CATCH.
END METHOD.
DESTRUCTOR PUBLIC progressbar ( ):
END DESTRUCTOR.
END CLASS.