kurAmAのアストラルフロウ

Boolean SetFieldText(FormPtr pForm, Int16 resourceNo, Char *s, Boolean redraw )
{
  SetFieldTextFromStr(getObjectPtr(pForm,resourceNo),s,redraw);
}

Boolean SetFieldTextFromStr(FieldPtr field, Char *s, Boolean redraw)
{
  MemHandle	h;
  h=FldGetTextHandle( field );
  if(h){
    Err	err;
    FldSetTextHandle(field, NULL);
    err=MemHandleResize(h, StrLen(s)+1);
    if(err!=errNone){
      FldSetTextHandle(field, h);
      /*return err;*/
      return false;
    }
  }else{
    h=MemHandleNew(StrLen(s)+1);
    if(!h)
      /*return memErrNotEnoughSpace;*/
      return false;
  }
  StrCopy((Char *)MemHandleLock(h), s);
  MemHandleUnlock(h);
  FldSetTextHandle(field, h);
  if(redraw)
    FldDrawField(field);
    /*return errNone;*/
  return true;
}

void *getObjectPtr (FormPtr pForm, Int16 resourceNo)
{
  UInt16 objIndex=FrmGetObjectIndex(pForm,resourceNo);
  return FrmGetObjectPtr(pForm,objIndex);
}

void ClearFieldText(FieldPtr field, Boolean redraw)
{
  SetFieldTextFromStr(getObjectPtr(pForm,resourceNo), NULL, redraw);
}

[0回]

• OnBoardC
• COMMENT：0
• TB:

void color(UInt8 r, UInt8 g, UInt8 b)
{
  IndexedColorType col;
  RGBColorType rgb;
  rgb.r=r;
  rgb.g=g;
  rgb.b=b;
  col=WinRGBToIndex(&rgb);
  WinSetForeColor(col);
}

[0回]

• OnBoardC
• COMMENT：0
• TB:

void drawLine(Int32 x0, Int32 y0, Int32 x1, Int32 y1)
{
  WinDrawLine(x0,y0,x1,y1);
}

[0回]

• OnBoardC
• COMMENT：2
• TB:

static void HideObject(UInt16 objectID)
{
  FormPtr frmP=FrmGetActiveForm();
  FrmHideObject(frmP,FrmGetObjectIndex(frmP,objectID));
}

static void ShowObject(UInt16 objectID)
{
  FormPtr frmP=FrmGetActiveForm();
  FrmShowObject(frmP,FrmGetObjectIndex(frmP,objectID));
}

[0回]

• OnBoardC
• COMMENT：0
• TB:

static void SaveToMemopad(void)
{
  DmOpenRef memoDB;
  MemHandle MemoRecordHandle;
  void *MemoRecordPtr;
  UInt16 MemoIndex=0;
  char MemoString[256]; //保存する文字列を入れるところ

  memoDB=DmOpenDatabaseByTypeCreator('DATA','memo',dmModeReadWrite);
  MemoRecordHandle=DmNewRecord(memoDB,&MemoIndex,StrLen(MemoString)+1);
  MemoRecordPtr=MemHandleLock(MemoRecordHandle);    
  DmSet(MemoRecordPtr,0,StrLen(MemoString)+1,0);
  DmWrite(MemoRecordPtr,0,MemoString,StrLen(MemoString));
  MemHandleUnlock(MemoRecordHandle);
  DmReleaseRecord(memoDB,MemoIndex,true);
  DmCloseDatabase(memoDB);
}

[0回]

• OnBoardC
• COMMENT：0
• TB: