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

Re: [libertybasic] Re: Notice Font

Expand Messages
  • Henrik
    Thank you Mike, it is a good idea. ________________________________ From: green8819 To: libertybasic@yahoogroups.com Sent: Wednesday,
    Message 1 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.