code:

---

break on
 
; KIXMENU.KIX
;
; Require KiXtart 4 and Kixforms Build 9 
;
; Dynamically builds a button menu from configuration
; information contained in an INI file. 
;
; -Shawn
;
 
$PROFILE = "@CURDIR\KIXMENU.INI"
$MAXBUTTONS = 25
 
dim $buttons[$MAXBUTTONS]
 
$form = createobject("kixtart.form")
$form.caption = "Menu"
$form.minbutton = 0
$form.fontsize = 10
$form.fontname = "verdana"
$form.fontbold = 1
 
$i = 0
$maxlen = 0
 
; first - create the buttons
 
for each $section in split(readprofilestring($PROFILE,"",""),chr(10))
 if $section
  $buttons[$i] = $form.commandbutton
  $buttons[$i].caption = readprofilestring($PROFILE,$section,"caption")
  if len($buttons[$i].caption) > $maxlen ; is this our biggest button so far ?
   $maxlen = len($buttons[$i].caption)
  endif
  $buttons[$i].onclick = 'shell "' + readprofilestring($PROFILE,$section,"shell") + '"'
  $i = $i + 1
  if $i > $MAXBUTTONS
   ?"too many menu items"
   quit()
  endif
 endif
next
 
; Redim the button array to the actual no. of button
 
if $i
 $i=$i-1
 redim preserve $buttons[$i]
endif
 
; Layout the buttons on the form
 
$cury = 0
for each $button in $buttons
 $button.top = $cury
 $button.width = $maxlen * 9
 $cury = $cury + $button.height + 1
next
 
; Resize the form to hug the buttons (ahhh)
 
$form.scalewidth = $buttons[$i].right
$form.scaleheight = $buttons[$i].bottom
 
; Center the form
 
$form.center
 
; Run the eventloop
 
$form.show
while $form.visible
 $=execute($form.doevents)
loop
 
exit

---