' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

Comp_Click

END

PUBLIC SUB optComp_Click()
Comp_Click
END

PUBLIC SUB cmdExit_Click()

SELECT Message.Question("Уверены что хотите выйти?", "Да", "Нет")
  CASE 1  
  ME.CLOSE  
  END SELECT  
   
   
END

PUBLIC SUB imgChoose_MouseDown()

END

PUBLIC SUB optCalc_Click()
Calc_Click
END

PUBLIC SUB optPrint_Click()
Print_Click
END

PUBLIC SUB chkPrice_Click()

   SELECT CASE chkPrice.Value
CASE TRUE
IF optPrint.Value THEN lblPrice.text = "10000 рублей"
IF optCalc.Value THEN lblPrice.text = "500 рублей"
IF optComp.Value THEN lblPrice.text = "15000 рублей"

CASE ELSE  
lblPrice.text = ""
END SELECT

END

PUBLIC SUB MnuExit_Click()

   cmdExit_Click

END

PUBLIC SUB Calc_Click()

   optCalc.Value = TRUE
   MnuCalc.Checked = TRUE
   mnuComp.Checked = FALSE
   MnuPrint.Checked = FALSE
   imgChoose.picture = Picture.Load("/media/share/Лабы_программирование/ы/lab8/Calc.jpeg")
   chkPrice_Click

END

PUBLIC SUB Print_Click()

   optPrint.Value = TRUE
   MnuCalc.Checked = FALSE
   mnuComp.Checked = FALSE
   MnuPrint.Checked = TRUE
   imgChoose.picture = Picture.Load("/media/share/Лабы_программирование/ы/lab8/Print.jpeg")
   chkPrice_Click
    

END

PUBLIC SUB Comp_Click()

   optComp.Value = TRUE
   MnuCalc.Checked = FALSE
   MnuComp.Checked = TRUE
   MnuPrint.Checked = FALSE
   imgChoose.picture = Picture.Load("/media/share/Лабы_программирование/ы/lab8/Comp.jpeg")
   chkPrice_Click
    

END

PUBLIC SUB MnuHelp_Click()

   Message.Error("Справка по данной теме отсутствует")

END