#66895 - 2002-06-17 04:30 AM
Re: why are all the regulars hanging...
|
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
In that case I like the AddLabel Method.
[ 17 June 2002, 04:31: Message edited by: Howard Bullock ]
|
|
Top
|
|
|
|
|
#66896 - 2002-06-17 05:02 AM
Re: why are all the regulars hanging...
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
You the man ... hows this looking for easy-on-the-eye ?
Break On
$LoginBox = CreateObject("Kixtart.LoginBox")
$LoginBox.Caption = "Installing Applications"
$LoginBox.MinButton = 0
$LoginBox.MaxButton = 0
$LoginBox.SysMenu = 0
$LoginBox.Width = 400
$LoginBox.Height = 200
$Status = $LoginBox.AddLabel(320,10,70,20,"[12 of 15]")
$Display = $LoginBox.AddLabel(10,35,380,60,"Message")
$Message = $LoginBox.AddLabel(10,80,380,20,"Status")
$PBar = $LoginBox.AddProgressBar(10,120,370,30,"")
$LoginBox.Center
$LoginBox.Show
For $i = 1 To 100 Step 2
$PBar.Value = $i
Sleep (0.2)
Next
Exit 1
Does it read ok ?
[ 17 June 2002, 06:05: Message edited by: Shawn ]
|
|
Top
|
|
|
|
|
#66897 - 2002-06-17 05:58 AM
Re: why are all the regulars hanging...
|
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
I'm a little confused by
$Display = $LoginBox.AddLabel(10,35,380,60,"Message")
$Message = $LoginBox.AddLabel(10,80,380,20,"Status")
|
|
Top
|
|
|
|
|
#66898 - 2002-06-17 06:14 AM
Re: why are all the regulars hanging...
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
No worries, thats just me being a dough-head, just putting in misc. messages ... format of the AddLabel method is:
$Label = $Form.AddLabel(Left,Top,Width,Height,Caption)
so, they are just strings that get plugged into the GUI ... The AddLabel() method seems to make sense ... thanks for the help.
While I was porting LOGINSCREEN.EXE, I came to the realization that even though I liked that control alot, it was VERY crude in terms of being able to customize it. It only had about 4 or 5 BUILTIN controls, a couple of labels, a progressbar and a Bitmap ... so I just borrowed the control creation from Kixforms.
So right now, I got support for the LoginBox (form), the Label and the ProgressBar. Just those three controls alone are enough to build some impressive progress dialog boxes ...
|
|
Top
|
|
|
|
|
#66899 - 2002-06-17 06:37 AM
Re: why are all the regulars hanging...
|
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
Your intriguing me. I am going to have to take a look at some of these tolls such as KixForms...
|
|
Top
|
|
|
|
|
#66901 - 2002-06-17 07:13 AM
Re: why are all the regulars hanging...
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Howard ? Just a reminder, this is alpha software, so go easy ... would love to get any and all feedback you may have ... nothing here is carved in stone, so have at it ...
Download KixBoxer here:
KixBoxer
Copy it to any directory, go there and type:
kixboxer -install
Then run the following script, it only runs a few seconds, but let it finish normally:
Break On
$LoginBox = CreateObject("Kixtart.LoginBox")
$LoginBox.Caption = "Installing Applications"
$LoginBox.MinButton = 0
$LoginBox.MaxButton = 0
$LoginBox.SysMenu = 0
$LoginBox.Width = 400
$LoginBox.Height = 150
$Message = $LoginBox.AddLabel(10,20,380,20,"")
$Message.FontSize = 10
$Message.FontBold = 1
$ProgressBar = $LoginBox.AddProgressBar(10,50,370,30,"")
$Status = $LoginBox.AddLabel(320,90,70,20,"")
$Status.FontBold = 1
$LoginBox.Center
$LoginBox.Show
$Installs =
"Installing Office,",
"Installing Office Service Pack 1...",
"Installing McAfee Anti-Virus...",
"Installing McAfee Service Pack ...",
"Installing Host Explorer ..."
$Count = UBound($Installs)
For $i = 1.0 To UBound($Installs)
$Status.Text = "[$i or $Count]"
$Message.Text = $Installs[$i]
$ProgressBar.Value = (((0.0+$i)/$Count)*100)
Sleep (2)
Next
$LoginBox = 0
Exit 1
KixBoxer is an ActiveX Server (.exe) not an DLL - if you pause the script (with a sleep), and even if you drag another window over the GUI, it will remain fresh and alive ... Kixforms and any other DLL GUI would fall over dead if you did that ...
-Shawn
[ 17 June 2002, 07:22: Message edited by: Shawn ]
|
|
Top
|
|
|
|
#66902 - 2002-06-17 07:45 AM
Re: why are all the regulars hanging...
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Shawn,
Not implemented our formula script yet? It should be
dark now outside.
greetings.
|
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 895 anonymous users online.
|
|
|
