]>
git.saurik.com Git - wxWidgets.git/blob - src/os2/textctrl.cpp
1 /////////////////////////////////////////////////////////////////////////////
4 // Author: David Webster
8 // Copyright: (c) David Webster
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
12 // ----------------------------------------------------------------------------
14 // ----------------------------------------------------------------------------
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
20 #include "wx/textctrl.h"
21 #include "wx/settings.h"
29 #include "wx/clipbrd.h"
32 #include "wx/textfile.h"
34 #include "wx/os2/private.h"
38 #include <sys/types.h>
46 #if !USE_SHARED_LIBRARY
48 // ----------------------------------------------------------------------------
49 // event tables and other macros
50 // ----------------------------------------------------------------------------
52 IMPLEMENT_DYNAMIC_CLASS(wxTextCtrl
, wxControl
)
54 BEGIN_EVENT_TABLE(wxTextCtrl
, wxControl
)
55 EVT_CHAR(wxTextCtrl::OnChar
)
56 EVT_DROP_FILES(wxTextCtrl::OnDropFiles
)
58 EVT_MENU(wxID_CUT
, wxTextCtrl::OnCut
)
59 EVT_MENU(wxID_COPY
, wxTextCtrl::OnCopy
)
60 EVT_MENU(wxID_PASTE
, wxTextCtrl::OnPaste
)
61 EVT_MENU(wxID_UNDO
, wxTextCtrl::OnUndo
)
62 EVT_MENU(wxID_REDO
, wxTextCtrl::OnRedo
)
64 EVT_UPDATE_UI(wxID_CUT
, wxTextCtrl::OnUpdateCut
)
65 EVT_UPDATE_UI(wxID_COPY
, wxTextCtrl::OnUpdateCopy
)
66 EVT_UPDATE_UI(wxID_PASTE
, wxTextCtrl::OnUpdatePaste
)
67 EVT_UPDATE_UI(wxID_UNDO
, wxTextCtrl::OnUpdateUndo
)
68 EVT_UPDATE_UI(wxID_REDO
, wxTextCtrl::OnUpdateRedo
)
71 #endif // USE_SHARED_LIBRARY
73 // ============================================================================
75 // ============================================================================
77 // ----------------------------------------------------------------------------
79 // ----------------------------------------------------------------------------
81 wxTextCtrl::wxTextCtrl()
85 bool wxTextCtrl::Create(wxWindow
*parent
, wxWindowID id
,
86 const wxString
& value
,
91 const wxValidator
& validator
,
95 // base initialization
96 if ( !CreateBase(parent
, id
, pos
, size
, style
, validator
, name
) )
99 // Validator was set in CreateBase
100 //SetValidator(validator);
102 parent
->AddChild(this);
107 // translate wxWin style flags to MSW ones, checking for consistency while
111 long msStyle = ES_LEFT | WS_VISIBLE | WS_CHILD | WS_TABSTOP;
112 if ( m_windowStyle & wxTE_MULTILINE )
114 wxASSERT_MSG( !(m_windowStyle & wxTE_PROCESS_ENTER),
115 wxT("wxTE_PROCESS_ENTER style is ignored for multiline "
116 "text controls (they always process it)") );
118 msStyle |= ES_MULTILINE | ES_WANTRETURN;
119 if ((m_windowStyle & wxTE_NO_VSCROLL) == 0)
120 msStyle |= WS_VSCROLL;
121 m_windowStyle |= wxTE_PROCESS_ENTER;
124 msStyle |= ES_AUTOHSCROLL;
126 if (m_windowStyle & wxHSCROLL)
127 msStyle |= (WS_HSCROLL | ES_AUTOHSCROLL);
129 if (m_windowStyle & wxTE_READONLY)
130 msStyle |= ES_READONLY;
132 if (m_windowStyle & wxHSCROLL)
133 msStyle |= (WS_HSCROLL | ES_AUTOHSCROLL);
134 if (m_windowStyle & wxTE_PASSWORD) // hidden input
135 msStyle |= ES_PASSWORD;
137 // we always want the characters and the arrows
138 m_lDlgCode = DLGC_WANTCHARS | DLGC_WANTARROWS;
140 // we may have several different cases:
141 // 1. normal case: both TAB and ENTER are used for dialog navigation
142 // 2. ctrl which wants TAB for itself: ENTER is used to pass to the next
143 // control in the dialog
144 // 3. ctrl which wants ENTER for itself: TAB is used for dialog navigation
145 // 4. ctrl which wants both TAB and ENTER: Ctrl-ENTER is used to pass to
147 if ( m_windowStyle & wxTE_PROCESS_ENTER )
148 m_lDlgCode |= DLGC_WANTMESSAGE;
149 if ( m_windowStyle & wxTE_PROCESS_TAB )
150 m_lDlgCode |= DLGC_WANTTAB;
152 // do create the control - either an EDIT or RICHEDIT
153 const wxChar *windowClass = wxT("EDIT");
156 WXDWORD exStyle = Determine3DEffects(WS_EX_CLIENTEDGE, &want3D);
158 // Even with extended styles, need to combine with WS_BORDER for them to
160 if ( want3D || wxStyleHasBorder(m_windowStyle) )
161 msStyle |= WS_BORDER;
163 // NB: don't use pos and size as CreateWindowEx arguments because they
164 // might be -1 in which case we should use the default values (and
165 // SetSize called below takes care of it)
166 m_hWnd = (WXHWND)::CreateWindowEx(exStyle,
176 wxCHECK_MSG( m_hWnd, FALSE, wxT("Failed to create text ctrl") );
178 SubclassWin(GetHWND());
180 // set font, position, size and initial value
181 wxFont
& fontParent
= parent
->GetFont();
182 if ( fontParent
.Ok() )
188 SetFont(wxSystemSettings::GetSystemFont(wxSYS_SYSTEM_FONT
));
191 SetSize(pos
.x
, pos
.y
, size
.x
, size
.y
);
196 // Make sure the window style (etc.) reflects the HWND style (roughly)
197 void wxTextCtrl::AdoptAttributesFromHWND()
199 wxWindow::AdoptAttributesFromHWND();
201 HWND hWnd
= GetHwnd();
204 long style = GetWindowLong(hWnd, GWL_STYLE);
206 if (style & ES_MULTILINE)
207 m_windowStyle |= wxTE_MULTILINE;
208 if (style & ES_PASSWORD)
209 m_windowStyle |= wxTE_PASSWORD;
210 if (style & ES_READONLY)
211 m_windowStyle |= wxTE_READONLY;
212 if (style & ES_WANTRETURN)
213 m_windowStyle |= wxTE_PROCESS_ENTER;
217 void wxTextCtrl::SetupColours()
219 // FIXME why is bg colour not inherited from parent?
220 SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_WINDOW
));
221 SetForegroundColour(GetParent()->GetForegroundColour());
224 // ----------------------------------------------------------------------------
225 // set/get the controls text
226 // ----------------------------------------------------------------------------
228 wxString
wxTextCtrl::GetValue() const
230 return wxGetWindowText(GetHWND());
233 void wxTextCtrl::SetValue(const wxString
& value
)
237 wxString valueDos = wxTextFile::Translate(value, wxTextFileType_Dos);
239 SetWindowText(GetHwnd(), valueDos);
245 void wxTextCtrl::WriteText(const wxString
& value
)
249 wxString valueDos = wxTextFile::Translate(value, wxTextFileType_Dos);
251 SendMessage(GetHwnd(), EM_REPLACESEL, 0, (LPARAM)valueDos.c_str());
257 void wxTextCtrl::AppendText(const wxString
& text
)
261 SetInsertionPointEnd();
266 void wxTextCtrl::Clear()
268 // SetWindowText(GetHwnd(), wxT(""));
271 // ----------------------------------------------------------------------------
272 // Clipboard operations
273 // ----------------------------------------------------------------------------
275 void wxTextCtrl::Copy()
279 HWND hWnd
= GetHwnd();
280 // SendMessage(hWnd, WM_COPY, 0, 0L);
284 void wxTextCtrl::Cut()
288 HWND hWnd
= GetHwnd();
289 // SendMessage(hWnd, WM_CUT, 0, 0L);
293 void wxTextCtrl::Paste()
297 HWND hWnd
= GetHwnd();
298 // SendMessage(hWnd, WM_PASTE, 0, 0L);
302 bool wxTextCtrl::CanCopy() const
304 // Can copy if there's a selection
307 // GetSelection(& from, & to);
311 bool wxTextCtrl::CanCut() const
313 // Can cut if there's a selection
316 // GetSelection(& from, & to);
320 bool wxTextCtrl::CanPaste() const
325 // Standard edit control: check for straight text on clipboard
326 bool isTextAvailable
= FALSE
;
329 if ( ::OpenClipboard(GetHwndOf(wxTheApp->GetTopWindow())) )
331 isTextAvailable = (::IsClipboardFormatAvailable(CF_TEXT) != 0);
335 return isTextAvailable
;
338 // ----------------------------------------------------------------------------
340 // ----------------------------------------------------------------------------
342 void wxTextCtrl::SetEditable(bool editable
)
344 HWND hWnd
= GetHwnd();
345 // SendMessage(hWnd, EM_SETREADONLY, (WPARAM)!editable, (LPARAM)0L);
348 void wxTextCtrl::SetInsertionPoint(long pos
)
352 HWND hWnd = GetHwnd();
354 SendMessage(hWnd, EM_SETSEL, pos, pos);
355 SendMessage(hWnd, EM_SCROLLCARET, (WPARAM)0, (LPARAM)0);
357 static const char *nothing = "";
358 SendMessage(hWnd, EM_REPLACESEL, 0, (LPARAM)nothing);
362 void wxTextCtrl::SetInsertionPointEnd()
366 long pos = GetLastPosition();
367 SetInsertionPoint(pos);
371 long wxTextCtrl::GetInsertionPoint() const
375 DWORD Pos = (DWORD)SendMessage(GetHwnd(), EM_GETSEL, 0, 0L);
381 long wxTextCtrl::GetLastPosition() const
383 HWND hWnd
= GetHwnd();
387 // Will always return a number > 0 (according to docs)
388 int noLines = (int)SendMessage(hWnd, EM_GETLINECOUNT, (WPARAM)0, (LPARAM)0L);
390 // This gets the char index for the _beginning_ of the last line
391 int charIndex = (int)SendMessage(hWnd, EM_LINEINDEX, (WPARAM)(noLines-1), (LPARAM)0L);
393 // Get number of characters in the last line. We'll add this to the character
394 // index for the last line, 1st position.
395 int lineLength = (int)SendMessage(hWnd, EM_LINELENGTH, (WPARAM)charIndex, (LPARAM)0L);
397 return (long)(charIndex + lineLength);
402 // If the return values from and to are the same, there is no
404 void wxTextCtrl::GetSelection(long* from
, long* to
) const
406 DWORD dwStart
, dwEnd
;
407 MPARAM wParam
= (MPARAM
) (DWORD
*) & dwStart
; // receives starting position
408 MPARAM lParam
= (MPARAM
) (DWORD
*) & dwEnd
; // receives ending position
410 // ::SendMessage(GetHwnd(), EM_GETSEL, wParam, lParam);
416 bool wxTextCtrl::IsEditable() const
420 long style = ::GetWindowLong(GetHwnd(), GWL_STYLE);
422 return ((style & ES_READONLY) == 0);
427 // ----------------------------------------------------------------------------
429 // ----------------------------------------------------------------------------
431 void wxTextCtrl::Replace(long from
, long to
, const wxString
& value
)
434 HWND hWnd
= GetHwnd();
435 long fromChar
= from
;
438 // Set selection and remove it
439 // SendMessage(hWnd, EM_SETSEL, fromChar, toChar);
440 // SendMessage(hWnd, WM_CUT, (WPARAM)0, (LPARAM)0);
442 // Now replace with 'value', by pasting.
443 wxSetClipboardData(wxDF_TEXT
, (wxObject
*) (const wxChar
*)value
, 0, 0);
445 // Paste into edit control
446 // SendMessage(hWnd, WM_PASTE, (WPARAM)0, (LPARAM)0L);
448 wxFAIL_MSG("wxTextCtrl::Replace not implemented if wxUSE_CLIPBOARD is 0.");
452 void wxTextCtrl::Remove(long from
, long to
)
454 HWND hWnd
= GetHwnd();
455 long fromChar
= from
;
458 // Cut all selected text
459 // SendMessage(hWnd, EM_SETSEL, fromChar, toChar);
460 // SendMessage(hWnd, WM_CUT, (WPARAM)0, (LPARAM)0);
463 void wxTextCtrl::SetSelection(long from
, long to
)
465 HWND hWnd
= GetHwnd();
466 long fromChar
= from
;
469 // if from and to are both -1, it means (in wxWindows) that all text should
470 // be selected. Translate into Windows convention
471 if ((from
== -1) && (to
== -1))
477 // SendMessage(hWnd, EM_SETSEL, (WPARAM)fromChar, (LPARAM)toChar);
478 // SendMessage(hWnd, EM_SCROLLCARET, (WPARAM)0, (LPARAM)0);
481 bool wxTextCtrl::LoadFile(const wxString
& file
)
485 if ( wxTextCtrlBase::LoadFile(file) )
487 // update the size limit if needed
496 bool wxTextCtrl::IsModified() const
498 // return (SendMessage(GetHwnd(), EM_GETMODIFY, 0, 0) != 0);
502 // Makes 'unmodified'
503 void wxTextCtrl::DiscardEdits()
505 // SendMessage(GetHwnd(), EM_SETMODIFY, FALSE, 0L);
508 int wxTextCtrl::GetNumberOfLines() const
510 // return (int)SendMessage(GetHwnd(), EM_GETLINECOUNT, (WPARAM)0, (LPARAM)0);
514 long wxTextCtrl::XYToPosition(long x
, long y
) const
516 HWND hWnd
= GetHwnd();
518 // This gets the char index for the _beginning_ of this line
521 int charIndex = (int)SendMessage(hWnd, EM_LINEINDEX, (WPARAM)y, (LPARAM)0);
522 return (long)(x + charIndex);
527 bool wxTextCtrl::PositionToXY(long pos
, long *x
, long *y
) const
529 HWND hWnd
= GetHwnd();
531 // This gets the line number containing the character
533 // lineNo = (int)SendMessage(hWnd, EM_LINEFROMCHAR, (WPARAM)pos, 0);
541 // This gets the char index for the _beginning_ of this line
542 int charIndex
= 0; // TODO: (int)SendMessage(hWnd, EM_LINEINDEX, (WPARAM)lineNo, (LPARAM)0);
543 if ( charIndex
== -1 )
548 // The X position must therefore be the different between pos and charIndex
550 *x
= (long)(pos
- charIndex
);
557 void wxTextCtrl::ShowPosition(long pos
)
559 HWND hWnd
= GetHwnd();
561 // To scroll to a position, we pass the number of lines and characters
562 // to scroll *by*. This means that we need to:
563 // (1) Find the line position of the current line.
564 // (2) Find the line position of pos.
565 // (3) Scroll by (pos - current).
566 // For now, ignore the horizontal scrolling.
568 // Is this where scrolling is relative to - the line containing the caret?
569 // Or is the first visible line??? Try first visible line.
570 // int currentLineLineNo1 = (int)SendMessage(hWnd, EM_LINEFROMCHAR, (WPARAM)-1, (LPARAM)0L);
574 int currentLineLineNo = (int)SendMessage(hWnd, EM_GETFIRSTVISIBLELINE, (WPARAM)0, (LPARAM)0L);
576 int specifiedLineLineNo = (int)SendMessage(hWnd, EM_LINEFROMCHAR, (WPARAM)pos, (LPARAM)0L);
578 int linesToScroll = specifiedLineLineNo - currentLineLineNo;
580 if (linesToScroll != 0)
581 (void)SendMessage(hWnd, EM_LINESCROLL, (WPARAM)0, (LPARAM)linesToScroll);
585 int wxTextCtrl::GetLineLength(long lineNo
) const
590 long charIndex = XYToPosition(0, lineNo);
591 int len = (int)SendMessage(GetHwnd(), EM_LINELENGTH, charIndex, 0);
597 wxString
wxTextCtrl::GetLineText(long lineNo
) const
599 size_t len
= (size_t)GetLineLength(lineNo
) + 1;
600 char *buf
= (char *)malloc(len
);
602 int noChars
= 0; // TODO:(int)SendMessage(GetHwnd(), EM_GETLINE, lineNo, (LPARAM)buf);
612 // ----------------------------------------------------------------------------
614 // ----------------------------------------------------------------------------
616 void wxTextCtrl::Undo()
620 // ::SendMessage(GetHwnd(), EM_UNDO, 0, 0);
624 void wxTextCtrl::Redo()
628 // Same as Undo, since Undo undoes the undo, i.e. a redo.
629 // ::SendMessage(GetHwnd(), EM_UNDO, 0, 0);
633 bool wxTextCtrl::CanUndo() const
635 // return (::SendMessage(GetHwnd(), EM_CANUNDO, 0, 0) != 0);
639 bool wxTextCtrl::CanRedo() const
641 // return (::SendMessage(GetHwnd(), EM_CANUNDO, 0, 0) != 0);
645 // ----------------------------------------------------------------------------
646 // implemenation details
647 // ----------------------------------------------------------------------------
649 void wxTextCtrl::Command(wxCommandEvent
& event
)
651 SetValue(event
.GetString());
652 ProcessCommand (event
);
655 void wxTextCtrl::OnDropFiles(wxDropFilesEvent
& event
)
657 // By default, load the first file into the text window.
658 if (event
.GetNumberOfFiles() > 0)
660 LoadFile(event
.GetFiles()[0]);
664 WXHBRUSH
wxTextCtrl::OnCtlColor(WXHDC pDC
, WXHWND pWnd
, WXUINT nCtlColor
,
665 WXUINT message
, WXWPARAM wParam
,
671 SetBkMode(hdc, GetParent()->GetTransparentBackground() ? TRANSPARENT
674 ::SetBkColor(hdc, RGB(GetBackgroundColour().Red(), GetBackgroundColour().Green(), GetBackgroundColour().Blue()));
675 ::SetTextColor(hdc, RGB(GetForegroundColour().Red(), GetForegroundColour().Green(), GetForegroundColour().Blue()));
677 wxBrush
*backgroundBrush
= wxTheBrushList
->FindOrCreateBrush(GetBackgroundColour(), wxSOLID
);
679 return (WXHBRUSH
) backgroundBrush
->GetResourceHandle();
682 void wxTextCtrl::OnChar(wxKeyEvent
& event
)
684 switch ( event
.KeyCode() )
689 if ( !(m_windowStyle & wxTE_MULTILINE) )
691 wxCommandEvent event(wxEVT_COMMAND_TEXT_ENTER, m_windowId);
692 event.SetEventObject( this );
693 if ( GetEventHandler()->ProcessEvent(event) )
696 //else: multiline controls need Enter for themselves
701 // always produce navigation event - even if we process TAB
702 // ourselves the fact that we got here means that the user code
703 // decided to skip processing of this TAB - probably to let it
704 // do its default job.
706 // NB: Notice that Ctrl-Tab is handled elsewhere and Alt-Tab is
707 // handled by Windows
709 wxNavigationKeyEvent eventNav;
710 eventNav.SetDirection(!event.ShiftDown());
711 eventNav.SetWindowChange(FALSE);
712 eventNav.SetEventObject(this);
714 if ( GetEventHandler()->ProcessEvent(eventNav) )
724 // don't just call event.Skip() because this will cause TABs and ENTERs
725 // be passed upwards and we don't always want this - instead process it
732 bool wxTextCtrl::OS2Command(WXUINT param
, WXWORD
WXUNUSED(id
))
741 wxFocusEvent event(param == EN_KILLFOCUS ? wxEVT_KILL_FOCUS
744 event.SetEventObject( this );
745 GetEventHandler()->ProcessEvent(event);
751 wxCommandEvent event(wxEVT_COMMAND_TEXT_UPDATED, m_windowId);
752 wxString val(GetValue());
754 event.m_commandString = WXSTRINGCAST val;
755 event.SetEventObject( this );
756 ProcessCommand(event);
761 // the text size limit has been hit - increase it
765 // the other notification messages are not processed
779 void wxTextCtrl::AdjustSpaceLimit()
783 unsigned int len = ::GetWindowTextLength(GetHwnd()),
784 limit = ::SendMessage(GetHwnd(), EM_GETLIMITTEXT, 0, 0);
787 limit = len + 0x8000; // 32Kb
789 if ( limit > 0xffff )
790 ::SendMessage(GetHwnd(), EM_LIMITTEXT, 0, limit);
792 ::SendMessage(GetHwnd(), EM_LIMITTEXT, limit, 0);
797 bool wxTextCtrl::AcceptsFocus() const
799 // we don't want focus if we can't be edited
800 return IsEditable() && wxControl::AcceptsFocus();
803 wxSize
wxTextCtrl::DoGetBestSize() const
806 wxGetCharSize(GetHWND(), &cx
, &cy
, (wxFont
*)&GetFont());
808 int wText
= DEFAULT_ITEM_WIDTH
;
810 int hText
= EDIT_HEIGHT_FROM_CHAR_HEIGHT(cy
);
811 if ( m_windowStyle
& wxTE_MULTILINE
)
813 hText
*= wxMin(GetNumberOfLines(), 5);
815 //else: for single line control everything is ok
817 return wxSize(wText
, hText
);
820 // ----------------------------------------------------------------------------
821 // standard handlers for standard edit menu events
822 // ----------------------------------------------------------------------------
824 void wxTextCtrl::OnCut(wxCommandEvent
& event
)
829 void wxTextCtrl::OnCopy(wxCommandEvent
& event
)
834 void wxTextCtrl::OnPaste(wxCommandEvent
& event
)
839 void wxTextCtrl::OnUndo(wxCommandEvent
& event
)
844 void wxTextCtrl::OnRedo(wxCommandEvent
& event
)
849 void wxTextCtrl::OnUpdateCut(wxUpdateUIEvent
& event
)
851 event
.Enable( CanCut() );
854 void wxTextCtrl::OnUpdateCopy(wxUpdateUIEvent
& event
)
856 event
.Enable( CanCopy() );
859 void wxTextCtrl::OnUpdatePaste(wxUpdateUIEvent
& event
)
861 event
.Enable( CanPaste() );
864 void wxTextCtrl::OnUpdateUndo(wxUpdateUIEvent
& event
)
866 event
.Enable( CanUndo() );
869 void wxTextCtrl::OnUpdateRedo(wxUpdateUIEvent
& event
)
871 event
.Enable( CanRedo() );