u14_5_1.cpp

C++Builde5程序设计—基础教学篇程序源代码1。

//----------  u14_5_1  -----------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "u14_5_1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf14_5_1 *f14_5_1;
//---------------------------------------------------------------------------
__fastcall Tf14_5_1::Tf14_5_1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tf14_5_1::FormActivate(TObject *Sender)
{
  FilterComboBox1->Filter="*.bmp|*.bmp";
}
//---------------------------------------------------------------------------
void __fastcall Tf14_5_1::FilterComboBox1Change(TObject *Sender)
{
  FileListBox1->Mask=FilterComboBox1->Mask;
}
//---------------------------------------------------------------------------
void __fastcall Tf14_5_1::DriveComboBox1Change(TObject *Sender)
{
  DirectoryListBox1->Drive=DriveComboBox1->Drive;
}
//---------------------------------------------------------------------------
void __fastcall Tf14_5_1::DirectoryListBox1Change(TObject *Sender)
{
  FileListBox1->Directory=DirectoryListBox1->Directory;
}
//---------------------------------------------------------------------------
void __fastcall Tf14_5_1::FileListBox1Change(TObject *Sender)
{
  String file_name;
  file_name=FileListBox1->FileName;
  Edit1->Text=file_name;
  if(file_name !="")
    Image1->Picture->LoadFromFile(file_name);
}
//---------------------------------------------------------------------------
void __fastcall Tf14_5_1::btnEndClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------