哪位大哥有空帮小弟把下列几段VC++代码转为Delphi代码，500分酬谢。

Question

小弟VC++水平极有限，哪位网友有空的话，帮小弟把下列vc的四个.h .cpp文件转为delphi，多谢。
转好后再开贴放分。

Answer 1

ColumnTreeCtrl.h/*********************************************************
* Multi-Column Tree View
* Version: 1.1
* Date: October 22, 2003
* Author: Michal Mecinski
* E-mail: [email protected]
* WWW: http://www.mimec.w.pl
*
* You may freely use and modify this code, but don't remove
* this copyright note.
*
* There is no warranty of any kind, express or implied, for this class.
* The author does not take the responsibility for any damage
* resulting from the use of it.
*
* Let me know if you find this code useful, and
* send me any modifications and bug reports.
*
* Copyright (C) 2003 by Michal Mecinski
*********************************************************/#pragma once
class CColumnTreeCtrl : public CTreeCtrl
{
DECLARE_DYNAMIC(CColumnTreeCtrl)
public:
CColumnTreeCtrl();
virtual ~CColumnTreeCtrl();protected:
BOOL CheckHit(CPoint point);protected:
int m_cxFirstCol;protected:
DECLARE_MESSAGE_MAP()
public:
afx_msg void OnLButtonDown(UINT nFlags, CPoint point);
afx_msg void OnLButtonDblClk(UINT nFlags, CPoint point);
afx_msg void OnPaint();
afx_msg BOOL OnEraseBkgnd(CDC* pDC); friend class CColumnTreeView;
};
ColumnTreeView.h
/*********************************************************
* Multi-Column Tree View
* Version: 1.1
* Date: October 22, 2003
* Author: Michal Mecinski
* E-mail: [email protected]
* WWW: http://www.mimec.w.pl
*
* You may freely use and modify this code, but don't remove
* this copyright note.
*
* There is no warranty of any kind, express or implied, for this class.
* The author does not take the responsibility for any damage
* resulting from the use of it.
*
* Let me know if you find this code useful, and
* send me any modifications and bug reports.
*
* Copyright (C) 2003 by Michal Mecinski
*********************************************************/#pragma once#include "ColumnTreeCtrl.h"
class CColumnTreeView : public CView
{
DECLARE_DYNCREATE(CColumnTreeView)
protected:
CColumnTreeView();public:
enum ChildrenIDs { HeaderID = 1, TreeID = 2 }; void UpdateColumns(); CTreeCtrl& GetTreeCtrl() { return m_Tree; }
CHeaderCtrl& GetHeaderCtrl() { return m_Header; }public:
virtual ~CColumnTreeView();
virtual BOOL PreCreateWindow(CREATESTRUCT& cs);
protected:
virtual void OnInitialUpdate();
virtual void OnDraw(CDC* pDC) {}protected:
void UpdateScroller();
void RepositionControls();protected:
CColumnTreeCtrl m_Tree;
CHeaderCtrl m_Header;
int m_cyHeader;
int m_cxTotal;
int m_xPos;
int m_arrColWidths[16];
int m_xOffset; DECLARE_MESSAGE_MAP()
protected:
afx_msg void OnPaint();
afx_msg BOOL OnEraseBkgnd(CDC* pDC);
afx_msg void OnSize(UINT nType, int cx, int cy);
afx_msg void OnHScroll(UINT nSBCode, UINT nPos, CScrollBar* pScrollBar);
afx_msg void OnHeaderItemChanged(NMHDR* pNMHDR, LRESULT* pResult);
afx_msg void OnTreeCustomDraw(NMHDR* pNMHDR, LRESULT* pResult);
};

Answer 2

