Initial commit

This commit is contained in:
2026-04-06 19:02:09 +08:00
commit d186d7dcc7
743 changed files with 521821 additions and 0 deletions

View File

@@ -0,0 +1,562 @@
#include "RuntimeData.h"
#include "BusPadProgram.h"
#include "DevMask.h"
void TBusPadProgram::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);
Content.Set(Left, Top+CH, Right, Bottom);
RectPanel.Set(Left + 80,Top + CH + 6, Right - 80, Top + CH + 6 + 156);
Color = aColor;
#undef CH
Count = 0;
ItemsIndex =0;
EditIndex =0;
OnEditing =0;
CtlIndex =1;
IsUsing = 0;
IsInputSymbol = 0;
IsReadWriteReq = 0;
IsProgram = 0;
Caption.Border.Color = clGray;
EditML.Init(80,206,637,126,Bound.Left,Bound.Top,1,clTeal);
EditML.SelectedColor = clTeal;
EditML.SetMaxLen(199);
TMyString::sClear(EditML.Str.Text);
EditML.SetPstTail();
EditML.IsShowCursor = 1;
EditML.Enable = 1;
EditML.Visible = 1;
}
void TBusPadProgram::RenderBackGround(void)
{
RectFillRender(Content.Left, Content.Top, Content.Right, Content.Bottom, Color);
}
void TBusPadProgram::RenderBackGround(unsigned int aClr)
{
RectFillRender(Content.Left, Content.Top, Content.Right, Content.Bottom, aClr);
}
void TBusPadProgram::RenderContent(void)
{
#define FixColColor clMedGray
#define OddColor clNearMoneyGreen
unsigned int x,y, y2, clr;
RectFillRender(Content.Left, Content.Top, Content.Right, Content.Bottom, FixColColor);
}
void TBusPadProgram::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);
RenderContent();
}
void TBusPadProgram::DrawCaption(void)
{
if(IsProgram){
TMyString::sFromStr("设置总线盘联动编程", Caption.Text);
}else{
TMyString::sFromStr("查看总线盘联动编程", Caption.Text);
}
Caption.Show();
}
void TBusPadProgram::Show()
{
short x,y,i;
DrawSelf();
DrawCaption();
x = RectPanel.Left;
y = Bound.Top + 336;
cText[0] = 0;
cText[1] = 0;
cText[2] = 0;
cText[3] = 0;
for(i=0; i<10; i++){
cText[0] = i + '0';
cText[1] = '.';
TextRender_string24(x, y,clNearBlack, cText);
x += 48;
}
x = RectPanel.Left+24;
cText[0] = 0;
cText[1] = 0;
cText[2] = 0;
cText[3] = 0;
for(i=0; i<10; i++){
cText[0] = CharBusPadProgram[i];
TextRender_string24(x, y,clBlue, cText);
x += 48;
}
TextRender_string24(RectPanel.Left, Bound.Top + 366 ,clNearBlack, "*键输入或切换符号,数字键确认符号; #键输入空格");
}
void TBusPadProgram::TryDecValue()
{
int aVal;
if(CtlIndex == 1){
aVal = aPanel->Edit[0].Str.ToInteger();
if(aVal >1)aVal--;
aPanel->Edit[0].Str.FromInt(aVal);
aPanel->Edit[0].SetPstTail();
aPanel->Edit[0].Show();
}else
if(CtlIndex == 2){
aVal = aPanel->Edit[1].Str.ToInteger();
if(aVal >1)aVal--;
aPanel->Edit[1].Str.FromInt(aVal);
aPanel->Edit[1].SetPstTail();
aPanel->Edit[1].Show();
}else
if(CtlIndex == 3){
if(IsUsing == 0){
IsUsing = 1;
aPanel->Edit[2].Str.FromStr("启动");
}else{
IsUsing = 0;
aPanel->Edit[2].Str.FromStr("禁用");
}
aPanel->Edit[2].ReDraw();
}
}
void TBusPadProgram::TryIncValue()
{
int aVal;
if(CtlIndex == 1){
aVal = aPanel->Edit[0].Str.ToInteger();
if(aVal < 8)aVal++;
aPanel->Edit[0].Str.FromInt(aVal);
aPanel->Edit[0].SetPstTail();
aPanel->Edit[0].Show();
}else
if(CtlIndex == 2){
aVal = aPanel->Edit[1].Str.ToInteger();
if(aVal < 128)aVal++;
aPanel->Edit[1].Str.FromInt(aVal);
aPanel->Edit[1].SetPstTail();
aPanel->Edit[1].Show();
}else
if(CtlIndex == 3){
if(IsUsing == 0){
IsUsing = 1;
aPanel->Edit[2].Str.FromStr("启动");
}else{
IsUsing = 0;
aPanel->Edit[2].Str.FromStr("禁用");
}
aPanel->Edit[2].ReDraw();
}
}
void TBusPadProgram::Check4Selected(void)
{
aPanel->Edit[0].Selected = 0;
aPanel->Edit[1].Selected = 0;
aPanel->Edit[2].Selected = 0;
aPanel->Btn[0].Selected = 0;
EditML.Selected = 0;
switch(CtlIndex){
case 0:
aPanel->Btn[0].Selected = 1;
break;
case 1:
aPanel->Edit[0].Selected = 1;
break;
case 2:
aPanel->Edit[1].Selected = 1;
break;
case 3:
aPanel->Edit[2].Selected = 1;
break;
case 4:
EditML.Selected = 1;
break;
default:
break;
}
}
void TBusPadProgram::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;
yt = y+6;
aPanel->Init(x,y,aW,aH,0,0,clFrmFace, bvRaised);
aPanel->Caption.Init(1,1,aW-3,32,x,y,clFrmFace,clFrmFace);
aPanel->SText[0].Init(126,39,70,30,x,yt,clNearBlack,clFrmFace);
aPanel->SText[1].Init(126,75,70,30,x,yt,clNearBlack,clFrmFace);
aPanel->SText[2].Init(126,111,70,30,x,yt,clNearBlack,clFrmFace);
TMyString::sFromStr("盘号", aPanel->SText[0].Text);
TMyString::sFromStr("按键号", aPanel->SText[1].Text);
TMyString::sFromStr("启用或禁用", aPanel->SText[2].Text);
for(i=0; i<3;i++){
aPanel->SText[i].Enable = 1;
aPanel->SText[i].Visible = 1;
}
aPanel->Edit[0].Init(260,39,80,30,x,yt,clNearBlack,clNearWhite);
aPanel->Edit[1].Init(260,75,80,30,x,yt,clNearBlack,clNearWhite);
aPanel->Edit[2].Init(260,111,80,30,x,yt,clNearBlack,clNearWhite);
for(i=0; i<3;i++){
aPanel->Edit[i].Enable = 1;
aPanel->Edit[i].Visible = 1;
}
aPanel->Edit[0].SetMaxLen(2);
aPanel->Edit[0].SetInputMaskEn();
aPanel->Edit[0].Str.FromStr("01");
aPanel->Edit[0].Pst = 1;
aPanel->Edit[1].SetMaxLen(3);
aPanel->Edit[1].SetInputMaskEn();
aPanel->Edit[1].Str.FromStr("001");
aPanel->Edit[1].Pst = 2;
aPanel->Edit[2].SetMaxLen(4);
aPanel->Edit[2].SetInputMaskEn();
aPanel->Edit[2].Str.FromStr("----");
aPanel->Edit[2].Pst = 3;
aPanel->Btn[0].Init(240,0,120,32,x,yt,clNearBlack,clNearWhite);
aPanel->Btn[0].Caption.FromStr("保存所有");
for(i=0; i<1;i++){
aPanel->Btn[i].Enable = 1;
aPanel->Btn[i].Visible = 1;
aPanel->Btn[i].SetCaptionLeftSpacing(10);
aPanel->Btn[i].SelectedColor = clBlue;
}
if(IsProgram == 0){
aPanel->Edit[2].Enable = 0;
EditML.Enable = 0;
}
aPanel->Caption.Visible = 1;
aPanel->Show();
Check4Selected();
aPanel->ReDrawItems();
EditML.Show();
}
void TBusPadProgram::LoadExpression()
{
unsigned int i;
for(i=0; i<190;i++){
// ExpressionText[i] = 'A';
}
}
void TBusPadProgram::SetEditStart(void)
{
int x,y,w,h;
OnEditing = 1;
EditIndex = CtlIndex;
LoadExpression();
EditML.SetMaxLen(199);
// EditML.Str.FromStr(ExpressionText);
EditML.SetPstTail();
EditML.Show();
}
void TBusPadProgram::RestoreFromEdit(void)
{
// TMyString::sFromStr(EditML.Str.Text, ExpressionText);
}
TGuiMsgReturn TBusPadProgram::KeyIn(unsigned char aKey)
{
TGuiMsgReturn aMsg = guiMsgNone;
TGuiMsgReturn aMsgMBox;
unsigned char LoadKey;
char LastChr;
if(0){
aMsgMBox = MessageBox.KeyIn(aKey);
if(aMsgMBox == guiMsgSel1AndReturn){
//Read
}else
if(aMsgMBox == guiMsgSel2AndReturn){
//Write
}else{
}
IsReadWriteReq = 0;
aPanel->Show();
Check4Selected();
aPanel->ReDrawItems();
EditML.ReDraw();
IsInputSymbol = 0;
return aMsg;
}
if(IsProgram){
switch(aKey){
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
case VK_LEFT:
case VK_RIGHT:
case VK_DELETE:
case VK_DECIMAL:
case VK_OEM_2:
LoadKey = aKey;
if( aKey == VK_DECIMAL){
// '*'
if(CtlIndex ==4){
if(IsInputSymbol){
LastChr = EditML.GetCurrentChar();
if(LastChr == CharBusPadProgram[0])EditML.SetCurrentChar(CharBusPadProgram[1]);
else if(LastChr == CharBusPadProgram[1])EditML.SetCurrentChar(CharBusPadProgram[2]);
else if(LastChr == CharBusPadProgram[2])EditML.SetCurrentChar(CharBusPadProgram[3]);
else if(LastChr == CharBusPadProgram[3])EditML.SetCurrentChar(CharBusPadProgram[4]);
else if(LastChr == CharBusPadProgram[4])EditML.SetCurrentChar(CharBusPadProgram[5]);
else if(LastChr == CharBusPadProgram[5])EditML.SetCurrentChar(CharBusPadProgram[6]);
else if(LastChr == CharBusPadProgram[6])EditML.SetCurrentChar(CharBusPadProgram[7]);
else if(LastChr == CharBusPadProgram[7])EditML.SetCurrentChar(CharBusPadProgram[8]);
else if(LastChr == CharBusPadProgram[8])EditML.SetCurrentChar(CharBusPadProgram[9]);
else if(LastChr == CharBusPadProgram[9])EditML.SetCurrentChar(CharBusPadProgram[0]);
else EditML.KeyIn(CharBusPadProgram[0]);
EditML.ReDraw();
}else{
EditML.KeyIn(CharBusPadProgram[0]);
EditML.ReDraw();
IsInputSymbol = 1;
}
}
}else
if(aKey == VK_OEM_2){
//'#'
if(CtlIndex ==4){
IsInputSymbol = 0;
EditML.KeyIn(' ');
EditML.ReDraw();
}
}else{
if(CtlIndex ==1){
if(aPanel != nullptr){
aPanel->Edit[0].KeyIn(aKey);
aPanel->Edit[0].ReDraw();
}
}else
if(CtlIndex ==2){
if(aPanel != nullptr){
aPanel->Edit[1].KeyIn(aKey);
aPanel->Edit[1].ReDraw();
}
}else
if(CtlIndex == 3){
if(IsUsing){
IsUsing = 0;
if(aPanel != nullptr){
aPanel->Edit[2].Str.FromStr("禁用");
aPanel->Edit[2].ReDraw();
}
}else{
IsUsing = 1;
if(aPanel != nullptr){
aPanel->Edit[2].Str.FromStr("启用");
aPanel->Edit[2].ReDraw();
}
}
}
if(CtlIndex ==4){
if(IsInputSymbol){
IsInputSymbol = 0;
LoadKey = aKey - '0';
if(LoadKey < 10){
EditML.SetCurrentChar(CharBusPadProgram[LoadKey]);
EditML.ReDraw();
}
}else{
EditML.KeyIn(aKey);
EditML.ReDraw();
}
}
}
break;
case VK_UP:
if(CtlIndex >0){
CtlIndex--;
if(aPanel != nullptr){
Check4Selected();
aPanel->ReDrawItems();
}
IsInputSymbol = 0;
EditML.ReDraw();
}
break;
case VK_DOWN:
if(CtlIndex <4){
CtlIndex++;
if(aPanel != nullptr){
Check4Selected();
aPanel->ReDrawItems();
}
IsInputSymbol = 0;
EditML.ReDraw();
}
break;
case dfKEY_SETUP: //0x70 // Key value for SETUP
TryDecValue();
break;
case dfKEY_QUERY: //0x71 // Key value for QUERY
TryIncValue();
break;
case VK_TAB:
/*IsReadWriteReq = 1;
MessageBox.Init(0, 36, 800, 406, 0, 0, clMoneyGreen) ;
MessageBox.SetBtnOk1Ok2Cancel();
MessageBox.SetReturnValue(guiMsgSel1AndReturn, guiMsgSel2AndReturn, guiMsgReturn, guiMsgNone);
MessageBox.Show();
MessageBox.DoReadWriteBusPad();*/
break;
case VK_EXECUTE:
IsInputSymbol = 0;
break;
case VK_RETURN:
aMsg = guiMsgReturn;
break;
}
}else{
switch(aKey){
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
case VK_LEFT:
case VK_RIGHT:
case VK_DELETE:
if(CtlIndex ==1){
if(aPanel != nullptr){
aPanel->Edit[0].KeyIn(aKey);
aPanel->Edit[0].ReDraw();
}
}else
if(CtlIndex ==2){
if(aPanel != nullptr){
aPanel->Edit[1].KeyIn(aKey);
aPanel->Edit[1].ReDraw();
}
}
break;
case VK_UP:
if(CtlIndex >1){
CtlIndex--;
if(aPanel != nullptr){
Check4Selected();
aPanel->ReDrawItems();
}
EditML.ReDraw();
}
break;
case VK_DOWN:
if(CtlIndex <2){
CtlIndex++;
if(aPanel != nullptr){
Check4Selected();
aPanel->ReDrawItems();
}
EditML.ReDraw();
}
break;
case dfKEY_SETUP: //0x70 // Key value for SETUP
TryDecValue();
break;
case dfKEY_QUERY: //0x71 // Key value for QUERY
TryIncValue();
break;
case VK_TAB:
break;
case VK_EXECUTE:
break;
case VK_RETURN:
aMsg = guiMsgReturn;
break;
}
}
return aMsg;
}