HUGサンプル/MARK - BaCon - A free BAsic CONverter for Unix Wiki - BaCon - A free BAsic CONverter ...

HUGサンプル /

MARK

MARK で文字の表示を行います。タグを使って装飾も可能です。
ここではボタンも表示させ、ボタンを押してテキストを変化させています。

' mark.bac
' まずは初期化〜
 INCLUDE "hug.bac"
 INIT
 

' いきなりサブルーチンなんかはいってるね〜
 SUB LAUNCH_APP()
     ' TEXT を用いてテキストを変えたりできるのです
     TEXT( My_label1, result$)
 END SUB

 result$ = CONCAT$("<u>はい、ここ重要だから下線！</u>")
 

' ウインドウの作成。275×110 ピクセルです
 Mainwin = WINDOW( "ま〜く。", 275, 110 )
 

 ' MARK にはタグを付けて装飾できたりします
 My_label1 = MARK( "<span color=\"blue\">色を青にする〜</span> ", 180, 30 )
 My_label2 = MARK( "<b>ボールド</b> したりとか〜", 180, 30 )
 

' ATTACH で表示する場所を決めます
 ATTACH( Mainwin, My_label1, 50, 10 )
 ATTACH( Mainwin, My_label2, 50, 35 )
 

' ボタン
 My_btn = BUTTON( "ぼたん", 100, 25)
 ATTACH( Mainwin, My_btn, 25, 70 )
 CALLBACK( My_btn, LAUNCH_APP)
 

' 閉じるボタンも
 My_close = STOCK("とじる", 100, 25)
 ATTACH(Mainwin, My_close, 160, 70)
 CALLBACK( My_close, QUIT)
 

' 表示するぞ！てやっ！
 DISPLAY