#16226 - 2002-01-15 08:25 PM
Disable close and min on KixFrm
|
webbo
Lurker
Registered: 2002-01-15
Posts: 3
|
we have written a small form that is called from a logon script. The form asks users to click a button for which class they are in and then maps drives accordingly. All works fine. Only problem is the form has the close X and min functions. I have tried changing border style with no joy. Is it possible to create a form without the X or min, or can they be detected and coded for? Many thanks
|
|
Top
|
|
|
|
|
#16227 - 2002-01-16 01:53 PM
Re: Disable close and min on KixFrm
|
Will Hetrick
Hey THIS is FUN
Registered: 2001-10-02
Posts: 320
Loc: Harrisburg, PA USA
|
Are you also Ross Martin?? This seems like the exact question he asked. Please refer to KixForms to see what transpires![ 16 January 2002: Message edited by: Will Hetrick ]
_________________________
You have at least 2 choices. Each choice changes your destiny. Choose wisely!
|
|
Top
|
|
|
|
|
#16229 - 2002-01-16 02:55 PM
Re: Disable close and min on KixFrm
|
webbo
Lurker
Registered: 2002-01-15
Posts: 3
|
Shawn - we are using KixForms
|
|
Top
|
|
|
|
|
#16231 - 2002-01-16 03:21 PM
Re: Disable close and min on KixFrm
|
webbo
Lurker
Registered: 2002-01-15
Posts: 3
|
Shawn,Very usefull. We are trying to write a script for use in a school, and use the KixForms for class selection, that then sets enviroment variables which work in conjuctions with policies. Can we have a copy of Version 6 to try these new features pls. I understand its still in beta and take full responsibilty etc...? Also many thanks for taking the time to respond to my posts.
|
|
Top
|
|
|
|
|
#16234 - 2002-06-10 08:48 PM
Re: Disable close and min on KixFrm
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Hi Duncan,
To be honest, I didn't really build Kixforms with login scripts in mind. To that end, I did put in support for turning off the MINBUTTON and MAXBUTTON in Build 14. I never did put in any support for the progressbar control (which wouldn't be too tough if you would like to pursue) ...
The reason I didn't support turing off the sysmenu is because during a forms session, without a close button - there really is no user friendly way to close the task. So I left it out.
Here's the latest Kixforms:
Kixforms Build 14
Other packages that support progressbars are KixGUI (available here), and one of my favorites - loginscreen.exe - which doesn't support turning-off sysmenu either (i think). There is even a non-COM progress dialog program kicking around on the board here, that passes state information through the registry. If your interested, will try and digup.
Now, I can modify Kixforms to support disabling the closebutton if you like. And plop-in the proggybar too - if thats the route you want to take. Im also thinking about porting loginscreen.exe to C and making it more KiXtart friendly - if theres enough interest - I really like that utility ... whew ... too many gooey options man.
-Shawn
|
|
Top
|
|
|
|
|
#16236 - 2002-06-11 12:12 AM
Re: Disable close and min on KixFrm
|
Alex.H
Seasoned Scripter
Registered: 2001-04-10
Posts: 406
Loc: France
|
Shawn,
Due to a 9x bug i ran into, some 9x dll versions don't really like the close cross to be disable with min and/or max enable, so the 3 are removed with the sys menu when you disable the close cross on kixgui
_________________________
? getobject(Kixtart.org.Signature)
|
|
Top
|
|
|
|
|
#16239 - 2002-06-12 12:06 AM
Re: Disable close and min on KixFrm
|
Dunc
Getting the hang of it
Registered: 2002-05-25
Posts: 54
Loc: Guildford England
|
Shawn,
Thanks for the latest kixforms, I will have a play!
The option for turning the sysmenu off would be great, I agree that this would make it unfriendly for the user to close the window (Thats what I'm trying to do, I don't want users to kill the logon script until it has finished).
While I don't use a progress bar at the moment I think it would be a great addition to kixforms to have a progress bar (I would then have to think about rewriting some of our other scripts with kix!).
For you information this is the form so far (No backend code yet!) The labels will be painted when each function has finished (Or failed) in the final version.
Break on
$Form = CreateObject("Kixtart.Form")
$Form.Caption = "Login Script"
$Form.ClientHeight = 3570
$Form.ClientLeft = 45
$Form.ClientTop = 330
$Form.ClientWidth = 6090
$Form.ScaleHeight = 300
$Form.ScaleWidth = 410
$Frm = $form.frame
$frm.Left = 6
$frm.Top = 30
$frm.Width = 399
$frm.height = 174
$frm.Caption = ""
$lblHeader = $Form.Label
$lblHeader.Alignment = 2
$lblHeader.Caption = "Logon Script v3.0.0"
$lblHeader.FontName = "MS Sans Serif"
$lblHeader.FontBold = 1
$lblHeader.FontSize = 13.5
$lblHeader.Height = 20
$lblHeader.Left = 0
$lblHeader.TabIndex = 16
$lblHeader.Top = 10
$lblHeader.Width = 400
$lblSMS = $Form.Label
$lblSMS.FontBold = 1
$lblSMS.BackColor = $Form.RGB(255,255,255)
$lblSMS.Height = 20
$lblSMS.Left = 10
$lblSMS.TabIndex = 15
$lblSMS.Top = 180
$lblSMS.Width = 250
$lblSMSANS = $Form.Label
$lblSMSANS.BackColor = $Form.RGB(255,255,255)
;$lblSMSANS.Caption = "Label1"
$lblSMSANS.Height = 20
$lblSMSANS.Left = 250
$lblSMSANS.TabIndex = 14
$lblSMSANS.Top = 180
$lblSMSANS.Width = 150
$lblUpgrade = $Form.Label
$lblUpgrade.FontBold = 1
$lblUpgrade.BackColor = $Form.RGB(255,255,255)
$lblUpgrade.Height = 20
$lblUpgrade.Left = 10
$lblUpgrade.TabIndex = 13
$lblUpgrade.Top = 160
$lblUpgrade.Width = 250
$lblUpgradeANS = $Form.Label
$lblUpgradeANS.BackColor = $Form.RGB(255,255,255)
;$lblUpgradeANS.Caption = "Label1"
$lblUpgradeANS.Height = 20
$lblUpgradeANS.Left = 250
$lblUpgradeANS.TabIndex = 12
$lblUpgradeANS.Top = 160
$lblUpgradeANS.Width = 150
$lblSophos = $Form.Label
$lblSophos.FontBold = 1
$lblSophos.BackColor = $Form.RGB(255,255,255)
$lblSophos.Height = 20
$lblSophos.Left = 10
$lblSophos.TabIndex = 11
$lblSophos.Top = 140
$lblSophos.Width = 250
$lblSophosANS = $Form.Label
$lblSophosANS.BackColor = $Form.RGB(255,255,255)
;$lblSophosANS.Caption = ""
$lblSophosANS.Height = 20
$lblSophosANS.Left = 250
$lblSophosANS.TabIndex = 10
$lblSophosANS.Top = 140
$lblSophosANS.Width = 150
$lblWorkgroup = $Form.Label
$lblWorkgroup.FontBold = 1
$lblWorkgroup.BackColor = $Form.RGB(255,255,255)
$lblWorkgroup.Height = 20
$lblWorkgroup.Left = 10
$lblWorkgroup.TabIndex = 9
$lblWorkgroup.Top = 120
$lblWorkgroup.Width = 250
$lblWorkgroupANS = $Form.Label
$lblWorkgroupANS.BackColor = $Form.RGB(255,255,255)
$lblWorkgroupANS.Caption = ""
$lblWorkgroupANS.Height = 20
$lblWorkgroupANS.Left = 250
$lblWorkgroupANS.TabIndex = 8
$lblWorkgroupANS.Top = 120
$lblWorkgroupANS.Width = 150
$lblDrives = $Form.Label
$lblDrives.FontBold = 1
$lblDrives.BackColor = $Form.RGB(255,255,255)
$lblDrives.Height = 20
$lblDrives.Left = 10
$lblDrives.TabIndex = 7
$lblDrives.Top = 100
$lblDrives.Width = 250
$lblDrivesANS = $Form.Label
$lblDrivesANS.BackColor = $Form.RGB(255,255,255)
$lblDrivesANS.Height = 20
$lblDrivesANS.Left = 250
$lblDrivesANS.TabIndex = 6
$lblDrivesANS.Top = 100
$lblDrivesANS.Width = 150
$lblsite_Work = $Form.Label
$lblsite_work.FontBold = 1
$lblsite_Work.BackColor = $Form.RGB(255,255,255)
$lblsite_Work.Height = 20
$lblsite_Work.Left = 10
$lblsite_Work.TabIndex = 5
$lblsite_Work.Top = 80
$lblsite_Work.Width = 250
$lblsite_WorkANS = $Form.Label
$lblsite_WorkANS.BackColor = $Form.RGB(255,255,255)
$lblsite_WorkANS.Height = 20
$lblsite_WorkANS.Left = 250
$lblsite_WorkANS.TabIndex = 4
$lblsite_WorkANS.Top = 80
$lblsite_WorkANS.Width = 150
$lblMail = $Form.Label
$lblMail.FontBold = 1
$lblMail.BackColor = $Form.RGB(255,255,255)
$lblMail.Height = 20
$lblMail.Left = 10
$lblMail.TabIndex = 3
$lblMail.Top = 60
$lblMail.Width = 250
$lblMailANS = $Form.Label
$lblMailANS.BackColor = $Form.RGB(255,255,255)
$lblMailANS.Height = 20
$lblMailANS.Left = 250
$lblMailANS.TabIndex = 2
$lblMailANS.Top = 60
$lblMailANS.Width = 150
$lblOSans = $Form.Label
$lblOSans.BackColor = $Form.RGB(255,255,255)
$lblOSans.Height = 20
$lblOSans.Left = 250
$lblOSans.TabIndex = 1
$lblOSans.Top = 40
$lblOSans.Width = 150
$lblOS = $Form.Label
$lblOS.FontBold = 1
$lblOS.BackColor = $Form.RGB(255,255,255)
$lblOS.Height = 20
$lblOS.Left = 10
$lblOS.TabIndex = 0
$lblOS.Top = 40
$lblOS.Width = 250
$Form.Show
$lblOS.Caption = " Windows Version"
$lblsite_Work.Caption = " Locating Site and Workgroup..."
$lblMail.Caption = " Checking/Creatings Mail Profile ..."
$lblDrives.Caption = " Mapping standard Drives..."
$lblWorkgroup.Caption = " Checking Workgroup scripts..."
$lblSophos.Caption = " Checking for Sophos scripts..."
$lblUpgrade.Caption = " Checking for Upgrade scripts..."
$lblSMS.Caption = " Running SMS scripts..."
$lblsite_WorkANS.Caption = "No Home"
$lblMailANS.Caption = "Error, no PRF"
$lblUpgradeANS.caption = "Running Lotus Notes"
$lblSophosANS.caption = "Installed"
$lblWorkgroupANS.caption = "Running"
$lblDrivesANS.caption = "Mapping L M P"
$lblOSans.caption = "Windows XP Professional"
While $Form.Visible
$=Execute($Form.DoEvents)
Loop
Exit 1
Thank you very much for your help on this. I will have a look at the other packages that you have mentioned, I'm always on the look out for something new (Or new to me anyway!)
Duncan
|
|
Top
|
|
|
|
#16243 - 2002-06-11 02:03 PM
Re: Disable close and min on KixFrm
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Schuliebug,
For a progress bar, have a look at my response to this thread.
HTH,
Kent
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 1662 anonymous users online.
|
|
|
The syntax is:
![[Smile]](images/icons/smile.gif){kind=icon}
