Loading ...
Sorry, an error occurred while loading the content.
 

Re: [libertybasic] Re: Notice font

Expand Messages
  • Henrik
    Thanks Mike. ________________________________ From: green8819 To: libertybasic@yahoogroups.com Sent: Thursday, February 28, 2013 9:55 AM
    Message 1 of 2 , Feb 28, 2013
      Thanks Mike.



      ________________________________
      From: green8819 <mike4612@...>
      To: libertybasic@yahoogroups.com
      Sent: Thursday, February 28, 2013 9:55 AM
      Subject: [libertybasic] Re: Notice font


       
      Will the custom-built Dialog_Modal window work in an Application?
      Oh yes, it does:

      'customized dialog window, eg: notice, confirm, etc.
      nomainwin
      WindowWidth=150 :WindowHeight=120
      stylebits #main, _DS_CENTER,0,0,0 'center the window
      statictext #main.st1, "Enter name:", 10,10,300,20
      textbox #main.tbx, 10,30,100,20
      button #main.ok, "OK", [ok], UL, 10,60

      open "Test" for dialog as #main
      #main, "trapclose [quitMain]"
      wait

      [ok]
      gosub [ModalWindow1] 'I prefer GOSUB than CALL SUB
      [quitMain]
      close #main
      END
      '-----------------------------------------------------
      [ModalWindow1]
      WindowWidth=300 :WindowHeight=120
      BackgroundColor$="blue" :ForegroundColor$="white"
      txt$="Are You Sure You Want To Quit ?"
      statictext #w.st1, txt$, 10,10,300,25
      button #w, "Yes",[yes], UL, 40,50,80,25
      button #w, "No",[no], UL, 180,50,80,25
      open "" for dialog_modal as #w
      #w, "trapclose [no]"
      #w, "font ms_Sans_Serif 18"
      #w.st1, "!font Segoe_Print 12"
      [no]
      wait
      [yes]
      close #w
      return




      [Non-text portions of this message have been removed]
    Your message has been successfully submitted and would be delivered to recipients shortly.