|
Actually...I am using kixforms but I just want to bold some parts of the text....In particular the parts that I have in upper case that are part of $apptext. But in order to bold them using $form.fontbold I would have to create a seperate label for each work I want to bold and then line it up with the rest of the sentence (I don't want to bold the whole thing...just certain words. Is there an easier way to do this in kixforms??? That why I thought maybe I'll just use a messagebox.
Code:
Select
Case $mod="MBI"
$apptext="The software package For $appname is currently scheduled for execution on this computer. " + Chr(13) + Chr(10) + "" + Chr(13) + Chr(10) + "PLEASE SAVE ALL WORK AND 'CLOSE' ANY PREVIOUS VERSIONS OF THE APPLICATION COMPLETELY. " + Chr(13) + Chr(10) + "" + Chr(13) + Chr(10) + "Press the 'ACCEPT' button to begin the install immediately."
Case $mod="MBRI"
$apptext="The software package For $appname is currently scheduled for execution on this computer. " + Chr(13) + Chr(10) + "" + Chr(13) + Chr(10) + "PLEASE SAVE ALL WORK AND 'CLOSE' ANY PREVIOUS VERSIONS OF THE APPLICATION COMPLETELY. " + Chr(13) + Chr(10) + "" + Chr(13) + Chr(10) + "Press the 'ACCEPT' button to begin the remove\install immediately."
Case $mod="MBR"
$apptext="The software package For $appname is currently scheduled for execution on this computer. This will REMOVE $appname from this workstation." + Chr(13) + Chr(10) + "" + Chr(13) + Chr(10) + "PLEASE SAVE ALL WORK AND 'CLOSE' ANY PREVIOUS VERSIONS OF THE APPLICATION COMPLETELY. " + Chr(13) + Chr(10) + "" + Chr(13) + Chr(10) + "Press the 'ACCEPT' button to begin the removal immediately."
Case $mod="MBIQ"
$apptext="The software package For $appname is currently scheduled for execution on this computer. " + Chr(13) + Chr(10) + "" + Chr(13) + Chr(10) + "PLEASE SAVE ALL WORK AND 'CLOSE' ANY PREVIOUS VERSIONS OF THE APPLICATION COMPLETELY. " + Chr(13) + Chr(10) + "" + Chr(13) + Chr(10) + "Press the 'ACCEPT' button to begin the install immediately."
Case 1
$apptext="The software package For $appname is currently scheduled for execution on this computer. " + Chr(13) + Chr(10) + "" + Chr(13) + Chr(10) + "PLEASE SAVE ALL WORK AND 'CLOSE' ANY PREVIOUS VERSIONS OF THE APPLICATION COMPLETELY. " + Chr(13) + Chr(10) + "" + Chr(13) + Chr(10) + "Press the 'ACCEPT' button to begin the install immediately."
EndSelect
;Create form for .exe
;********* FORM CREATE BEGIN **********
$Form = CreateObject('Kixtart.Form')
$Form.BackColor = 255,255,255
$Form.ControlBox = "False"
$Form.DrawGrid = "True"
$Form.FontBold = "False"
$Form.FontItalic = "False"
$Form.FontName = "Microsoft Sans Serif"
$Form.FontSize = 8.25
$Form.FontUnderline = "False"
$Form.ForeColor = 0,0,0
$Form.FormBorderStyle = 2
$Form.Height = 440
$Form.Left = 181
$Form.MaximizeBox = "True"
$Form.MinimizeBox = "True"
$Form.SizeGripStyle = 0
$Form.StartPosition = 4
$Form.Tag = ""
$Form.Text = "Software Installation Package"
$Form.Top = 2
$Form.ToolTipText = ""
$Form.TopMost = "False"
$Form.Width = 317
$Form.WindowState = 0
$form.line(5,165,299,165)
$form.drawwidth = 3
;********* FORM CREATE END **********
;************* BUTTON2 **************
;$Button2 = $Form.Controls.Button
;$Button2.Default = "FALSE"
;$Button2.Anchor = 5
;$Button2.TextAlign = 32
;$Button2.Enabled = "True"
;$Button2.FlatStyle = 2
;$Button2.FontBold = "False"
;$Button2.FontItalic = "False"
;$Button2.FontName = "Microsoft Sans Serif"
;$Button2.FontSize = 8.25
;$Button2.FontUnderline = "False"
;$Button2.ForeColor = 0,0,0
;$Button2.Height = 41
;$Button2.Left = 180
;$Button2.TabStop = "True"
;$Button2.Tag = ""
;$Button2.Text = "DEFER"
;$Button2.ToolTipText = "Choose this button to Defer the install for 5 minutes."
;$Button2.Top = 340
;$Button2.Visible = "True"
;$Button2.Width = 94
;$button2.onclick = "Button2_Click()"
;*************************************
;************* BUTTON1 **************
$Button1 = $Form.Controls.Button
$Button1.Default = "TRUE"
$Button1.Anchor = 5
$Button1.TextAlign = 32
$Button1.Enabled = "True"
$Button1.FlatStyle = 2
$Button1.FontBold = "False"
$Button1.FontItalic = "False"
$Button1.FontName = "Microsoft Sans Serif"
$Button1.FontSize = 8.25
$Button1.FontUnderline = "False"
$Button1.ForeColor = 0,0,0
$Button1.Height = 41
$Button1.Left = 105
$Button1.TabStop = "True"
$Button1.Tag = ""
$Button1.Text = "ACCEPT"
$Button1.ToolTipText = "Choose this button to begin the install."
$Button1.Top = 340
$Button1.Visible = "True"
$Button1.Width = 94
$button1.onclick = "Button1_Click()"
;*************************************
;************* PICTUREBOX1 **************
$PictureBox1 = $Form.Controls.PictureBox
$PictureBox1.Anchor = 5
$PictureBox1.BackColor = 255,255,255
$PictureBox1.BorderStyle = 0
$PictureBox1.Enabled = "True"
$PictureBox1.Height = 85
$PictureBox1.Left = 105
$PictureBox1.Picture = "c:\winnt\winsys\az.bmp"
$PictureBox1.Tag = ""
$PictureBox1.Top = 60
$PictureBox1.Visible = "True"
$PictureBox1.Width = 122
;*************************************
;************* LABEL1 **************
$Label1 = $Form.Controls.Label
$Label1.Anchor = 5
$Label1.BackColor = 255,255,255
$Label1.BorderStyle = 0
$Label1.Enabled = "True"
$Label1.FlatStyle = 2
$Label1.FontBold = "False"
$Label1.FontItalic = "False"
$Label1.FontName = "Microsoft Sans Serif"
$Label1.FontSize = 9
$Label1.FontUnderline = "False"
$Label1.ForeColor = 0,0,0
$Label1.Height = 135
$Label1.Left = 15
$Label1.Tag = ""
$Label1.Text = $apptext
$Label1.ToolTipText = ""
$Label1.Top = 180
$Label1.Visible = "True"
$Label1.Width = 273
;*************************************
;************* LABEL2 **************
$Label2 = $Form.Controls.Label
$Label2.Anchor = 5
$Label2.BackColor = 255,255,255
$Label2.BorderStyle = 0
$Label2.Enabled = "True"
$Label2.FlatStyle = 2
$Label2.FontBold = "True"
$Label2.FontItalic = "False"
$Label2.FontName = "Microsoft Sans Serif"
$Label2.FontSize = 12
$Label2.FontUnderline = "False"
$Label2.ForeColor = 0,0,0
$Label2.Height = 33
$Label2.Left = 30
$Label2.Tag = ""
$Label2.Text = "Software Installation Package"
$Label2.ToolTipText = ""
$Label2.Top = 15
$Label2.Visible = "True"
$Label2.Width = 243
;*************************************
$Form.Show
While $Form.Visible
$=Execute($Form.DoEvents())
Loop
| 
