]>
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
,
90 const wxValidator
& validator
,
93 // base initialization
94 if ( !CreateBase(parent
, id
, pos
, size
, style
, validator
, name
) )
97 // Validator was set in CreateBase
98 //SetValidator(validator);
100 parent
->AddChild(this);
105 // translate wxWin style flags to MSW ones, checking for consistency while
109 long msStyle = ES_LEFT | WS_VISIBLE | WS_CHILD | WS_TABSTOP;
110 if ( m_windowStyle & wxTE_MULTILINE )
112 wxASSERT_MSG( !(m_windowStyle & wxTE_PROCESS_ENTER),
113 wxT("wxTE_PROCESS_ENTER style is ignored for multiline "
114 "text controls (they always process it)") );
116 msStyle |= ES_MULTILINE | ES_WANTRETURN;
117 if ((m_windowStyle & wxTE_NO_VSCROLL) == 0)
118 msStyle |= WS_VSCROLL;
119 m_windowStyle |= wxTE_PROCESS_ENTER;
122 msStyle |= ES_AUTOHSCROLL;
124 if (m_windowStyle & wxHSCROLL)
125 msStyle |= (WS_HSCROLL | ES_AUTOHSCROLL);
127 if (m_windowStyle & wxTE_READONLY)
128 msStyle |= ES_READONLY;
130 if (m_windowStyle & wxHSCROLL)
131 msStyle |= (WS_HSCROLL | ES_AUTOHSCROLL);
132 if (m_windowStyle & wxTE_PASSWORD) // hidden input
133 msStyle |= ES_PASSWORD;
135 // we always want the characters and the arrows
136 m_lDlgCode = DLGC_WANTCHARS | DLGC_WANTARROWS;
138 // we may have several different cases:
139 // 1. normal case: both TAB and ENTER are used for dialog navigation
140 // 2. ctrl which wants TAB for itself: ENTER is used to pass to the next
141 // control in the dialog
142 // 3. ctrl which wants ENTER for itself: TAB is used for dialog navigation
143 // 4. ctrl which wants both TAB and ENTER: Ctrl-ENTER is used to pass to
145 if ( m_windowStyle & wxTE_PROCESS_ENTER )
146 m_lDlgCode |= DLGC_WANTMESSAGE;
147 if ( m_windowStyle & wxTE_PROCESS_TAB )
148 m_lDlgCode |= DLGC_WANTTAB;
150 // do create the control - either an EDIT or RICHEDIT
151 const wxChar *windowClass = wxT("EDIT");
154 WXDWORD exStyle = Determine3DEffects(WS_EX_CLIENTEDGE, &want3D);
156 // Even with extended styles, need to combine with WS_BORDER for them to
158 if ( want3D || wxStyleHasBorder(m_windowStyle) )
159 msStyle |= WS_BORDER;
161 // NB: don't use pos and size as CreateWindowEx arguments because they
162 // might be -1 in which case we should use the default values (and
163 // SetSize called below takes care of it)
164 m_hWnd = (WXHWND)::CreateWindowEx(exStyle,
174 wxCHECK_MSG( m_hWnd, FALSE, wxT("Failed to create text ctrl") );
176 SubclassWin(GetHWND());
178 // set font, position, size and initial value
179 wxFont
& fontParent
= parent
->GetFont();
180 if ( fontParent
.Ok() )
186 SetFont(wxSystemSettings::GetSystemFont(wxSYS_SYSTEM_FONT
));
189 SetSize(pos
.x
, pos
.y
, size
.x
, size
.y
);
194 // Make sure the window style (etc.) reflects the HWND style (roughly)
195 void wxTextCtrl::AdoptAttributesFromHWND()
197 wxWindow::AdoptAttributesFromHWND();
199 HWND hWnd
= GetHwnd();
202 long style = GetWindowLong(hWnd, GWL_STYLE);
204 if (style & ES_MULTILINE)
205 m_windowStyle |= wxTE_MULTILINE;
206 if (style & ES_PASSWORD)
207 m_windowStyle |= wxTE_PASSWORD;
208 if (style & ES_READONLY)
209 m_windowStyle |= wxTE_READONLY;
210 if (style & ES_WANTRETURN)
211 m_windowStyle |= wxTE_PROCESS_ENTER;
215 void wxTextCtrl::SetupColours()
217 // FIXME why is bg colour not inherited from parent?
218 SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_WINDOW
));
219 SetForegroundColour(GetParent()->GetForegroundColour());
222 // ----------------------------------------------------------------------------
223 // set/get the controls text
224 // ----------------------------------------------------------------------------
226 wxString
wxTextCtrl::GetValue() const
228 return wxGetWindowText(GetHWND());
231 void wxTextCtrl::SetValue(const wxString
& value
)
235 wxString valueDos = wxTextFile::Translate(value, wxTextFileType_Dos);
237 SetWindowText(GetHwnd(), valueDos);
243 void wxTextCtrl::WriteText(const wxString
& value
)
247 wxString valueDos = wxTextFile::Translate(value, wxTextFileType_Dos);
249 SendMessage(GetHwnd(), EM_REPLACESEL, 0, (LPARAM)valueDos.c_str());
255 void wxTextCtrl::AppendText(const wxString
& text
)
259 SetInsertionPointEnd();
264 void wxTextCtrl::Clear()
266 // SetWindowText(GetHwnd(), wxT(""));
269 // ----------------------------------------------------------------------------
270 // Clipboard operations
271 // ----------------------------------------------------------------------------
273 void wxTextCtrl::Copy()
277 HWND hWnd
= GetHwnd();
278 // SendMessage(hWnd, WM_COPY, 0, 0L);
282 void wxTextCtrl::Cut()
286 HWND hWnd
= GetHwnd();
287 // SendMessage(hWnd, WM_CUT, 0, 0L);
291 void wxTextCtrl::Paste()
295 HWND hWnd
= GetHwnd();
296 // SendMessage(hWnd, WM_PASTE, 0, 0L);
300 bool wxTextCtrl::CanCopy() const
302 // Can copy if there's a selection
304 // GetSelection(& from, & to);
308 bool wxTextCtrl::CanCut() const
310 // Can cut if there's a selection
312 // GetSelection(& from, & to);
316 bool wxTextCtrl::CanPaste() const
321 // Standard edit control: check for straight text on clipboard
322 bool isTextAvailable
= FALSE
;
325 if ( ::OpenClipboard(GetHwndOf(wxTheApp->GetTopWindow())) )
327 isTextAvailable = (::IsClipboardFormatAvailable(CF_TEXT) != 0);
331 return isTextAvailable
;
334 // ----------------------------------------------------------------------------
336 // ----------------------------------------------------------------------------
338 void wxTextCtrl::SetEditable(bool editable
)
340 HWND hWnd
= GetHwnd();
341 // SendMessage(hWnd, EM_SETREADONLY, (WPARAM)!editable, (LPARAM)0L);
344 void wxTextCtrl::SetInsertionPoint(long pos
)
348 HWND hWnd = GetHwnd();
350 SendMessage(hWnd, EM_SETSEL, pos, pos);
351 SendMessage(hWnd, EM_SCROLLCARET, (WPARAM)0, (LPARAM)0);
353 static const char *nothing = "";
354 SendMessage(hWnd, EM_REPLACESEL, 0, (LPARAM)nothing);
358 void wxTextCtrl::SetInsertionPointEnd()
362 long pos = GetLastPosition();
363 SetInsertionPoint(pos);
367 long wxTextCtrl::GetInsertionPoint() const
371 DWORD Pos = (DWORD)SendMessage(GetHwnd(), EM_GETSEL, 0, 0L);
377 long wxTextCtrl::GetLastPosition() const
379 HWND hWnd
= GetHwnd();
383 // Will always return a number > 0 (according to docs)
384 int noLines = (int)SendMessage(hWnd, EM_GETLINECOUNT, (WPARAM)0, (LPARAM)0L);
386 // This gets the char index for the _beginning_ of the last line
387 int charIndex = (int)SendMessage(hWnd, EM_LINEINDEX, (WPARAM)(noLines-1), (LPARAM)0L);
389 // Get number of characters in the last line. We'll add this to the character
390 // index for the last line, 1st position.
391 int lineLength = (int)SendMessage(hWnd, EM_LINELENGTH, (WPARAM)charIndex, (LPARAM)0L);
393 return (long)(charIndex + lineLength);
398 // If the return values from and to are the same, there is no
400 void wxTextCtrl::GetSelection(long* from
, long* to
) const
402 DWORD dwStart
, dwEnd
;
403 MPARAM wParam
= (MPARAM
) (DWORD
*) & dwStart
; // receives starting position
404 MPARAM lParam
= (MPARAM
) (DWORD
*) & dwEnd
; // receives ending position
406 // ::SendMessage(GetHwnd(), EM_GETSEL, wParam, lParam);
412 bool wxTextCtrl::IsEditable() const
416 long style = ::GetWindowLong(GetHwnd(), GWL_STYLE);
418 return ((style & ES_READONLY) == 0);
423 // ----------------------------------------------------------------------------
425 // ----------------------------------------------------------------------------
427 void wxTextCtrl::Replace(long from
, long to
, const wxString
& value
)
430 HWND hWnd
= GetHwnd();
431 long fromChar
= from
;
434 // Set selection and remove it
435 // SendMessage(hWnd, EM_SETSEL, fromChar, toChar);
436 // SendMessage(hWnd, WM_CUT, (WPARAM)0, (LPARAM)0);
438 // Now replace with 'value', by pasting.
439 wxSetClipboardData(wxDF_TEXT
, (wxObject
*) (const wxChar
*)value
, 0, 0);
441 // Paste into edit control
442 // SendMessage(hWnd, WM_PASTE, (WPARAM)0, (LPARAM)0L);
444 wxFAIL_MSG("wxTextCtrl::Replace not implemented if wxUSE_CLIPBOARD is 0.");
448 void wxTextCtrl::Remove(long from
, long to
)
450 HWND hWnd
= GetHwnd();
451 long fromChar
= from
;
454 // Cut all selected text
455 // SendMessage(hWnd, EM_SETSEL, fromChar, toChar);
456 // SendMessage(hWnd, WM_CUT, (WPARAM)0, (LPARAM)0);
459 void wxTextCtrl::SetSelection(long from
, long to
)
461 HWND hWnd
= GetHwnd();
462 long fromChar
= from
;
465 // if from and to are both -1, it means (in wxWindows) that all text should
466 // be selected. Translate into Windows convention
467 if ((from
== -1) && (to
== -1))
473 // SendMessage(hWnd, EM_SETSEL, (WPARAM)fromChar, (LPARAM)toChar);
474 // SendMessage(hWnd, EM_SCROLLCARET, (WPARAM)0, (LPARAM)0);
477 bool wxTextCtrl::LoadFile(const wxString
& file
)
481 if ( wxTextCtrlBase::LoadFile(file) )
483 // update the size limit if needed
492 bool wxTextCtrl::IsModified() const
494 // return (SendMessage(GetHwnd(), EM_GETMODIFY, 0, 0) != 0);
498 // Makes 'unmodified'
499 void wxTextCtrl::DiscardEdits()
501 // SendMessage(GetHwnd(), EM_SETMODIFY, FALSE, 0L);
504 int wxTextCtrl::GetNumberOfLines() const
506 // return (int)SendMessage(GetHwnd(), EM_GETLINECOUNT, (WPARAM)0, (LPARAM)0);
510 long wxTextCtrl::XYToPosition(long x
, long y
) const
512 HWND hWnd
= GetHwnd();
514 // This gets the char index for the _beginning_ of this line
517 int charIndex = (int)SendMessage(hWnd, EM_LINEINDEX, (WPARAM)y, (LPARAM)0);
518 return (long)(x + charIndex);
523 bool wxTextCtrl::PositionToXY(long pos
, long *x
, long *y
) const
525 HWND hWnd
= GetHwnd();
527 // This gets the line number containing the character
529 // lineNo = (int)SendMessage(hWnd, EM_LINEFROMCHAR, (WPARAM)pos, 0);
537 // This gets the char index for the _beginning_ of this line
538 int charIndex
= 0; // TODO: (int)SendMessage(hWnd, EM_LINEINDEX, (WPARAM)lineNo, (LPARAM)0);
539 if ( charIndex
== -1 )
544 // The X position must therefore be the different between pos and charIndex
546 *x
= (long)(pos
- charIndex
);
553 void wxTextCtrl::ShowPosition(long pos
)
555 HWND hWnd
= GetHwnd();
557 // To scroll to a position, we pass the number of lines and characters
558 // to scroll *by*. This means that we need to:
559 // (1) Find the line position of the current line.
560 // (2) Find the line position of pos.
561 // (3) Scroll by (pos - current).
562 // For now, ignore the horizontal scrolling.
564 // Is this where scrolling is relative to - the line containing the caret?
565 // Or is the first visible line??? Try first visible line.
566 // int currentLineLineNo1 = (int)SendMessage(hWnd, EM_LINEFROMCHAR, (WPARAM)-1, (LPARAM)0L);
570 int currentLineLineNo = (int)SendMessage(hWnd, EM_GETFIRSTVISIBLELINE, (WPARAM)0, (LPARAM)0L);
572 int specifiedLineLineNo = (int)SendMessage(hWnd, EM_LINEFROMCHAR, (WPARAM)pos, (LPARAM)0L);
574 int linesToScroll = specifiedLineLineNo - currentLineLineNo;
576 if (linesToScroll != 0)
577 (void)SendMessage(hWnd, EM_LINESCROLL, (WPARAM)0, (LPARAM)linesToScroll);
581 int wxTextCtrl::GetLineLength(long lineNo
) const
586 long charIndex = XYToPosition(0, lineNo);
587 int len = (int)SendMessage(GetHwnd(), EM_LINELENGTH, charIndex, 0);
593 wxString
wxTextCtrl::GetLineText(long lineNo
) const
595 size_t len
= (size_t)GetLineLength(lineNo
) + 1;
596 char *buf
= (char *)malloc(len
);
598 int noChars
= 0; // TODO:(int)SendMessage(GetHwnd(), EM_GETLINE, lineNo, (LPARAM)buf);
608 // ----------------------------------------------------------------------------
610 // ----------------------------------------------------------------------------
612 void wxTextCtrl::Undo()
616 // ::SendMessage(GetHwnd(), EM_UNDO, 0, 0);
620 void wxTextCtrl::Redo()
624 // Same as Undo, since Undo undoes the undo, i.e. a redo.
625 // ::SendMessage(GetHwnd(), EM_UNDO, 0, 0);
629 bool wxTextCtrl::CanUndo() const
631 // return (::SendMessage(GetHwnd(), EM_CANUNDO, 0, 0) != 0);
635 bool wxTextCtrl::CanRedo() const
637 // return (::SendMessage(GetHwnd(), EM_CANUNDO, 0, 0) != 0);
641 // ----------------------------------------------------------------------------
642 // implemenation details
643 // ----------------------------------------------------------------------------
645 void wxTextCtrl::Command(wxCommandEvent
& event
)
647 SetValue(event
.GetString());
648 ProcessCommand (event
);
651 void wxTextCtrl::OnDropFiles(wxDropFilesEvent
& event
)
653 // By default, load the first file into the text window.
654 if (event
.GetNumberOfFiles() > 0)
656 LoadFile(event
.GetFiles()[0]);
660 WXHBRUSH
wxTextCtrl::OnCtlColor(WXHDC pDC
, WXHWND pWnd
, WXUINT nCtlColor
,
661 WXUINT message
, WXWPARAM wParam
,
667 SetBkMode(hdc, GetParent()->GetTransparentBackground() ? TRANSPARENT
670 ::SetBkColor(hdc, RGB(GetBackgroundColour().Red(), GetBackgroundColour().Green(), GetBackgroundColour().Blue()));
671 ::SetTextColor(hdc, RGB(GetForegroundColour().Red(), GetForegroundColour().Green(), GetForegroundColour().Blue()));
673 wxBrush
*backgroundBrush
= wxTheBrushList
->FindOrCreateBrush(GetBackgroundColour(), wxSOLID
);
675 return (WXHBRUSH
) backgroundBrush
->GetResourceHandle();
678 void wxTextCtrl::OnChar(wxKeyEvent
& event
)
680 switch ( event
.KeyCode() )
685 if ( !(m_windowStyle & wxTE_MULTILINE) )
687 wxCommandEvent event(wxEVT_COMMAND_TEXT_ENTER, m_windowId);
688 event.SetEventObject( this );
689 if ( GetEventHandler()->ProcessEvent(event) )
692 //else: multiline controls need Enter for themselves
697 // always produce navigation event - even if we process TAB
698 // ourselves the fact that we got here means that the user code
699 // decided to skip processing of this TAB - probably to let it
700 // do its default job.
702 // NB: Notice that Ctrl-Tab is handled elsewhere and Alt-Tab is
703 // handled by Windows
705 wxNavigationKeyEvent eventNav;
706 eventNav.SetDirection(!event.ShiftDown());
707 eventNav.SetWindowChange(FALSE);
708 eventNav.SetEventObject(this);
710 if ( GetEventHandler()->ProcessEvent(eventNav) )
720 // don't just call event.Skip() because this will cause TABs and ENTERs
721 // be passed upwards and we don't always want this - instead process it
728 bool wxTextCtrl::OS2Command(WXUINT param
, WXWORD
WXUNUSED(id
))
737 wxFocusEvent event(param == EN_KILLFOCUS ? wxEVT_KILL_FOCUS
740 event.SetEventObject( this );
741 GetEventHandler()->ProcessEvent(event);
747 wxCommandEvent event(wxEVT_COMMAND_TEXT_UPDATED, m_windowId);
748 wxString val(GetValue());
750 event.m_commandString = WXSTRINGCAST val;
751 event.SetEventObject( this );
752 ProcessCommand(event);
757 // the text size limit has been hit - increase it
761 // the other notification messages are not processed
775 void wxTextCtrl::AdjustSpaceLimit()
779 unsigned int len = ::GetWindowTextLength(GetHwnd()),
780 limit = ::SendMessage(GetHwnd(), EM_GETLIMITTEXT, 0, 0);
783 limit = len + 0x8000; // 32Kb
785 if ( limit > 0xffff )
786 ::SendMessage(GetHwnd(), EM_LIMITTEXT, 0, limit);
788 ::SendMessage(GetHwnd(), EM_LIMITTEXT, limit, 0);
793 bool wxTextCtrl::AcceptsFocus() const
795 // we don't want focus if we can't be edited
796 return IsEditable() && wxControl::AcceptsFocus();
799 wxSize
wxTextCtrl::DoGetBestSize()
802 wxGetCharSize(GetHWND(), &cx
, &cy
, &GetFont());
804 int wText
= DEFAULT_ITEM_WIDTH
;
806 int hText
= EDIT_HEIGHT_FROM_CHAR_HEIGHT(cy
);
807 if ( m_windowStyle
& wxTE_MULTILINE
)
809 hText
*= wxMin(GetNumberOfLines(), 5);
811 //else: for single line control everything is ok
813 return wxSize(wText
, hText
);
816 // ----------------------------------------------------------------------------
817 // standard handlers for standard edit menu events
818 // ----------------------------------------------------------------------------
820 void wxTextCtrl::OnCut(wxCommandEvent
& event
)
825 void wxTextCtrl::OnCopy(wxCommandEvent
& event
)
830 void wxTextCtrl::OnPaste(wxCommandEvent
& event
)
835 void wxTextCtrl::OnUndo(wxCommandEvent
& event
)
840 void wxTextCtrl::OnRedo(wxCommandEvent
& event
)
845 void wxTextCtrl::OnUpdateCut(wxUpdateUIEvent
& event
)
847 event
.Enable( CanCut() );
850 void wxTextCtrl::OnUpdateCopy(wxUpdateUIEvent
& event
)
852 event
.Enable( CanCopy() );
855 void wxTextCtrl::OnUpdatePaste(wxUpdateUIEvent
& event
)
857 event
.Enable( CanPaste() );
860 void wxTextCtrl::OnUpdateUndo(wxUpdateUIEvent
& event
)
862 event
.Enable( CanUndo() );
865 void wxTextCtrl::OnUpdateRedo(wxUpdateUIEvent
& event
)
867 event
.Enable( CanRedo() );