unit_company.cpp

来自「平台:c++ builder V6.0 功能:利用串口设备通讯,」· C++ 代码 · 共 64 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit_Company.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm_Company *Form_Company;
//---------------------------------------------------------------------------
__fastcall TForm_Company::TForm_Company(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm_Company::FormActivate(TObject *Sender)
{
TIniFile *MM;                 //从初始化文件读取设置
  MM = new TIniFile(Form_Main->str_EXEC_PATH + "\\DCW.INI");
  Edit_Company_Name->Text=MM->ReadString("公司信息","名称","使用者未确定");
  Edit_Company_Icon->Text=MM->ReadString("公司信息","图标","图标未注册");
  delete MM;
}
//---------------------------------------------------------------------------
void __fastcall TForm_Company::Button_CancelClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm_Company::Button_OKClick(TObject *Sender)
{
TIniFile *MM;                 //从初始化文件读取设置
  MM = new TIniFile(Form_Main->str_EXEC_PATH + "\\DCW.INI");
  MM->WriteString("公司信息","名称",Edit_Company_Name->Text.Trim());
  MM->WriteString("公司信息","图标",Edit_Company_Icon->Text.Trim());
  delete MM;
  Form_Main->COMPANY.Name=Edit_Company_Name->Text.Trim();
  Form_Main->COMPANY.Icon=Edit_Company_Icon->Text.Trim();
  Form_Main->Label_User->Caption=Form_Main->COMPANY.Name;
  if(FileExists(Form_Main->COMPANY.Icon))
     Form_Main->Image1->Picture->LoadFromFile(Form_Main->COMPANY.Icon);
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm_Company::Button1Click(TObject *Sender)
{
if(OpenPictureDialog1->Execute()){
   Edit_Company_Icon->Text=OpenPictureDialog1->FileName;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm_Company::Edit_Company_IconChange(TObject *Sender)
{
if(FileExists(Edit_Company_Icon->Text.Trim())){
   Image1->Picture->LoadFromFile(Edit_Company_Icon->Text.Trim());
   Panel2->Visible=true;
   }
else Panel2->Visible=false;
}
//---------------------------------------------------------------------------