Quote:

---

I would like one of the text labels on a form (or text box, if that's earier) to automatically take the value of an ini file entry when the form is opened. Is there any way of doing that? (I'm a KiXtart beginner.)

---

break on

$ini = @scriptdir + '\labels.ini'
$f = createobject("KiXtart.Form")

$l1 = $f.Label(readprofilestring($ini,"Labels","Label1"),10,10,200,20)

$f.Show

while $f.Visible
    $_ = execute($f.DoEvents)
loop
exit 1

Quote:

---

[Labels]
Label1=Value from ini file

---

break on

$form = createobject("kixtart.form")

$lblPath = $form.Label("Path:",10,10,60,15)
$txtPath = $form.TextBox("",10,$lblPath.Bottom,200,20)

$btnBrws           = $form.ToolButton("Browse...",$txtPath.Right+5,$lblPath.Bottom,60,21)
$btnBrws.FlatStyle = 1
$btnBrws.OnClick   = "btnBrws_Click()"

$form.Show

while $form.Visible
    $_ = execute($form.DoEvents)
loop

function btnBrws_Click()
    dim $f
    $f            = $Form.Dialogs.FolderBrowserDialog
    $f.Rootfolder = 17
    if $f.ShowDialog = 1
        $txtPath.Text = $f.SelectedPath
    endif
endfunction

Break On

$System = CreateObject("Kixtart.System")
$Form = $System.Form()
$Form.Text = "Browse for file"

$BrowseButton = $form.Controls.Button
$BrowseButton.text = "Browse for file"

$BrowseButton.onclick = "$BrowseDisplay.text = FileBrowse"
$BrowseButton.Height = 20

$BrowseDisplay = $Form.Controls.TextBox()
$BrowseDisplay.top = $BrowseButton.bottom
$BrowseDisplay.left = $BrowseButton.left
$BrowseDisplay.Width = $Form.ClientWidth

$Form.ClientHeight = $BrowseDisplay.Bottom
$Form.Show

While $Form.Visible 
     $=Execute($Form.DoEvents) 
Loop 

Exit(0)

Function FileBrowse
     $OpenFileDialog = $System.OpenFileDialog()
     $ = $OpenFileDialog.ShowDialog()
     $fileBrowse = $OpenFileDialog.filename
EndFunction