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

Re: Zoooom???

Expand Messages
  • spaztaz666
    ... this ... the ... cheers john srry for the late reply i forgot to check this site :) thx again it works fine taz
    Message 1 of 5 , Oct 1, 2006
    • 0 Attachment
      --- In libertybasic@yahoogroups.com, "John Davidson"
      <johnshomeport@...> wrote:
      >
      > --- In libertybasic@yahoogroups.com, "spaztaz666" <spaztaz666@>
      > wrote:
      > >
      > > Hi can any one elp me? im trying to crate a zoom function on
      this
      > > notepad look-alike in creating. But i dont know, cant remeber
      the
      > code
      > > for the zoom function
      > >
      > > please help
      > >
      > > taz
      > >
      >
      > Changing the font size would probably do what you want.
      > John
      >
      > '--- Code ---
      > fontFace$="times_new_roman"
      > fontSize=12
      >
      > nomainwin
      > WindowWidth = 400
      > WindowHeight = 370
      > UpperLeftX=int((DisplayWidth-WindowWidth)/2)
      > UpperLeftY=int((DisplayHeight-WindowHeight)/2)
      >
      > texteditor #1.textedit1, 5, 42, 365, 215
      > button #1.b1,"+",[zoomIn], UL, 300, 7, 20, 25
      > button #1.b2,"n",[normal], UL, 325, 7, 20, 25
      > button #1.b3,"-",[zoomOut],UL, 350, 7, 20, 25
      >
      > open "untitled" for window as #1
      > print #1, "font times_new_roman 8"
      > print #1, "trapclose [quit.1]"
      >
      > #1.textedit1,"!autoresize"
      > #1.textedit1,"!font ";fontFace$;" ";fontSize
      > wait
      >
      > [quit.1]
      > close #1
      > end
      >
      > [zoomIn]
      > fontSize=fontSize+1
      > #1.textedit1,"!font ";fontFace$;" ";fontSize
      > wait
      >
      > [zoomOut]
      > fontSize=fontSize-1
      > #1.textedit1,"!font ";fontFace$;" ";fontSize
      > wait
      >
      > [normal]
      > fontSize=12
      > #1.textedit1,"!font ";fontFace$;" ";fontSize
      > wait
      >
      > '--- End Code ---



      cheers john srry for the late reply i forgot to check this site :)

      thx again it works fine

      taz
      >
    Your message has been successfully submitted and would be delivered to recipients shortly.