ColumnTreeCtrl.cpp/*********************************************************
* Multi-Column Tree View
* Version: 1.1
* Date: October 22, 2003
* Author: Michal Mecinski
* E-mail: [email protected]
* WWW: http://www.mimec.w.pl
*
* Copyright (C) 2003 by Michal Mecinski
*********************************************************/#include "stdafx.h"
#include "ColumnTreeCtrl.h"
IMPLEMENT_DYNAMIC(CColumnTreeCtrl, CTreeCtrl)CColumnTreeCtrl::CColumnTreeCtrl()
{
}CColumnTreeCtrl::~CColumnTreeCtrl()
{
}
BEGIN_MESSAGE_MAP(CColumnTreeCtrl, CTreeCtrl)
ON_WM_LBUTTONDOWN()
ON_WM_LBUTTONDBLCLK()
ON_WM_PAINT()
ON_WM_ERASEBKGND()
END_MESSAGE_MAP()
void CColumnTreeCtrl::OnLButtonDown(UINT nFlags, CPoint point)
{
// mask left click if outside the real item's label
if (CheckHit(point))
CTreeCtrl::OnLButtonDown(nFlags, point);
}
void CColumnTreeCtrl::OnLButtonDblClk(UINT nFlags, CPoint point)
{
if (CheckHit(point))
CTreeCtrl::OnLButtonDblClk(nFlags, point);
}void CColumnTreeCtrl::OnPaint()
{
CPaintDC dc(this); CRect rcClient;
GetClientRect(&rcClient); CDC dcMem;
CBitmap bmpMem; // use temporary bitmap to avoid flickering
dcMem.CreateCompatibleDC(&dc);
if (bmpMem.CreateCompatibleBitmap(&dc, rcClient.Width(), rcClient.Height()))
{
CBitmap* pOldBmp = dcMem.SelectObject(&bmpMem); // paint the window onto the memory bitmap
CWnd::DefWindowProc(WM_PAINT, (WPARAM)dcMem.m_hDC, 0); // copy it to the window's DC
dc.BitBlt(0, 0, rcClient.right, rcClient.bottom, &dcMem, 0, 0, SRCCOPY); dcMem.SelectObject(pOldBmp); bmpMem.DeleteObject();
}
dcMem.DeleteDC();
}BOOL CColumnTreeCtrl::OnEraseBkgnd(CDC* pDC)
{
return TRUE; // do nothing
}
BOOL CColumnTreeCtrl::CheckHit(CPoint point)
{
UINT fFlags;
HTREEITEM hItem = HitTest(point, &fFlags); // verify the hit result
if (fFlags & TVHT_ONITEMLABEL)
{
CRect rcItem;
GetItemRect(hItem, &rcItem, TRUE); // check if within the first column
rcItem.right = m_cxFirstCol;
if (!rcItem.PtInRect(point))
{
SetFocus();
return FALSE;
} CString strSub;
AfxExtractSubString(strSub, GetItemText(hItem), 0, '\t'); CDC* pDC = GetDC();
pDC->SelectObject(GetFont());
rcItem.right = rcItem.left + pDC->GetTextExtent(strSub).cx + 6;
ReleaseDC(pDC); // check if inside the label's rectangle
if (!rcItem.PtInRect(point))
{
SetFocus();
return FALSE;
}
} return TRUE;
}

Answer 3

