1 /*-*- c++ -*-********************************************************
2 * wxLwindow.h : a scrolled Window for displaying/entering rich text*
4 * (C) 1998, 1999 by Karsten Ballüder (Ballueder@usa.net) *
7 *******************************************************************/
10 # pragma implementation "wxlwindow.h"
13 #include "wx/wxprec.h"
23 # include "gui/wxMenuDefs.h"
24 # include "gui/wxMApp.h"
26 # include "gui/wxlwindow.h"
27 # include "gui/wxlparser.h"
36 # include "wxlwindow.h"
37 # include "wxlparser.h"
40 #include <wx/clipbrd.h>
41 #include <wx/textctrl.h>
42 #include <wx/dataobj.h>
46 /// offsets to put a nice frame around text
47 #define WXLO_XOFFSET 4
48 #define WXLO_YOFFSET 4
50 /// offset to the right and bottom for when to redraw scrollbars
51 #define WXLO_ROFFSET 20
52 #define WXLO_BOFFSET 20
54 BEGIN_EVENT_TABLE(wxLayoutWindow
,wxScrolledWindow
)
55 EVT_PAINT (wxLayoutWindow::OnPaint
)
56 EVT_CHAR (wxLayoutWindow::OnChar
)
57 EVT_KEY_UP (wxLayoutWindow::OnKeyUp
)
58 EVT_LEFT_DOWN(wxLayoutWindow::OnLeftMouseClick
)
59 EVT_RIGHT_DOWN(wxLayoutWindow::OnRightMouseClick
)
60 EVT_LEFT_DCLICK(wxLayoutWindow::OnMouseDblClick
)
61 EVT_MOTION (wxLayoutWindow::OnMouseMove
)
62 EVT_MENU_RANGE(WXLOWIN_MENU_FIRST
, WXLOWIN_MENU_LAST
, wxLayoutWindow::OnMenu
)
63 EVT_SET_FOCUS(wxLayoutWindow::OnSetFocus
)
64 EVT_KILL_FOCUS(wxLayoutWindow::OnKillFocus
)
67 wxLayoutWindow::wxLayoutWindow(wxWindow
*parent
)
68 : wxScrolledWindow(parent
, -1, wxDefaultPosition
, wxDefaultSize
,
69 wxHSCROLL
| wxVSCROLL
| wxBORDER
)
73 m_doSendEvents
= false;
74 m_ViewStartX
= 0; m_ViewStartY
= 0;
76 m_PopupMenu
= MakeFormatMenu();
77 m_memDC
= new wxMemoryDC
;
78 m_bitmap
= new wxBitmap(4,4);
79 m_bitmapSize
= wxPoint(4,4);
80 m_llist
= new wxLayoutList();
82 m_ScrollToCursor
= false;
84 wxPoint max
= m_llist
->GetSize();
85 SetScrollbars(10, 20 /*lineHeight*/, max
.x
/10+1, max
.y
/20+1);
86 EnableScrolling(true,true);
87 m_maxx
= max
.x
; m_maxy
= max
.y
;
89 SetCursor(wxCURSOR_IBEAM
);
93 wxLayoutWindow::~wxLayoutWindow()
95 delete m_memDC
; // deletes bitmap automatically (?)
99 SetBackgroundBitmap(NULL
);
104 wxLayoutWindow::MSWGetDlgCode()
106 // if we don't return this, we won't get OnChar() events for TABs and ENTER
107 return DLGC_WANTCHARS
| DLGC_WANTARROWS
| DLGC_WANTMESSAGE
;
112 wxLayoutWindow::OnMouse(int eventId
, wxMouseEvent
& event
)
114 wxPaintDC
dc( this );
120 findPos
.x
= dc
.DeviceToLogicalX(event
.GetX());
121 findPos
.y
= dc
.DeviceToLogicalY(event
.GetY());
123 findPos
.x
-= WXLO_XOFFSET
;
124 findPos
.y
-= WXLO_YOFFSET
;
126 if(findPos
.x
< 0) findPos
.x
= 0;
127 if(findPos
.y
< 0) findPos
.y
= 0;
129 m_ClickPosition
= wxPoint(event
.GetX(), event
.GetY());
130 #ifdef WXLAYOUT_DEBUG
131 // wxLogDebug("wxLayoutWindow::OnMouse: (%d, %d) -> (%d, %d)",
132 // event.GetX(), event.GetY(), findPos.x, findPos.y);
137 wxLayoutObject
*obj
= m_llist
->FindObjectScreen(dc
, findPos
,
140 #ifdef WXLAYOUT_DEBUG
142 // wxLogDebug("wxLayoutWindow::OnMouse: Found object of type %d.",
145 // wxLogDebug("wxLayoutWindow::OnMouse: Found no object.");
148 //has the mouse only been moved?
149 if(eventId
== WXLOWIN_MENU_MOUSEMOVE
)
151 // found is only true if we are really over an object, not just
153 if(found
&& obj
&& obj
->GetUserData() != NULL
)
156 SetCursor(wxCURSOR_HAND
);
162 SetCursor(wxCURSOR_IBEAM
);
163 m_HandCursor
= FALSE
;
168 // always move cursor to mouse click:
169 if(obj
&& eventId
== WXLOWIN_MENU_LCLICK
)
171 m_llist
->MoveCursorTo(cursorPos
);
172 m_ScrollToCursor
= true; //FIXME: needed? DoPaint(m_llist->GetUpdateRect());
174 if(!m_doSendEvents
) // nothing to do
177 // only do the menu if activated, editable and not on a clickable object
178 if(eventId
== WXLOWIN_MENU_RCLICK
180 && (! obj
|| (obj
&& obj
->GetUserData() == NULL
))
183 PopupMenu(m_PopupMenu
, m_ClickPosition
.x
, m_ClickPosition
.y
);
186 // find the object at this position
189 wxCommandEvent
commandEvent(wxEVT_COMMAND_MENU_SELECTED
, eventId
);
190 commandEvent
.SetEventObject( this );
191 commandEvent
.SetClientData((char *)obj
);
192 GetEventHandler()->ProcessEvent(commandEvent
);
197 * Some simple keyboard handling.
200 wxLayoutWindow::OnChar(wxKeyEvent
& event
)
202 #ifdef WXLAYOUT_DEBUG
203 if(event
.KeyCode() == WXK_F1
)
210 long keyCode
= event
.KeyCode();
211 if(m_Selecting
&& ! event
.ShiftDown())
213 m_llist
->EndSelection();
217 if(! m_Selecting
&& event
.ShiftDown())
230 m_llist
->StartSelection();
237 if(!IsEditable()) // do nothing
242 m_llist
->MoveCursorVertically(-1);
245 m_llist
->MoveCursorVertically(1);
248 m_llist
->MoveCursorVertically(-20);
251 m_llist
->MoveCursorVertically(20);
259 /* First, handle control keys */
260 if(event
.ControlDown() && ! event
.AltDown())
269 m_llist
->DeleteLines(1);
271 case 'h': // like backspace
272 if(m_llist
->MoveCursorHorizontally(-1)) m_llist
->Delete(1);
275 m_llist
->DeleteToBeginOfLine();
278 m_llist
->DeleteToEndOfLine();
283 #ifdef WXLAYOUT_DEBUG
285 m_llist
->SetFont(-1,-1,-1,-1,true); // underlined
293 else if( event
.AltDown() && ! event
.ControlDown() )
299 m_llist
->DeleteWord();
306 else if ( ! event
.AltDown() && ! event
.ControlDown())
311 m_llist
->MoveCursorHorizontally(1);
314 m_llist
->MoveCursorHorizontally(-1);
317 m_llist
->MoveCursorVertically(-1);
320 m_llist
->MoveCursorVertically(1);
323 m_llist
->MoveCursorVertically(-20);
326 m_llist
->MoveCursorVertically(20);
329 m_llist
->MoveCursorToBeginOfLine();
332 m_llist
->MoveCursorToEndOfLine();
335 if(event
.ShiftDown())
341 case WXK_BACK
: // backspace
342 if(m_llist
->MoveCursorHorizontally(-1)) m_llist
->Delete(1);
346 m_llist
->WrapLine(m_WrapMargin
);
347 m_llist
->LineBreak();
350 if((!(event
.ControlDown() || event
.AltDown() || event
.MetaDown()))
351 && (keyCode
< 256 && keyCode
>= 32)
356 if(m_WrapMargin
> 0 && isspace(keyCode
))
357 m_llist
->WrapLine(m_WrapMargin
);
358 m_llist
->Insert(tmp
);
365 m_ScrollToCursor
= true;
366 //DoPaint(true); // paint and scroll to cursor
367 wxRect r
= *m_llist
->GetUpdateRect();
372 wxLayoutWindow::OnKeyUp(wxKeyEvent
& event
)
374 if(event
.KeyCode() == WXK_SHIFT
&& m_llist
->IsSelecting())
375 m_llist
->EndSelection();
380 wxLayoutWindow::OnPaint( wxPaintEvent
&WXUNUSED(event
)) // or: OnDraw(wxDC& dc)
382 wxRect region
= GetUpdateRegion().GetBox();
383 InternalPaint(& region
);
387 wxLayoutWindow::DoPaint(const wxRect
*updateRect
)
390 InternalPaint(updateRect
);
392 Refresh(FALSE
, updateRect
); // Causes bad flicker under wxGTK!!!
397 wxLayoutWindow::InternalPaint(const wxRect
*updateRect
)
399 wxPaintDC
dc( this );
402 int x0
,y0
,x1
,y1
, dx
, dy
;
404 // Calculate where the top of the visible area is:
406 GetScrollPixelsPerUnit(&dx
, &dy
);
409 // Get the size of the visible window:
410 GetClientSize(&x1
,&y1
);
413 // As we have the values anyway, use them to avoid unnecessary
414 // scrollbar updates.
415 if(x1
> m_maxx
) m_maxx
= x1
;
416 if(y1
> m_maxy
) m_maxy
= y1
;
419 //m_llist->InvalidateUpdateRect();
420 //const wxRect *r = m_llist->GetUpdateRect();
421 wxLogDebug("Update rect: %ld,%ld / %ld,%ld",
422 updateRect
->x
, updateRect
->y
, updateRect
->x
+updateRect
->width
, updateRect
->y
+updateRect
->height
);
425 //FIXME: we should never need to call Layout at all because the
426 // list does it automatically.
427 // Maybe we need to change the scrollbar sizes or positions,
428 // so layout the list and check:
431 wxLogDebug("Update rect after calling Layout: %ld,%ld / %ld,%ld",
432 r
->x
, r
->y
, r
->x
+r
->width
, r
->y
+r
->height
);
433 // this is needed even when only the cursor moved
434 m_llist
->Layout(dc
,y0
+y1
);
435 wxLogDebug("Update rect after calling Layout again: %ld,%ld / %ld,%ld",
436 r
->x
, r
->y
, r
->x
+r
->width
, r
->y
+r
->height
);
442 /* Make sure that the scrollbars are at a position so that the
443 cursor is visible if we are editing. */
444 /** Scroll so that cursor is visible! */
445 wxLogDebug("m_ScrollToCursor = %d", (int) m_ScrollToCursor
);
446 if(IsEditable() && m_ScrollToCursor
)
448 wxPoint cc
= m_llist
->GetCursorScreenPos(*m_memDC
);
449 if(cc
.x
< x0
|| cc
.y
< y0
450 || cc
.x
>= x0
+(9*x1
)/10 || cc
.y
>= y0
+(9*y1
/10)) // (9*x)/10 == 90%
453 nx
= cc
.x
- x1
/2; if(nx
< 0) nx
= 0;
454 ny
= cc
.y
- y1
/2; if(ny
< 0) ny
= 0;
455 Scroll(nx
/dx
,ny
/dy
); // new view start
460 /* Check whether the window has grown, if so, we need to reallocate
461 the bitmap to be larger. */
462 if(x1
> m_bitmapSize
.x
|| y1
> m_bitmapSize
.y
)
464 wxASSERT(m_bitmapSize
.x
> 0);
465 wxASSERT(m_bitmapSize
.y
> 0);
467 m_memDC
->SelectObject(wxNullBitmap
);
469 m_bitmapSize
= wxPoint(x1
,y1
);
470 m_bitmap
= new wxBitmap(x1
,y1
);
471 m_memDC
->SelectObject(*m_bitmap
);
474 // Device origins on the memDC are suspect, we translate manually
475 // with the translate parameter of Draw().
476 m_memDC
->SetDeviceOrigin(0,0);
477 m_memDC
->SetBrush(wxBrush(m_llist
->GetDefaults()->GetBGColour(), wxSOLID
));
478 m_memDC
->SetPen(wxPen(m_llist
->GetDefaults()->GetBGColour(),0,wxTRANSPARENT
));
479 m_memDC
->SetLogicalFunction(wxCOPY
);
484 w
= m_BGbitmap
->GetWidth(),
485 h
= m_BGbitmap
->GetHeight();
486 for(y
= 0; y
< y1
; y
+=h
)
487 for(x
= 0; x
< x1
; x
+=w
)
488 m_memDC
->DrawBitmap(*m_BGbitmap
, x
, y
);
489 m_memDC
->SetBackgroundMode(wxTRANSPARENT
);
493 m_memDC
->SetBackgroundMode(wxSOLID
);
494 m_memDC
->DrawRectangle(0,0,x1
, y1
);
498 /* This is the important bit: we tell the list to draw itself: */
499 wxLogDebug("Update rect: %ld,%ld / %ld,%ld",
500 updateRect
->x
, updateRect
->y
, updateRect
->x
+updateRect
->width
, updateRect
->y
+updateRect
->height
);
502 wxPoint
offset(-x0
+WXLO_XOFFSET
,-y0
+WXLO_YOFFSET
);
503 m_llist
->Draw(*m_memDC
,offset
, y0
, y0
+y1
);
505 // Now copy everything to the screen:
508 // 1. the update region as calculated by the list is wrong
509 // 2. we get wrong values here
510 // 3. how about the offset?
511 wxRegionIterator
ri ( GetUpdateRegion() );
515 wxLogDebug("UpdateRegion: %ld,%ld, %ld,%ld",
516 ri
.GetX(),ri
.GetY(),ri
.GetW(),ri
.GetH());
517 dc
.Blit(x0
+ri
.GetX(),y0
+ri
.GetY(),ri
.GetW(),ri
.GetH(),
518 m_memDC
,ri
.GetX(),ri
.GetY(),wxCOPY
,FALSE
);
524 // FIXME: Trying to copy only the changed parts, but it does not seem
526 // x0 = updateRect->x; y0 = updateRect->y;
527 // if(updateRect->height < y1)
528 // y1 = updateRect->height;
529 // y1 += WXLO_YOFFSET; //FIXME might not be needed
530 dc
.Blit(x0
,y0
,x1
,y1
,m_memDC
,0,0,wxCOPY
,FALSE
);
532 //FIXME: we need to make sure we blit draw the cursor!
533 // How about drawing it directly to the screen?
535 //m_llist->DrawCursor(*m_memDC,m_HaveFocus,offset);
536 m_llist
->DrawCursor(dc
,m_HaveFocus
, wxPoint(WXLO_XOFFSET
,WXLO_YOFFSET
)); //direct to screen
539 m_ScrollToCursor
= false;
540 m_llist
->InvalidateUpdateRect();
543 // change the range and position of scroll bars
545 wxLayoutWindow::ResizeScrollbars(bool exact
)
547 wxPoint max
= m_llist
->GetSize();
549 if(max
.x
> m_maxx
|| max
.y
> m_maxy
550 || max
.x
> m_maxx
-WXLO_ROFFSET
|| max
.y
> m_maxy
-WXLO_BOFFSET
555 // add an extra bit to the sizes to avoid future updates
556 max
.x
= max
.x
+WXLO_ROFFSET
;
557 max
.y
= max
.y
+WXLO_BOFFSET
;
559 ViewStart(&m_ViewStartX
, &m_ViewStartY
);
560 SetScrollbars(10, 20, max
.x
/10+1,max
.y
/20+1,m_ViewStartX
,m_ViewStartY
,true);
561 m_maxx
= max
.x
; m_maxy
= max
.y
;
566 wxLayoutWindow::Paste(void)
570 if (wxTheClipboard
->Open())
572 wxTextDataObject data
;
573 if (wxTheClipboard
->IsSupported( data
.GetFormat() ))
575 wxTheClipboard
->GetData(&data
);
576 text
+= data
.GetText();
578 wxTheClipboard
->Close();
581 /* Unfortunately, this little hack doesn't work. So I'll go back to
583 if(text
.Length() == 0)
585 wxTextCtrl
tmp_tctrl(this,-1);
587 text
+= tmp_tctrl
.GetValue();
590 wxLayoutImportText( m_llist
, text
);
595 wxLayoutWindow::MakeFormatMenu()
597 wxMenu
*m
= new wxMenu(_("Layout Menu"));
599 m
->Append(WXLOWIN_MENU_LARGER
,_("&Larger"),_("Switch to larger font."), false);
600 m
->Append(WXLOWIN_MENU_SMALLER
,_("&Smaller"),_("Switch to smaller font."), false);
601 m
->AppendSeparator();
602 m
->Append(WXLOWIN_MENU_UNDERLINE_ON
, _("&Underline on"),_("Activate underline mode."), false);
603 m
->Append(WXLOWIN_MENU_UNDERLINE_OFF
,_("&Underline off"),_("Deactivate underline mode."), false);
604 m
->Append(WXLOWIN_MENU_BOLD_ON
,_("&Bold on"),_("Activate bold mode."), false);
605 m
->Append(WXLOWIN_MENU_BOLD_OFF
,_("&Bold off"),_("Deactivate bold mode."), false);
606 m
->Append(WXLOWIN_MENU_ITALICS_ON
,_("&Italics on"),_("Activate italics mode."), false);
607 m
->Append(WXLOWIN_MENU_ITALICS_OFF
,_("&Italics off"),_("Deactivate italics mode."), false);
608 m
->AppendSeparator();
609 m
->Append(WXLOWIN_MENU_ROMAN
,_("&Roman"),_("Switch to roman font."), false);
610 m
->Append(WXLOWIN_MENU_TYPEWRITER
,_("&Typewriter"),_("Switch to typewriter font."), false);
611 m
->Append(WXLOWIN_MENU_SANSSERIF
,_("&Sans Serif"),_("Switch to sans serif font."), false);
615 void wxLayoutWindow::OnMenu(wxCommandEvent
& event
)
617 switch (event
.GetId())
619 case WXLOWIN_MENU_LARGER
:
620 m_llist
->SetFontLarger(); break;
621 case WXLOWIN_MENU_SMALLER
:
622 m_llist
->SetFontSmaller(); break;
623 case WXLOWIN_MENU_UNDERLINE_ON
:
624 m_llist
->SetFontUnderline(true); break;
625 case WXLOWIN_MENU_UNDERLINE_OFF
:
626 m_llist
->SetFontUnderline(false); break;
627 case WXLOWIN_MENU_BOLD_ON
:
628 m_llist
->SetFontWeight(wxBOLD
); break;
629 case WXLOWIN_MENU_BOLD_OFF
:
630 m_llist
->SetFontWeight(wxNORMAL
); break;
631 case WXLOWIN_MENU_ITALICS_ON
:
632 m_llist
->SetFontStyle(wxITALIC
); break;
633 case WXLOWIN_MENU_ITALICS_OFF
:
634 m_llist
->SetFontStyle(wxNORMAL
); break;
635 case WXLOWIN_MENU_ROMAN
:
636 m_llist
->SetFontFamily(wxROMAN
); break;
637 case WXLOWIN_MENU_TYPEWRITER
:
638 m_llist
->SetFontFamily(wxFIXED
); break;
639 case WXLOWIN_MENU_SANSSERIF
:
640 m_llist
->SetFontFamily(wxSWISS
); break;
645 wxLayoutWindow::OnSetFocus(wxFocusEvent
&ev
)
648 //FIXME DoPaint(); // to repaint the cursor
652 wxLayoutWindow::OnKillFocus(wxFocusEvent
&ev
)
655 //FIXME DoPaint(); // to repaint the cursor