Logo Search packages:      
Sourcecode: scummvm version File versions

formtabs.cpp

#include <PalmOS.h>
#include <CtlGlue.h>
#include <FrmGlue.h>
#include <LstGlue.h>

#include "formTabs.h"

TabType *TabNewTabs(UInt16 cnt) {
      TabType *newP = new TabType;

      newP->count = 0;
      newP->width = 0;
      newP->tabs = new TabDataType[cnt];
      
      return newP;
}

void TabDeleteTabs(TabType *tabP) {
      UInt16 cnt, num;
      num = MemPtrSize(tabP->tabs) / sizeof(TabDataType);
      
      for (cnt = 0; cnt < num; cnt++)     
            FrmDeleteForm(tabP->tabs[cnt].srcP);

      delete tabP->tabs;
      delete tabP;
}

Err TabAddContent(FormType **frmP, TabType *tabP, const Char *nameP, UInt16 rscID, TabProc *drawFunc) {
      FormType *srcP;
      UInt16 cnt;
      void *objP, **dstP;
      UInt16 objNum;
      Coord x, y, w, h;
      UInt16 id;
      RectangleType r;
      
      dstP = (void **)frmP;
      srcP = FrmInitForm(rscID);

      objNum = FrmGetNumberOfObjects(srcP);

      // save tab data
      
      // it's required to keep to source forms active
      // while the tab form is not close for list data ptr (items text)
      // TODO : fix this !
      tabP->tabs[tabP->count].srcP  = srcP;
      tabP->tabs[tabP->count].first = FrmGetObjectId(srcP, 0);
      tabP->tabs[tabP->count].last  = FrmGetObjectId(srcP, objNum - 1);
      tabP->tabs[tabP->count].drawFunc= drawFunc;
      tabP->count++;
      tabP->active = tabP->count;

      // create tab
      FntSetFont(stdFont);
      x = 4 + tabP->width;
      y = 16;
      w = FntCharsWidth(nameP, StrLen(nameP)) + 6;
      h = 12;
      ControlType *addP = CtlNewControl(dstP, (FrmGetFormId(*frmP) + tabP->count), buttonCtl, nameP, x, y, w, h, stdFont, 0, true);
      CtlGlueSetFrameStyle(addP, noButtonFrame);
      tabP->width += w + 1;
      
      // create tab content
      for (cnt = 0; cnt < objNum; cnt++) {
            objP = FrmGetObjectPtr(srcP, cnt);
            id = FrmGetObjectId(srcP, cnt);
            FrmGetObjectBounds(srcP, cnt, &r);
            x = r.topLeft.x - 2;
            y = r.topLeft.y + 30;
            w = r.extent.x;
            h = r.extent.y;

            FrmSetObjectPosition(srcP, cnt, x, y);

            switch (FrmGetObjectType(srcP, cnt)) {
                  case frmListObj: {
                        // HOWTO : to auto link the list to a popup trigger the listID must be popupID + 1 if popup id
                        // desn't exist the triggerID will be 0 and the list will be shown, but take care to not define
                        // ListID - 1 object if you want to show the list.
                        ListType *newP;
                        Char **itemsP = LstGlueGetItemsText((ListType *)objP);
                        FontID font = LstGlueGetFont((ListType *)objP);
                        UInt16 visible = LstGetVisibleItems((ListType *)objP);
                        UInt16 items = LstGetNumberOfItems((ListType *)objP);
                        UInt16 trigger = id - 1;
                        trigger = (FrmGetObjectIndex((FormType *)*dstP, trigger) != frmInvalidObjectId) ? trigger : 0;
                        
                        LstNewList(dstP, id, x, y, w, h, font, visible, trigger);
                        newP = (ListType *)FrmGetObjectPtr((FormType *)*dstP, FrmGetObjectIndex((FormType *)*dstP, id));
                        LstSetListChoices(newP, itemsP, items);
                        FrmHideObject((FormType *)*dstP, FrmGetObjectIndex((FormType *)*dstP, id));
                        break;
                  }
                  case frmFieldObj: {
                        FieldAttrType attr;
                        FontID font = FldGetFont((FieldType *)objP);
                        UInt16 maxChars = FldGetMaxChars((FieldType *)objP);
                        FldGetAttributes((FieldType *)objP, &attr);
                        FldNewField(dstP, id, x, y, w, h, font, maxChars, attr.editable, attr.underlined, attr.singleLine, attr.dynamicSize, (JustificationType)attr.justification, attr.autoShift, attr.hasScrollBar, attr.numeric);
                        FrmHideObject((FormType *)*dstP, FrmGetObjectIndex((FormType *)*dstP, id));
                        break;
                  }
                  case frmControlObj: {
                        const Char *textP = CtlGetLabel((ControlType *)objP);
                        ControlStyleType style = CtlGlueGetControlStyle((ControlType *)objP);
                        FontID font = CtlGlueGetFont((ControlType *)objP);
                        ControlType *newP = CtlNewControl(dstP, id, style, textP, x, y, w, h, font, 0, true);
                        FrmHideObject((FormType *)*dstP, FrmGetObjectIndex((FormType *)*dstP, id));
                        switch (style) {
                              case sliderCtl:
                              {
                                          UInt16 min, max, page, val;
                                          CtlGetSliderValues((ControlType *)objP, &min, &max, &page, &val);
                                          CtlSetSliderValues(newP, &min, &max, &page, &val);
                                          break;
                              }
                        }
                        break;
                  }
                  case frmLabelObj: {
                        const Char *textP = FrmGetLabel(srcP, id);
                        FontID font = FrmGlueGetLabelFont(srcP, id);
                        FrmNewLabel((FormType **)dstP, id, textP, x, y, font);
                        FrmHideObject((FormType *)*dstP, FrmGetObjectIndex((FormType *)*dstP, id));
                        break;
                  }

                  case frmBitmapObj: {
/*                      UInt16 family = id + 1;
                        FrmNewBitmap((FormType **)dstP, id, id, x, y);
                        //FrmHideObject((FormType *)*dstP, FrmGetObjectIndex((FormType *)*dstP, id));
*/                      break;
                  }
            }
      }

      frmP = (FormType **)dstP;     // save new form ptr
      return errNone;
}

