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

Re: Notice Font

Expand Messages
  • green8819
    Or you can BEEP, Or this: customized dialog window, eg: notice, confirm, etc. nomainwin WindowWidth=300:WindowHeight=120 stylebits #w, _DS_CENTER,0,0,0
    Message 1 of 9 , Feb 27, 2013
    • 0 Attachment
      Or you can BEEP,
      Or this:

      'customized dialog window, eg: notice, confirm, etc.
      nomainwin
      WindowWidth=300:WindowHeight=120
      stylebits #w, _DS_CENTER,0,0,0 'center the window
      txt$="Are You Sure You Want To Quit ?"
      graphicbox #w.gr1, 0,0,300,120
      button #w, "Yes",[quit], UL, 80,50,80,25
      button #w, "No",[no], UL, 180,50,80,25
      open "Please Confirm" for dialog_modal as #w
      #w, "trapclose [quit]" :#w, "font ms_Sans_Serif 12"
      #w.gr1 "down; fill blue; backcolor blue"
      #w.gr1 "font Segoe_Print 12; color white"
      #w.gr1 "place 10 30;\";txt$
      #w.gr1 "font Arial 40; color green"
      #w.gr1 "place 25 95;\?"
      #w.gr1 "flush"
      [no]
      wait
      [quit]
      close #w
      END
      '-----------------------------------------------------


      --- In libertybasic@yahoogroups.com, "Rod" <rodbird@...> wrote:
      >
      >
      > It is slow because it waits for the sound to complete. If you want it to continue whilst playing the sound use playwave with the async option.
      >
      > --- In libertybasic@yahoogroups.com, Henrik <henriknilson@> wrote:
      > >
      > > Thank you Marc, the code works a bit slowly, maybe because of using gosub !
      > >
      > >
      > > ________________________________
      > > From: Marc Sabau <marcsabau@>
      > > To: libertybasic@yahoogroups.com
      > > Sent: Tuesday, February 26, 2013 10:08 PM
      > > Subject: [libertybasic] Re: Notice Font
      > >
      > >
      > >  
      > >
      > > Hi Henrik,
      > > You oute to try the followinf I have written for my own use. It runs well with me.
      > >
      > > '------ font size and type change
      > > [START]
      > > nomainwin
      > >
      > > WindowWidth=300:WindowHeight=130
      > > UpperLeftX =int((DisplayWidth- WindowWidth) /2)
      > > UpperLeftY =int((DisplayHeight- WindoHeight) /2)
      > > NOTICE$="DO YOU WANT TO CONTINUE ?"
      > >
      > > gosub [Chimes]
      > > gosub [CloseNot]
      > > STATICTEXT #not.st1,NOTICE$, 10,10,285,18
      > > button #not,"YES",[NOTYES],UL, 45,40,80,25
      > > button #not,"NO",[NOTNO],UL, 175,40,80,25
      > > Open "NOTICE" for Dialog_Modal As #not:notflag=1
      > > #not,"Trapclose [NOTNO]"
      > > #not,"Font Courier_New 10 bold"
      > > #not.st1,"!Font Courier_New 12 bold"
      > > wait
      > >
      > > [CloseNot]
      > > if notflag then notflag=0:close #not
      > > RETURN
      > >
      > > [NOTYES]
      > > gosub [CloseNot]:goto [START]
      > >
      > > [NOTNO]
      > > gosub [Tada]
      > > gosub [CloseNot]:END
      > >
      > > [Tada]
      > > playwave "tada.wav"
      > > RETURN
      > >
      > > [Chimes]
      > > playwave "chimes.wav"
      > > RETURN
      > >
      > > Cordially,
      > > Marc.
      > >
      > > --- In libertybasic@yahoogroups.com, "henriknilson" wrote:
      > > >
      > > > Hello
      > > > Is there any way to change the size and the type of "notice" font, if yes then please change the following code according to that?
      > > > Thank you
      > > >
      > > > ' the code
      > > >
      > > > for x= 1 to 10
      > > > print x
      > > > if x=9 then notice "That is what you want ":wait
      > > > next
      > > >
      > >
      > >
      > >
      > >
      > > [Non-text portions of this message have been removed]
      > >
      >
    • Henrik
      Thank you Rod, you are right, when I cancelled the sound, it works instantly. ________________________________ From: Rod To:
      Message 2 of 9 , Feb 27, 2013
      • 0 Attachment
        Thank you Rod, you are right, when I cancelled the sound, it
        works instantly.


        ________________________________
        From: Rod <rodbird@...>
        To: libertybasic@yahoogroups.com
        Sent: Wednesday, February 27, 2013 8:25 AM
        Subject: [libertybasic] Re: Notice Font


         

        It is slow because it waits for the sound to complete. If you want it to continue whilst playing the sound use playwave with the async option.

        --- In libertybasic@yahoogroups.com, Henrik wrote:
        >
        > Thank you Marc, the code works a bit slowly, maybe because of using gosub !
        >
        >
        > ________________________________
        > From: Marc Sabau
        > To: libertybasic@yahoogroups.com
        > Sent: Tuesday, February 26, 2013 10:08 PM
        > Subject: [libertybasic] Re: Notice Font
        >
        >
        >  
        >
        > Hi Henrik,
        > You oute to try the followinf I have written for my own use. It runs well with me.
        >
        > '------ font size and type change
        > [START]
        > nomainwin
        >
        > WindowWidth=300:WindowHeight=130
        > UpperLeftX =int((DisplayWidth- WindowWidth) /2)
        > UpperLeftY =int((DisplayHeight- WindoHeight) /2)
        > NOTICE$="DO YOU WANT TO CONTINUE ?"
        >
        > gosub [Chimes]
        > gosub [CloseNot]
        > STATICTEXT #not.st1,NOTICE$, 10,10,285,18
        > button #not,"YES",[NOTYES],UL, 45,40,80,25
        > button #not,"NO",[NOTNO],UL, 175,40,80,25
        > Open "NOTICE" for Dialog_Modal As #not:notflag=1
        > #not,"Trapclose [NOTNO]"
        > #not,"Font Courier_New 10 bold"
        > #not.st1,"!Font Courier_New 12 bold"
        > wait
        >
        > [CloseNot]
        > if notflag then notflag=0:close #not
        > RETURN
        >
        > [NOTYES]
        > gosub [CloseNot]:goto [START]
        >
        > [NOTNO]
        > gosub [Tada]
        > gosub [CloseNot]:END
        >
        > [Tada]
        > playwave "tada.wav"
        > RETURN
        >
        > [Chimes]
        > playwave "chimes.wav"
        > RETURN
        >
        > Cordially,
        > Marc.
        >
        > --- In libertybasic@yahoogroups.com, "henriknilson" wrote:
        > >
        > > Hello
        > > Is there any way to change the size and the type of "notice" font, if yes then please change the following code according to that?
        > > Thank you
        > >
        > > ' the code
        > >
        > > for x= 1 to 10
        > > print x
        > > if x=9 then notice "That is what you want ":wait
        > > next
        > >
        >
        >
        >
        >
        > [Non-text portions of this message have been removed]
        >




        [Non-text portions of this message have been removed]
      • Henrik
        Thank you Mike, it is a good idea. ________________________________ From: green8819 To: libertybasic@yahoogroups.com Sent: Wednesday,
        Message 3 of 9 , Feb 27, 2013
        • 0 Attachment
          Thank you Mike, it is a good idea.


          ________________________________
          From: green8819 <mike4612@...>
          To: libertybasic@yahoogroups.com
          Sent: Wednesday, February 27, 2013 9:53 AM
          Subject: [libertybasic] Re: Notice Font


           


          Or you can BEEP,
          Or this:

          'customized dialog window, eg: notice, confirm, etc.
          nomainwin
          WindowWidth=300:WindowHeight=120
          stylebits #w, _DS_CENTER,0,0,0 'center the window
          txt$="Are You Sure You Want To Quit ?"
          graphicbox #w.gr1, 0,0,300,120
          button #w, "Yes",[quit], UL, 80,50,80,25
          button #w, "No",[no], UL, 180,50,80,25
          open "Please Confirm" for dialog_modal as #w
          #w, "trapclose [quit]" :#w, "font ms_Sans_Serif 12"
          #w.gr1 "down; fill blue; backcolor blue"
          #w.gr1 "font Segoe_Print 12; color white"
          #w.gr1 "place 10 30;\";txt$
          #w.gr1 "font Arial 40; color green"
          #w.gr1 "place 25 95;\?"
          #w.gr1 "flush"
          [no]
          wait
          [quit]
          close #w
          END
          '-----------------------------------------------------

          --- In libertybasic@yahoogroups.com, "Rod" wrote:
          >
          >
          > It is slow because it waits for the sound to complete. If you want it to continue whilst playing the sound use playwave with the async option.
          >
          > --- In libertybasic@yahoogroups.com, Henrik wrote:
          > >
          > > Thank you Marc, the code works a bit slowly, maybe because of using gosub !
          > >
          > >
          > > ________________________________
          > > From: Marc Sabau
          > > To: libertybasic@yahoogroups.com
          > > Sent: Tuesday, February 26, 2013 10:08 PM
          > > Subject: [libertybasic] Re: Notice Font
          > >
          > >
          > >  
          > >
          > > Hi Henrik,
          > > You oute to try the followinf I have written for my own use. It runs well with me.
          > >
          > > '------ font size and type change
          > > [START]
          > > nomainwin
          > >
          > > WindowWidth=300:WindowHeight=130
          > > UpperLeftX =int((DisplayWidth- WindowWidth) /2)
          > > UpperLeftY =int((DisplayHeight- WindoHeight) /2)
          > > NOTICE$="DO YOU WANT TO CONTINUE ?"
          > >
          > > gosub [Chimes]
          > > gosub [CloseNot]
          > > STATICTEXT #not.st1,NOTICE$, 10,10,285,18
          > > button #not,"YES",[NOTYES],UL, 45,40,80,25
          > > button #not,"NO",[NOTNO],UL, 175,40,80,25
          > > Open "NOTICE" for Dialog_Modal As #not:notflag=1
          > > #not,"Trapclose [NOTNO]"
          > > #not,"Font Courier_New 10 bold"
          > > #not.st1,"!Font Courier_New 12 bold"
          > > wait
          > >
          > > [CloseNot]
          > > if notflag then notflag=0:close #not
          > > RETURN
          > >
          > > [NOTYES]
          > > gosub [CloseNot]:goto [START]
          > >
          > > [NOTNO]
          > > gosub [Tada]
          > > gosub [CloseNot]:END
          > >
          > > [Tada]
          > > playwave "tada.wav"
          > > RETURN
          > >
          > > [Chimes]
          > > playwave "chimes.wav"
          > > RETURN
          > >
          > > Cordially,
          > > Marc.
          > >
          > > --- In libertybasic@yahoogroups.com, "henriknilson" wrote:
          > > >
          > > > Hello
          > > > Is there any way to change the size and the type of "notice" font, if yes then please change the following code according to that?
          > > > Thank you
          > > >
          > > > ' the code
          > > >
          > > > for x= 1 to 10
          > > > print x
          > > > if x=9 then notice "That is what you want ":wait
          > > > next
          > > >
          > >
          > >
          > >
          > >
          > > [Non-text portions of this message have been removed]
          > >
          >




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