自已反照TMS Software TreeList写的一个双表头树形列表控件源代码

 前不久自已想写一个双表头树形列表控件但是代码有问题，先发在blog上在，等一后有时间了在慢慢的来看。

 

ChuTreeList.h ：

//---------------------------------------------------------------------------#ifndef ChuTreeListH#define ChuTreeListH//---------------------------------------------------------------------------#include <SysUtils.hpp>#include <Classes.hpp>#include <ComCtrls.hpp>#include <Controls.hpp>//---------------------------------------------------------------------------namespace Chu_Treelist{const int MAJ_VER = 1; //主程版本序号。const int MIN_VER = 0; //修改版本号。const int REL_VER = 0; //发布版本号。const int BLD_VER = 0; //编译版本号。}namespace Chu_Treelist{typedef void __fastcall (__closure *TTLHeaderClickEvent)(System::TObject* Sender, int SectionIdx);typedef void __fastcall (__closure *THeaderSizeChangedEvent)(System::TObject* Sender, int Section);}#define Hi(n) ((n)>>8)#define Lo(n) ((Byte)(n)) namespace Chu_Treelist{class TTreeList;class PACKAGE TColumnItem : public TCollectionItem{typedef Classes::TCollectionItem inherited; private: int FWidth; //定义了ColumnItem的宽度 TAlignment FAlignment; //定义了对齐方式 AnsiString FColumnHeader; //定义了名称 Graphics::TFont *FFont; //定义了字体 bool FImage; //否是显示图片 TAlignment FHeaderAlign; //定义了表头文字对齐方式 int FHeaderImage; //定表头显示图片的索引号private: void __fastcall SetWidth(const int value); //设置表头（ColumnItem的宽度） void __fastcall SetAlignment(const TAlignment value); void __fastcall SetColumnHeader(const AnsiString value); void __fastcall SetFont(const Graphics::TFont *value); //设置字体 void __fastcall SetImage(const bool value); void __fastcall SetHeaderAlign(const TAlignment value); void __fastcall SetHeaderImage(const int value);public: __fastcall virtual TColumnItem(TCollection *Collection); __fastcall virtual ~TColumnItem(void); virtual void _fastcall Assign(TPersistent *source);__published: __property TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=taLeftJustify}; __property Graphics::TFont *Font={read=FFont, write=SetFont}; __property AnsiString Header={read=FColumnHeader, write=SetColumnHeader}; __property TAlignment HeaderAlign={read=FHeaderAlign, write=SetHeaderAlign, default=taLeftJustify}; __property int HeaderImage={read=FHeaderImage, write=SetHeaderImage, default= -1}; __property bool Image={read=FImage, write=SetImage, default=false}; __property int Width={read=FWidth, write=SetWidth};public: //声明一个友元类，让这个友元类可以访问TColumnItem类的所有私有属性 friend class TTreeList;};//定义一个TColumnItem类的别名TColumnItemClasses，也相当于定义一个类的类typedef TColumnItem TColumnItemClasses; class PACKAGE TColumnCollection : public TCollection // 定义一个表柱的容器{ typedef Classes::TCollection inherited; private: TTreeList *FOwner; TColumnItem* __fastcall GetItem(int Index); void __fastcall SetItem(int Index, const TColumnItem *value);protected: virtual void __fastcall Update(TCollectionItem *Item);public: __fastcall TColumnCollection(TTreeList *AOwner); DYNAMIC Classes::TPersistent* __fastcall GetOwner(void); TColumnItem* __fastcall Add(void); TColumnItem* __fastcall Insert(int Index); __property TColumnItem* Items[int Index] = {read=GetItem, write=SetItem};public: TColumnItem* operator[](int Index) { return Items[Index]; }public: inline __fastcall virtual ~TColumnCollection(void){} //声明一个友元类，让这个友元类可以访问TColumnCollection类的所有私有属性 friend class TColumnItem; };class PACKAGE TTLHeader : public Extctrls::THeader{private: Graphics::TColor FColor; TTLHeaderClickEvent FOnClick; TTLHeaderClickEvent FOnRightClick;private: MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &message); //WM_LBUTTONDOWN MESSAGE void __fastcall WMRButtonDown(Messages::TWMMouse &message); //WM_RBUTTONDOWN void __fastcall SetColor(const TColor value);public: __fastcall virtual TTLHeader(Classes::TComponent *aOwner); __fastcall virtual ~TTLHeader(void); virtual void __fastcall DestroyWnd(void);protected: virtual void __fastcall Paint(void); //绘制表头函数__published: __property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault}; __property TTLHeaderClickEvent OnClick = {read=FOnClick, write=FOnClick}; __property TTLHeaderClickEvent OnRightClick = {read=FOnRightClick, write=FOnRightClick}; public: #pragma option push -w-inl /* TWinControl.CreateParented */ inline __fastcall TTLHeader(HWND ParentWindow) : Extctrls::THeader(ParentWindow) { } #pragma option pop };class PACKAGE THeaderSettings :public Classes::TPersistent{private: TTreeList *FOwner; int FOldHeight; int FHeight; bool FVisible; Graphics::TFont *FFont; bool FAllowResize;private: Graphics::TFont* __fastcall GetFont(void); void __fastcall SetFont(const Graphics::TFont* value); bool __fastcall GetFlat(void); void __fastcall SetFlat(const bool value); bool __fastcall GetAllowResize(void); void __fastcall SetAllowResize(const bool value); Graphics::TColor __fastcall GetColor(void); void __fastcall SetColor(const Graphics::TColor value); int __fastcall GetHeight(void); void __fastcall SetHeight(const int value); void __fastcall SetVisible(const bool value); void __fastcall FontChanged(System::TObject *Sender);public: __fastcall THeaderSettings(TTreeList *aOwner); __fastcall ~THeaderSettings(void);__published: __property bool AllowResize = {read=GetAllowResize, write=SetAllowResize, default=false}; __property Graphics::TColor Color = {read=GetColor, write=SetColor}; __property bool Flat = {read=GetFlat, write=SetFlat, default=false}; __property Graphics::TFont *Font = {read=GetFont, write=SetFont}; __property int Height = {read=GetHeight, write=SetHeight}; __property bool Visible = {read=FVisible, write=SetVisible, default=true};public: //声明一个友元类，让这个友元类可以访问THeaderSettings类的所有私有属性 friend class TTreeList; };class PACKAGE TTreeList : public TTreeView{ typedef Comctrls::TTreeView inherited;private: TTLHeader *FHeader; TTLHeader *FUpHeader; THeaderSettings *FHeaderSettings; bool FFlatHeader; TColumnCollection *FColumnCollection; TColumnCollection *FUpColumnCollection; bool FColumnLines; int FColumnSpace; int FOldScrollPos; AnsiString FSeparator; int FItemHeight; TTLHeaderClickEvent FOnClick; TTLHeaderClickEvent FOnRightClick; HRGN FClipRegion; THeaderSizeChangedEvent FOnHeaderSizeChanged; TTLHeaderClickEvent FOnUpClick; TTLHeaderClickEvent FOnUpRightClick; THeaderSizeChangedEvent FOnUpHeaderSizeChanged; HWND FTreeViewHandle; void* FTreeListInstance; void* FDefTreeViewProce; protected: virtual void __fastcall CustomPaint(void); //绘制结构树函数private: //MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message); void __fastcall WMHScroll(Messages::TMessage &message);//WM_HSCROLL void __fastcall WMLButtonDown(Messages::TWMMouse &message);//WM_LBUTTONDOWN void __fastcall WMRButtonDown(Messages::TWMMouse &message);//WM_RBUTTONDOWN void __fastcall WMPaint(Messages::TWMPaint &message);//WM_PAINT//#ifndef TMSDOTNET void __fastcall CNNotify(Messages::TWMNotify &message);//CN_NOTIFY//#endif//#ifdef TMSDOTNET// MESSAGE void __fastcall CNNotify(Messages::TWMNotifyTV &message);//CN_NOTIFY//#endifprotected:private: int __fastcall VarPos(AnsiString su, AnsiString s, int vp); void __fastcall WMParentNotify(Messages::TWMParentNotify & Message);public: void __fastcall SetColumnCollection(const TColumnCollection *value); void __fastcall SetUpColumnCollection(const TColumnCollection *value); void __fastcall SetColumnLines(const bool value); void __fastcall SectionSize(System::TObject *sender, int ASection, int AWidth); void __fastcall UpSectionSize(System::TObject *sender, int ASection, int AWidth); void __fastcall HeaderClick(System::TObject *sender, int ASection); void __fastcall UpHeaderClick(System::TObject *sender, int ASection); void __fastcall HeaderRightClick(System::TObject *sender, int ASection); void __fastcall UpHeaderRightClick(System::TObject *sender, int ASection); bool __fastcall GetColImage(int idx); int __fastcall GetColWidth(int idx); Graphics::TFont* __fastcall GetColFont(int idx); int __fastcall GetAlignment(int idx); void __fastcall SetSeparator(const AnsiString value); int __fastcall GetItemHeight(void); void __fastcall SetItemHeight(const int value); bool __fastcall GetVisible(void); void __fastcall SetVisible(const bool value); AnsiString __fastcall GetVersion(void); void __fastcall SetVersion(const AnsiString value); TTreeNode* __fastcall GetNodeFromItem(const TTVItem *Item);protected: virtual int __fastcall GetVersionNr(void); virtual void __fastcall WndProc(Messages::TMessage &Message); virtual void __fastcall CreateWnd(void); virtual void __fastcall DestroyWnd(void); virtual Types::TRect __fastcall GetClientRect(void); BEGIN_MESSAGE_MAP VCL_MESSAGE_HANDLER(WM_PARENTNOTIFY, Messages::TWMParentNotify, WMParentNotify) VCL_MESSAGE_HANDLER(WM_PAINT, Messages::TWMPaint, WMPaint) VCL_MESSAGE_HANDLER(WM_HSCROLL, Messages::TMessage, WMHScroll) VCL_MESSAGE_HANDLER(WM_LBUTTONDOWN, Messages::TWMMouse, WMLButtonDown) VCL_MESSAGE_HANDLER(WM_RBUTTONDOWN, Messages::TWMMouse, WMRButtonDown) VCL_MESSAGE_HANDLER(CN_NOTIFY, Messages::TWMNotify, CNNotify) END_MESSAGE_MAP(TTreeView)public: virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int Aheight); virtual void __fastcall Loaded(void); __fastcall virtual TTreeList(Classes::TComponent* Owner); __fastcall virtual ~TTreeList(void); void __fastcall SetNodeColumn(Comctrls::TTreeNode *tn, int idx, AnsiString value); AnsiString __fastcall GetNodeColumn(Comctrls::TTreeNode *tn, int idx); void __fastcall UpdateColumns(void);__published: __property TColumnCollection *UpColumns = {read=FUpColumnCollection, write=SetUpColumnCollection}; __property TColumnCollection *Columns = {read=FColumnCollection, write=SetColumnCollection}; __property bool ColumnLines = {read=FColumnLines, write=SetColumnLines, nodefault}; __property AnsiString Separator = {read=FSeparator, write=SetSeparator, nodefault}; __property int ItemHeight = {read=GetItemHeight, write=SetItemHeight, nodefault}; __property TTLHeaderClickEvent OnHeaderClick = {read=FOnClick, write=FOnClick}; __property TTLHeaderClickEvent OnHeaderRightClick = {read=FOnRightClick, write=FOnRightClick}; __property THeaderSizeChangedEvent OnHeaderSizeChanged = {read=FOnHeaderSizeChanged, write=FOnHeaderSizeChanged}; __property TTLHeaderClickEvent OnUpHeaderClick = {read=FOnUpClick, write=FOnUpClick}; __property TTLHeaderClickEvent OnUpHeaderRightClick = {read=FOnUpRightClick, write=FOnUpRightClick}; __property THeaderSizeChangedEvent OnUpHeaderSizeChanged = {read=FOnUpHeaderSizeChanged, write=FOnUpHeaderSizeChanged}; __property bool Visible = {read=GetVisible, write=SetVisible}; __property THeaderSettings *HeaderSettings = {read=FHeaderSettings, write=FHeaderSettings}; __property AnsiString Version = {read=GetVersion, write=SetVersion};public:#pragma option push -w-inl/* TWinControl.CreateParented */ inline __fastcall TTreeList(HWND ParentWindow) : Comctrls::TTreeView(ParentWindow) { }#pragma option poppublic: //声明一个友元类，让这个友元类可以访问TTreeList类的所有私有属性 friend class THeaderSettings;}; }using namespace Chu_Treelist;//---------------------------------------------------------------------------#endif

 

 

