; picbox.kix
; display a simple image on a simple form
; No Worky on Win 7
break on
$system = CreateObject("kixtart.system")
$form = $system.form()
$form.text = "Test Image"
$form.top = 0
$form.left = 0
$form.width = 1024
$form.height = 768
$form.backcolor = &408040
$form.borderstyle = 1
; $form.center
$form.show
$form.fontname = "Arial"
$form.fontsize = 10
$form.printxy(10, 10, "Hello")
$image = "DSC01197.JPG"
$picbox = $form.picturebox()
$picbox.top = 84
$picbox.left = 112
$picbox.width = 800
$picbox.height = 600
$picbox.borderstyle = 4
$picbox.image = "@curdir\" + $image
$picbox.show
sleep 5
