[トップ][一覧][最近の更新]

編集履歴:差分

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"
  
+ getdefprn str_name_def_printer
+ mes "既定のプリンターは"+str_name_def_printer+"です"
- #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
- 
  }}}