ColumnTreeView.cpp/*********************************************************
* Multi-Column Tree View
* Version: 1.1
* Date: October 22, 2003
* Author: Michal Mecinski
* E-mail: [email protected]
* WWW: http://www.mimec.w.pl
*
* Copyright (C) 2003 by Michal Mecinski
*********************************************************/#include "stdafx.h"
#include "ColumnTreeView.h"#include <shlwapi.h>#ifdef _DEBUG
#define new DEBUG_NEW
#endif#ifndef TVS_NOHSCROLL
#define TVS_NOHSCROLL 0x8000 // IE 5.0 or higher required
#endifIMPLEMENT_DYNCREATE(CColumnTreeView, CView)BEGIN_MESSAGE_MAP(CColumnTreeView, CView)
ON_WM_PAINT()
ON_WM_ERASEBKGND()
ON_WM_SIZE()
ON_WM_HSCROLL()
ON_NOTIFY(HDN_ITEMCHANGED, HeaderID, OnHeaderItemChanged)
ON_NOTIFY(NM_CUSTOMDRAW, TreeID, OnTreeCustomDraw)
END_MESSAGE_MAP()
CColumnTreeView::CColumnTreeView()
{
}CColumnTreeView::~CColumnTreeView()
{
}
BOOL CColumnTreeView::PreCreateWindow(CREATESTRUCT& cs)
{
return CView::PreCreateWindow(cs);
}void CColumnTreeView::OnInitialUpdate()
{
CView::OnInitialUpdate(); if (m_Tree.m_hWnd)
return; // create tree and header controls as children
m_Tree.Create(WS_CHILD | WS_VISIBLE | TVS_NOHSCROLL | TVS_NOTOOLTIPS, CRect(), this, TreeID);
m_Header.Create(WS_CHILD | WS_VISIBLE | HDS_FULLDRAG, CRect(), this, HeaderID); // set correct font for the header
CFont* pFont = m_Tree.GetFont();
m_Header.SetFont(pFont); // check if the common controls library version 6.0 is available
BOOL bIsComCtl6 = FALSE; HMODULE hComCtlDll = LoadLibrary("comctl32.dll"); if (hComCtlDll)
{
typedef HRESULT (CALLBACK *PFNDLLGETVERSION)(DLLVERSIONINFO*); PFNDLLGETVERSION pfnDllGetVersion = (PFNDLLGETVERSION)GetProcAddress(hComCtlDll, "DllGetVersion"); if (pfnDllGetVersion)
{
DLLVERSIONINFO dvi;
ZeroMemory(&dvi, sizeof(dvi));
dvi.cbSize = sizeof(dvi); HRESULT hRes = (*pfnDllGetVersion)(&dvi); if (SUCCEEDED(hRes) && dvi.dwMajorVersion >= 6)
bIsComCtl6 = TRUE;
} FreeLibrary(hComCtlDll);
} // calculate correct header's height
CDC* pDC = GetDC();
pDC->SelectObject(pFont);
CSize szExt = pDC->GetTextExtent("A");
m_cyHeader = szExt.cy + (bIsComCtl6 ? 7 : 4);
ReleaseDC(pDC); // offset from column start to text start
m_xOffset = bIsComCtl6 ? 9 : 6; m_xPos = 0;
UpdateColumns();
}
void CColumnTreeView::OnPaint()
{
// do nothing
CPaintDC dc(this);
}BOOL CColumnTreeView::OnEraseBkgnd(CDC* pDC)
{
return TRUE;
}void CColumnTreeView::OnSize(UINT nType, int cx, int cy)
{
CView::OnSize(nType, cx, cy); UpdateScroller();
RepositionControls();
}void CColumnTreeView::OnHScroll(UINT nSBCode, UINT nPos, CScrollBar* pScrollBar)
{
CRect rcClient;
GetClientRect(&rcClient);
int cx = rcClient.Width(); int xLast = m_xPos; switch (nSBCode)
{
case SB_LINELEFT:
m_xPos -= 15;
break;
case SB_LINERIGHT:
m_xPos += 15;
break;
case SB_PAGELEFT:
m_xPos -= cx;
break;
case SB_PAGERIGHT:
m_xPos += cx;
break;
case SB_LEFT:
m_xPos = 0;
break;
case SB_RIGHT:
m_xPos = m_cxTotal - cx;
break;
case SB_THUMBTRACK:
m_xPos = nPos;
break;
} if (m_xPos < 0)
m_xPos = 0;
else if (m_xPos > m_cxTotal - cx)
m_xPos = m_cxTotal - cx; if (xLast == m_xPos)
return; SetScrollPos(SB_HORZ, m_xPos);
RepositionControls();
}
void CColumnTreeView::OnHeaderItemChanged(NMHDR* pNMHDR, LRESULT* pResult)
{
UpdateColumns(); m_Tree.Invalidate();
}void CColumnTreeView::OnTreeCustomDraw(NMHDR* pNMHDR, LRESULT* pResult)
{
NMCUSTOMDRAW* pNMCustomDraw = (NMCUSTOMDRAW*)pNMHDR;
NMTVCUSTOMDRAW* pNMTVCustomDraw = (NMTVCUSTOMDRAW*)pNMHDR; switch (pNMCustomDraw->dwDrawStage)
{
case CDDS_PREPAINT:
*pResult = CDRF_NOTIFYITEMDRAW;
break; case CDDS_ITEMPREPAINT:
*pResult = CDRF_DODEFAULT | CDRF_NOTIFYPOSTPAINT;
break; case CDDS_ITEMPOSTPAINT:
{
HTREEITEM hItem = (HTREEITEM)pNMCustomDraw->dwItemSpec;
CRect rcItem = pNMCustomDraw->rc; if (rcItem.IsRectEmpty())
{
// nothing to paint
*pResult = CDRF_DODEFAULT;
break;
} CDC dc;
dc.Attach(pNMCustomDraw->hdc); CRect rcLabel;
m_Tree.GetItemRect(hItem, &rcLabel, TRUE); COLORREF crTextBk = pNMTVCustomDraw->clrTextBk;
COLORREF crWnd = GetSysColor(COLOR_WINDOW); // clear the original label rectangle
dc.FillSolidRect(&rcLabel, crWnd); int nColsCnt = m_Header.GetItemCount(); // draw horizontal lines...
int xOffset = 0;
for (int ii=0; ii<nColsCnt; ii++)
{
xOffset += m_arrColWidths[ii];
rcItem.right = xOffset-1;
dc.DrawEdge(&rcItem, BDR_SUNKENINNER, BF_RIGHT);
}
// ...and the vertical ones
dc.DrawEdge(&rcItem, BDR_SUNKENINNER, BF_BOTTOM); CString strText = m_Tree.GetItemText(hItem);
CString strSub;
AfxExtractSubString(strSub, strText, 0, '\t'); // calculate main label's size
CRect rcText(0,0,0,0);
dc.DrawText(strSub, &rcText, DT_NOPREFIX | DT_CALCRECT);
rcLabel.right = min(rcLabel.left + rcText.right + 4, m_arrColWidths[0] - 4); if (rcLabel.Width() < 0)
crTextBk = crWnd;
if (crTextBk != crWnd) // draw label's background
dc.FillSolidRect(&rcLabel, crTextBk); // draw focus rectangle if necessary
if (pNMCustomDraw->uItemState & CDIS_FOCUS)
dc.DrawFocusRect(&rcLabel); // draw main label
rcText = rcLabel;
rcText.DeflateRect(2, 1);
dc.DrawText(strSub, &rcText, DT_NOPREFIX | DT_END_ELLIPSIS); xOffset = m_arrColWidths[0];
dc.SetBkMode(TRANSPARENT); // draw other columns text
for (int i=1; i<nColsCnt; i++)
{
if (AfxExtractSubString(strSub, strText, i, '\t'))
{
rcText = rcLabel;
rcText.left = xOffset;
rcText.right = xOffset + m_arrColWidths[i];
rcText.DeflateRect(m_xOffset, 1, 2, 1);
dc.DrawText(strSub, &rcText, DT_NOPREFIX | DT_END_ELLIPSIS);
}
xOffset += m_arrColWidths[i];
} dc.Detach();
}
*pResult = CDRF_DODEFAULT;
break; default:
*pResult = CDRF_DODEFAULT;
}
}
void CColumnTreeView::UpdateColumns()
{
m_cxTotal = 0; HDITEM hditem;
hditem.mask = HDI_WIDTH;
int nCnt = m_Header.GetItemCount();
if (nCnt > 16)
nCnt = 16; // get column widths from the header control
for (int i=0; i<nCnt; i++)
{
if (m_Header.GetItem(i, &hditem))
{
m_cxTotal += m_arrColWidths[i] = hditem.cxy;
if (i==0)
m_Tree.m_cxFirstCol = hditem.cxy;
}
} UpdateScroller();
RepositionControls();
}void CColumnTreeView::UpdateScroller()
{
CRect rcClient;
GetClientRect(&rcClient);
int cx = rcClient.Width(); int lx = m_xPos; if (m_xPos > m_cxTotal - cx)
m_xPos = m_cxTotal - cx;
if (m_xPos < 0)
m_xPos = 0; SCROLLINFO scrinfo;
scrinfo.cbSize = sizeof(scrinfo);
scrinfo.fMask = SIF_PAGE | SIF_POS | SIF_RANGE;
scrinfo.nPage = cx;
scrinfo.nMin = 0;
scrinfo.nMax = m_cxTotal;
scrinfo.nPos = m_xPos;
SetScrollInfo(SB_HORZ, &scrinfo);
}void CColumnTreeView::RepositionControls()
{
// reposition child controls
if (m_Tree.m_hWnd)
{
CRect rcClient;
GetClientRect(&rcClient);
int cx = rcClient.Width();
int cy = rcClient.Height(); // move to a negative offset if scrolled horizontally
int x = 0;
if (cx < m_cxTotal)
{
x = GetScrollPos(SB_HORZ);
cx += x;
}
m_Header.MoveWindow(-x, 0, cx, m_cyHeader);
m_Tree.MoveWindow(-x, m_cyHeader, cx, cy-m_cyHeader);
}
}

Answer 4

不好意思，小弟没有学过VC，只有一些C底子，勉强能够看懂VC的代码。
代码有点长，但是对vc老手来说应该比较容易，因为我昨天晚上摸索都搞出来了其中的一个主要功能。上面的代码是写一个扩展的 treeview 组件。