ChuTreeList.cpp

//{********************************************************************}//{ TreeList 树形列表控件 }//{ chulia vcl component Library }//{ for Delphi & C++Builder }//{ version 0.1 }//{ }//{ 作者： }//{ chulia }//{ 版权 ? 2010 }//{ Email : [e-mail] }//{ Web : http://chulia20002001.cublog.cn }//{ }//{ 这份代码是自由的。任何人都可以自由发布和更改。 但是在发布时 }//{ 请保留以上说明。本代码可以用于商业用途。但是请发邮件通知本人。 }//{********************************************************************}//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "ChuTreeList.h"#pragma package(smart_init)//---------------------------------------------------------------------------// ValidCtrCheck is used to assure that the components created do not have// any pure virtual functions.//static inline void ValidCtrCheck(TTreeList *){ new TTreeList((TComponent*)NULL);}//---------------------------------------------------------------------------//---------------------------------------------------------------------------//// TTreeList vcl 控件的实现代码////---------------------------------------------------------------------------//###########################################################################// class TColumnItem 实现代码//###########################################################################//---------------------------------------------------------------------------__fastcall TColumnItem::TColumnItem(TCollection *Collection) : TCollectionItem(Collection){ FWidth = 50; FFont = new TFont(); //将Collection转换成TColumnCollection对象，并使用Assign函数从TreeList对象 //中拷贝一个TFont对象给了FFont对象。相当于 FFont = FOwner->Font; 但是对象 //的属性不能直接访问。 FFont->Assign((((TColumnCollection*)Collection)->FOwner)->Font); FHeaderImage = -1; if(Index == 0) { //delphi中的语法为 if(csDesigning in (TColumnCollection(Collection).FOwner).ComponentState) if((((TColumnCollection*)Collection)->FOwner)->ComponentState.Contains(csDesigning)) { if( ! (((TColumnCollection*)Collection)->FOwner)->ComponentState.Contains(csLoading)) { FImage = true; }//end if(ComponentState.Contains(csLoading)) }//end if(ComponentState.Contains(csDesigning)) }//end if(Index == 0)}//---------------------------------------------------------------------------__fastcall TColumnItem::~TColumnItem(void){ FFont->Free(); //FreeAndNil(FFont); //和FFont->Free() 或 FFont.Free 功能一样，但是更安全。}//---------------------------------------------------------------------------void __fastcall TColumnItem::SetWidth(const int value){ FWidth = value; ((TColumnCollection*)Collection)->Update(this);}//---------------------------------------------------------------------------void __fastcall TColumnItem::SetAlignment(const TAlignment value){ FAlignment = value; ((TColumnCollection*)Collection)->Update(this);}//---------------------------------------------------------------------------void __fastcall TColumnItem::SetColumnHeader(const AnsiString value){ FColumnHeader = value; ((TColumnCollection*)Collection)->Update(this);}//---------------------------------------------------------------------------void __fastcall TColumnItem::SetFont(const Graphics::TFont *value) //设置字体{ FFont->Assign((TPersistent*)value); ((TColumnCollection*)Collection)->Update(this);}//---------------------------------------------------------------------------void __fastcall TColumnItem::SetImage(const bool value){ FImage = value; ((TColumnCollection*)Collection)->Update(this);}//---------------------------------------------------------------------------void __fastcall TColumnItem::SetHeaderAlign(const TAlignment value){ FHeaderAlign = value; ((TColumnCollection*)Collection)->Update(this);}//---------------------------------------------------------------------------void __fastcall TColumnItem::SetHeaderImage(const int value){ FHeaderImage = value; ((TColumnCollection*)Collection)->Update(this);}//---------------------------------------------------------------------------// 其中，if语句在delphi中的写法为：// if source is TColumnItem then// begin// ...// end// 改成C++ bulider的语法为// TColumnItem *colItem = dynamic_cast<TColumnItem *>(source);// if(colItem != NULL){ ... }////void __fastcall TColumnItem::Assign(TPersistent *source){ TColumnItem *colItem = dynamic_cast<TColumnItem *>(source); if(colItem != NULL) { Width = ((TColumnItem*)source)->Width; Alignment = ((TColumnItem*)source)->Alignment; Header = ((TColumnItem*)source)->Header; HeaderAlign = ((TColumnItem*)source)->HeaderAlign; Image = ((TColumnItem*)source)->Image; Font->Assign( ((TColumnItem*)source)->Font ); } else { TCollectionItem::Assign(source); }//end if(colItem != NULL) }//###########################################################################// class TColumnCollection 实现代码//###########################################################################//---------------------------------------------------------------------------__fastcall TColumnCollection::TColumnCollection(TTreeList *AOwner) : TCollection(__classid(TColumnItem)){ FOwner = AOwner; } //---------------------------------------------------------------------------TColumnItem* __fastcall TColumnCollection::Add(void){ //TColumnItem *Result; //return Result = (TColumnItem*)TCollection::Add(); return (TColumnItem*)TCollection::Add();}//---------------------------------------------------------------------------TColumnItem* __fastcall TColumnCollection::GetItem(int Index){ //TColumnItem *Result; //return Result = (TColumnItem*)TCollection::Items[Index]; return (TColumnItem*)TCollection::Items[Index];}//---------------------------------------------------------------------------Classes::TPersistent* __fastcall TColumnCollection::GetOwner(void){ return FOwner;}//---------------------------------------------------------------------------TColumnItem* __fastcall TColumnCollection::Insert(int Index){ return (TColumnItem*)TCollection::Insert(Index);}//---------------------------------------------------------------------------void __fastcall TColumnCollection::SetItem(int Index, const TColumnItem *value){ TCollection::Items[Index] = (TColumnItem*)value;}//---------------------------------------------------------------------------void __fastcall TColumnCollection::Update(TCollectionItem *Item){ TCollection::Update(Item); //{在TreeList控件中反映并显示表头单元的改变} FOwner->UpdateColumns();}//###########################################################################// class TTLHeader 实现代码//###########################################################################//---------------------------------------------------------------------------__fastcall TTLHeader::TTLHeader(Classes::TComponent *aOwner) :THeader(aOwner){ FColor = clBtnFace;}//---------------------------------------------------------------------------__fastcall TTLHeader::~TTLHeader(void){ }//---------------------------------------------------------------------------void __fastcall TTLHeader::SetColor(const Graphics::TColor value){ FColor = value; Invalidate();}//---------------------------------------------------------------------------void __fastcall TTLHeader::WMLButtonDown(Messages::TWMMouse &message){ //WMLButtonDown(message); //Dispatch(&message); int x,i; x = 0; i = 0; while((x < message.XPos)&&(i < Sections->Count)) { x = x + SectionWidth[i]; //inc(i); i++; }//end while((x<Message.XPos)&&(i<Sections.Count)) //dec(i); i--; //if(Assigned(FOnClick)) if(FOnClick) FOnClick(this,i); //end if(Assigned(FOnClick))}//---------------------------------------------------------------------------void __fastcall TTLHeader::WMRButtonDown(Messages::TWMMouse &message){ //WMRButtonDown(message); //Dispatch(&message); int x,i; x = 0; i = 0; while((x<message.XPos)&&(i<Sections->Count)) { x = x + SectionWidth[i]; i++; }//end while((x<Message.XPos)&&(i<Sections.Count)) i--; if(FOnRightClick) FOnRightClick(this,i); //end if(Assigned(FOnClick))}//---------------------------------------------------------------------------// 其中将delphi中的以下语法改成C++的语法：// repeat...until 条件;// 改成C++的语法为：// do...while(条件);//// delphi语句：// case xxx of// 1,2: 表达式；// 3：表达式；// else// 表达式；// end;// 改成C++的语法为：// switch(xxx)// {// Case 1: 表达式;break;// Case 2: 表达式;break;// Case 3: 表达式;break;// default: 表达式;break;// }//void __fastcall TTLHeader::Paint(void){ int I, W; AnsiString S; TRect R; TRect PR; WORD halign; //Canvas->Rectangle(); Canvas->Font = this->Font; Canvas->Brush->Color = FColor; I = 0; R = Rect(0,0,0,ClientHeight); W = 0; S = ""; halign = DT_RIGHT; do { if((dynamic_cast<TTreeList*>(Owner)) != NULL) { if(((TTreeList*)Owner)->Columns->Count > I) { if((dynamic_cast<TColumnItem*>(((TTreeList*)Owner)->Columns->Items[I])) != NULL) { switch(((TColumnItem*)((TTreeList*)Owner)->Columns->Items[I])->HeaderAlign) { case taLeftJustify: halign = DT_LEFT; break; case taRightJustify: halign = DT_RIGHT; break; case taCenter: halign = DT_CENTER; break; default: halign = DT_LEFT; break; }//end switch(((TColumnItem*)((TTreeList*)Owner)->Columns->Items[I])->HeaderAlign) }//end if((dynamic_cast<TColumnItem*>((TTreeList*)Owner)->Columns->Items[I])!=NULL) }//end if(((TTreeList*)Owner)->Columns->Count>1) }//end if((dynamic_cast<TTreeList*>Owner)!=NULL) if(I < Sections->Count) { W = SectionWidth[I]; S = Sections->operator [](I); I++; //if(i < section->Count) //{ s = Sections[i]; } //else //{ s = Sections[0]; }//end if(i < section->Count) }//end if(I < Sections->Count) R.Left = R.Right; R.Right = R.Right + W; if(((ClientWidth - R.Right) < 2)||(I == Sections->Count)) R.Right = ClientWidth; PR = R; Canvas->FillRect(R); InflateRect(&PR,-2,-3); if((dynamic_cast<TTreeList*>(Owner)) != NULL) { if(((TTreeList*)Owner)->Columns->Count >0) { if((((TTreeList*)Owner)->Columns->Count > I-1) && (((TTreeList*)Owner)->Images)) { if((dynamic_cast<TColumnItem*>(((TTreeList*)Owner)->Columns->Items[I-1])) != NULL) { if(((TColumnItem*)(((TTreeList*)Owner)->Columns->Items[I-1]))->HeaderImage >= 0) { ((TTreeList*)Owner)->Images->Draw(this->Canvas, PR.Left, PR.Top, ((TColumnItem*)(((TTreeList*)Owner)->Columns->Items[I-1]))->HeaderImage ); PR.Left = PR.Left + ((TTreeList*)Owner)->Images->Width+2; }//end if(((TColumnItem*)(((TTreeList*)Owner)->Columns->Items[I-1]))->HeaderImage >= 0) }//end if((dynamic_cast<TColumnItem*>(((TTreeList*)Owner)->Columns->Items[I-1])) != NULL) }//end if((((TTreeList*)Owner)->Columns->Count > I-1) && (Assigned(Images))) }//end if(((TTreeList*)Owner)->Columns->Count > 0) }//end if((dynamic_cast<TTreeList*>Owner)!=NULL) DrawText(Canvas->Handle,S.c_str(),S.Length(),&PR,DT_NOPREFIX || DT_END_ELLIPSIS || halign); DrawEdge(Canvas->Handle, &R, BDR_RAISEDINNER, BF_TOPLEFT); //画边框 DrawEdge(Canvas->Handle, &R, BDR_RAISEDINNER, BF_BOTTOMRIGHT); //画边框 }while(!(R.Right == ClientWidth)); //end do...while(R.Right == ClientWidth) do { if((dynamic_cast<TTreeList*>(Owner)) != NULL) { if(((TTreeList*)Owner)->UpColumns->Count > I) { if((dynamic_cast<TColumnItem*>(((TTreeList*)Owner)->UpColumns->Items[I])) != NULL) { switch(((TColumnItem*)((TTreeList*)Owner)->UpColumns->Items[I])->HeaderAlign) { case taLeftJustify: halign = DT_LEFT; break; case taRightJustify: halign = DT_RIGHT; break; case taCenter: halign = DT_CENTER; break; default: halign = DT_LEFT; break; }//end switch(((TColumnItem*)((TTreeList*)Owner)->UpColumns->Items[I])->HeaderAlign) }//end if((dynamic_cast<TColumnItem*>((TTreeList*)Owner)->UpColumns->Items[I])!=NULL) }//end if(((TTreeList*)Owner)->UpColumns->Count>1) }//end if((dynamic_cast<TTreeList*>Owner)!=NULL) if(I < Sections->Count) { W = SectionWidth[I]; S = Sections->operator [](I); I++; //if(i < section->Count) //{ s = Sections[i]; } //else //{ s = Sections[0]; }//end if(i < section->Count) }//end if(I < Sections->Count) R.Left = R.Right; R.Right = R.Right + W; if(((ClientWidth - R.Right) < 2)||(I == Sections->Count)) R.Right = ClientWidth; PR = R; Canvas->FillRect(R); InflateRect(&PR,-2,-3); if((dynamic_cast<TTreeList*>(Owner)) != NULL) { if(((TTreeList*)Owner)->UpColumns->Count >0) { if((((TTreeList*)Owner)->UpColumns->Count > I-1) && (((TTreeList*)Owner)->Images)) { if((dynamic_cast<TColumnItem*>(((TTreeList*)Owner)->UpColumns->Items[I-1])) != NULL) { if(((TColumnItem*)(((TTreeList*)Owner)->UpColumns->Items[I-1]))->HeaderImage >= 0) { ((TTreeList*)Owner)->Images->Draw(this->Canvas, PR.Left, PR.Top, ((TColumnItem*)(((TTreeList*)Owner)->UpColumns->Items[I-1]))->HeaderImage ); PR.Left = PR.Left + ((TTreeList*)Owner)->Images->Width+2; }//end if(((TColumnItem*)(((TTreeList*)Owner)->UpColumns->Items[I-1]))->HeaderImage >= 0) }//end if((dynamic_cast<TColumnItem*>(((TTreeList*)Owner)->UpColumns->Items[I-1])) != NULL) }//end if((((TTreeList*)Owner)->UpColumns->Count > I-1) && (Assigned(Images))) }//end if(((TTreeList*)Owner)->UpColumns->Count > 0) }//end if((dynamic_cast<TTreeList*>Owner)!=NULL) DrawText(Canvas->Handle,S.c_str(),S.Length(),&PR,DT_NOPREFIX || DT_END_ELLIPSIS || halign); DrawEdge(Canvas->Handle, &R, BDR_RAISEDINNER, BF_TOPLEFT); //画边框 DrawEdge(Canvas->Handle, &R, BDR_RAISEDINNER, BF_BOTTOMRIGHT); //画边框 }while(!(R.Right == ClientWidth)); //end do...while(R.Right == ClientWidth) }//---------------------------------------------------------------------------void __fastcall TTLHeader::DestroyWnd(void){ THeader::DestroyWnd();}//###########################################################################// class THeaderSettings 实现代码//###########################################################################//---------------------------------------------------------------------------__fastcall THeaderSettings::THeaderSettings(TTreeList *aOwner){ FOwner = aOwner; FHeight = 18; FOldHeight = FHeight; FVisible = True; FFont = new TFont(); FFont->OnChange = FontChanged;}//---------------------------------------------------------------------------__fastcall THeaderSettings::~THeaderSettings(void){ FFont->Free();}//---------------------------------------------------------------------------void __fastcall THeaderSettings::FontChanged(System::TObject *Sender){ if(FOwner) { if(FOwner->FHeader) { FOwner->FHeader->Font->Assign(FFont); }//end if(Assigned(FOwner->FHeader)) }//end if(Assigned(FOwner)) }//---------------------------------------------------------------------------bool __fastcall THeaderSettings::GetAllowResize(void){ return FAllowResize;}//---------------------------------------------------------------------------Graphics::TColor __fastcall THeaderSettings::GetColor(void){ TColor Result; Result = clBtnFace; if(FOwner->FHeader) { Result = FOwner->FHeader->Color; }//end if(Assigned(FOwner->FHeader)) return Result;}//---------------------------------------------------------------------------bool _fastcall THeaderSettings::GetFlat(void){ bool Result; if(FOwner->FHeader) { FOwner->FHeader->BorderStyle = bsNone; Result = FOwner->FHeader->BorderStyle; } else { Result = false; }//end if(FOwner->FHeader) return Result;}//---------------------------------------------------------------------------Graphics::TFont* __fastcall THeaderSettings::GetFont(void){ return FFont;}//---------------------------------------------------------------------------int __fastcall THeaderSettings::GetHeight(void){ return FHeight;}//---------------------------------------------------------------------------void __fastcall THeaderSettings::SetAllowResize(const bool value){ if(FOwner->FHeader) { FOwner->FHeader->AllowResize = value; }//end if(Assigned(FOwner->FHeader)) FAllowResize = value;}//---------------------------------------------------------------------------void __fastcall THeaderSettings::SetColor(const Graphics::TColor value){ if(FOwner->FHeader) { FOwner->FHeader->Color = value; }//end if(Assigned(FOwner->FHeader))}//---------------------------------------------------------------------------void __fastcall THeaderSettings::SetFlat(const bool value){ if(FOwner->FHeader) { if(value) { FOwner->FHeader->BorderStyle = bsNone; } else { FOwner->FHeader->BorderStyle = bsSingle; }//end if(value) }//end if(FOwner->FHeader)}//---------------------------------------------------------------------------void __fastcall THeaderSettings::SetFont(const Graphics::TFont* value){ FFont->Assign((TPersistent*)value);}//---------------------------------------------------------------------------void __fastcall THeaderSettings::SetHeight(const int value){ if(FOwner->FHeader) { FOwner->FHeader->Height = value; }//end if(FOwner->FHeader) FHeight = value; FOldHeight = FHeight; FOwner->Top = FOwner->Top; }//---------------------------------------------------------------------------void __fastcall THeaderSettings::SetVisible(const bool value){ if(FOwner->FHeader) { if(FOwner->ComponentState.Contains(csDesigning)) { if(value) { Height = FOldHeight; } else { FOldHeight = Height; FOwner->FHeader->Height = 0; }//end if(value) }//end if(FOwner->ComponentState.Contains(csDesigning)) FOwner->FHeader->Visible = value; FVisible = value; }//end if(FOwner->FHeader)} //###########################################################################// class TTreeList 实现代码//###########################################################################//---------------------------------------------------------------------------__fastcall TTreeList::TTreeList(Classes::TComponent* Owner) : TTreeView(Owner){ FOnHeaderSizeChanged = NULL; FHeader = NULL; FUpHeader = NULL; FColumnCollection = new TColumnCollection(this); FUpColumnCollection = new TColumnCollection(this); FHeaderSettings = new THeaderSettings(this); FHeaderSettings->AllowResize = false; //FHeaderSettings->Visible = true; FSeparator = ";"; FItemHeight = 16; FColumnLines = true; FColumnSpace = 4; FOldScrollPos = -1;}//---------------------------------------------------------------------------__fastcall TTreeList::~TTreeList(void){ FHeaderSettings->Free(); FColumnCollection->Free(); FUpColumnCollection->Free();}//---------------------------------------------------------------------------void __fastcall TTreeList::CreateWnd(void){ //const TBorderStyle hdr[2] = {bsSingle, bsNone}; TTreeView::CreateWnd(); //if(! FUpHeader) //{ // FUpHeader = new TTLHeader(this); // //FUpHeader->Top = Top - 16 - 18; // //FUpHeader->Left = Left; // FUpHeader->Top = 0; // FUpHeader->Left = 0; // FUpHeader->Width = Width -1; // //FHeader->Height = 18; // FUpHeader->Height = 21; // FUpHeader->BorderStyle = hdr[FFlatHeader]; // FUpHeader->OnSized = UpSectionSize; // FUpHeader->OnClick = UpHeaderClick; // FUpHeader->OnRightClick = UpHeaderRightClick; // FUpHeader->Parent = this; // //}//end if(! FUpHeader) //if(! FHeader) //{ // FHeader = new TTLHeader(this); // FHeader->Top = Top-16; // FHeader->Left = Left; // FHeader->Width = Width-1; // FHeader->Height = 21; // FHeader->BorderStyle = hdr[FFlatHeader]; // FHeader->OnSized = SectionSize; // FHeader->OnClick = HeaderClick; // FHeader->OnRightClick = HeaderRightClick; // FHeader->Parent = this->Parent; // //}//end if(!Assigned(FHeader)) //ItemHeight = FItemHeight; //TTreeView::CreateWnd();}//---------------------------------------------------------------------------void __fastcall TTreeList::SectionSize(System::TObject *sender, int ASection, int AWidth){ int FIndent; FIndent = TreeView_GetIndent(this->Handle); if(Images) { FIndent = FIndent + Images->Width; }//end if(Assigned(Images)) if((ASection == 0)&&(AWidth < FIndent)) { AWidth = FIndent; if(FHeader) { FHeader->SectionWidth[ASection] = FIndent; }//end if(Assigned(FHeader)) }//end if((ASection == 0)&&(AWidth < FIndent)) ((TColumnItem*)FColumnCollection->Items[ASection])->FWidth = AWidth; Invalidate(); if( ComponentState.Contains(csDesigning) || ComponentState.Contains(csDestroying)) return; //if(FOnHeaderSizeChanged || FHeader || FColumnCollection) if(((FOnHeaderSizeChanged) && (FHeader)) && (FColumnCollection)) FOnHeaderSizeChanged(this, ASection);}//---------------------------------------------------------------------------void __fastcall TTreeList::UpSectionSize(System::TObject *sender, int ASection, int AWidth){ int FIndent; FIndent = TreeView_GetIndent(this->Handle); if(Images) { FIndent = FIndent + Images->Width; }//end if(Assigned(Images)) if((ASection == 0)&&(AWidth < FIndent)) { AWidth = FIndent; if(FHeader) { FHeader->SectionWidth[ASection] = FIndent; }//end if(Assigned(FHeader)) }//end if((ASection == 0)&&(AWidth < FIndent)) ((TColumnItem*)FUpColumnCollection->Items[ASection])->FWidth = AWidth; Invalidate(); if( ComponentState.Contains(csDesigning) || ComponentState.Contains(csDestroying)) return; if(((FOnUpHeaderSizeChanged) && (FHeader)) && (FUpColumnCollection)) FOnUpHeaderSizeChanged(this, ASection);}//---------------------------------------------------------------------------void __fastcall TTreeList::HeaderClick(System::TObject *sender, int ASection){ if(OnHeaderClick) { OnHeaderClick(this, ASection); }//end if(Assigned(OnHeaderClick))}//---------------------------------------------------------------------------void __fastcall TTreeList::UpHeaderClick(System::TObject *sender, int ASection){ if(OnUpHeaderClick) { OnUpHeaderClick(this, ASection); }//end if(Assigned(OnHeaderClick))}//---------------------------------------------------------------------------void __fastcall TTreeList::HeaderRightClick(System::TObject *sender, int ASection){ if(OnHeaderRightClick) { OnHeaderRightClick(this,ASection); }//end if(OnUpHeaderRightClick)}//---------------------------------------------------------------------------void __fastcall TTreeList::UpHeaderRightClick(System::TObject *sender, int ASection){ if(OnUpHeaderRightClick) { OnUpHeaderRightClick(this,ASection); }//end if(Assigned(OnUpHeaderRightClick))}//---------------------------------------------------------------------------void __fastcall TTreeList::DestroyWnd(void){ TTreeView::DestroyWnd(); if(FHeader) { FHeader->DestroyWnd(); } //if(FUpHeader) //{ // FUpHeader->DestroyWnd(); //}}//---------------------------------------------------------------------------void __fastcall TTreeList::SetColumnLines(const bool value){ if(FColumnLines != value) { FColumnLines = value; if(FColumnLines) { FColumnSpace = 4; } else { FColumnSpace = 2; }//end if(FColumnLines) this->Invalidate(); }//end if(FColumnLines != value)}//---------------------------------------------------------------------------void __fastcall TTreeList::SetColumnCollection(const TColumnCollection *value){ FColumnCollection->Assign((TPersistent*)value);}//---------------------------------------------------------------------------void __fastcall TTreeList::SetUpColumnCollection(const TColumnCollection *value){ FUpColumnCollection->Assign((TPersistent*)value);}//---------------------------------------------------------------------------void __fastcall TTreeList::SetBounds(int ALeft, int ATop, int AWidth, int Aheight){ int HeaderHeight; if(! FHeaderSettings) { TTreeView::SetBounds(ALeft,ATop,AWidth,Aheight); //exit(0); return; }//end if(!Assigned(FHeaderSettings)) if(! FHeaderSettings->Visible) { HeaderHeight = 2; } else { HeaderHeight = FHeaderSettings->FHeight; }//end if(! Assigned(FHeaderSettings->Visible)) if((Align == alClient) || (Align == alTop)) { TTreeView::SetBounds(ALeft, ATop + HeaderHeight-2, AWidth, Aheight - HeaderHeight + 2); if(!FHeaderSettings->Visible) { return; }//end if(!FHeaderSettings->Visible) if(FHeader) { FHeader->Top = ATop; FHeader->Left = ALeft; FHeader->Width = AWidth; // -1 FHeader->Height = FHeaderSettings->Height; }//end if(Assigned(FHeader)) //if(FUpHeader) //{ // FUpHeader->Top = ATop - FHeaderSettings->Height; // FUpHeader->Left = ALeft; // FUpHeader->Width = AWidth; // FUpHeader->Height = FHeaderSettings->Height; //} } else { TTreeView::SetBounds(ALeft, ATop, AWidth, Aheight); if(! FHeaderSettings->Visible) return; if(FHeader) { FHeader->Top = ATop - (FHeaderSettings->Height -2); FHeader->Left = ALeft; FHeader->Width = AWidth; // - 1 FHeader->Height = FHeaderSettings->Height; }//end if(FHeader) }//end if((Align == alClient) || (Align == alTop))}//---------------------------------------------------------------------------void __fastcall TTreeList::UpdateColumns(void){ int i, cw; AnsiString s; if(FHeader) { FHeader->Sections->Clear(); for(i=1; i <= FColumnCollection->Count; i++) { s = ((TColumnItem*)FColumnCollection->Items[i-1])->Header; FHeader->Sections->Add(s); cw = ((TColumnItem*)FColumnCollection->Items[i-1])->Width; if(i==1) { if((BorderStyle == bsNone)&&(HeaderSettings->Flat == false)) cw--; if((HeaderSettings->Flat)&&(BorderStyle == bsSingle)) cw++; }//end if(i==1) FHeader->SectionWidth[i-1] = cw; }//end if(?; i<FColumnCollection->Count;?) //Invalidate(); }//end if(Assigned(FHeader)) //if(FUpHeader) //{ // FUpHeader->Sections->Clear(); // // for(i=1; i <= FUpColumnCollection->Count; i++) // { // s = ((TColumnItem*)FUpColumnCollection->Items[i-1])->Header; // // FUpHeader->Sections->Add(s); // // cw = ((TColumnItem*)FUpColumnCollection->Items[i-1])->Width; // // if(i==1) // { // if((BorderStyle == bsNone)&&(HeaderSettings->Flat == false)) // cw--; // // if((HeaderSettings->Flat)&&(BorderStyle == bsSingle)) // cw++; // }//end if(i==1) // // FUpHeader->SectionWidth[i-1] = cw; // // }//end for(?; i <= FUpColumnCollection->Count;?) // // //Invalidate(); // //}//end if(FUpHeader) //if((FUpHeader) || (FHeader)) if(FHeader) { Invalidate(); }//end if(FHeader)}//---------------------------------------------------------------------------bool __fastcall TTreeList::GetColImage(int idx){ bool Result; if(idx >= FColumnCollection->Count) { Result = false; } else { Result = ((TColumnItem*)FColumnCollection->Items[idx])->FImage; }//end if(idx >= FColumnCollection->Count) return Result; }//---------------------------------------------------------------------------int __fastcall TTreeList::GetColWidth(int idx){ int Result; if(idx >= FColumnCollection->Count) { Result = this->Width; } else { Result = ((TColumnItem*)FColumnCollection->Items[idx])->FWidth; }//end if(idx >= FColumnCollection->Count) return Result; }//---------------------------------------------------------------------------Graphics::TFont* __fastcall TTreeList::GetColFont(int idx){ Graphics::TFont* Result; if(idx >= FColumnCollection->Count) { Result = this->Font; } else { Result = ((TColumnItem*)FColumnCollection->Items[idx])->FFont; }//end if(idx >= FColumnCollection->Count) return Result; }//---------------------------------------------------------------------------int __fastcall TTreeList::GetAlignment(int idx){ int Result; if(idx >= FColumnCollection->Count) { Result = DT_LEFT; } else { switch(((TColumnItem*)FColumnCollection->Items[idx])->FAlignment) { case taLeftJustify: Result = DT_LEFT; break; case taCenter: Result = DT_CENTER; break; case taRightJustify: Result = DT_RIGHT; break; default: Result = DT_LEFT; break; }//end switch(((TColumnItem*)FColumnCollection->Items[idx])->FAlignment) }//end if(idx >= FColumnCollection->Count) return Result; }//---------------------------------------------------------------------------TTreeNode* __fastcall TTreeList::GetNodeFromItem(const TTVItem *Item){ TTreeNode *Result = NULL; if(Items != NULL) { if((Item->state && TVIF_PARAM) != 0) { Result = ((TTreeNode*)((Pointer*)Item->lParam)); } else { Result = Items->GetNode(Item->hItem); }//end if((Item->state && TVIF_PARAM) != 0) }//end if(Items != NULL) return Result;}//---------------------------------------------------------------------------void __fastcall TTreeList::CNNotify(Messages::TWMNotify &message) //CN_NOTIFY{ TNMTVCustomDraw TVcd; TTVDispInfo TVdi; TCanvas *Canvas; AnsiString s,su; TTreeNode *tn; TRect *r; int FIndent,FIdx,FImgWidth; bool defdraw; if(message.NMHdr->code == TVN_GETDISPINFO) { //TVDi := PTVDispInfo(pointer(message.nmhdr))^; TVdi = *((PTVDispInfo)((Pointer)message.NMHdr)); if((TVdi.item.mask && TVIF_TEXT) == TVIF_TEXT) { tn = Items->GetNode(TVdi.item.hItem); s = tn->Text; StrPLCopy(TVdi.item.pszText, s, 255); TVdi.item.mask = TVdi.item.mask || TVIF_DI_SETITEM; message.Result = 0; return; }//end if((TVdi.item.mask && TVIF_TEXT) == TVIF_TEXT) }//end if(message.NMHdr->code == TVN_GETDISPINFO) //if message.NMHdr^.code = NM_CUSTOMDRAW then if(message.NMHdr->code == NM_CUSTOMDRAW) { FIndent = TreeView_GetIndent(this->Handle); //TVcd := PNMTVCustomDraw(Pointer(message.NMHdr))^; TVcd = *((PNMTVCustomDraw)((Pointer)message.NMHdr)); switch(TVcd.nmcd.dwDrawStage) { case CDDS_PREPAINT: { message.Result = CDRF_NOTIFYITEMDRAW || CDRF_NOTIFYPOSTPAINT; } break; case CDDS_ITEMPREPAINT: { defdraw = true; if(defdraw) { if((TVcd.nmcd.uItemState && CDIS_SELECTED) == CDIS_SELECTED) { TVcd.nmcd.uItemState = TVcd.nmcd.uItemState && (! CDIS_SELECTED); SetTextColor(TVcd.nmcd.hdc, ColorToRGB(this->Color)); SetBkColor(TVcd.nmcd.hdc, ColorToRGB(this->Color)); TVcd.clrTextBk = ColorToRGB(this->Color); TVcd.clrText = ColorToRGB(this->Color); } else { SetTextColor(TVcd.nmcd.hdc, ColorToRGB(this->Color)); SetBkColor(TVcd.nmcd.hdc, ColorToRGB(this->Color)); }//end if((TVcd.nmcd.uItemState && CDIS_SELECTED) == CDIS_SELECTED) FClipRegion = CreateRectRgn(TVcd.nmcd.rc.left, TVcd.nmcd.rc.top, TVcd.nmcd.rc.left + GetColWidth(0)-1, TVcd.nmcd.rc.bottom); SelectClipRgn(TVcd.nmcd.hdc, FClipRegion); }//end if(defdraw) message.Result = CDRF_NOTIFYPOSTPAINT; } break; case CDDS_ITEMPOSTPAINT: { SelectClipRgn(TVcd.nmcd.hdc,0); DeleteObject(FClipRegion); defdraw = true; if(defdraw) { Canvas = new TCanvas(); Canvas->Handle = TVcd.nmcd.hdc; tn = Items->GetNode((HTREEITEM)TVcd.nmcd.dwItemSpec); TVcd.nmcd.rc.left = TVcd.nmcd.rc.left + FIndent*(tn->Level+1) - GetScrollPos(Handle,SB_HORZ); FImgWidth = 0; if((Images&&GetColImage(0))&&((tn->ImageIndex >= 0)||(tn->SelectedIndex >= 0))) { FImgWidth = Images->Width; Canvas->Brush->Color = Color; Canvas->Pen->Color = Color; Canvas->Rectangle(TVcd.nmcd.rc.left, TVcd.nmcd.rc.top, TVcd.nmcd.rc.left + FImgWidth, TVcd.nmcd.rc.bottom); if((TVcd.nmcd.rc.left + FImgWidth) < GetColWidth(0)) { if(((TVcd.nmcd.uItemState && CDIS_SELECTED) == CDIS_SELECTED) && (tn->SelectedIndex >= 0)) { Images->Draw(Canvas, TVcd.nmcd.rc.left, TVcd.nmcd.rc.top, tn->SelectedIndex); } else if(tn->ImageIndex >=0) { Images->Draw(Canvas, TVcd.nmcd.rc.left, TVcd.nmcd.rc.top, tn->ImageIndex); }//end if(((TVcd->nmcd->uItemState && CDIS_SELECTED) == CDIS_SELECTED) && (tn->SelectedIndex >= 0)) }//end if((TVcd->nmcd->rc->Left + FImgWidth) < GetColWidth(0)) if(tn->OverlayIndex >= 0) { Images->Draw(Canvas, TVcd.nmcd.rc.left, TVcd.nmcd.rc.top, tn->OverlayIndex); }//end if(tn->OverlayIndex >= 0) }//end if(Assigned(Images)&&GetColImage(0)&&((tn->ImageIndex >= 0)||(tn->SelectedIndex >= 0))) TVcd.nmcd.rc.left = TVcd.nmcd.rc.left + FImgWidth; //r := TVcd.nmcd.rc; ---delphi r = &(TRect)TVcd.nmcd.rc; //FIdx := Canvas.TextHeight('gh'); FIdx = Canvas->TextHeight("中文"); if(FIdx < (r->Bottom - r->Top)) { //以下语句相当：r->Top = r->Top + ((r->Bottom - r->Top -FIdx)/2); r->Top = r->Top + ((r->Bottom - r->Top -FIdx)<<1); }//end if(fIdx < (r->Bottom - r->Top)) if((TVcd.nmcd.uItemState && CDIS_SELECTED) == CDIS_SELECTED) { Canvas->Brush->Color = clHighlight; Canvas->Pen->Color = clHighlight; Canvas->Rectangle(TVcd.nmcd.rc.left, TVcd.nmcd.rc.top, TVcd.nmcd.rc.right, TVcd.nmcd.rc.bottom); Canvas->Font->Color = clHighlightText; if((TVcd.nmcd.uItemState && CDIS_FOCUS) == CDIS_FOCUS) { Canvas->Pen->Color = this->Color; Canvas->Brush->Color = this->Color; Canvas->DrawFocusRect(TVcd.nmcd.rc); }//end if((TVcd->nmcd->uItemState && CDIS_FOCUS) == CDIS_FOCUS) TVcd.nmcd.rc = *r; TVcd.nmcd.rc.left = TVcd.nmcd.rc.left + 4; } else { Canvas->Brush->Color = this->Color; Canvas->Pen->Color = this->Color; Canvas->Rectangle(TVcd.nmcd.rc.left, TVcd.nmcd.rc.top, TVcd.nmcd.rc.right, TVcd.nmcd.rc.bottom); }//end if((TVcd->nmcd->uItemState && CDIS_SELECTED) == CDIS_SELECTED) TVcd.nmcd.rc = *r; if((TVcd.nmcd.uItemState && CDIS_SELECTED) == CDIS_SELECTED) { Canvas->Brush->Color = clHighlight; Canvas->Pen->Color = clHighlight; }//end if((TVcd->nmcd->uItemState && CDIS_SELECTED) == CDIS_SELECTED) s = tn->Text; FIdx = 0; SetBkMode(TVcd.nmcd.hdc, TRANSPARENT); do { Canvas->Font->Assign(GetColFont(FIdx)); if((TVcd.nmcd.uItemState && CDIS_SELECTED) == CDIS_SELECTED) { Canvas->Font->Color = clHighlightText; }//end if((TVcd->nmcd->uItemState && CDIS_SELECTED) == CDIS_SELECTED) if(FIdx == 0) { r->Right = GetColWidth(FIdx); } else { r->Right = r->Left + GetColWidth(FIdx); //在里需要于原文对照一下。 }//end if(FIdx == 0) if(s.Pos(FSeparator) > 0) { // Copy(s, 1, pos(FSeparator, s)-1); //System->Delete(s, 1, pos(fSeparatos, s) + Length(fSeparator)-1); su = s.SubString(1,s.Pos(FSeparator)-1); int nNumlen = s.Pos(FSeparator)+FSeparator.Length()-1; s.Delete(1,nNumlen); } else { su = s; s = ""; if(FIdx >= FColumnCollection->Count) r->Right = TVcd.nmcd.rc.right; }//end if(pos(FSeparatos,s)>0) r->Right = r->Right - FColumnSpace; if(((Images && GetColImage(FIdx)) && (tn->ImageIndex >= 0)) && (FIdx > 0)) { FImgWidth = Images->Width; if(FImgWidth < GetColWidth(FIdx)) Images->Draw(Canvas, r->Left, TVcd.nmcd.rc.top, tn->ImageIndex); r->Left = r->Left + FImgWidth + 2; }//end if(((Assigned(Images) && GetColImage(fIdx)) && (tn->ImageIndex >= 0)) && (fIdx > 0)) if(Images && (FIdx == 0) && GetColImage(FIdx)) { r->Left = r->Left + 2; }//end if(Images && (FIdx == 0) && GetColImage(FIdx)) DrawText(Canvas->Handle, su.c_str(), su.Length(), r, DT_NOPREFIX || DT_END_ELLIPSIS || GetAlignment(FIdx)); r->Right = r->Right + FColumnSpace; r->Left = r->Right; FIdx++; }while(s.Length() == 0);//end do{...}while(s.Length() == 0); Canvas->Free(); }//end if(defdraw) } break; default: message.Result = 0; break; }//end switch(TVcd->nmcd->dwDrawStage) } else { //Dispatch(&message); }//end if(message.NMHdr->code == NM_CUSTOMDRAW)}//---------------------------------------------------------------------------void __fastcall TTreeList::SetSeparator(const AnsiString value){ FSeparator = value; this->Invalidate();}//---------------------------------------------------------------------------void __fastcall TTreeList::WMLButtonDown(Messages::TWMMouse &message) //WM_LBUTTONDOWN{ TTreeNode *Node; if(! ComponentState.Contains(csDesigning)) { //TTreeView::WMLButtonDown(message); //WMLButtonDown(message); //Dispatch(&message); } else { return; }//end if(! ComponentState.Contains(csDesigning)) Node = GetNodeAt(message.XPos, message.YPos); if(Node) Node->Selected = true; }//---------------------------------------------------------------------------void __fastcall TTreeList::WMRButtonDown(Messages::TWMMouse &message) //WM_RBUTTONDOWN{ TTreeNode *Node; if(RightClickSelect) { Node = GetNodeAt(message.XPos, message.YPos); if(Node) Node->Selected = true; }//end if(RightClickSelect) if(! ComponentState.Contains(csDesigning)) { //TTreeView::WMRButtonDown(message); //Dispatch(&message); } else { return; }//end if(! ComponentState.Contains(csDesigning))}//---------------------------------------------------------------------------void __fastcall TTreeList::WMHScroll(Messages::TMessage &message) //WM_HSCROLL{ if(FOldScrollPos != GetScrollPos(Handle, SB_HORZ)) { Invalidate(); FOldScrollPos = GetScrollPos(Handle, SB_HORZ); }//end if(FOldScrollPos != GetScrollPos(handle, SB_HORZ)) //TTreeView::WMMScroll(message); //Dispatch(&message); }//---------------------------------------------------------------------------void __fastcall TTreeList::WMPaint(Messages::TWMPaint &message) //WM_PAINT{ TCanvas *Canvas; int i; int xp; TWinControl::WMPaint(message); if(!FColumnSpace) { Canvas = new TCanvas(); Canvas->Handle = GetDC(this->Handle); xp = 0; //Canvas->Pen->Color = clWhite; Canvas->Pen->Color = clSilver; for(i=1; i<=(FColumnCollection->Count); i++) { xp = xp + ((TColumnItem*)FColumnCollection->Items[i-1])->Width; Canvas->MoveTo(xp-2-GetScrollPos(this->Handle,SB_HORZ),42); Canvas->LineTo(xp-2-GetScrollPos(this->Handle,SB_HORZ),Height); }//end for(?; i<FColumnCollection->Count-1 ;?) //for(i=1; i<(FUpColumnCollection->Count-1); i++) //{ // xp = xp + ((TColumnItem*)FUpColumnCollection->Items[i-1])->Width; // Canvas->MoveTo(xp-2-GetScrollPos(this->Handle,SB_HORZ),0); // Canvas->LineTo(xp-2-GetScrollPos(this->Handle,SB_HORZ),Height); //}//end for(?; i<FColumnCollection->Count-1 ;?) ReleaseDC(this->Handle,Canvas->Handle); Canvas->Free(); }//end if(FColumnSpace) //message.Result = 1;}//---------------------------------------------------------------------------int __fastcall TTreeList::GetItemHeight(void){ int Result = 0; Result = TreeView_GetItemHeight(this->Handle); return Result;}//---------------------------------------------------------------------------void __fastcall TTreeList::SetItemHeight(const int value){ if(value != FItemHeight) { FItemHeight = value; TreeView_SetItemHeight(this->Handle, FItemHeight); }//end if(value != FItemHeight)}//---------------------------------------------------------------------------bool __fastcall TTreeList::GetVisible(void){ return TTreeView::Visible; }//---------------------------------------------------------------------------void __fastcall TTreeList::SetVisible(const bool value){ Visible = value; if(FHeader) FHeader->Visible = value; //if(FUpHeader) // FUpHeader->Visible = value;}//---------------------------------------------------------------------------Types::TRect __fastcall TTreeList::GetClientRect(void){ TRect Result; Result = TTreeView::GetClientRect(); //Result.Bottom = Result.Bottom - 2*FHeaderSettings->Height; //Result.Top = 2*FHeaderSettings->Height; return Result;}//---------------------------------------------------------------------------int __fastcall TTreeList::VarPos(AnsiString su, AnsiString s, int vp){ int Result = -1; vp = s.Pos(su); Result = vp; return Result; }//---------------------------------------------------------------------------AnsiString __fastcall TTreeList::GetNodeColumn(Comctrls::TTreeNode *tn, int idx){ AnsiString s; int i, vp; AnsiString Result; Result = ""; if(tn) { s = tn->Text; } else { return ""; }//end if(Assigned(tn)) i = 0; while((i <= idx) && (s != "")) { if(VarPos(Separator,s,vp) > 0) { if(idx == i){ Result = s.SubString(1,vp-1); } //System.Delete(s,1,vp); s.Delete(1,vp); i++; } else { if(i == idx){ Result = s; } s = ""; }//end if(VarPos(Separator,s,vp) > 0) }//end while((i <= idx)&&(s != '')) return Result;} //---------------------------------------------------------------------------void __fastcall TTreeList::SetNodeColumn(Comctrls::TTreeNode *tn, int idx, AnsiString value){ AnsiString s,su; int i,vp; if(tn) { s = tn->Text; } else { return; }//end if(Assigned(tn)) su = s; for(i=1; i<Columns->Count; i++) { if(VarPos(Separator,su,vp) > 0) { //System->Delete(su,1,vp); su.Delete(1,vp); } else { s = s + Separator; }//end if(VarPos(Separator,su,vp) > 0) }//end for(?; i<Columns->Count;?) i = 0; su = ""; while((i <= idx) && (s != "")) { if(VarPos(Separator,s,vp) > 0) { if(i < idx){ su = su + s.SubString(1,vp); } if(i == idx){ su = su + value + Separator; } //System->Delete(s,1,vp); s.Delete(1,vp); i++; } else { s = ""; }//end if(VarPos(Separator,s,vp) > 0) }//end while((i <= idx) && (s != '')) su = su + s; tn->Text = su;}//---------------------------------------------------------------------------void __fastcall TTreeList::WndProc(Messages::TMessage &Message){ TTreeView::WndProc(Message); //Dispatch(&Message);}//---------------------------------------------------------------------------void __fastcall TTreeList::Loaded(void){ UpdateColumns(); if(FHeader) { FHeader->Font->Assign(FHeaderSettings->Font); FHeader->AllowResize = FHeaderSettings->AllowResize; }//end if(FHeader) //FUpHeader->Font->Assign(FHeaderSettings->Font); //FUpHeader->AllowResize = FHeaderSettings->AllowResize; //CustomPaint(); TTreeView::Loaded(); }//---------------------------------------------------------------------------void __fastcall TTreeList::CustomPaint(void){ }//---------------------------------------------------------------------------AnsiString __fastcall TTreeList::GetVersion(void){ int vn; AnsiString Result; vn = GetVersionNr(); Result = IntToStr(Hi(HIWORD(vn)))+"."+IntToStr(Lo(HIWORD(vn)))+"."+IntToStr(Hi(LOWORD(vn)))+"."+IntToStr(Lo(LOWORD(vn))); return Result; }//---------------------------------------------------------------------------void __fastcall TTreeList::SetVersion(const AnsiString value){ }//---------------------------------------------------------------------------int __fastcall TTreeList::GetVersionNr(void){ return MAKELONG(MAKEWORD(BLD_VER,REL_VER),MAKEWORD(MIN_VER,MAJ_VER));} //---------------------------------------------------------------------------//---------------------------------------------------------------------------//namespace Chutreelist//{// void __fastcall PACKAGE Register()// {// TComponentClass classes[1] = {__classid(TTreeList)};// RegisterComponents("Samples", classes, 0);// }//}//---------------------------------------------------------------------------void __fastcall TTreeList::WMParentNotify(Messages::TWMParentNotify & Message){ if((Message.Event == WM_CREATE)) { ((TForm*)(this->Parent))->Caption = "收到WMParentNotify消息！"; }//end if(Message.Event == WM_CREATE) //Dispatch(&Message);}

 

 

