aboutsummaryrefslogtreecommitdiffstats
path: root/lib/wx/examples/demo/ex_canvas_paint.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/wx/examples/demo/ex_canvas_paint.erl')
-rw-r--r--lib/wx/examples/demo/ex_canvas_paint.erl248
1 files changed, 248 insertions, 0 deletions
diff --git a/lib/wx/examples/demo/ex_canvas_paint.erl b/lib/wx/examples/demo/ex_canvas_paint.erl
new file mode 100644
index 0000000000..38d6b62f1d
--- /dev/null
+++ b/lib/wx/examples/demo/ex_canvas_paint.erl
@@ -0,0 +1,248 @@
+%%
+%% %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_canvas_paint).
+
+-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, handle_sync_event/3]).
+
+-include_lib("wx/include/wx.hrl").
+
+-record(state,
+ {
+ parent,
+ config,
+ canvas,
+ pen,
+ brush,
+ old_pos,
+ bitmap
+ }).
+
+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, "wxDC"}]),
+
+ %% Create the window to paint on and make it repaint the whole window on resize
+ Canvas = wxPanel:new(Panel, [{style, ?wxFULL_REPAINT_ON_RESIZE}]),
+ wxPanel:setToolTip(Canvas,
+ "Left-click and hold to draw something - release to stop drawing.\n"
+ "Middle-click to fill with pink\n"
+ "Middle-dclick to fill with white.\n"
+ "Right-click to clear."),
+
+ %% Create a wxPen and a WxBrush and set its colors to draw with
+ Brush = wxBrush:new(?wxWHITE),
+ Pen = wxPen:new(?wxBLACK, [{width, 2}]),
+
+ PrintButton = wxButton:new(Panel, ?wxID_ANY, [{label, "Print"}]),
+
+ Bitmap = wxBitmap:new(30,30),
+
+ %% Add to sizers
+ wxSizer:add(Sizer, Canvas, [{flag, ?wxEXPAND},
+ {proportion, 1}]),
+
+ wxSizer:add(MainSizer, PrintButton, []),
+ wxSizer:add(MainSizer, Sizer, [{flag, ?wxEXPAND},
+ {proportion, 1}]),
+
+ wxPanel:connect(PrintButton, command_button_clicked),
+ wxPanel:connect(Canvas, paint, [callback]),
+ wxPanel:connect(Canvas, size),
+ wxPanel:connect(Canvas, left_down),
+ wxPanel:connect(Canvas, left_dclick),
+ wxPanel:connect(Canvas, left_up),
+ wxPanel:connect(Canvas, right_down),
+ wxPanel:connect(Canvas, middle_down),
+ wxPanel:connect(Canvas, middle_dclick),
+ wxPanel:setSizer(Panel, MainSizer),
+ wxSizer:layout(MainSizer),
+ {Panel, #state{parent=Panel, config=Config,
+ canvas = Canvas, pen = Pen,
+ brush = Brush, bitmap = Bitmap}}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Sync event from callback events, paint event must be handled in callbacks
+%% otherwise nothing will be drawn on windows.
+handle_sync_event(#wx{event = #wxPaint{}}, _wxObj, #state{canvas=Canvas, bitmap=Bitmap}) ->
+ DC = wxPaintDC:new(Canvas),
+ redraw(DC, Bitmap),
+ wxPaintDC:destroy(DC),
+ ok.
+
+%% Print what's drawn
+handle_event(#wx{event = #wxCommand{type = command_button_clicked}},
+ State = #state{bitmap=Bitmap}) ->
+ PD = wxPrintData:new(),
+ PDD = wxPrintDialogData:new(PD),
+ PSDD = wxPageSetupDialogData:new(PD),
+ Fun =
+ fun(This,_Page) ->
+ MX = MY = 500,
+ wxPrintout:fitThisSizeToPageMargins(This, {MX,MY}, PSDD),
+ {_X,_Y,W,H} = wxPrintout:getLogicalPageMarginsRect(This, PSDD),
+ wxPrintout:offsetLogicalOrigin(This,(W-MX) div 2, (H-MY) div 2),
+ DC = wxPrintout:getDC(This),
+ redraw(DC, Bitmap),
+ true
+ end,
+ Printout1 = wxPrintout:new("Print", Fun,
+ [{getPageInfo, fun getPageInfo/1}]),
+ Printout2 = wxPrintout:new("Print", Fun,
+ [{getPageInfo, fun getPageInfo/1}]),
+ Preview = wxPrintPreview:new(Printout1, [{printoutForPrinting,Printout2},{data,PDD}]),
+ case wxPrintPreview:isOk(Preview) of
+ true ->
+ Env = wx:get_env(),
+ spawn_link(fun() ->
+ wx:set_env(Env),
+ PF = wxPreviewFrame:new(Preview, State#state.parent, []),
+ wxPreviewFrame:centre(PF, [{dir, ?wxBOTH}]),
+ wxPreviewFrame:initialize(PF),
+ wxPreviewFrame:centre(PF),
+ wxPreviewFrame:show(PF)
+ end);
+ false ->
+ io:format("Could not create preview window.\n"
+ "Perhaps your current printer is not set correctly?~n", []),
+ wxPrintPreview:destroy(Preview)
+ end,
+ {noreply, State#state{}};
+%% Draw a line
+handle_event(#wx{event = #wxMouse{type = motion, x = X, y = Y}},
+ State = #state{canvas = Canvas, pen = Pen, brush = Brush}) ->
+ Fun =
+ fun(DC) ->
+ wxDC:setPen(DC, Pen),
+ wxBrush:setColour(Brush, ?wxBLACK),
+ wxDC:setBrush(DC, Brush),
+ wxDC:drawLine(DC, {X,Y}, State#state.old_pos)
+ end,
+ draw(Canvas,State#state.bitmap, Fun),
+ {noreply, State#state{old_pos = {X,Y}}};
+%% Resize event
+handle_event(#wx{event = #wxSize{size = {W,H}}}, State = #state{bitmap=Prev}) ->
+ wxBitmap:destroy(Prev),
+ Bitmap = wxBitmap:new(W,H),
+ draw(State#state.canvas, Bitmap, fun(DC) -> wxDC:clear(DC) end),
+ {noreply, State#state{bitmap=Bitmap}};
+handle_event(#wx{event = #wxMouse{type = left_dclick,x = X,y = Y}}, State = #state{}) ->
+ wxPanel:connect(State#state.canvas, motion),
+ {noreply, State#state{old_pos = {X,Y}}};
+handle_event(#wx{event = #wxMouse{type = left_down,x = X,y = Y}}, State = #state{}) ->
+ wxPanel:connect(State#state.canvas, motion),
+ {noreply, State#state{old_pos = {X,Y}}};
+%% Fill with pink color
+handle_event(#wx{event = #wxMouse{type = middle_down,x = X, y =Y}}, State = #state{}) ->
+ case os:type() of
+ {_, darwin} ->
+ io:format("Fill doesn't work on Darwin ~n",[]);
+ _ ->
+ ok
+ end,
+ Fun =
+ fun(DC) ->
+ wxBrush:setColour(State#state.brush, {255,125,255,255}),
+ wxDC:setBrush(DC, State#state.brush),
+ wxDC:floodFill(DC, {X,Y}, ?wxBLACK, [{style, ?wxFLOOD_BORDER}])
+ end,
+
+ draw(State#state.canvas, State#state.bitmap, Fun),
+ {noreply, State};
+%% Fill with white color
+handle_event(#wx{event = #wxMouse{type = middle_dclick,x = X, y =Y}}, State = #state{}) ->
+ Fun =
+ fun(DC) ->
+ wxBrush:setColour(State#state.brush, ?wxWHITE),
+ wxDC:setBrush(DC, State#state.brush),
+ wxDC:floodFill(DC, {X,Y}, ?wxBLACK, [{style, ?wxFLOOD_BORDER}])
+ end,
+
+ draw(State#state.canvas, State#state.bitmap,Fun),
+ {noreply, State};
+handle_event(#wx{event = #wxMouse{type = left_up}}, State = #state{}) ->
+ wxPanel:disconnect(State#state.canvas, motion),
+ {noreply, State};
+%% Clear the DC
+handle_event(#wx{event = #wxMouse{type = right_down}}, State = #state{}) ->
+ draw(State#state.canvas, State#state.bitmap, fun(DC) -> wxDC:clear(DC) end),
+ {noreply, State}.
+
+%% Callbacks handled as normal gen_server callbacks
+handle_info(Msg, State) ->
+ demo:format(State#state.config, "Got Info ~p\n", [Msg]),
+ {noreply, State}.
+
+handle_call(Msg, _From, State) ->
+ demo:format(State#state.config, "Got Call ~p\n", [Msg]),
+ {reply,{error, nyi}, State}.
+
+code_change(_, _, State) ->
+ {stop, ignore, State}.
+
+terminate(_Reason, _State) ->
+ ok.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Local functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+draw(Canvas, Bitmap, Fun) ->
+ MemoryDC = wxMemoryDC:new(Bitmap),
+ CDC = wxClientDC:new(Canvas),
+
+ Fun(MemoryDC),
+
+ wxDC:blit(CDC, {0,0},
+ {wxBitmap:getWidth(Bitmap), wxBitmap:getHeight(Bitmap)},
+ MemoryDC, {0,0}),
+
+ wxClientDC:destroy(CDC),
+ wxMemoryDC:destroy(MemoryDC).
+
+redraw(DC, Bitmap) ->
+ MemoryDC = wxMemoryDC:new(Bitmap),
+
+ wxDC:blit(DC, {0,0},
+ {wxBitmap:getWidth(Bitmap), wxBitmap:getHeight(Bitmap)},
+ MemoryDC, {0,0}),
+
+ wxMemoryDC:destroy(MemoryDC).
+
+
+getPageInfo(_This) ->
+ {1,1,1,1}.
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-10 01:49:25 +0000