// Name: src/palmos/control.cpp
// Purpose: wxControl class
// Author: William Osborne - minimal working wxPalmOS port
-// Modified by:
+// Modified by: Wlodzimierz ABX Skiba - native implementation
// Created: 10/13/04
// RCS-ID: $Id$
-// Copyright: (c) William Osborne
+// Copyright: (c) William Osborne, Wlodzimierz Skiba
// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
#endif
#include "wx/control.h"
+#include "wx/toplevel.h"
+#include "wx/button.h"
+#include "wx/checkbox.h"
+#include "wx/tglbtn.h"
+#include "wx/radiobut.h"
+#include "wx/slider.h"
// ----------------------------------------------------------------------------
// wxWin macros
// wxControl ctor/dtor
// ----------------------------------------------------------------------------
+void wxControl::Init()
+{
+ m_palmControl = false;
+ m_palmField = false;
+}
+
wxControl::~wxControl()
{
- m_isBeingDeleted = TRUE;
+ SetLabel(wxEmptyString);
+ m_isBeingDeleted = true;
+
+ DestroyChildren();
+
+ uint16_t index;
+ FormType* form = GetObjectFormIndex(index);
+ if(form!=NULL && index!=frmInvalidObjectId)
+ {
+ FrmRemoveObject((FormType **)&form,index);
+ }
}
// ----------------------------------------------------------------------------
const wxString& name)
{
if ( !wxWindow::Create(parent, id, pos, size, style, name) )
- return FALSE;
+ return false;
#if wxUSE_VALIDATORS
SetValidator(validator);
#endif
- return TRUE;
+ return true;
}
-bool wxControl::MSWCreateControl(const wxChar *classname,
- const wxString& label,
- const wxPoint& pos,
- const wxSize& size)
+bool wxControl::PalmCreateControl(ControlStyleType style,
+ const wxString& label,
+ const wxPoint& pos,
+ const wxSize& size,
+ uint8_t groupID)
{
- WXDWORD exstyle;
- WXDWORD msStyle = MSWGetStyle(GetWindowStyle(), &exstyle);
-
- return MSWCreateControl(classname, msStyle, pos, size, label, exstyle);
+ FormType* form = GetParentForm();
+ if(form==NULL)
+ return false;
+
+
+ wxCoord x = pos.x == wxDefaultCoord ? 0 : pos.x,
+ y = pos.y == wxDefaultCoord ? 0 : pos.y,
+ w = size.x == wxDefaultCoord ? 1 : size.x,
+ h = size.y == wxDefaultCoord ? 1 : size.y;
+
+ wxWindow *win = this;
+ while(win->GetParent())
+ {
+ win = win->GetParent();
+ wxPoint pt(win->GetClientAreaOrigin());
+ x += pt.x;
+ y += pt.y;
+ }
+
+ ControlType *control = CtlNewControl(
+ (void **)&form,
+ GetId(),
+ style,
+ wxEmptyString,
+ x,
+ y,
+ w,
+ h,
+ stdFont,
+ groupID,
+ true
+ );
+
+ if(control==NULL)
+ return false;
+
+ m_palmControl = true;
+
+ SetInitialBestSize(size);
+ SetLabel(label);
+ Show();
+ return true;
}
-bool wxControl::MSWCreateControl(const wxChar *classname,
- WXDWORD style,
- const wxPoint& pos,
- const wxSize& size,
- const wxString& label,
- WXDWORD exstyle)
+bool wxControl::PalmCreateField(const wxString& label,
+ const wxPoint& pos,
+ const wxSize& size,
+ bool editable,
+ bool underlined,
+ JustificationType justification)
{
- return TRUE;
+ FormType* form = GetParentForm();
+ if(form==NULL)
+ return false;
+
+ m_label = label;
+
+ wxCoord x = pos.x == wxDefaultCoord ? 0 : pos.x,
+ y = pos.y == wxDefaultCoord ? 0 : pos.y,
+ w = size.x == wxDefaultCoord ? 1 : size.x,
+ h = size.y == wxDefaultCoord ? 1 : size.y;
+
+ AdjustForParentClientOrigin(x, y);
+
+ FieldType *field = FldNewField(
+ (void **)&form,
+ GetId(),
+ x,
+ y,
+ w,
+ h,
+ stdFont,
+ 10,
+ editable,
+ underlined,
+ false,
+ false,
+ justification,
+ false,
+ false,
+ false
+ );
+
+ if(field==NULL)
+ return false;
+
+ m_palmField = true;
+
+ SetInitialBestSize(size);
+ SetLabel(label);
+ Show();
+ return true;
}
// ----------------------------------------------------------------------------
// various accessors
// ----------------------------------------------------------------------------
+FormType* wxControl::GetParentForm() const
+{
+ wxWindow* parentTLW = GetParent();
+ while ( parentTLW && !parentTLW->IsTopLevel() )
+ {
+ parentTLW = parentTLW->GetParent();
+ }
+ wxTopLevelWindowPalm* tlw = wxDynamicCast(parentTLW, wxTopLevelWindowPalm);
+ if(!tlw)
+ return NULL;
+ return tlw->GetForm();
+}
+
+FormType* wxControl::GetObjectFormIndex(uint16_t& index) const
+{
+ FormType* form = GetParentForm();
+ if(form!=NULL)
+ index = FrmGetObjectIndex(form, GetId());
+ else
+ index = frmInvalidObjectId;
+ return form;
+}
+
+void* wxControl::GetObjectPtr() const
+{
+ uint16_t index;
+ FormType* form = GetObjectFormIndex(index);
+ if(form==NULL || index==frmInvalidObjectId)return NULL;
+ return FrmGetObjectPtr(form,index);
+}
+
wxBorder wxControl::GetDefaultBorder() const
{
// we want to automatically give controls a sunken style (confusingly,
return wxBORDER_SUNKEN;
}
-WXDWORD wxControl::MSWGetStyle(long style, WXDWORD *exstyle) const
+void wxControl::SetIntValue(int val)
+{
+ FormType* form = GetParentForm();
+ if(form==NULL)
+ return;
+ uint16_t index = FrmGetObjectIndex(form, GetId());
+ if(index==frmInvalidObjectId)
+ return;
+ FrmSetControlValue(form, index, val);
+}
+
+void wxControl::SetBoolValue(bool val)
+{
+ SetIntValue(val?1:0);
+}
+
+bool wxControl::GetBoolValue() const
{
- return 0;
+ FormType* form = GetParentForm();
+ if(form==NULL)
+ return false;
+ uint16_t index = FrmGetObjectIndex(form, GetId());
+ if(index==frmInvalidObjectId)
+ return false;
+ return ( FrmGetControlValue(form, index) == 1 );
}
wxSize wxControl::DoGetBestSize() const
return wxSize(16, 16);
}
+void wxControl::DoGetBounds( RectangleType &rect ) const
+{
+ FormType* form = GetParentForm();
+ if(form==NULL)
+ return;
+ uint16_t index = FrmGetObjectIndex(form,GetId());
+ if(index==frmInvalidObjectId)
+ return;
+ FrmGetObjectBounds(form,index,&rect);
+}
+
+void wxControl::DoSetBounds( RectangleType &rect )
+{
+ FormType* form = GetParentForm();
+ if(form==NULL)
+ return;
+ uint16_t index = FrmGetObjectIndex(form,GetId());
+ if(index==frmInvalidObjectId)
+ return;
+ FrmSetObjectBounds(form,index,&rect);
+}
+
+void wxControl::DoGetPosition( int *x, int *y ) const
+{
+ int ox = 0, oy = 0;
+ AdjustForParentClientOrigin(ox, oy);
+
+ RectangleType rect;
+ DoGetBounds(rect);
+
+ if(x)
+ *x = rect.topLeft.x - ox;
+ if(y)
+ *y = rect.topLeft.y - oy;
+}
+
+void wxControl::DoGetSize( int *width, int *height ) const
+{
+ RectangleType rect;
+ DoGetBounds(rect);
+
+ if(width)
+ *width = rect.extent.x;
+ if(height)
+ *height = rect.extent.y;
+}
+
+void wxControl::DoMoveWindow(int x, int y, int width, int height)
+{
+ wxRect area = GetRect();
+ RectangleType rect;
+ rect.topLeft.x = x;
+ rect.topLeft.y = y;
+ rect.extent.x = width;
+ rect.extent.y = height;
+ DoSetBounds(rect);
+ GetParent()->Refresh(true, &area);
+}
+
+bool wxControl::Enable(bool enable)
+{
+ ControlType *control = (ControlType *)GetObjectPtr();
+ if( !IsPalmControl() || (control == NULL))
+ return false;
+ if( CtlEnabled(control) == enable)
+ return false;
+ CtlSetEnabled( control, enable);
+ return true;
+}
+
+bool wxControl::IsEnabled() const
+{
+ ControlType *control = (ControlType *)GetObjectPtr();
+ if( !IsPalmControl() || (control == NULL))
+ return false;
+ return CtlEnabled(control);
+}
+
+bool wxControl::IsShown() const
+{
+ return StatGetAttribute ( statAttrBarVisible , NULL );
+}
+
+bool wxControl::Show( bool show )
+{
+ FormType* form = GetParentForm();
+ if(form==NULL)
+ return false;
+ uint16_t index = FrmGetObjectIndex(form,GetId());
+ if(index==frmInvalidObjectId)
+ return false;
+ if(show)
+ FrmShowObject(form,index);
+ else
+ FrmHideObject(form,index);
+ return true;
+}
+
+void wxControl::SetFieldLabel(const wxString& label)
+{
+ FieldType* field = (FieldType*)GetObjectPtr();
+ if(field==NULL)
+ return;
+
+ uint16_t newSize = label.Length() + 1;
+ MemHandle strHandle = FldGetTextHandle(field);
+ FldSetTextHandle(field, NULL );
+ if (strHandle)
+ {
+ if(MemHandleResize(strHandle, newSize)!=errNone)
+ strHandle = 0;
+ }
+ else
+ {
+ strHandle = MemHandleNew( newSize );
+ }
+ if(!strHandle)
+ return;
+
+ char* str = (char*) MemHandleLock( strHandle );
+ if(str==NULL)
+ return;
+
+ strcpy(str, label.c_str());
+ MemHandleUnlock(strHandle);
+ FldSetTextHandle(field, strHandle);
+ FldRecalculateField(field, true);
+}
+
+void wxControl::SetControlLabel(const wxString& label)
+{
+ ControlType* control = (ControlType*)GetObjectPtr();
+ if(control==NULL)
+ return;
+ CtlSetLabel(control,wxEmptyString);
+ m_label = label;
+ if(!m_label.empty())
+ CtlSetLabel(control,m_label.c_str());
+}
+
+void wxControl::SetLabel(const wxString& label)
+{
+ if(IsPalmField())
+ SetFieldLabel(label);
+
+ // unlike other native controls, slider has no label
+ if(IsPalmControl() && !wxDynamicCast(this,wxSlider))
+ SetControlLabel(label);
+}
+
+wxString wxControl::GetFieldLabel()
+{
+ FieldType* field = (FieldType*)GetObjectPtr();
+ if(field==NULL)
+ return wxEmptyString;
+ return FldGetTextPtr(field);
+}
+
+wxString wxControl::GetControlLabel()
+{
+ ControlType* control = (ControlType*)GetObjectPtr();
+ if(control==NULL)
+ return wxEmptyString;
+ return CtlGetLabel(control);
+}
+
+wxString wxControl::GetLabel()
+{
+ if(IsPalmField())
+ return GetFieldLabel();
+
+ // unlike other native controls, slider has no label
+ if(IsPalmControl() && !wxDynamicCast(this,wxSlider))
+ return GetControlLabel();
+
+ return wxEmptyString;
+}
+
/* static */ wxVisualAttributes
wxControl::GetClassDefaultAttributes(wxWindowVariant WXUNUSED(variant))
{
return GetEventHandler()->ProcessEvent(event);
}
-#ifdef __WIN95__
-bool wxControl::MSWOnNotify(int idCtrl,
- WXLPARAM lParam,
- WXLPARAM* result)
-{
-}
-#endif // Win95
-
void wxControl::OnEraseBackground(wxEraseEvent& event)
{
}
-WXHBRUSH wxControl::OnCtlColor(WXHDC pDC, WXHWND WXUNUSED(pWnd), WXUINT WXUNUSED(nCtlColor),
-#if wxUSE_CTL3D
- WXUINT message,
- WXWPARAM wParam,
- WXLPARAM lParam
-#else
- WXUINT WXUNUSED(message),
- WXWPARAM WXUNUSED(wParam),
- WXLPARAM WXUNUSED(lParam)
-#endif
- )
-{
- return (WXHBRUSH)0;
-}
-
-// ---------------------------------------------------------------------------
-// global functions
-// ---------------------------------------------------------------------------
-
#endif // wxUSE_CONTROLS
projects / wxWidgets.git / blobdiff