WXFORMPTR wxControl::GetObjectFormIndex(uint16_t& index) const { FormType* form = (FormType* )GetParentForm(); if(form!=NULL) index = FrmGetObjectIndex(form, GetId()); else index = frmInvalidObjectId; return form; }
bool wxControl::GetBoolValue() const { FormType* form = (FormType*)GetParentForm(); if(form==NULL) return false; uint16_t index = FrmGetObjectIndex(form, GetId()); if(index==frmInvalidObjectId) return false; return ( FrmGetControlValue(form, index) == 1 ); }
void wxControl::SetIntValue(int val) { FormType* form = (FormType*)GetParentForm(); if(form==NULL) return; uint16_t index = FrmGetObjectIndex(form, GetId()); if(index==frmInvalidObjectId) return; FrmSetControlValue(form, index, val); }
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::DoSetBounds( WXRECTANGLEPTR rect ) { if(rect==NULL) return; FormType* form = (FormType*)GetParentForm(); if(form==NULL) return; uint16_t index = FrmGetObjectIndex(form,GetId()); if(index==frmInvalidObjectId) return; FrmSetObjectBounds(form,index,(RectangleType*)rect); }
bool wxControl::Show( bool show ) { FormType* form = (FormType*)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; }
bool wxControl::PalmCreateField(const wxString& label, const wxPoint& pos, const wxSize& size, bool editable, bool underlined, int justification) { FormType* form = (FormType*)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, (JustificationType)justification, false, false, false ); if(field==NULL) return false; m_palmField = true; SetInitialBestSize(size); SetLabel(label); Show(); return true; }
bool wxControl::PalmCreateControl(int style, const wxString& label, const wxPoint& pos, const wxSize& size, uint8_t groupID) { FormType* form = (FormType*)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(), (ControlStyleType)style, wxEmptyString, x, y, w, h, stdFont, groupID, true ); if(control==NULL) return false; m_palmControl = true; SetInitialBestSize(size); SetLabel(label); Show(); return true; }
//--------------------------------------------------------------------------- void __fastcall TRightsFrame::DropDown() { TCustomForm * Form = GetParentForm(this); // due to lack of better idea, we clear "default" and "cancel" flags of respective // form buttons to prevent them to handle ESC/ENTER keys. for (int Index = 0; Index < Form->ControlCount; Index++) { TButton * Button = dynamic_cast<TButton *>(Form->Controls[Index]); if (Button != NULL) { if (Button->Default) { assert(FDefaultButton == NULL); FDefaultButton = Button; Button->Default = false; } if (Button->Cancel) { assert(FCancelButton == NULL); FCancelButton = Button; Button->Cancel = false; } } } TPoint Origin(PopupParent->Left, PopupParent->Top + PopupParent->Height); Origin = Parent->ScreenToClient(PopupParent->Parent->ClientToScreen(Origin)); if (Origin.x + Width > Parent->ClientWidth) { Origin.x += PopupParent->Width - Width; } Left = Origin.x; Top = Origin.y; Show(); SetFocus(); }
bool wxSlider::Create(wxWindow *parent, wxWindowID id, int value, int minValue, int maxValue, const wxPoint& pos, const wxSize& size, long style, const wxValidator& validator, const wxString& name) { // wxSL_AUTOTICKS is ignored - always on // wxSL_LABELS is ignored - always off // wxSL_LEFT is ignored - always off // wxSL_RIGHT is ignored - always off // wxSL_TOP is ignored - always off // wxSL_SELRANGE is ignored - always off // wxSL_VERTICAL is impossible in native form wxCHECK_MSG(!(style & wxSL_VERTICAL), false, wxT("non vertical slider on PalmOS")); if(!wxControl::Create(parent, id, pos, size, style, validator, name)) return false; FormType* form = (FormType*)GetParentForm(); if(form==NULL) return false; m_oldValue = m_oldPos = value; 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); #ifdef __WXPALMOS6__ SliderControlType *slider = CtlNewSliderControl ( (void **)&form, GetId(), feedbackSliderCtl, NULL, 0, 0, x, y, w, h, minValue, maxValue, 1, value ); #else // __WXPALMOS5__ //SliderControlType *CtlNewSliderControl (void **formPP, UInt16 ID, ControlStyleType style, DmResID thumbID, // DmResID backgroundID, Coord x, Coord y, Coord width, Coord height, UInt16 minValue, UInt16 maxValue, // UInt16 pageSize, UInt16 value); SliderControlType *slider = CtlNewSliderControl ((void **)&form, GetId(), feedbackSliderCtl,//style 0,//thumbID 0,//backgroundid x, y, w, h, minValue, maxValue, 1, value); #endif // __WXPALMOS6__/__WXPALMOS5__ if(slider==NULL) return false; SetInitialSize(size); Show(); return true; }
void __fastcall TDesignTimeOptions::Button3Click(TObject *Sender) { TChartMultiLanguage::ChangeLanguage(TeeLanguageRegistry()); CreateNewSeriesGallery(GetParentForm(this), Chart1); }