void TabSetActive(FormType *frmP, TabType *tabP, UInt16 num) {
      UInt16 cnt, idx;
      RectangleType r;
      TabDataPtr dataP;

      if (tabP->active == num)
            return;

      dataP = &tabP->tabs[tabP->active];

      // hide active tab objects
      if (tabP->active != tabP->count) {
            for (cnt = dataP->first; cnt <= dataP->last; cnt++) {
                  if ((idx = FrmGetObjectIndex(frmP, cnt)) != frmInvalidObjectId)
                        FrmHideObject(frmP, idx);
            }
      }

      // save active tab
      tabP->active = num;
      dataP = &tabP->tabs[num];

      // draw tab limit
      WinSetForeColor(UIColorGetTableEntryIndex(UIFormFill));
      WinDrawLine(1, 14, 154,14);
      WinDrawLine(1, 15, 154,15);
      RctSetRectangle(&r, 1, 30, 154, 100);
      WinDrawRectangle(&r, 0);
      WinSetForeColor(UIColorGetTableEntryIndex(UIObjectFrame));
      WinDrawLine(1, 28, 154,28);

      // set tabs size
      for (cnt = 0; cnt < tabP->count; cnt++) {
            idx = FrmGetObjectIndex (frmP, (FrmGetFormId(frmP) + cnt + 1));
            
            if (idx != frmInvalidObjectId) {
                  FrmGetObjectBounds(frmP, idx, &r);
                  r.topLeft.y = (num == cnt) ? 17 : 17;
                  r.extent.y  = (num == cnt) ? 12 : 11;
                  FrmSetObjectBounds(frmP, idx, &r);
                  
                  if (num == cnt) {
                        RGBColorType yellow = {0,255,192,0};
                        
                        r.topLeft.y -= 1;
                        WinSetForeColor(UIColorGetTableEntryIndex(UIObjectFrame));
                        WinDrawRectangleFrame(simpleFrame, &r); 
                        WinSetForeColor(WinRGBToIndex(&yellow));
                        WinDrawLine(r.topLeft.x, r.topLeft.y, r.topLeft.x + r.extent.x - 1, r.topLeft.y);
                        FrmShowObject(frmP, idx);
                  } else {
                        WinSetForeColor(UIColorGetTableEntryIndex(UIObjectFrame));
                        WinDrawRectangleFrame(simpleFrame, &r); 
                  }
            }
      }

      // show objects
      if (dataP->drawFunc)
            (dataP->drawFunc)();

      for (cnt = dataP->first; cnt <= dataP->last; cnt++) {
            if ((idx = FrmGetObjectIndex(frmP, cnt)) != frmInvalidObjectId)
                  FrmShowObject(frmP, idx);
      }
}

Generated by  Doxygen 1.6.0   Back to index