2013-06-19 07:54

     $APPTYPE GUI
     $INCLUDE "RAPIDQ.INC"
     $RESOURCE titlebar_ICO AS "Barcode.ico"
     DIM BCFont AS QFONT 'BarCodeFont
     BCFont.Name = "IDAutomation.com Code39"
     BCFont.Size = 18

     DECLARE SUB endprogram
     DECLARE SUB printout

     CREATE Form AS QFORM
      CAPTION = "Arcodan BarcodeUtility"
      ICOHandle=titlebar_ICO
      Width = 345
      Height = 205
      Center
      CREATE GroupBox1 AS QGROUPBOX
       CAPTION = "Barcode"
       Left = 64
       Top = 16
       Width = 201
       CREATE RichEdit AS QRICHEDIT
        Font.Name = "IDAutomation.com Code39"
        Font.Size = 18
        left = 8
        Top = 16
        Height = 81
       END CREATE
      END CREATE
      CREATE Button1 AS QBUTTON
       CAPTION = "Print barcode"
       Onclick=printout
       Left = 72
       Top = 132
       TabOrder = 1
      END CREATE
      CREATE Button2 AS QBUTTON
       CAPTION = "Exit"
       Onclick=endprogram
       Left = 181
       Top = 132
       TabOrder = 2
      END CREATE
      CREATE StatusBar AS QSTATUSBAR
       AddPanels DATE$,"BarcodeUtility Made by thomas F. petersen"
       Panel(0).Width=70
      END CREATE
     END CREATE

     SUB endprogram
      form.CLOSE
     END SUB

     SUB Printout
      Printer.BeginDoc
      Printer.Font = BCFont
      Printer.orientation = 0
      Printerfont  = "IDAutomation.com Code39"
      Printer.textout(10,10,richedit.text,0,-1)
      Printer.EndDoc
     END SUB



     Form.SHOWMODAL

2013-06-19 07:54