哪位大哥有空帮小弟把下列几段VC++代码转为Delphi代码，200分表谢。(实在没分了) ( 积分: 50 )

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

代码中为一个继承自treeview的控件。

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

代码中为一个继承自treeview的控件。

ColumnTreeCtrl.h

/*********************************************************
* Multi-Column Tree View
* Version: 1.1
* Date: October 22, 2003
* Author: Michal Mecinski
* E-mail: mimec@mimec.w.pl
* 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: mimec@mimec.w.pl
* 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);
};

ColumnTreeCtrl.cpp

/*********************************************************
* Multi-Column Tree View
* Version: 1.1
* Date: October 22, 2003
* Author: Michal Mecinski
* E-mail: mimec@mimec.w.pl
* 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:efWindowProc(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;
}

ColumnTreeView.cpp

/*********************************************************
* Multi-Column Tree View
* Version: 1.1
* Date: October 22, 2003
* Author: Michal Mecinski
* E-mail: mimec@mimec.w.pl
* 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
#endif

IMPLEMENT_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:reCreateWindow(CREATESTRUCT& cs)
{
return CView:reCreateWindow(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;
rcText.DeflateRect(m_xOffset, 1, 2, 1);
dc.DrawText(strSub, &rcText, DT_NOPREFIX | DT_END_ELLIPSIS);
}
xOffset += m_arrColWidths;
}

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 = 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);
}
}

就是上面这几段了。 .

这个是从MFC继承的，delphi又不认识MFC的，没法翻译的。