在ax所有From中添加信息提示

在AOT下Class中查找SysSetupFormRun

 在init中添加方法 ：

  this.LM_DispEnvironmentName();

 

新增方法：

void LM_DispEnvironmentName()

{

    FormStaticTextControl       LM_CompanyName=new FormStaticTextControl();

    int                         ForColor=winApi::RGB2int(62,216,11);

    int                         BkColor=winApi::RGB2int(255,255,200);

    int                         DesiColumns;

    str                         EnvHints="开发环境";

 

    if(EnvHints)

    {

        if (this.design().frame()==FormFrame::Standard || this.design().frame()==FormFrame::Dialog)

        {

            LM_CompanyName=this.design().addControl(FormControlType::StaticText,'CompanyName');

            LM_CompanyName.text(EnvHints);

            LM_CompanyName.colorScheme(2);

            LM_CompanyName.foregroundColor(BkColor);

            LM_CompanyName.backgroundColor(ForColor);

            LM_CompanyName.backStyle(0);

            LM_CompanyName.bold(7);

            LM_CompanyName.fontSize(12);

            LM_CompanyName.widthMode(1);

            LM_CompanyName.top(1);

            LM_CompanyName.left(8);

 

            DesiColumns=this.design().columns();

            //this.redraw();

        }

    }

}