431 lines
10 KiB
C++
431 lines
10 KiB
C++
#include "RuntimeData.h"
|
|
#include "DetectorCurve.h"
|
|
|
|
#define TextTopOffSet 6
|
|
#define ListLineCnt 10
|
|
|
|
|
|
void TDetectorCurve::Init(int x1, int y1, int aW, int aH, int OwnerX, int OwnerY, u32 aColor)
|
|
{
|
|
#define CH 30 //Caption Height
|
|
unsigned short Left,Right, Top, Bottom, Width, Height, i;
|
|
Bound.SetBySize(OwnerX + x1, OwnerY + y1, aW, aH);
|
|
Left = Bound.Left +3;
|
|
Top = Bound.Top+3;
|
|
Width = aW - 7;
|
|
Height = aH - 7;
|
|
Right = Bound.Right -4;
|
|
Bottom = Bound.Bottom -4;
|
|
Caption.Init(Left,Top,Width, CH, 0, 0, clWhite, clMaroon);
|
|
SText.Init(Left+358,Top,434, CH, 0, 0, clWhite, clMaroon);
|
|
Content.Set(Left, Top+CH, Right, Bottom);
|
|
RectPanel.Set(Left,Top+CH, Right, Bottom);
|
|
RectCanvas.Set(6,102,616,392);
|
|
Color = aColor;
|
|
#undef CH
|
|
|
|
Caption.Border.Color = clGray;
|
|
TMyString::sFromStr("系统调试->探测器曲线", Caption.Text);
|
|
|
|
TextColor = clNearBlack;
|
|
SelectedColor = clBlue;
|
|
SelectedTextColor = clNearWhite;
|
|
|
|
CtlIndex = 0;
|
|
FastIndex = 0;
|
|
|
|
OnActive = 0;
|
|
IsFastCmd = 0;
|
|
}
|
|
|
|
void TDetectorCurve::RenderBackGround(void)
|
|
{
|
|
RectFillRender(Content.Left, Content.Top, Content.Right, Content.Bottom, Color);
|
|
}
|
|
|
|
void TDetectorCurve::RenderBackGround(unsigned int aClr)
|
|
{
|
|
RectFillRender(Content.Left, Content.Top, Content.Right, Content.Bottom, aClr);
|
|
}
|
|
|
|
void TDetectorCurve::DrawSelf(void)
|
|
{
|
|
unsigned int x, y, x2, y2, w, h;
|
|
|
|
VertLineRender(Bound.Left, Bound.Top, Bound.Height -1, 0xFFFFFFFF);
|
|
VertLineRender(Bound.Right -1, Bound.Top +1, Bound.Height -2, 0xFF808080);
|
|
VertLineRender(Bound.Right, Bound.Top, Bound.Height, 0xFF404040);
|
|
|
|
HorizLineRender(Bound.Left, Bound.Top, Bound.Width - 1, 0xFFFFFFFF);
|
|
HorizLineRender(Bound.Left +1, Bound.Bottom -1, Bound.Width - 2, 0xFF808080);
|
|
HorizLineRender(Bound.Left, Bound.Bottom, Bound.Width, 0xFF404040);
|
|
|
|
x = Bound.Left +2 ;
|
|
x2 = Bound.Right -2;
|
|
y = Bound.Top +2;
|
|
y2 = Bound.Bottom - 2;
|
|
w = Bound.Width -4;
|
|
h = Bound.Height - 4;
|
|
VertLineRender (x, y, h-1, 0xFF808080);
|
|
HorizLineRender (x, y, w-1, 0xFF808080);
|
|
|
|
VertLineRender (x+1, y+1, h-2, 0xFF404040);
|
|
HorizLineRender (x+1, y+1, w-2, 0xFF404040);
|
|
|
|
VertLineRender (x2-1, y+1, h-2, 0xFFD4D0C8);
|
|
HorizLineRender (x+1, y2-1, w-2, 0xFFD4D0C8);
|
|
|
|
VertLineRender (x2, y, h, 0xFFFFFFFF);
|
|
HorizLineRender (x, y2, w, 0xFFFFFFFF);
|
|
}
|
|
|
|
|
|
void TDetectorCurve::DrawCaption2(void)
|
|
{
|
|
TMyString::sFromStr("/////", SText.Text);
|
|
//SText.Show();
|
|
}
|
|
|
|
void TDetectorCurve::Show(void)
|
|
{
|
|
RenderBackGround();
|
|
DrawSelf();
|
|
Caption.Show();
|
|
DrawCaption2();
|
|
}
|
|
|
|
void TDetectorCurve::FullRedraw(int Prm)
|
|
{
|
|
if(Prm == 0){
|
|
RenderBackGround();
|
|
DrawSelf();
|
|
Caption.Show();
|
|
DrawCaption2();
|
|
aPanel->Show();
|
|
}else
|
|
if(Prm == 1){
|
|
RectFillRender(GuiRedrawDataList[1][0], GuiRedrawDataList[1][1], GuiRedrawDataList[1][2], GuiRedrawDataList[1][3], Color);
|
|
aPanel->Show();
|
|
}
|
|
}
|
|
|
|
void TDetectorCurve::SetAndShowCaption(unsigned char aType)
|
|
{
|
|
TMyString::sFromStr(" zzzzzzz", Caption.Text);
|
|
}
|
|
|
|
//______________________________________________________________________________________________________________________________
|
|
|
|
void TDetectorCurve::Check4Selected(void)
|
|
{
|
|
unsigned int i;
|
|
for(i=0; i<2;i++)aPanel->Btn[i].Selected = 0;
|
|
for(i=0; i<7;i++)aPanel->Edit[i].Selected = 0;
|
|
|
|
switch(CtlIndex){
|
|
case 0:
|
|
aPanel->Edit[0].Selected = 1;
|
|
break;
|
|
case 1:
|
|
aPanel->Edit[1].Selected = 1;
|
|
break;
|
|
case 2:
|
|
aPanel->Edit[2].Selected = 1;
|
|
break;
|
|
case 3:
|
|
aPanel->Edit[3].Selected = 1;
|
|
break;
|
|
case 4:
|
|
aPanel->Edit[4].Selected = 1;
|
|
break;
|
|
case 5:
|
|
aPanel->Edit[5].Selected = 1;
|
|
break;
|
|
case 6:
|
|
aPanel->Edit[6].Selected = 1;
|
|
break;
|
|
case 7:
|
|
aPanel->Btn[0].Selected = 1;
|
|
break;
|
|
case 8:
|
|
aPanel->Btn[1].Selected = 1;
|
|
break;
|
|
default:
|
|
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
//_____________________________________________________________________________________________________________________________
|
|
|
|
TGuiMsgReturn TDetectorCurve::KeyIn(unsigned char aKey)
|
|
{
|
|
TGuiMsgReturn aMsg = guiMsgNone;
|
|
unsigned char aP0,aP1,Updata;
|
|
unsigned char x,y,aCh;
|
|
Updata = 0;
|
|
|
|
if( (aKey == VK_DELETE) ||
|
|
(aKey == VK_0) ||
|
|
(aKey == VK_1) ||
|
|
(aKey == VK_2) ||
|
|
(aKey == VK_3) ||
|
|
(aKey == VK_4) ||
|
|
(aKey == VK_5) ||
|
|
(aKey == VK_6) ||
|
|
(aKey == VK_7) ||
|
|
(aKey == VK_8) ||
|
|
(aKey == VK_9) ||
|
|
(aKey == VK_LEFT) ||
|
|
(aKey == VK_RIGHT)
|
|
){
|
|
if(CtlIndex < 7){
|
|
aPanel->Edit[CtlIndex].KeyIn(aKey);
|
|
aPanel->Edit[CtlIndex].ReDraw();
|
|
}
|
|
}
|
|
|
|
if(aKey == VK_UP){
|
|
if(CtlIndex >0){
|
|
CtlIndex--;
|
|
Check4Selected();
|
|
aPanel->ReDrawItems();
|
|
}
|
|
}else
|
|
if(aKey == VK_DOWN){
|
|
if(CtlIndex <8){
|
|
CtlIndex++;
|
|
Check4Selected();
|
|
aPanel->ReDrawItems();
|
|
}
|
|
}else
|
|
if(aKey == VK_TAB){
|
|
|
|
}
|
|
if(aKey == VK_EXECUTE){
|
|
//Save Data Here
|
|
SendCmd();
|
|
}
|
|
|
|
if(aKey == VK_RETURN){
|
|
aMsg = guiMsgReturn;
|
|
}
|
|
|
|
return aMsg;
|
|
}
|
|
|
|
void TDetectorCurve::PanelCanvasOut()
|
|
{
|
|
VertLineRender(RectCanvas.Left, RectCanvas.Top, RectCanvas.Height, clSilver);
|
|
VertLineRender(RectCanvas.Right, RectCanvas.Top, RectCanvas.Height, clSilver);
|
|
HorizLineRender(RectCanvas.Left, RectCanvas.Top, RectCanvas.Width, clSilver);
|
|
HorizLineRender(RectCanvas.Left, RectCanvas.Bottom, RectCanvas.Width, clSilver);
|
|
|
|
//VertLineRender(RectPanel.Left + 374, RectPanel.Top + 3, 320, clSilver);
|
|
}
|
|
|
|
void TDetectorCurve::InitPanel(void)
|
|
{
|
|
int x,y,x2,y2, aW,aH,i, yt;
|
|
x = RectPanel.Left;
|
|
y = RectPanel.Top;
|
|
x2 = RectPanel.Right;
|
|
y2 = RectPanel.Bottom;
|
|
aW = RectPanel.Width;
|
|
aH = RectPanel.Height;
|
|
|
|
aPanel->Init(x,y,aW,aH,0,0,clFrmFace, bvRaised);
|
|
|
|
aPanel->Caption.Init(1,1,aW-3,32,x,y,clFrmFace,clFrmFace);
|
|
|
|
yt = y+6;
|
|
aPanel->SText[0].Init(654,3,70,30,x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[1].Init(658,35,70,30,x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[2].Init(616,67,70,30,x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[3].Init(616,99,70,30,x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[4].Init(616,131,70,30,x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[5].Init(616,163,70,30,x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[6].Init(616,195,70,30,x,yt,clNearBlack,clFrmFace);
|
|
|
|
yt = y+2;
|
|
aPanel->SText[11].Init(360,0, 70,30, x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[12].Init( 6,0, 70,30, x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[13].Init(0, 330, 70,30, x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[14].Init(175,330, 70,30, x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[15].Init(350,330, 70,30, x,yt,clNearBlack,clFrmFace);
|
|
aPanel->SText[16].Init(525,330, 70,30, x,yt,clNearBlack,clFrmFace);
|
|
|
|
TMyString::sFromStr("回路号", aPanel->SText[0].Text);
|
|
TMyString::sFromStr("地址", aPanel->SText[1].Text);
|
|
TMyString::sFromStr("数据1比例", aPanel->SText[2].Text);
|
|
TMyString::sFromStr("数据2比例", aPanel->SText[3].Text);
|
|
TMyString::sFromStr("数据3比例", aPanel->SText[4].Text);
|
|
TMyString::sFromStr("数据4比例", aPanel->SText[5].Text);
|
|
TMyString::sFromStr("时间比例", aPanel->SText[6].Text);
|
|
|
|
TMyString::sFromStr("正在探测", aPanel->SText[11].Text);
|
|
TMyString::sFromStr("类型", aPanel->SText[12].Text);
|
|
TMyString::sFromStr("数据名称1", aPanel->SText[13].Text);
|
|
TMyString::sFromStr("数据名称2", aPanel->SText[14].Text);
|
|
TMyString::sFromStr("数据名称3", aPanel->SText[15].Text);
|
|
TMyString::sFromStr("数据名称4", aPanel->SText[16].Text);
|
|
|
|
for(i=0; i<6;i++){
|
|
aPanel->SText[i].Enable = 1;
|
|
aPanel->SText[i].Visible = 1;
|
|
}
|
|
for(i=11; i<17;i++){
|
|
aPanel->SText[i].Enable = 1;
|
|
aPanel->SText[i].Visible = 1;
|
|
}
|
|
yt = y+6;
|
|
aPanel->Edit[0].Init(736,3, 42,30,x,yt,clNearBlack,clNearWhite);
|
|
aPanel->Edit[1].Init(736,35,42,30,x,yt,clNearBlack,clNearWhite);
|
|
aPanel->Edit[2].Init(736,67,42,30,x,yt,clNearBlack,clNearWhite);
|
|
aPanel->Edit[3].Init(736,99,42,30,x,yt,clNearBlack,clNearWhite);
|
|
aPanel->Edit[4].Init(736,131,42,30,x,yt,clNearBlack,clNearWhite);
|
|
aPanel->Edit[5].Init(736,163,42,30,x,yt,clNearBlack,clNearWhite);
|
|
aPanel->Edit[6].Init(736,195,42,30,x,yt,clNearBlack,clNearWhite);
|
|
yt = y+1;
|
|
aPanel->Btn[0].Init(666,240,116,36,x,yt,clNearBlack,clFrmFace);
|
|
aPanel->Btn[1].Init(666,280,116,36,x,yt,clNearBlack,clFrmFace);
|
|
aPanel->Btn[0].Caption.FromStr("开始探测");
|
|
aPanel->Btn[1].Caption.FromStr("停止探测");
|
|
|
|
|
|
for(i=0; i<2;i++){
|
|
aPanel->Btn[i].Enable = 1;
|
|
aPanel->Btn[i].Visible = 1;
|
|
aPanel->Btn[i].SetCaptionLeftSpacing(2);
|
|
aPanel->Btn[i].SelectedColor = clBlue;
|
|
}
|
|
for(i=0; i<2;i++){
|
|
aPanel->Edit[i].Enable = 1;
|
|
aPanel->Edit[i].Visible = 1;
|
|
aPanel->Edit[i].SetMaxLen(3);
|
|
aPanel->Edit[i].SetInputMaskEn();
|
|
aPanel->Edit[i].Str.FromStr("001");
|
|
aPanel->Edit[i].Pst = 2;
|
|
}
|
|
for(i=2; i<7;i++){
|
|
aPanel->Edit[i].Enable = 1;
|
|
aPanel->Edit[i].Visible = 1;
|
|
aPanel->Edit[i].SetMaxLen(5);
|
|
aPanel->Edit[i].SetInputMaskEn();
|
|
aPanel->Edit[i].Str.FromStr("10");
|
|
aPanel->Edit[i].Pst = 1;
|
|
}
|
|
aPanel->Edit[6].Enable = 0;
|
|
|
|
aPanel->Caption.Visible = 1;
|
|
|
|
aPanel->Show();
|
|
Check4Selected();
|
|
aPanel->ReDrawItems();
|
|
PanelCanvasOut();
|
|
}
|
|
|
|
void TDetectorCurve::SendCmd()
|
|
{
|
|
TCanHeaderID aIde;
|
|
unsigned char cVal;
|
|
unsigned int i;
|
|
unsigned int Len;
|
|
int iVal;
|
|
unsigned char aP0, aP1;
|
|
|
|
Len =5;
|
|
|
|
iVal = aPanel->Edit[0].Str.ToInteger();
|
|
if(iVal>255)iVal=255;
|
|
cVal = iVal;
|
|
aP0 = cVal;
|
|
|
|
iVal = aPanel->Edit[2].Str.ToInteger();
|
|
if(iVal>255)iVal=255;
|
|
cVal = iVal;
|
|
aP1 = cVal;
|
|
|
|
if( (aP0<1) || (aP0 >40) ){
|
|
return;
|
|
}
|
|
if( (aP1<1) || (aP0 >250) ){
|
|
return;
|
|
}
|
|
|
|
Path0 = aP0;
|
|
Path1 = aP1;
|
|
|
|
for(i=0; i<8; i++){
|
|
Data[i] = 0;
|
|
}
|
|
|
|
Data[0] = 0;
|
|
Data[1] = 0;
|
|
Data[2] = Path0;
|
|
Data[3] = Path1;
|
|
|
|
aIde.BitF.Cmd = cVal;
|
|
aIde.BitF.Pri = 1;
|
|
aIde.BitF.sLvl = 1;
|
|
aIde.BitF.dLvl = 7;
|
|
aIde.BitF.sAddr = 0;
|
|
aIde.BitF.dAddr = 127;
|
|
|
|
InnerCan.CmdSendCustom(aIde, Data, Len);
|
|
}
|
|
|
|
void TDetectorCurve::SendCmdAbort()
|
|
{
|
|
TCanHeaderID aIde;
|
|
unsigned char cVal;
|
|
unsigned int i;
|
|
unsigned int Len;
|
|
int iVal;
|
|
unsigned char aP0, aP1;
|
|
|
|
Len =5;
|
|
|
|
iVal = aPanel->Edit[0].Str.ToInteger();
|
|
if(iVal>255)iVal=255;
|
|
cVal = iVal;
|
|
aP0 = cVal;
|
|
|
|
iVal = aPanel->Edit[2].Str.ToInteger();
|
|
if(iVal>255)iVal=255;
|
|
cVal = iVal;
|
|
aP1 = cVal;
|
|
|
|
for(i=0; i<8; i++){
|
|
Data[i] = 0;
|
|
}
|
|
|
|
Data[1] = 0;
|
|
Data[2] = Path0;
|
|
Data[3] = Path1;
|
|
|
|
aIde.BitF.Cmd = cmQueryAbout;
|
|
aIde.BitF.Pri = 1;
|
|
aIde.BitF.sLvl = 1;
|
|
aIde.BitF.dLvl = 7;
|
|
aIde.BitF.sAddr = 0;
|
|
aIde.BitF.dAddr = 127;
|
|
|
|
Data[0] = 0;
|
|
|
|
InnerCan.CmdSendCustom(aIde, Data, Len);
|
|
}
|
|
|
|
int TDetectorCurve::ExtRequst(unsigned char Prm)
|
|
{
|
|
IsShowing = 0;
|
|
IsOnGoing =0;
|
|
SendCmdAbort();
|
|
return 0;
|
|
}
|
|
|
|
|
|
|
|
|