編集履歴:過去のバージョン

2016/03/14 21:44:13 JST時点でのHSPPRINT互換モジュール:サンプルスクリプトの内容

現在のバージョンとの差分を見る

編集履歴ページに戻る

  - →[[HSPPRINT互換モジュール]]に戻る
  
  ----
  
  HSPPRINT互換モジュールの実行サンプルスクリプトです~%
  パブリックドメインです
  
  ----
  
  {{{
  
  /*
  HSPPRINT互換モジュールの実行サンプル
  CC0 1.0でライセンスします(CC0のコモンズ権利証 http://creativecommons.org/publicdomain/zero/1.0/deed.ja)
  */
  
  #include "hspprint.as"
  
  #enum ID_WINDOW_MAIN =0
  #enum ID_BUFFER_IMG
  
  
  buffer ID_BUFFER_IMG
  gsel ID_WINDOW_MAIN
  
  cls
  gosub *print_info_printer
  
  int_index=0
  input int_index
  
  stop
  
  *print_info_printer
  
          gosub *get_list_printer
  
          redraw 0
  
          color 255,255,255
          boxf
          pos 0,0
          color
  
          mes "プリンターは"+int_num_prn+"こです\nプリンタ"
  
          notesel str_list_printer
          repeat notemax
                  noteget str_name_printer,cnt
                  mes ""+cnt+" "+str_name_printer
          loop
          noteunsel
  
          getdefprn str_name_def_printer
          mes "\n既定のプリンターは"+str_name_def_printer+"です"
  
          redraw
  
          return
  
  
  *get_list_printer
  
          prnflags PRINTER_ENUM_CONNECTIONS+PRINTER_ENUM_LOCAL
          enumprn str_list_printer
          int_num_prn=stat
          return
  
  }}}