//--------------------------------------------------------------------------- void TForm2D::DataPrepare() { m_setval = 0; m_val_n = 0; AnsiString as; //range of grid values must be slightly wider... Chart1->LeftAxis->Maximum = m_fnc_max; Chart1->LeftAxis->Minimum = m_fnc_min; Chart1->Title->Text->Clear(); Chart1->Title->Text->Add(m_chart_title_text); Chart1->LeftAxis->Title->Caption = m_y_axis_title; Chart1->BottomAxis->Title->Caption = m_x_axis_title; for(int i = 0; i < m_count_of_function_points; i++) { if (m_horizontal_axis_grid_mode < 2) //0,1 modes as.sprintf(m_horizontal_axis_values_format.c_str(), m_horizontal_axis_grid_values[i]); else //mode 2 as.sprintf(m_horizontal_axis_values_format.c_str(), mp_modified_function[i+m_count_of_function_points]); Series1->Add(mp_original_function[i], as, clAqua); Series2->Add(mp_modified_function[i], as, clRed); } if (2==m_horizontal_axis_grid_mode) UpdateBins(); }
//--------------------------------------------------------------------------- void __fastcall TPntDialog::BtnLoadClick(TObject *Sender) { AnsiString s; FILE *fp; char buff[256],name[256]; double pos[3]; int i=0; if (!OpenDialog->Execute()) return; if (!(fp=fopen(OpenDialog->FileName.c_str(),"r"))) return; while (fgets(buff,sizeof(buff),fp)&&i<PntList->RowCount) { if (buff[0]=='#') continue; if (sscanf(buff,"%lf %lf %lf %s",pos,pos+1,pos+2,name)<4) continue; PntList->Cells[0][i]=s.sprintf("%.9f",pos[0]); PntList->Cells[1][i]=s.sprintf("%.9f",pos[1]); PntList->Cells[2][i]=s.sprintf("%.4f",pos[2]); PntList->Cells[3][i++]=name; } for (;i<PntList->RowCount;i++) { PntList->Cells[0][i]=""; PntList->Cells[1][i]=""; PntList->Cells[2][i]=""; PntList->Cells[3][i]=""; } fclose(fp); }
//--------------------------------------------------------------------------- void __fastcall TExtOptDialog::GetExtErrOpt(void) { TEdit *editc[][6]= { {CodeErr00,CodeErr01,CodeErr02,CodeErr03,CodeErr04,CodeErr05}, {CodeErr10,CodeErr11,CodeErr12,CodeErr13,CodeErr14,CodeErr15}, {CodeErr20,CodeErr21,CodeErr22,CodeErr23,CodeErr24,CodeErr25} }; TEdit *editp[][6]= { {PhaseErr00,PhaseErr01,PhaseErr02,PhaseErr03,PhaseErr04,PhaseErr05}, {PhaseErr10,PhaseErr11,PhaseErr12,PhaseErr13,PhaseErr14,PhaseErr15}, {PhaseErr20,PhaseErr21,PhaseErr22,PhaseErr23,PhaseErr24,PhaseErr25} }; AnsiString s; ExtEna0->Checked=OptDialog->ExtErr.ena[0]; ExtEna1->Checked=OptDialog->ExtErr.ena[1]; ExtEna2->Checked=OptDialog->ExtErr.ena[2]; ExtEna3->Checked=OptDialog->ExtErr.ena[3]; for (int i=0; i<3; i++) for (int j=0; j<6; j++) { editc[i][j]->Text=s.sprintf("%.3f",OptDialog->ExtErr.cerr[i][j]); editp[i][j]->Text=s.sprintf("%.3f",OptDialog->ExtErr.perr[i][j]); } GpsGloB0->Text=s.sprintf("%.3f",OptDialog->ExtErr.gpsglob[0]); GpsGloB1->Text=s.sprintf("%.3f",OptDialog->ExtErr.gpsglob[1]); GloICB0->Text=s.sprintf("%.3f",OptDialog->ExtErr.gloicb[0]); GloICB1->Text=s.sprintf("%.3f",OptDialog->ExtErr.gloicb[1]); }
//--------------------------------------------------------------------------- bool __fastcall CIniFile::SearchFile(AnsiString strBarCode,AnsiString &strFileName) { WIN32_FIND_DATA FindFileData; AnsiString strName; char *pFileName; TIniFile *pIniFile; bool bResult=false; strName.sprintf("%s*.ini",IniFile_Dir); HANDLE hFile=FindFirstFile(strName.c_str(),&FindFileData); if(hFile!=INVALID_HANDLE_VALUE) { while(FindNextFile(hFile,&FindFileData)!=0) { pFileName=FindFileData.cFileName; strName.sprintf("%s%s",IniFile_Dir,pFileName); pIniFile = new TIniFile(strName); AnsiString strCode=pIniFile->ReadString(Product_Section,"BarCode","0000"); delete pIniFile; if(strCode==strBarCode) { strFileName=strName; bResult=true; break; } } FindClose(hFile); } return bResult; }
//--------------------------------------------------------------------------- void __fastcall CIniFile::StoreHistory(int nYear,int nMonth,int nDate,AnsiString strMessage) { AnsiString strFileName; TIniFile *pIniFile; int nFileMonth,nIndex; strFileName.sprintf("%s\\Message History\\%4d_%02d_%02d.ini",IniFile_Dir,nYear,nMonth,nDate); pIniFile = new TIniFile(strFileName); nFileMonth=pIniFile->ReadInteger("Control","Month",1); nIndex=pIniFile->ReadInteger("Control","Index",1); if(nFileMonth!=nMonth) { nIndex=1; pIniFile->WriteInteger("Control","Month",nMonth); } AnsiString strID; strID.sprintf("No%08d",nIndex); pIniFile->WriteString("History",strID,strMessage); nIndex++; strID.sprintf("No%08d",nIndex); pIniFile->WriteString("History",strID,"//-------------以下做作廢--------------------//"); pIniFile->WriteInteger("Control","Index",nIndex); delete pIniFile; }
// update observation type pull-down menu -------------------------------------- void __fastcall TPlot::UpdateObsType(void) { AnsiString s; char *codes[MAXCODE+1],freqs[]="125678"; int i,j,n=0,cmask[MAXCODE+1]={0},fmask[6]={0}; trace(3,"UpdateObsType\n"); for (i=0;i<Obs.n;i++) for (j=0;j<NFREQ+NEXOBS;j++) { cmask[Obs.data[i].code[j]]=1; } for (i=1;i<=MAXCODE;i++) { if (!cmask[i]) continue; codes[n++]=code2obs(i,&j); fmask[j-1]=1; } ObsType ->Items->Clear(); ObsType2->Items->Clear(); ObsType ->Items->Add("ALL"); for (i=0;i<6;i++) { if (!fmask[i]) continue; ObsType ->Items->Add(s.sprintf("L%c",freqs[i])); ObsType2->Items->Add(s.sprintf("L%c",freqs[i])); } for (i=0;i<n;i++) { ObsType ->Items->Add(s.sprintf("L%s",codes[i])); ObsType2->Items->Add(s.sprintf("L%s",codes[i])); } ObsType ->ItemIndex=0; ObsType2->ItemIndex=0; }
//--------------------------------------------------------------------------- void __fastcall TSkyImgDialog::UpdateField(void) { AnsiString s; Caption=Plot->SkyImageFile; SkySize1->Text=s.sprintf("%d",Plot->SkySize[0]); SkySize2->Text=s.sprintf("%d",Plot->SkySize[1]); SkyCent1->Text=s.sprintf("%.2f",Plot->SkyCent[0]); SkyCent2->Text=s.sprintf("%.2f",Plot->SkyCent[1]); SkyScale->Text=s.sprintf("%.2f",Plot->SkyScale); SkyFov1 ->Text=s.sprintf("%.2f",Plot->SkyFov[0]); SkyFov2 ->Text=s.sprintf("%.2f",Plot->SkyFov[1]); SkyFov3 ->Text=s.sprintf("%.2f",Plot->SkyFov[2]); SkyDest1->Text=s.sprintf("%.1f",Plot->SkyDest[1]); SkyDest2->Text=s.sprintf("%.1f",Plot->SkyDest[2]); SkyDest3->Text=s.sprintf("%.1f",Plot->SkyDest[3]); SkyDest4->Text=s.sprintf("%.1f",Plot->SkyDest[4]); SkyDest5->Text=s.sprintf("%.1f",Plot->SkyDest[5]); SkyDest6->Text=s.sprintf("%.1f",Plot->SkyDest[6]); SkyDest7->Text=s.sprintf("%.1f",Plot->SkyDest[7]); SkyDest8->Text=s.sprintf("%.1f",Plot->SkyDest[8]); SkyDest9->Text=s.sprintf("%.1f",Plot->SkyDest[9]); SkyElMask->Checked=Plot->SkyElMask; SkyDestCorr->Checked=Plot->SkyDestCorr; SkyRes->ItemIndex=Plot->SkyRes; SkyFlip->Checked=Plot->SkyFlip; }
//--------------------------------------------------------------------------- void __fastcall TPntDialog::FormShow(TObject *Sender) { TGridRect r={0}; AnsiString s; double pos[3]; int width[]={90,90,80,90}; FontScale=Screen->PixelsPerInch; for (int i=0;i<4;i++) { PntList->ColWidths[i]=width[i]*FontScale/96; } PntList->DefaultRowHeight=17*FontScale/96; for (int i=0;i<PntList->RowCount;i++) { if (i<Plot->NWayPnt) { ecef2pos(Plot->PntPos[i],pos); PntList->Cells[0][i]=s.sprintf("%.9f",pos[0]*R2D); PntList->Cells[1][i]=s.sprintf("%.9f",pos[1]*R2D); PntList->Cells[2][i]=s.sprintf("%.4f",pos[2]); PntList->Cells[3][i]=Plot->PntName[i]; } else { for (int j=0;j<PntList->ColCount;j++) PntList->Cells[j][i]=""; } } r.Top=r.Bottom=PntList->RowCount; PntList->Selection=r; }
void CFolderHelper::GenerateObjectName(TElTree* tv, TElTreeItem* node, AnsiString& name,AnsiString pref, bool num_first) { int cnt = 0; if (num_first) name.sprintf("%s_%02d",pref,cnt++); else name = pref; while (FindItemInFolder(TYPE_OBJECT,tv,node,name)) name.sprintf("%s_%02d",pref,cnt++); }
void SPBItem::GetInfo (AnsiString& txt, float& p, float& m) { if (info.size())txt.sprintf("%s (%s)",text.c_str(),info.c_str()); else txt.sprintf("%s",text.c_str()); p = progress; m = max; }
// connect to external sources ---------------------------------------------- void __fastcall TPlot::Connect(void) { AnsiString s; char *cmd,*path,buff[MAXSTRPATH],*name[2]={"",""},*p; int i,mode=STR_MODE_R; trace(3,"Connect\n"); if (ConnectState) return; for (i=0;i<2;i++) { if (RtStream[i]==STR_NONE ) continue; else if (RtStream[i]==STR_SERIAL ) path=StrPaths[i][0].c_str(); else if (RtStream[i]==STR_FILE ) path=StrPaths[i][2].c_str(); else if (RtStream[i]<=STR_NTRIPCLI) path=StrPaths[i][1].c_str(); else continue; if (RtStream[i]==STR_FILE||!SolData[i].cyclic||SolData[i].nmax!=RtBuffSize+1) { Clear(); initsolbuf(SolData+i,1,RtBuffSize+1); } if (RtStream[i]==STR_SERIAL) mode|=STR_MODE_W; strcpy(buff,path); if ((p=strstr(buff,"::"))) *p='\0'; if ((p=strstr(buff,"/:"))) *p='\0'; if ((p=strstr(buff,"@"))) name[i]=p+1; else name[i]=buff; if (!stropen(Stream+i,RtStream[i],mode,path)) { ShowMsg(s.sprintf("connect error: %s",name)); ShowLegend(NULL); trace(1,"stream open error: ch=%d type=%d path=%s\n",i+1,RtStream[i],path); continue; } strsettimeout(Stream+i,RtTimeOutTime,RtReConnTime); if (StrCmdEna[i][0]) { cmd=StrCmds[i][0].c_str(); strwrite(Stream+i,(unsigned char *)cmd,strlen(cmd)); } ConnectState=1; } if (!ConnectState) return; if (Title!="") Caption=Title; else Caption=s.sprintf("CONNECT %s %s",name[0],name[1]); BtnConnect->Down=true; BtnSol1 ->Down=*name[0]; BtnSol2 ->Down=*name[1]; BtnSol12 ->Down=false; BtnShowTrack->Down=true; BtnFixHoriz->Down=true; UpdateEnable(); UpdateTime(); UpdatePlot(); }
// read observation data rinex ---------------------------------------------- int __fastcall TPlot::ReadObsRnx(TStrings *files, obs_t *obs, nav_t *nav, sta_t *sta) { AnsiString s; gtime_t ts,te; double tint; int i; char obsfile[1024],navfile[1024],*p,*opt=RnxOpts.c_str(); trace(3,"ReadObsRnx\n"); TimeSpan(&ts,&te,&tint); for (i=0;i<files->Count;i++) { strcpy(obsfile,U2A(files->Strings[i]).c_str()); ShowMsg(s.sprintf("reading obs data... %s",obsfile)); Application->ProcessMessages(); if (readrnxt(obsfile,1,ts,te,tint,opt,obs,nav,sta)<0) { ShowMsg("error: insufficient memory"); return -1; } } ShowMsg("reading nav data..."); Application->ProcessMessages(); for (i=0;i<files->Count;i++) { strcpy(navfile,U2A(files->Strings[i]).c_str()); if (!(p=strrchr(navfile,'.'))) continue; if (!strcmp(p,".obs")||!strcmp(p,".OBS")) { strcpy(p,".nav" ); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); strcpy(p,".gnav"); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); strcpy(p,".hnav"); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); strcpy(p,".qnav"); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); strcpy(p,".lnav"); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); } else if (!strcmp(p+3,"o" )||!strcmp(p+3,"d" )|| !strcmp(p+3,"O" )||!strcmp(p+3,"D" )) { strcpy(p+3,"N"); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); strcpy(p+3,"G"); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); strcpy(p+3,"H"); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); strcpy(p+3,"Q"); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); strcpy(p+3,"L"); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); strcpy(p+3,"P"); readrnxt(navfile,1,ts,te,tint,opt,NULL,nav,NULL); } } if (obs->n<=0) { ShowMsg(s.sprintf("no observation data: %s...",files->Strings[0].c_str())); freenav(nav,0xFF); return 0; } uniqnav(nav); return sortobs(obs); }
//--------------------------------------------------------------------------- void __fastcall TConvOptDialog::FormShow(TObject *Sender) { AnsiString s; RnxVer->ItemIndex=MainWindow->RnxVer; RnxFile->Checked=MainWindow->RnxFile; RnxCode->Text=MainWindow->RnxCode; RunBy->Text=MainWindow->RunBy; Marker->Text=MainWindow->Marker; MarkerNo->Text=MainWindow->MarkerNo; MarkerType->Text=MainWindow->MarkerType; Name0->Text=MainWindow->Name[0]; Name1->Text=MainWindow->Name[1]; Rec0->Text=MainWindow->Rec[0]; Rec1->Text=MainWindow->Rec[1]; Rec2->Text=MainWindow->Rec[2]; Ant0->Text=MainWindow->Ant[0]; Ant1->Text=MainWindow->Ant[1]; Ant2->Text=MainWindow->Ant[2]; AppPos0->Text=s.sprintf("%.4f",MainWindow->AppPos[0]); AppPos1->Text=s.sprintf("%.4f",MainWindow->AppPos[1]); AppPos2->Text=s.sprintf("%.4f",MainWindow->AppPos[2]); AntDel0->Text=s.sprintf("%.4f",MainWindow->AntDel[0]); AntDel1->Text=s.sprintf("%.4f",MainWindow->AntDel[1]); AntDel2->Text=s.sprintf("%.4f",MainWindow->AntDel[2]); Comment0->Text=MainWindow->Comment[0]; Comment1->Text=MainWindow->Comment[1]; RcvOption->Text=MainWindow->RcvOption; for (int i=0;i<6;i++) CodeMask[i]=MainWindow->CodeMask[i]; AutoPos->Checked=MainWindow->AutoPos; ScanObs->Checked=MainWindow->ScanObs; OutIono->Checked=MainWindow->OutIono; OutTime->Checked=MainWindow->OutTime; OutLeaps->Checked=MainWindow->OutLeaps; Nav1->Checked=MainWindow->NavSys&SYS_GPS; Nav2->Checked=MainWindow->NavSys&SYS_GLO; Nav3->Checked=MainWindow->NavSys&SYS_GAL; Nav4->Checked=MainWindow->NavSys&SYS_QZS; Nav5->Checked=MainWindow->NavSys&SYS_SBS; Nav6->Checked=MainWindow->NavSys&SYS_CMP; Obs1->Checked=MainWindow->ObsType&OBSTYPE_PR; Obs2->Checked=MainWindow->ObsType&OBSTYPE_CP; Obs3->Checked=MainWindow->ObsType&OBSTYPE_DOP; Obs4->Checked=MainWindow->ObsType&OBSTYPE_SNR; Freq1->Checked=MainWindow->FreqType&FREQTYPE_L1; Freq2->Checked=MainWindow->FreqType&FREQTYPE_L2; Freq3->Checked=MainWindow->FreqType&FREQTYPE_L5; Freq4->Checked=MainWindow->FreqType&FREQTYPE_L6; Freq5->Checked=MainWindow->FreqType&FREQTYPE_L7; Freq6->Checked=MainWindow->FreqType&FREQTYPE_L8; ExSats->Text=MainWindow->ExSats; TraceLevel->ItemIndex=MainWindow->TraceLevel; UpdateEnable(); }
//--------------------------------------------------------------------------- void __fastcall CIniFile::StoreHistoryNew() { AnsiString strFileName; TIniFile *pIniFile; int nFileMonth,nIndex; time_t timer; struct tm *tblock; int nSize=m_vecMsg.size(); if(nSize==0) return; AnsiString strMsg; strMsg.sprintf("訊息共有 %d 筆\n每筆花費時間約 10 ms\n是否要儲存訊息??",nSize); if(Application->MessageBoxA(strMsg.c_str(),"Confirm",MB_ICONQUESTION|MB_OKCANCEL)!=IDOK) return; /* gets time of day */ timer = time(NULL); /* converts date/time to a structure */ tblock = localtime(&timer); int nMonth=tblock->tm_mon; int nDate=tblock->tm_mday; strFileName.sprintf("%s\\Message History\\%d.ini",IniFile_Dir,nDate); pIniFile = new TIniFile(strFileName); nFileMonth=pIniFile->ReadInteger("Control","Month",1); nIndex=pIniFile->ReadInteger("Control","Index",1); if(nFileMonth!=nMonth) { DeleteFile(strFileName); nIndex=1; pIniFile->WriteInteger("Control","Month",nMonth); } AnsiString strID; for(int nSz=0;nSz<nSize;nSz++) { strID.sprintf("No%08d",nIndex); pIniFile->WriteString("History",strID,m_vecMsg[nSz]); nIndex++; } m_vecMsg.clear(); strID.sprintf("No%08d",nIndex); pIniFile->WriteString("History",strID,"//-------------以下做作廢--------------------//"); pIniFile->WriteInteger("Control","Index",nIndex); delete pIniFile; }
AnsiString FloatTimeToStrTime(float v, bool _h, bool _m, bool _s, bool _ms) { AnsiString buf = ""; int h = 0, m = 0, s = 0, ms; AnsiString t; if (_h) { h = iFloor(v / 3600); t.sprintf("%02d", h); buf += t; } if (_m) { m = iFloor((v - h * 3600) / 60); t.sprintf("%02d", m); buf += buf.IsEmpty() ? t : ":" + t; } if (_s) { s = iFloor(v - h * 3600 - m * 60); t.sprintf("%02d", s); buf += buf.IsEmpty() ? t : ":" + t; } if (_ms) { ms = iFloor((v - h * 3600 - m * 60 - s)*1000.f); t.sprintf("%03d", ms); buf += buf.IsEmpty() ? t : "." + t; } return buf; }
//--------------------------------------------------------------------------- void __fastcall TMapAreaDialog::UpdateField(void) { AnsiString s; Caption=Plot->MapImageFile; MapSize1->Text=s.sprintf("%d",Plot->MapSize[0]); MapSize2->Text=s.sprintf("%d",Plot->MapSize[1]); ScaleX->Text=s.sprintf("%.5f",Plot->MapScaleX); ScaleY->Text=s.sprintf("%.5f",Plot->MapScaleY); Lat->Text=s.sprintf("%.7f",Plot->MapLat); Lon->Text=s.sprintf("%.7f",Plot->MapLon); ScaleEq->Checked=Plot->MapScaleEq; }
void CCustomPreferences::Save(CInifile* I) { I->w_u32 ("editor_prefs","device_flags", psDeviceFlags.flags ); I->w_u32 ("editor_prefs","sound_flags", psSoundFlags.flags ); I->w_u32 ("editor_prefs","tools_settings", Tools->m_Settings.flags ); I->w_float ("editor_prefs","view_np", view_np ); I->w_float ("editor_prefs","view_fp", view_fp ); I->w_float ("editor_prefs","view_fov", view_fov ); I->w_u32 ("editor_prefs","fog_color", fog_color ); I->w_float ("editor_prefs","fog_fogness", fog_fogness ); I->w_float ("editor_prefs","cam_fly_speed", cam_fly_speed ); I->w_float ("editor_prefs","cam_fly_alt", cam_fly_alt ); I->w_float ("editor_prefs","cam_sens_rot", cam_sens_rot ); I->w_float ("editor_prefs","cam_sens_move", cam_sens_move ); I->w_float ("editor_prefs","tools_sens_rot", tools_sens_rot ); I->w_float ("editor_prefs","tools_sens_move", tools_sens_move ); I->w_float ("editor_prefs","tools_sens_scale", tools_sens_scale); I->w_bool ("editor_prefs","bp_lim_depth", bp_lim_depth ); I->w_bool ("editor_prefs","bp_lim_depth", bp_cull ); I->w_float ("editor_prefs","bp_depth_tolerance",bp_depth_tolerance ); I->w_float ("editor_prefs","snap_angle", snap_angle ); I->w_float ("editor_prefs","snap_move", snap_move ); I->w_float ("editor_prefs","snap_moveto", snap_moveto ); I->w_float ("editor_prefs","grid_cell_size", grid_cell_size ); I->w_u32 ("editor_prefs","grid_cell_count", grid_cell_count ); I->w_u32 ("editor_prefs","scene_undo_level", scene_undo_level ); I->w_u32 ("editor_prefs","scene_recent_count", scene_recent_count ); I->w_u32 ("editor_prefs","scene_clear_color", scene_clear_color ); I->w_u32 ("editor_prefs","object_flags", object_flags.flags); for (AStringIt it=scene_recent_list.begin(); it!=scene_recent_list.end(); it++){ AnsiString L; L.sprintf("recent_files_%d",it-scene_recent_list.begin()); AnsiString V; V.sprintf("\"%s\"",it->c_str()); I->w_string("editor_prefs",L.c_str(),V.c_str()); } I->w_string("editor_prefs","weather", sWeather.c_str() ); // load shortcuts SaveShortcuts (I); UI->SaveSettings (I); }
// update information for current-cursor position --------------------------- void __fastcall TPlot::UpdatePoint(int x, int y) { gtime_t time; TPoint p(x,y); double enu[3]={0},rr[3],pos[3],xx,yy,r,xl[2],yl[2],q[2],az,el,snr; int i; char tstr[64]; AnsiString msg; trace(4,"UpdatePoint: x=%d y=%d\n",x,y); if (PlotType==PLOT_TRK) { // track-plot if (norm(OPos,3)>0.0) { GraphT->ToPos(p,enu[0],enu[1]); ecef2pos(OPos,pos); enu2ecef(pos,enu,rr); for (i=0;i<3;i++) rr[i]+=OPos[i]; ecef2pos(rr,pos); msg=LatLonStr(pos,8); } } else if (PlotType==PLOT_SKY||PlotType==PLOT_MPS) { // sky-plot GraphS->GetLim(xl,yl); GraphS->ToPos(p,q[0],q[1]); r=(xl[1]-xl[0]<yl[1]-yl[0]?xl[1]-xl[0]:yl[1]-yl[0])*0.45; if ((el=90.0-90.0*norm(q,2)/r)>0.0) { az=el>=90.0?0.0:ATAN2(q[0],q[1])*R2D; if (az<0.0) az+=360.0; msg.sprintf("AZ=%5.1f" CHARDEG " EL=%4.1f" CHARDEG,az,el); } } else if (PlotType==PLOT_SNRE) { // snr-el-plot GraphE[0]->ToPos(p,q[0],q[1]); msg.sprintf("EL=%4.1f " CHARDEG,q[0]); } else { GraphG[0]->ToPos(p,xx,yy); time=gpst2time(Week,xx); if (TimeLabel==2) time=utc2gpst(time); // UTC else if (TimeLabel==3) time=timeadd(gpst2utc(time),-9*3600.0); // JST TimeStr(time,0,1,tstr); msg=tstr; } Panel22->Visible=true; Message2->Caption=A2U(msg); }
// read solution status ----------------------------------------------------- void __fastcall TPlot::ReadSolStat(TStrings *files, int sel) { AnsiString s; gtime_t ts,te; double tint; int i,n=0; char *paths[MAXNFILE],id[32]; trace(3,"ReadSolStat\n"); freesolstatbuf(SolStat+sel); for (i=0;i<MAXNFILE;i++) paths[i]=path_str[i]; TimeSpan(&ts,&te,&tint); for (i=0;i<files->Count&&n<MAXNFILE;i++) { strcpy(paths[n++],U2A(files->Strings[i]).c_str()); } ShowMsg(s.sprintf("reading %s...",paths[0])); ShowLegend(NULL); readsolstatt(paths,n,ts,te,tint,SolStat+sel); UpdateSatList(); }
//--------------------------------------------------------------------------- void CActorMain::OutGridSize() { VERIFY(fraBottomBar); AnsiString s; s.sprintf("Grid: %1.1f",EPrefs->grid_cell_size); fraBottomBar->paGridSquareSize->Caption=s; fraBottomBar->paGridSquareSize->Repaint(); }
// disconnect from external sources ----------------------------------------- void __fastcall TPlot::Disconnect(void) { AnsiString s; char *cmd; int i; trace(3,"Disconnect\n"); if (!ConnectState) return; ConnectState=0; for (i=0;i<2;i++) { if (StrCmdEna[i][1]) { cmd=StrCmds[i][1].c_str(); strwrite(Stream+i,(unsigned char *)cmd,strlen(cmd)); } strclose(Stream+i); } if (strstr(Caption.c_str(),"CONNECT")) { Caption=s.sprintf("DISCONNECT%s",Caption.c_str()+7); } UpdateTime(); UpdatePlot(); }
void __fastcall TForm1::TBItem1Click(TObject *Sender) { _di_IXMLNode ANode; AnsiString fname; ArticleList->Clear(); if(XMLDoc->FileName == NULL) { Application->MessageBoxA("News Turkey can't get news unless a source to get news from is selected.", "News Turkey Error", NULL); return; } XMLDoc->Active = TRUE; if(XMLDoc->Active == FALSE) { //This is to predvent Access Violations if there is a problem parsing the file return; } ListSources(); ANode = RSSChannel->ChildNodes->FindNode("title"); if(DirectoryExists(ANode->Text) == FALSE) { CreateDir(ANode->Text); } XMLDoc->SaveToFile(fname.sprintf("CNET News.com - Front Door\\feed.xml")); XMLDoc->Active = FALSE; }
void SSceneSummary::STextureInfo::Export (IWriter* F, u32& mem_use) { string128 mask; AnsiString tmp; strcpy (mask,"%s=%s,%d,%d,%s,%d,%3.2f,%3.2f,%s"); if (info.flags.is_any(STextureParams::flDiffuseDetail|STextureParams::flBumpDetail)){ if (0!=info.detail_name.size()){ strcat (mask,",%s,%3.2f"); } } if (info.bump_mode==STextureParams::tbmUse){ if (0!=info.bump_name.size()){ strcat (mask,",%s"); } } AnsiString tmp2; for (objinf_map_it o_it=objects.begin(); o_it!=objects.end(); o_it++){ tmp2 += AnsiString().sprintf("%s%s[%d*%3.2f]",tmp2.Length()?"; ":"",o_it->first.c_str(),o_it->second.ref_count,o_it->second.area); } int tex_mem = info.MemoryUsage(*file_name); mem_use +=tex_mem; tmp.sprintf (mask,*file_name,info.FormatString(), info.width,info.height,info.HasAlpha()?"present":"absent", iFloor(tex_mem/1024), effective_area, _sqrt((pixel_area*info.width*info.height)/effective_area), tmp2.c_str(), *info.detail_name, info.detail_scale, *info.bump_name); F->w_string (tmp.c_str()); }
// read elevation mask data ------------------------------------------------- void __fastcall TPlot::ReadElMaskData(AnsiString file) { AnsiString s; FILE *fp; double az0=0.0,el0=0.0,az1,el1; int i,j; char buff[256]; trace(3,"ReadElMaskData\n"); for (i=0;i<=360;i++) ElMaskData[i]=0.0; if (!(fp=fopen(file.c_str(),"r"))) { ShowMsg(s.sprintf("no el mask data: %s...",file.c_str())); ShowLegend(NULL); return; } while (fgets(buff,sizeof(buff),fp)) { if (buff[0]=='%'||sscanf(buff,"%lf %lf",&az1,&el1)<2) continue; if (az0<az1&&az1<=360.0&&0.0<=el1&&el1<=90.0) { for (j=(int)az0;j<=(int)az1;j++) ElMaskData[j]=el0*D2R; } az0=az1; el0=el1; } fclose(fp); UpdatePlot(); }
void __fastcall TMainFrm::RetrievePOPHeaders(int inMsgCount ) { AnsiString stTemp; AnsiString stformat; int intIndex; TListItem *itm; stTemp = StatusBar1->Panels->Items[1]->Text; lvHeaders->Items->Clear(); for (intIndex = 1;intIndex<= inMsgCount ;intIndex++) { // Clear the message properties ShowStatus(stformat.sprintf("Messsage %d of %d", intIndex, inMsgCount)); Application->ProcessMessages(); Msg->Clear(); POP->RetrieveHeader(intIndex, Msg); // Add info to ListView itm = lvHeaders->Items->Add(); itm->ImageIndex = 5; itm->Caption = Msg->Subject; itm->SubItems->Add(Msg->From->Text); itm->SubItems->Add(DateToStr(Msg->Date)); itm->SubItems->Add(IntToStr(POP->RetrieveMsgSize(intIndex))); itm->SubItems->Add("n/a"); // itm.SubItems.Add(POP.RetrieveUIDL(intIndex)); } ShowStatus(stTemp); }
void __fastcall TfrmMain::LoadTimer(TObject *Sender) { LoadSetting(); if (FileExists(String(LoginerPath) +"\\Data\\"+ GameAccount + "\\Items.dat")) { TStringList *list = new TStringList(); list->LoadFromFile(String(LoginerPath) +"\\Data\\"+ GameAccount + "\\Items.dat"); for (int i = 0; i < list->Count; i++) { unsigned int ItemID; ItemID = _wtoi(list->Strings[i].w_str()); AnsiString name = String(GetItemName(ItemID)); if (name.IsEmpty()) { name.sprintf(TEXT("未知物品(編號:%d)"), ItemID); } int index = list_drop->Items->IndexOfObject((TObject *)ItemID); if (index > -1) list_drop->Items->Delete(index); index = list_filter->Items->IndexOfObject((TObject *)ItemID); if (index < 0) list_filter->Items->AddObject(name, (TObject *)ItemID); } delete list; } Load->Enabled = false; }
// read map image data ------------------------------------------------------ void __fastcall TPlot::ReadMapData(AnsiString file) { TJPEGImage *image=new TJPEGImage; AnsiString s; trace(3,"ReadMapData\n"); try { image->LoadFromFile(file); } catch (Exception &exception) { ShowMsg(s.sprintf("map file read error: %s",file)); ShowLegend(NULL); return; } MapImage->Assign(image); MapImageFile=file; MapSize[0]=MapImage->Width; MapSize[1]=MapImage->Height; delete image; ReadMapTag(file); BtnShowMap->Down=true; MapAreaDialog->UpdateField(); UpdatePlot(); }
void __fastcall TfrmMain::BroadcastMessage(AnsiString WhoFrom, AnsiString TheMessage ) { int Count; TList* List; TIdPeerThread * peerthread; AnsiString EMote; AnsiString Msg; Msg = Trim(TheMessage); EMote = Trim(memEMotes->Lines->Values[Msg]); if (WhoFrom != "System") Msg = WhoFrom + ": " + Msg; if (EMote != "") Msg = Msg.sprintf(EMote.c_str(),WhoFrom.c_str()); List = tcpServer->Threads->LockList(); for (Count = 0;Count < List->Count ;Count++) {peerthread=(TIdPeerThread*)List->Items[Count]; if (dynamic_cast <TIdPeerThread*>(peerthread)) peerthread->Connection->WriteLn(Msg); } tcpServer->Threads->UnlockList(); }
//--------------------------------------------------------------------------- void __fastcall TOptDialog::BtnFontClick(TObject *Sender) { AnsiString s; FontDialog->Font=FontLabel->Font; if (!FontDialog->Execute()) return; FontLabel->Font=FontDialog->Font; FontLabel->Caption=FontLabel->Font->Name+s.sprintf(" %dpt",FontLabel->Font->Size); }
//--------------------------------------------------------------------------- void CActorMain::OutUICursorPos() { VERIFY(fraBottomBar); AnsiString s; POINT pt; GetCursorPos(&pt); s.sprintf("Cur: %d, %d",pt.x,pt.y); fraBottomBar->paUICursor->Caption=s; fraBottomBar->paUICursor->Repaint(); }