src/palmos/control.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/palmos/control.cpp
   3 // Purpose:     wxControl class
   4 // Author:      William Osborne - minimal working wxPalmOS port
   5 // Modified by: Wlodzimierz ABX Skiba - native implementation
   6 // Created:     10/13/04
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) William Osborne, Wlodzimierz Skiba
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // ============================================================================
  13 // declarations
  14 // ============================================================================
  15
  16 // ----------------------------------------------------------------------------
  17 // headers
  18 // ----------------------------------------------------------------------------
  19
  20 // For compilers that support precompilation, includes "wx.h".
  21 #include "wx/wxprec.h"
  22
  23 #ifdef __BORLANDC__
  24     #pragma hdrstop
  25 #endif
  26
  27 #if wxUSE_CONTROLS
  28
  29 #include "wx/control.h"
  30
  31 #ifndef WX_PRECOMP
  32     #include "wx/event.h"
  33     #include "wx/app.h"
  34     #include "wx/dcclient.h"
  35     #include "wx/log.h"
  36     #include "wx/settings.h"
  37     #include "wx/button.h"
  38     #include "wx/checkbox.h"
  39 #endif
  40
  41 #include "wx/toplevel.h"
  42 #include "wx/tglbtn.h"
  43 #include "wx/radiobut.h"
  44 #include "wx/slider.h"
  45
  46 #include <Control.h>
  47 #include <Form.h>
  48 #include <StatusBar.h>
  49
  50 // ----------------------------------------------------------------------------
  51 // wxWin macros
  52 // ----------------------------------------------------------------------------
  53
  54 IMPLEMENT_ABSTRACT_CLASS(wxControl, wxWindow)
  55
  56 BEGIN_EVENT_TABLE(wxControl, wxWindow)
  57     EVT_ERASE_BACKGROUND(wxControl::OnEraseBackground)
  58 END_EVENT_TABLE()
  59
  60 // ============================================================================
  61 // wxControl implementation
  62 // ============================================================================
  63
  64 // ----------------------------------------------------------------------------
  65 // wxControl ctor/dtor
  66 // ----------------------------------------------------------------------------
  67
  68 void wxControl::Init()
  69 {
  70     m_palmControl = false;
  71     m_palmField = false;
  72 }
  73
  74 wxControl::~wxControl()
  75 {
  76     SetLabel(wxEmptyString);
  77     m_isBeingDeleted = true;
  78
  79     DestroyChildren();
  80
  81     uint16_t index;
  82     FormType* form = (FormType*)GetObjectFormIndex(index);
  83     if(form!=NULL && index!=frmInvalidObjectId)
  84     {
  85         FrmRemoveObject((FormType **)&form,index);
  86     }
  87 }
  88
  89 // ----------------------------------------------------------------------------
  90 // control window creation
  91 // ----------------------------------------------------------------------------
  92
  93 bool wxControl::Create(wxWindow *parent,
  94                        wxWindowID id,
  95                        const wxPoint& pos,
  96                        const wxSize& size,
  97                        long style,
  98                        const wxValidator& wxVALIDATOR_PARAM(validator),
  99                        const wxString& name)
 100 {
 101     if ( !wxWindow::Create(parent, id, pos, size, style, name) )
 102         return false;
 103
 104 #if wxUSE_VALIDATORS
 105     SetValidator(validator);
 106 #endif
 107
 108     return true;
 109 }
 110
 111 bool wxControl::PalmCreateControl(int style,
 112                                   const wxString& label,
 113                                   const wxPoint& pos,
 114                                   const wxSize& size,
 115                                   uint8_t groupID)
 116 {
 117     FormType* form = (FormType*)GetParentForm();
 118     if(form==NULL)
 119         return false;
 120
 121
 122     wxCoord x = pos.x == wxDefaultCoord ? 0 : pos.x,
 123             y = pos.y == wxDefaultCoord ? 0 : pos.y,
 124             w = size.x == wxDefaultCoord ? 1 : size.x,
 125             h = size.y == wxDefaultCoord ? 1 : size.y;
 126
 127     wxWindow *win = this;
 128     while(win->GetParent())
 129     {
 130         win = win->GetParent();
 131         wxPoint pt(win->GetClientAreaOrigin());
 132         x += pt.x;
 133         y += pt.y;
 134     }
 135
 136     ControlType *control = CtlNewControl(
 137                                (void **)&form,
 138                                GetId(),
 139                                (ControlStyleType)style,
 140                                wxEmptyString,
 141                                x,
 142                                y,
 143                                w,
 144                                h,
 145                                stdFont,
 146                                groupID,
 147                                true
 148                            );
 149
 150     if(control==NULL)
 151         return false;
 152
 153     m_palmControl = true;
 154
 155     SetInitialBestSize(size);
 156     SetLabel(label);
 157     Show();
 158     return true;
 159 }
 160
 161 bool wxControl::PalmCreateField(const wxString& label,
 162                                 const wxPoint& pos,
 163                                 const wxSize& size,
 164                                 bool editable,
 165                                 bool underlined,
 166                                 int justification)
 167 {
 168     FormType* form = (FormType*)GetParentForm();
 169     if(form==NULL)
 170         return false;
 171
 172     m_label = label;
 173
 174     wxCoord x = pos.x == wxDefaultCoord ? 0 : pos.x,
 175             y = pos.y == wxDefaultCoord ? 0 : pos.y,
 176             w = size.x == wxDefaultCoord ? 1 : size.x,
 177             h = size.y == wxDefaultCoord ? 1 : size.y;
 178
 179     AdjustForParentClientOrigin(x, y);
 180
 181     FieldType *field = FldNewField(
 182                            (void **)&form,
 183                            GetId(),
 184                            x,
 185                            y,
 186                            w,
 187                            h,
 188                            stdFont,
 189                            10,
 190                            editable,
 191                            underlined,
 192                            false,
 193                            false,
 194                            (JustificationType)justification,
 195                            false,
 196                            false,
 197                            false
 198                        );
 199
 200     if(field==NULL)
 201         return false;
 202
 203     m_palmField = true;
 204
 205     SetInitialBestSize(size);
 206     SetLabel(label);
 207     Show();
 208     return true;
 209 }
 210
 211 // ----------------------------------------------------------------------------
 212 // various accessors
 213 // ----------------------------------------------------------------------------
 214
 215 WXFORMPTR wxControl::GetParentForm() const
 216 {
 217     wxWindow* parentTLW = GetParent();
 218     while ( parentTLW && !parentTLW->IsTopLevel() )
 219     {
 220         parentTLW = parentTLW->GetParent();
 221     }
 222     wxTopLevelWindowPalm* tlw = wxDynamicCast(parentTLW, wxTopLevelWindowPalm);
 223     if(!tlw)
 224         return NULL;
 225     return tlw->GetForm();
 226 }
 227
 228 WXFORMPTR wxControl::GetObjectFormIndex(uint16_t& index) const
 229 {
 230     FormType* form = (FormType* )GetParentForm();
 231     if(form!=NULL)
 232         index = FrmGetObjectIndex(form, GetId());
 233     else
 234         index = frmInvalidObjectId;
 235     return form;
 236 }
 237
 238 void* wxControl::GetObjectPtr() const
 239 {
 240     uint16_t index;
 241     FormType* form = (FormType*)GetObjectFormIndex(index);
 242     if(form==NULL || index==frmInvalidObjectId)return NULL;
 243     return FrmGetObjectPtr(form,index);
 244 }
 245
 246 wxBorder wxControl::GetDefaultBorder() const
 247 {
 248     // we want to automatically give controls a sunken style (confusingly,
 249     // it may not really mean sunken at all as we map it to WS_EX_CLIENTEDGE
 250     // which is not sunken at all under Windows XP -- rather, just the default)
 251     return wxBORDER_SUNKEN;
 252 }
 253
 254 void wxControl::SetIntValue(int val)
 255 {
 256     FormType* form = (FormType*)GetParentForm();
 257     if(form==NULL)
 258         return;
 259     uint16_t index = FrmGetObjectIndex(form, GetId());
 260     if(index==frmInvalidObjectId)
 261         return;
 262     FrmSetControlValue(form, index, val);
 263 }
 264
 265 void wxControl::SetBoolValue(bool val)
 266 {
 267     SetIntValue(val?1:0);
 268 }
 269
 270 bool wxControl::GetBoolValue() const
 271 {
 272     FormType* form = (FormType*)GetParentForm();
 273     if(form==NULL)
 274         return false;
 275     uint16_t index = FrmGetObjectIndex(form, GetId());
 276     if(index==frmInvalidObjectId)
 277         return false;
 278     return ( FrmGetControlValue(form, index) == 1 );
 279 }
 280
 281 wxSize wxControl::DoGetBestSize() const
 282 {
 283     return wxSize(16, 16);
 284 }
 285
 286 void wxControl::DoGetBounds( WXRECTANGLEPTR rect ) const
 287 {
 288     if(rect==NULL)
 289         return;
 290     FormType* form = (FormType*)GetParentForm();
 291     if(form==NULL)
 292         return;
 293     uint16_t index = FrmGetObjectIndex(form,GetId());
 294     if(index==frmInvalidObjectId)
 295         return;
 296     FrmGetObjectBounds(form,index,(RectangleType*)rect);
 297 }
 298
 299 void wxControl::DoSetBounds( WXRECTANGLEPTR rect )
 300 {
 301     if(rect==NULL)
 302         return;
 303     FormType* form = (FormType*)GetParentForm();
 304     if(form==NULL)
 305         return;
 306     uint16_t index = FrmGetObjectIndex(form,GetId());
 307     if(index==frmInvalidObjectId)
 308         return;
 309     FrmSetObjectBounds(form,index,(RectangleType*)rect);
 310 }
 311
 312 void wxControl::DoGetPosition( int *x, int *y ) const
 313 {
 314     int ox = 0, oy = 0;
 315     AdjustForParentClientOrigin(ox, oy);
 316
 317     RectangleType rect;
 318     DoGetBounds(&rect);
 319
 320     if(x)
 321         *x = rect.topLeft.x - ox;
 322     if(y)
 323         *y = rect.topLeft.y - oy;
 324 }
 325
 326 void wxControl::DoGetSize( int *width, int *height ) const
 327 {
 328     RectangleType rect;
 329     DoGetBounds(&rect);
 330
 331     if(width)
 332         *width = rect.extent.x;
 333     if(height)
 334         *height = rect.extent.y;
 335 }
 336
 337 void wxControl::DoMoveWindow(int x, int y, int width, int height)
 338 {
 339     wxRect area = GetRect();
 340     RectangleType rect;
 341     rect.topLeft.x = x;
 342     rect.topLeft.y = y;
 343     rect.extent.x = width;
 344     rect.extent.y = height;
 345     DoSetBounds(&rect);
 346     GetParent()->Refresh(true, &area);
 347 }
 348
 349 bool wxControl::Enable(bool enable)
 350 {
 351     ControlType *control = (ControlType *)GetObjectPtr();
 352     if( !IsPalmControl() || (control == NULL))
 353         return false;
 354     if( CtlEnabled(control) == enable)
 355         return false;
 356     CtlSetEnabled( control, enable);
 357     return true;
 358 }
 359
 360 bool wxControl::IsEnabled() const
 361 {
 362     ControlType *control = (ControlType *)GetObjectPtr();
 363     if( !IsPalmControl() || (control == NULL))
 364         return false;
 365     return CtlEnabled(control);
 366 }
 367
 368 bool wxControl::IsShown() const
 369 {
 370     return StatGetAttribute ( statAttrBarVisible , NULL );
 371 }
 372
 373 bool wxControl::Show( bool show )
 374 {
 375     FormType* form = (FormType*)GetParentForm();
 376     if(form==NULL)
 377         return false;
 378     uint16_t index = FrmGetObjectIndex(form,GetId());
 379     if(index==frmInvalidObjectId)
 380         return false;
 381     if(show)
 382         FrmShowObject(form,index);
 383     else
 384         FrmHideObject(form,index);
 385     return true;
 386 }
 387
 388 void wxControl::SetFieldLabel(const wxString& label)
 389 {
 390     FieldType* field = (FieldType*)GetObjectPtr();
 391     if(field==NULL)
 392         return;
 393
 394     uint16_t newSize = label.length() + 1;
 395     MemHandle strHandle = FldGetTextHandle(field);
 396     FldSetTextHandle(field, NULL );
 397     if (strHandle)
 398     {
 399         if(MemHandleResize(strHandle, newSize)!=errNone)
 400             strHandle = 0;
 401     }
 402     else
 403     {
 404         strHandle = MemHandleNew( newSize );
 405     }
 406     if(!strHandle)
 407         return;
 408
 409     char* str = (char*) MemHandleLock( strHandle );
 410     if(str==NULL)
 411         return;
 412
 413     strcpy(str, label.c_str());
 414     MemHandleUnlock(strHandle);
 415     FldSetTextHandle(field, strHandle);
 416     FldRecalculateField(field, true);
 417 }
 418
 419 void wxControl::SetControlLabel(const wxString& label)
 420 {
 421     ControlType* control = (ControlType*)GetObjectPtr();
 422     if(control==NULL)
 423         return;
 424     CtlSetLabel(control,wxEmptyString);
 425     m_label = label;
 426     if(!m_label.empty())
 427         CtlSetLabel(control,m_label.c_str());
 428 }
 429
 430 void wxControl::SetLabel(const wxString& label)
 431 {
 432     if(IsPalmField())
 433         SetFieldLabel(label);
 434
 435     // unlike other native controls, slider has no label
 436     if(IsPalmControl() && !wxDynamicCast(this,wxSlider))
 437         SetControlLabel(label);
 438 }
 439
 440 wxString wxControl::GetFieldLabel()
 441 {
 442     FieldType* field = (FieldType*)GetObjectPtr();
 443     if(field==NULL)
 444         return wxEmptyString;
 445     return FldGetTextPtr(field);
 446 }
 447
 448 wxString wxControl::GetControlLabel()
 449 {
 450     ControlType* control = (ControlType*)GetObjectPtr();
 451     if(control==NULL)
 452         return wxEmptyString;
 453     return CtlGetLabel(control);
 454 }
 455
 456 wxString wxControl::GetLabel()
 457 {
 458     if(IsPalmField())
 459         return GetFieldLabel();
 460
 461     // unlike other native controls, slider has no label
 462     if(IsPalmControl() && !wxDynamicCast(this,wxSlider))
 463         return GetControlLabel();
 464
 465     return wxEmptyString;
 466 }
 467
 468 /* static */ wxVisualAttributes
 469 wxControl::GetClassDefaultAttributes(wxWindowVariant WXUNUSED(variant))
 470 {
 471     wxVisualAttributes attrs;
 472
 473     // old school (i.e. not "common") controls use the standard dialog font
 474     // by default
 475     attrs.font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 476
 477     // most, or at least many, of the controls use the same colours as the
 478     // buttons -- others will have to override this (and possibly simply call
 479     // GetCompositeControlsDefaultAttributes() from their versions)
 480     attrs.colFg = wxSystemSettings::GetColour(wxSYS_COLOUR_BTNTEXT);
 481     attrs.colBg = wxSystemSettings::GetColour(wxSYS_COLOUR_BTNFACE);
 482
 483     return attrs;
 484 }
 485
 486 // another version for the "composite", i.e. non simple controls
 487 /* static */ wxVisualAttributes
 488 wxControl::GetCompositeControlsDefaultAttributes(wxWindowVariant WXUNUSED(variant))
 489 {
 490     wxVisualAttributes attrs;
 491     attrs.font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 492     attrs.colFg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOWTEXT);
 493     attrs.colBg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW);
 494
 495     return attrs;
 496 }
 497
 498 // ----------------------------------------------------------------------------
 499 // message handling
 500 // ----------------------------------------------------------------------------
 501
 502 bool wxControl::ProcessCommand(wxCommandEvent& event)
 503 {
 504     return GetEventHandler()->ProcessEvent(event);
 505 }
 506
 507 void wxControl::OnEraseBackground(wxEraseEvent& event)
 508 {
 509 }
 510
 511 #endif // wxUSE_CONTROLS