ITPub博客

首页 > 应用开发 > IT综合 > 在BCB中数组的妙用和纪录和改变控件的状态 (转)

在BCB中数组的妙用和纪录和改变控件的状态 (转)

原创 IT综合 作者:amyz 时间:2007-10-31 11:23:50 0 删除 编辑
在BCB中数组的妙用和纪录和改变控件的状态 (转)[@more@]

如果能巧妙地运用数组会给我们带来很多方便;以下是我的一些用法,还觉得自己每掌握它的精髓;希望大家多多指点;(现丑了)


void ) __declspec(dllexport) myList::ReadList(AnsiString TS)
{//读出ini文件的数据
  System::AnsiString LabPath=ExtractFilePath(".");
  TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini");


  Form2->AddList();
  for(int i=0;iLabelList->Count;i++)
  {
  TLabel *Lab;
  Lab=(TLabel *)Form2->LabelList->Items[i];
  Lab->Left=LabIni->ReadInteger(TS,"Left"+IntToStr(i), Lab->Left);
  Lab->Top=LabIni->ReadInteger(TS,"Top"+IntToStr(i),Lab->Top);
  }
}
file://----------------------------------------------------------------------------


void myList::WriteList(AnsiString TS)
{//写入文件
  System::AnsiString LabPath=ExtractFilePath(".");
  TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini");
  Form2->AddList();
  for(int i=0;iLabelList->Count;i++)
  {
  TLabel *Lab;
  Lab=(TLabel *)Form2->LabelList->Items[i];
  LabIni->WriteInteger(TS,"Left"+IntToStr(i), Lab->Left);
  LabIni->WriteInteger(TS,"Top"+IntToStr(i),Lab->Top);
  }
}


file://------------------------------------------------------------------------------------------


 System::AnsiString LabPath=ExtractFilePath(".");
  TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini"); 


  TList *LabelList;
  LabelList=new TList;
  LabelList->Add(Label1);
  LabelList->Add(Label2);
  LabelList->Add(Label3);
  LabelList->Add(Label4);
  LabelList->Add(Label5);
  LabelList->Add(Label6);
  LabelList->Add(Label7);
  LabelList->Add(Label8);
  LabelList->Add(Label9);
  LabelList->Add(Label10);
  LabelList->Add(Label11);
  LabelList->Add(Label12);
  LabelList->Add(Label13);
  LabelList->Add(Label14);
  LabelList->Add(Label15);


file://------------------------------------------------------------------------------------------------------


void myList::NmyChick(TMenuItem *Item,AnsiString STR,int BL)
{
  file://记录TMenuItem 的状态:
  static TMenuItem *sItem=0;
  file://Item=Form2->PopupMenu1->Items;
  file://Item=dynamic_cast(Form2->WindowMenu->Items->GetParentMenu);
  if(sItem==Item){
  Item->Checked=false;
  return;
  }
  else if(sItem) sItem->Checked=false;
  Item->Checked=true;
  sItem=Item;
  if(Item->Checked==true){
  file://¶¯Ì¬¸Ä±äForm2µÄ´óСºÍÐÎ×´
  if(BL){
  Form2->Image1->Picture->Bitmap->Height =500;
  Form2->Image1->Picture->Bitmap->Width  =732;
  Form2->Image1->Stretch = false;


  file://Form2->Image2->Picture->LoadFromFile(".LOGO.bmp");
  Form2->Image2->Width = Form2->Image2->Picture->Width;
  Form2->Image2->Height = Form2->Image2->Picture->Height;
  Form2->Image2->Top  = 12;
  Form2->Image2->Left = 15;
  Form2->Height = 500;
  Form2->Width = 732;
  Form2->Top = 0;
 Form2->Left = Screen->Width-Form2->Width;
 TCanvas *TSS =Form2->Image1->Picture->Bitmap->Canvas;
  Form1->DrawBarCode(TSS,120,300,125);
  Form2->Update();
 }
  else
  {
  Form2->Image1->Picture->Bitmap->Height =732;
  Form2->Image1->Picture->Bitmap->Width  =555;
  Form2->Image1->Stretch = false;


 Form2->Image2->Width = Form2->Image2->Picture->Width;
  Form2->Image2->Height = Form2->Image2->Picture->Height;
  Form2->Image2->Top  = 12;
  Form2->Image2->Left = 15;
  Form2->Height =732 ;
  Form2->Width = 555;
  Form2->Top = 0;
  Form2->Left = Screen->Width-Form2->Width;
  Form1->MakeLabel();
  }
  Form2->Caption = String(Form2->Image1->Picture->Bitmap->Height)+" - "+
  String(Form2->Image1->Picture->Bitmap->Width);
  file://---------------------------------------------------------
  ReadList(STR);
  Form2->Update();


  }
}


file://------------------------------------------------------------------------------------------------------


void __fastcall TForm2::FormHide(Tobject *Sender)
{
  AnsiString bj[]={"打横1","打竖1","打横2","打竖2","打横3","打竖3","还原原此设置"};
  for(int i=0;iItems->Count;i++){
  if(PopupMenu1->Items->Items[i]->Checked) LT->WriteList(bj[i]);


  }


}


file://---------------------------------------------------------------------------


void __fastcall TForm2::N4Click(TObject *Sender)
{
  LT->NmyChick(Form2->N4,"打竖2",0);
}
file://---------------------------------------------------------------------------


void __fastcall TForm2::N5Click(TObject *Sender)
{
  LT->NmyChick(Form2->N5,"打横2",1);
}
file://---------------------------------------------------------------------------


void __fastcall TForm2::N31Click(TObject *Sender)
{
  LT->NmyChick(Form2->N31,"打竖3",0);
}
file://---------------------------------------------------------------------------


void __fastcall TForm2::N32Click(TObject *Sender)
{
  LT->NmyChick(Form2->N32,"打横3",1);
}
file://---------------------------------------------------------------------------


 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-979952/,如需转载,请注明出处,否则将追究法律责任。

上一篇: php漏洞对策 (转)
请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7339224