int CreateProgressPanel ( char* szMainTitle , int iNumberOfBars )
{
int hPanelWait = 0;
if (( iNumberOfBars > WAIT_MAX_BARS ) || ( iNumberOfBars < 1 ))
return -1;
hPanelWait = LoadPanel ( 0 , "database.uir" , PROGRESS );
if ( hPanelWait < 1 )
return -1;
if ( szMainTitle != NULL )
SetPanelAttribute ( hPanelWait , ATTR_TITLE , szMainTitle );
SetPanelAttribute ( hPanelWait , ATTR_HEIGHT , WAIT_BAR_START + ( WAIT_BAR_STEP * iNumberOfBars ) );
InstallPopup (hPanelWait);
MakeApplicationActive ();
SetActivePanel ( hPanelWait );
ProcessDrawEvents();
return hPanelWait;
}
/* 配置并弹出信号分析面板 */
void popupPanelForGraph(int pHdl){
int i = getGraphIndex(pHdl, 0); //Need a index to find one of the six graphs.
char title[50];
for(int j=0; j<(READ_LENGTH/24); j++)
tempData[i][j] = resultData[i][j];
Delay(0.1);
for(int z=(READ_LENGTH/24),x = 0; z<(READ_LENGTH/12); z++,x++)
tempData[i][z] = resultData[i][x];
// 从uir文件中加载 信号分析面板
if(PopPanels[i] <=0 ){
if ((PopPanels[i] = LoadPanel(0, "MainPanel.uir", PopupPanel)) < 0)
showError("Load PopupPanel Error!");
DisplayPanel(PopPanels[i]);
PopGraphs[i] = PopupPanel_PopGraph1;
GetPanelAttribute(pHdl, ATTR_TITLE, title);
SetPanelAttribute(PopPanels[i], ATTR_TITLE, title);
SetCtrlAttribute(PopPanels[i], PopGraphs[i], ATTR_GRID_COLOR, plotGridColor);
SetCtrlAttribute(PopPanels[i], PopGraphs[i], ATTR_GRAPH_BGCOLOR, VAL_TRANSPARENT);
//temp SetAxisScalingMode(PopPanels[i], PopGraphs[i], VAL_LEFT_YAXIS, VAL_MANUAL, yAxisRange[0], yAxisRange[1]);
PopGPlots[i] = PlotY(PopPanels[i], PopGraphs[i], tempData[i], READ_LENGTH/12,
VAL_DOUBLE, VAL_THIN_LINE, VAL_EMPTY_SQUARE, VAL_SOLID,1, plotLineColor);
}else{
SetActivePanel(PopPanels[i]);
}
}
//---------------------------------------------------------------------------
void __fastcall TSettingsFormClass::DesignMenuImageClick(TObject *Sender)
{
SetActivePanel(3);
}
//---------------------------------------------------------------------------
void __fastcall TSettingsFormClass::HotKeyMenuImageClick(TObject *Sender)
{
SetActivePanel(2);
}
//---------------------------------------------------------------------------
void __fastcall TSettingsFormClass::GeneralMenuImageClick(TObject *Sender)
{
SetActivePanel(1);
}
