2011年7月16日土曜日

wxErlang wxGrid Sample サンプル

いつもの通りサンプルを貼っておきます。

画面:


ソース:

-module(gridTest).
-include_lib("wx.hrl").

-export([start/0]).

start()->
    Wx = wx:new(),
    Frame = wx:batch(fun() -> create_window(Wx) end),
    wxWindow:show(Frame),
    loop(Frame),
    wx:destroy(),
    ok.

create_window(Wx)->  
    %% Create Frame
    Frame = wxFrame:new(Wx,
 -1,
 "wxGrid Example",
 %%[{size,{300,200}}]),
 [{size,{-1,-1}}]),

    Grid = wxGrid:new(Frame,?wxID_ANY),
    Row = 2,
    Col = 2,
    wxGrid:createGrid(Grid,Row,Col),
    wxGrid:appendRows(Grid,[{numRows,2}]),
    wxGrid:appendCols(Grid,[{numCols,2}]),

    wxGrid:setCellValue(Grid,{2,2},"2x2"),
    wxGrid:setCellValue(Grid,{3,3},"3x3"),
 
    %% Set Connect Close
    wxFrame:connect(Frame, close_window),

    Frame.

loop(Frame) ->
    receive
% Window Close Event
#wx{event=#wxClose{}} ->
   io:format("~p Closing window ~n",[self()]),
   wxWindow:destroy(Frame),
   ok
    end.

wx.hrlはErlangのインストールディレクトリにあるので、検索してください。
そして、本ソースと同一ディレクトリに配置してください。

参考:
2007-11-23 - 理想のユーザ・インターフェイスを求めて : http://d.hatena.ne.jp/Megumi221/20071123

0 件のコメント:

コメントを投稿