组件测试 file

Unit1.h

//---------------------------------------------------------------------------#ifndef Unit1H#define Unit1H//---------------------------------------------------------------------------#include <Classes.hpp>#include <Controls.hpp>#include <StdCtrls.hpp>#include <Forms.hpp>//---------------------------------------------------------------------------//#include "ChuTreeList.h"#include "NumberEdit.h"#include <ComCtrls.hpp>#include "ChuTreeList.h"#include <ExtCtrls.hpp>#include <DBGrids.hpp>#include <Grids.hpp>//---------------------------------------------------------------------------const AnsiString SFORMCAPTION = "TTreeList控件的运行时功能演示"; //---------------------------------------------------------------------------class TForm1 : public TForm{__published:// IDE-managed Components TEdit *Edit1; TNumberEdit *NumberEdit1; THeader *Header1; TListView *ListView1; TTreeView *TreeView1; TDBGrid *DBGrid1; void __fastcall FormPaint(TObject *Sender); void __fastcall FormShow(TObject *Sender); void __fastcall FormCreate(TObject *Sender);private:// User declarationspublic: TTreeList *tltest1;public:// User declarations __fastcall TForm1(TComponent* Owner);};//---------------------------------------------------------------------------extern PACKAGE TForm1 *Form1;//---------------------------------------------------------------------------#endif

 

 

