diff options
Diffstat (limited to 'lib/wx/examples/demo/ex_grid.erl')
| -rw-r--r-- | lib/wx/examples/demo/ex_grid.erl | 142 |
1 files changed, 142 insertions, 0 deletions
diff --git a/lib/wx/examples/demo/ex_grid.erl b/lib/wx/examples/demo/ex_grid.erl new file mode 100644 index 0000000000..2169c818ff --- /dev/null +++ b/lib/wx/examples/demo/ex_grid.erl @@ -0,0 +1,142 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2009. All Rights Reserved. +%% +%% The contents of this file are subject to the Erlang Public License, +%% Version 1.1, (the "License"); you may not use this file except in +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% + +-module(ex_grid). + +-behaviour(wx_object). + +%% Client API +-export([start/1]). + +%% wx_object callbacks +-export([init/1, terminate/2, code_change/3, + handle_info/2, handle_call/3, handle_event/2]). + +-include_lib("wx/include/wx.hrl"). + +-record(state, + { + parent, + config, + grid + }). + +start(Config) -> + wx_object:start_link(?MODULE, Config, []). + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +init(Config) -> + wx:batch(fun() -> do_init(Config) end). + +do_init(Config) -> + Parent = proplists:get_value(parent, Config), + Panel = wxPanel:new(Parent, []), + + %% Setup sizers + MainSizer = wxBoxSizer:new(?wxVERTICAL), + Sizer = wxStaticBoxSizer:new(?wxVERTICAL, Panel, + [{label, "wxGrid"}]), + + Grid = create_grid(Panel), + + %% Add to sizers + Options = [{flag, ?wxEXPAND}, {proportion, 1}], + + wxSizer:add(Sizer, Grid, Options), + wxSizer:add(MainSizer, Sizer, Options), + + wxPanel:setSizer(Panel, MainSizer), + {Panel, #state{parent=Panel, config=Config, + grid = Grid}}. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% Async Events are handled in handle_event as in handle_info +handle_event(#wx{event = #wxGrid{type = grid_cell_change, + row = Row, col = Col}}, + State = #state{}) -> + Val = wxGrid:getCellValue(State#state.grid, Row, Col), + demo:format(State#state.config, "Cell {~p,~p} changed to ~p.\n", + [Row,Col,Val]), + {noreply, State}. + +%% Callbacks handled as normal gen_server callbacks +handle_info(_Msg, State) -> + {noreply, State}. + +handle_call(_Msg, _From, State) -> + {reply,{error, nyi}, State}. + +code_change(_, _, State) -> + {stop, ignore, State}. + +terminate(_Reason, _State) -> + ok. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% Local functions +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +create_grid(Panel) -> + %% Create the grid with 100 * 5 cells + Grid = wxGrid:new(Panel, 2, []), + wxGrid:createGrid(Grid, 100, 5), + + Font = wxFont:new(16, ?wxFONTFAMILY_SWISS, + ?wxFONTSTYLE_NORMAL, + ?wxFONTWEIGHT_NORMAL, []), + %% Fun to set the values and flags of the cells + Fun = + fun(Row) -> + wxGrid:setCellValue(Grid, Row, 0, "Editable"), + wxGrid:setCellValue(Grid, Row, 1, "Editable"), + wxGrid:setCellValue(Grid, Row, 2, "Editable"), + wxGrid:setCellValue(Grid, Row, 3, "Read only"), + wxGrid:setCellTextColour(Grid, Row, 3, ?wxWHITE), + wxGrid:setReadOnly(Grid, Row, 3, [{isReadOnly,true}]), + wxGrid:setCellValue(Grid, Row, 4, "Editable"), + case Row rem 4 of + 0 -> wxGrid:setCellBackgroundColour(Grid, Row, 3, ?wxRED); + 1 -> wxGrid:setCellBackgroundColour(Grid, Row, 3, ?wxGREEN), + wxGrid:setCellTextColour(Grid, Row, 2, {255,215,0,255}); + 2 -> wxGrid:setCellBackgroundColour(Grid, Row, 3, ?wxBLUE); + _ -> wxGrid:setCellBackgroundColour(Grid, Row, 1, ?wxCYAN), + wxGrid:setCellValue(Grid, Row, 1, + "Centered\nhorizontally"), + wxGrid:setCellAlignment(Grid, Row, 4, + 0,?wxALIGN_CENTER), + wxGrid:setCellValue(Grid, Row, 4, + "Centered\nvertically"), + wxGrid:setCellAlignment(Grid, Row, 1, + ?wxALIGN_CENTER,0), + wxGrid:setCellTextColour(Grid, Row, 3, ?wxBLACK), + wxGrid:setCellAlignment(Grid, Row, 2, + ?wxALIGN_CENTER, + ?wxALIGN_CENTER), + wxGrid:setCellFont(Grid, Row, 0, Font), + wxGrid:setCellValue(Grid, Row, 2, + "Centered vertically\nand horizontally"), + wxGrid:setRowSize(Grid, Row, 80) + end + end, + %% Apply the fun to each row + wx:foreach(Fun, lists:seq(0,99)), + wxGrid:setColSize(Grid, 2, 150), + wxGrid:connect(Grid, grid_cell_change), + Grid. + + |