开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Unit1.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：3k
源码类别：

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
  18.       TRect &Rect, TOwnerDrawState State)
  19. {
  20.   Graphics::TBitmap *pBitmap;
  21.   int     Offset = 2;
  23.   TCanvas *pCanvas = ((TListBox *)Control)->Canvas;
  24.   pCanvas->FillRect(Rect); // clear the rectangle
  26.   pBitmap = (Graphics::TBitmap *)((TListBox *)Control)->Items->Objects[Index];
  28.   if (pBitmap)
  29.   {
  30.     pCanvas->CopyRect(Bounds(Rect.Left + Offset, Rect.Top, pBitmap->Width, pBitmap->Height), pBitmap->Canvas,Bounds(0, 0, pBitmap->Width, pBitmap->Height));
  31.     Offset += pBitmap->Width + 4;   // add four pixels between bitmap and text
  32.   }
  33.   // display the text
  34.   pCanvas->TextOut(Rect.Left + Offset, Rect.Top+6,((TListBox *)Control)->Items->Strings[Index]);
  35. }
  36. //---------------------------------------------------------------------------
  37. void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender)
  38. {
  39.   ListBox1->Clear();
  40.   TSearchRec sr;
  41.   int iAttributes = 0;
  42.   iAttributes |=faHidden;
  43.   iAttributes |=faSysFile;
  45.   if (FindFirst(DirectoryListBox1->Directory+"\*.*", iAttributes, sr) == 0)
  46.   {
  47.     AddFileToList(sr.Name,sr.Attr);
  48.     while (FindNext(sr) == 0)
  49.     {
  50.       AddFileToList(sr.Name,sr.Attr);
  51.     }
  52.     FindClose(sr);
  53.   }
  54. }
  55. //---------------------------------------------------------------------------
  56. void __fastcall TForm1::AddFileToList(AnsiString filename,int attr)
  57. {
  58.   switch(attr)
  59.   {
  60.     case faSysFile:
  61.       ListBox1->Items->AddObject(filename,Image4->Picture->Bitmap);
  62.       break;
  63.     case faHidden:
  64.       ListBox1->Items->AddObject(filename,Image3->Picture->Bitmap);
  65.       break;
  66.     case faReadOnly:
  67.       ListBox1->Items->AddObject(filename,Image2->Picture->Bitmap);
  68.       break;
  69.     case faArchive:
  70.       ListBox1->Items->AddObject(filename,Image1->Picture->Bitmap);
  71.       break;
  72.     default:
  73.       break;
  74.   }
  75. }
  76. //---------------------------------------------------------------------------
  79. void __fastcall TForm1::DriveComboBox1Change(TObject *Sender)
  80. {
  81.   DirectoryListBox1->Drive=DriveComboBox1->Drive;
  82. }
  83. //---------------------------------------------------------------------------