Unit1.cpp

//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma link "NumberEdit"//#pragma link "chuvcl"#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){ tltest1 = new TTreeList(this); tltest1->Parent = Form1; tltest1->Top = Edit1->Top + Edit1->Height + 40; tltest1->Left = Edit1->Left; tltest1->Height = 150; tltest1->Width = 150; ListView1->Columns->Add(); ListView1->Columns->Add(); ListView1->Columns->Items[0]->Caption = "ID";}//---------------------------------------------------------------------------// 在窗体在屏目上移动实产生的事件//void __fastcall TForm1::FormPaint(TObject *Sender){ // //TColumnItem *CaptionItem, *OneItem, *TwoItem, *ThreeItem, *FourItem; //CaptionItem = tltest1->Columns; //CaptionItem->Header = "IDsss"; //Application->MessageBoxA("这是一个窗口的Paint事件！","消习",MB_OK);}//---------------------------------------------------------------------------void __fastcall TForm1::FormShow(TObject *Sender){//// Caption = SFORMCAPTION;// tltest1->Columns; tltest1->UpColumns->Add(); tltest1->UpColumns->Add(); tltest1->UpColumns->Add(); //tltest1->UpColumns->Items[0]->Header = "GroupAddr"; tltest1->UpColumns->Items[0]->Header = "组地址"; tltest1->Columns->Add(); tltest1->Columns->Add(); tltest1->Columns->Add(); tltest1->Columns->Add(); //tltest1->Columns->Items[0]->Header = "PhysAddr"; //tltest1->Columns->Items[1]->Header = "Caption"; //tltest1->Columns->Items[2]->Header = "SSnelia"; //tltest1->Columns->Items[3]->Header = "SsDevice"; tltest1->Columns->Items[0]->Header = "物理地址"; tltest1->Columns->Items[1]->Header = "设备型号"; tltest1->Columns->Items[2]->Header = "设备描述"; tltest1->Columns->Items[3]->Header = "网络结构"; TTreeNode *RootNode, *ChildNode; RootNode = tltest1->Items->GetFirstNode(); tltest1->Items->Add(RootNode,"sdfjkasdjfk"); tltest1->Items->Add(RootNode,"sadkfjasdkj"); tltest1->Items->Add(RootNode,"sadkfjasdkj"); tltest1->Items->Add(RootNode,"sadkfjasdkj"); tltest1->Items->Add(RootNode,"sadkfjasdkj"); tltest1->Items->Add(RootNode,"sadkfjasdkj"); tltest1->Items->Add(RootNode,"sadkfjasdkj"); tltest1->Items->Add(RootNode,"sadkfjasdkj");}//---------------------------------------------------------------------------void __fastcall TForm1::FormCreate(TObject *Sender){//}//---------------------------------------------------------------------------