//---------------------------------------------------------------------------

#pragma hdrstop

#include "ProgHandlePanel.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
#define ITEM_OVER		TColor(RGB(67, 73, 80))
#define ITEM_SELECTED	TColor(RGB(29, 31, 35))
#define ITEM_DEF		TColor(RGB(47, 50, 57))

#define ITEM_TEXT_COLOR		TColor(RGB(213, 221, 232))

#define BORDER 		    TColor(RGB(106, 111, 117))
#define BACKGRND		TColor(RGB(47, 50, 57))

#define BORDER_HL	    TColor(RGB(30, 32, 36))
#define BACKGRND_HL	    TColor(RGB(67, 73, 80))

#define TEXT_COLOR		TColor(RGB(213, 221, 232))
#define TEXT_DISABLE	TColor(RGB(100, 108, 119))
#define BREAK			TColor(RGB(100, 108, 119))
#define BOARD_FILL		TColor(RGB(76, 82, 91))

#define MIN(x, y)		((x) < (y) ? (x) : (y))
#define MAX(x, y)		((x) > (y) ? (x) : (y))

#define MARGIN			2
//---------------------------------------------------------------------------

/****************************************************************************
*
*	TProgHandleItem
*
*****************************************************************************/
__fastcall TProgHandleItem::TProgHandleItem(TProgHandlePanel *OwnerPanel, String Caption)
{
	if(mChildItem == NULL) {
		mChildItem = new TList();
    }

	mLevel = 0;
	FParent = NULL;
	FOwnerPanel = OwnerPanel;
	FCaption = Caption;

	FOwnerPanel->AddTopLevelItem(this);
}
//---------------------------------------------------------------------------
__fastcall TProgHandleItem::TProgHandleItem(TProgHandleItem *Parent, String Caption)
{
	if(mChildItem == NULL) {
		mChildItem = new TList();
	}

	FParent = Parent;
	FOwnerPanel = Parent->GetOwnerPanel();
	mLevel = Parent->mLevel + 1;
	FCaption = Caption;

	FParent->AddChild(this);
}
//---------------------------------------------------------------------------
__fastcall TProgHandleItem::~TProgHandleItem()
{
	if(mChildItem) {
		mChildItem->Clear();
		delete mChildItem;
		mChildItem = NULL;
	}

	if(mHeaderIconButton) {
		delete mHeaderIconButton;
		mHeaderIconButton = NULL;
	}

	if(mCheckBox) {
		delete mCheckBox;
		mCheckBox = NULL;
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::AfterConstruction()
{
	FIsUnfold = true;
	FIsSelected = false;
	FIsFocus = false;
	FIsHidden = false;
	FIsChecked = true;

	mCanvas = NULL;

	mRect.init(0, 0, 0, 0);
	mValidRect.init(0, 0, 0, 0);
	mIconRect.init(0, 0, 0, 0);
	mCaptionRect.init(0, 0, 0, 0);

	mHeaderIconButton = new TPNGButton(FOwnerPanel);
	mHeaderIconButton->Parent = FOwnerPanel;
	mHeaderIconButton->ImgStates = 2;
	mHeaderIconButton->Visible = true;
	mHeaderIconButton->Width = 12;
	mHeaderIconButton->Height = 12;
	mHeaderIconButton->Top = -12;
	mHeaderIconButton->Left = -12;
	mHeaderIconButton->OnClick = DoHeaderClick;

	mCheckBox = new TPNGButton(FOwnerPanel);
	mCheckBox->Parent = FOwnerPanel;
	mCheckBox->ImgStates = 2;
	mCheckBox->Visible = true;
	mCheckBox->Top = -20;
	mCheckBox->Left = -20;
	mCheckBox->Width = 20;
	mCheckBox->Height = 20;
	mCheckBox->OnClick = DoCheckClick;
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::DrawItem(TCanvas *Canvas, TRect Rect)
{
	if(mRect != Rect) {
		mRect = Rect;

		mValidRect = TRect(Rect);
		mValidRect.Left += mLevel * 20;

		mIconRect = TRect(mValidRect);
		mIconRect.Right = mIconRect.Left + 20;

		mCaptionRect = TRect(mValidRect);
		mCaptionRect.Left += 20;
	}

	mCanvas = Canvas;

	if(ChildCount > 0) {
		if(IsUnfold)
			mHeaderIconButton->PngImg->LoadFromResourceName((int)HInstance, L"imgUnfold");
		else
			mHeaderIconButton->PngImg->LoadFromResourceName((int)HInstance, L"imgFold");

		mHeaderIconButton->Top = mIconRect.Top + (mIconRect.Height() - 12) / 2;
		mHeaderIconButton->Left = mIconRect.Left + (mIconRect.Width() - 12) / 2;
	}
	else {
		if(FIsChecked)
			mCheckBox->PngImg->LoadFromResourceName((int)HInstance, L"imgItemChecked");
		else
			mCheckBox->PngImg->LoadFromResourceName((int)HInstance, L"imgItemUnchecked");

		mCheckBox->Top = mIconRect.Top;
		mCheckBox->Left = mIconRect.Left;
    }

	if(FIsSelected)
		mCanvas->Brush->Color = ITEM_SELECTED;
	else if(FIsFocus && !FIsSelected)
		mCanvas->Brush->Color = ITEM_OVER;
	else
		mCanvas->Brush->Color = ITEM_DEF;

	mCanvas->FillRect(mCaptionRect);

	mCanvas->Font->Color = ITEM_TEXT_COLOR;

	int textHeight = mCanvas->TextHeight(FCaption);

	int textLeft = mCaptionRect.Left + 4;
	int textTop = mCaptionRect.Top + (mCaptionRect.Height() - textHeight) / 2;
	int textRight = mCaptionRect.Right - 4;
	int textBottom = textTop + textHeight;

	TRect textRect(textLeft, textTop, textRight, textBottom);
	mCanvas->TextRect(textRect, FCaption);
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::RedrawItem()
{
	if(mCanvas && !FIsHidden) {
		DrawItem(mCanvas, mRect);
    }
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::MouseDown(TMouseButton Button, TShiftState Shift, int X, int Y)
{
	if(mCaptionRect.Contains(TPoint(X, Y))) {
		if(!FIsSelected){
			FIsSelected = true;
			RedrawItem();
			// 选择项
			FOwnerPanel->DoSelectedItem(this);
		}
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::MouseMove(TShiftState Shift, int X, int Y)
{
	if(mCaptionRect.Contains(TPoint(X, Y))) {
		if(!FIsFocus) {
			FIsFocus = true;
			RedrawItem();
			// 当前项
			FOwnerPanel->DoCurrentItem(this);
		}
	}
	else{
		if(FIsFocus) {
			FIsFocus = false;
			RedrawItem();
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::MouseUp(TMouseButton Button, TShiftState Shift, int X, int Y)
{
	//
}
//---------------------------------------------------------------------------
TProgHandlePanel *TProgHandleItem::GetOwnerPanel()
{
    return FOwnerPanel;
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::SetCaption(String Value)
{
	if(FCaption != Value) {
		FCaption = Value;
		RedrawItem();
		// 通知Panel：名称变化事件
    }
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::SetUnfold(bool Value)
{
	if(FIsUnfold != Value) {
		FIsUnfold = Value;

		RedrawItem();
		// 通知Panel: 结构变化
		FOwnerPanel->DoItemChange(this);
    }
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::DoHeaderClick(TObject *Sender)
{
    IsUnfold = !IsUnfold;
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::DoCheckClick(TObject *Sender)
{
    IsChecked = !IsChecked;
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::SetSelected(bool Value)
{
	if(FIsSelected != Value) {
		FIsSelected = Value;
		RedrawItem();
		// 通知Panel：选择变化事件
    }
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::SetHidden(bool Value)
{
	if(FIsHidden != Value) {
		FIsHidden = Value;

		if(mHeaderIconButton)
			mHeaderIconButton->Visible = !Value;

		if(mCheckBox)
			mCheckBox->Visible = !Value;
    }
}
//---------------------------------------------------------------------------
void __fastcall TProgHandleItem::SetChecked(bool Value)
{
	if(FIsChecked != Value) {
		FIsChecked = Value;
		RedrawItem();
    }
}
//---------------------------------------------------------------------------
int __fastcall TProgHandleItem::GetChildCount()
{
	return mChildItem->Count;
}
//---------------------------------------------------------------------------
void TProgHandleItem::AddChild(TProgHandleItem *Child)
{
	mChildItem->Add(Child);
	// 通知Panel：Item个数变化
	FOwnerPanel->DoItemChange(this);
}
//---------------------------------------------------------------------------
TProgHandleItem *TProgHandleItem::Child(int Index)
{
	if(Index >= 0 && Index < ChildCount) {
		return (TProgHandleItem *)mChildItem->Items[Index];
	}

	return NULL;
}

/****************************************************************************
*
*	TProgHandlePanel
*
*****************************************************************************/
__fastcall TProgHandlePanel::TProgHandlePanel(TComponent *Owner) : TPanel(Owner)
{
	SetParentComponent(Owner);

	mTopLevelItemList 	= new TList();
	mItemRectList 		= new TList();
	mItemList 			= new TList();

	mCurrentItem = NULL;

	mEndIndex = 0;

	FItemHeight = 20;

	mScrollBar = new TSkinScrollBar(NULL);
	mScrollBar->Visible = false;
}
//---------------------------------------------------------------------------
__fastcall TProgHandlePanel::~TProgHandlePanel()
{
	if(mTopLevelItemList) {
		mTopLevelItemList->Clear();
		delete mTopLevelItemList;
		mTopLevelItemList = NULL;
	}

	if(mItemRectList) {
		mItemRectList->Clear();
		delete mItemRectList;
		mItemRectList = NULL;
	}

	if(mItemList) {
		mItemList->Clear();
		delete mItemList;
		mItemList = NULL;
	}

	if(mScrollBar) {
		delete mScrollBar;
		mScrollBar = NULL;
	}

	if(mCurrentItem) {
		delete mCurrentItem;
		mCurrentItem = NULL;
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::AddTopLevelItem(TProgHandleItem* Item)
{
	mTopLevelItemList->Add(Item);
	DoItemChange(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::ScrollPos(int Pos)
{
	if(Pos >= 0 && Pos <= mItemList->Count - mRealShowCount) {
		if(mBeginIndex != Pos) {
			// 重置项
			mBeginIndex = Pos;
			mEndIndex = mBeginIndex + mRealShowCount;
			Paint();
		}
    }
}
//---------------------------------------------------------------------------
TProgHandleItem *TProgHandlePanel::GetItem(int Index)
{
	if(Index >= 0 && Index < mItemList->Count) {
		return (TProgHandleItem *) mItemList->Items[Index];
	}

	return NULL;
}
//---------------------------------------------------------------------------
TProgHandleItem *TProgHandlePanel::GetTopLevelItem(int Index)
{
	if(Index >= 0 && Index < mTopLevelItemList->Count) {
		return (TProgHandleItem *) mTopLevelItemList->Items[Index];
	}

	return NULL;
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::RecalcItemsRect()
{
    //最大显示数
	mShowCount = (Height - 2 * MARGIN) / FItemHeight;
	// 记录显示区域
	mItemRectList->Clear();
	mItemRectList->Add(new TRect(MARGIN, MARGIN, Width - MARGIN, FItemHeight + MARGIN));
	for(int i = 1; i < mShowCount; i++) {
		int itemTop = i * FItemHeight + MARGIN;
		int itemBottom = itemTop + FItemHeight;

		mItemRectList->Add(new TRect(MARGIN, itemTop, Width - MARGIN, itemBottom));
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::Reset()
{
	mRealShowCount = MIN(mItemList->Count, mShowCount);
	mEndIndex = mBeginIndex + mRealShowCount;

	while(mEndIndex > mItemList->Count) {
		mBeginIndex--;
		mEndIndex--;
	}

	int Index = mBeginIndex;
	while(Index < mEndIndex) {
		TProgHandleItem *Item = (TProgHandleItem *)mItemList->Items[Index];
		if(Item->IsSelected)
			break;
		Index++;
	}

	if(Index == mEndIndex) {
        DoSelectedItem(NULL);
    }

	if(HandleAllocated()) {
		if(mItemList->Count > mShowCount) {
			mScrollBar->Visible = true;
			mScrollBar->SetRange(0, mItemList->Count - 1);
			mScrollBar->SetPageSize(mShowCount);
			mScrollBar->SetPosition(mBeginIndex);
			FItemWidth = Width - mScrollBar->Width - 20;
		}
		else {
			mScrollBar->Visible = false;
			FItemWidth = Width;
		}
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::LoadItem(TProgHandleItem* Item)
{
	if(Item->Parent == NULL) {
		Item->IsHidden = false;
	}
	else {
        Item->IsHidden = (Item->Parent->IsHidden || !Item->Parent->IsUnfold);
	}

	if(!Item->IsHidden) {
        mItemList->Add(Item);
    }

	for(int i = 0; i < Item->ChildCount; i++) {
		TProgHandleItem *Child = Item->Child(i);
		LoadItem(Child);
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::WMSize(TWMSize &Message)
{
	mScrollBar->Height = Height - 2;
	mScrollBar->Top = 1;
	mScrollBar->Left = Width - mScrollBar->Width - 1;

	RecalcItemsRect();
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::WMEraseBkgnd(TWMEraseBkgnd &Message)
{
	TCanvas* tmpCanvas = new TCanvas();
	tmpCanvas->Handle  = Message.DC;

	tmpCanvas->Brush->Color = BACKGRND;	// 绘制底色
	tmpCanvas->FillRect(ClientRect);

	tmpCanvas->Brush->Color = BORDER;		// 绘制边框
	tmpCanvas->FrameRect(ClientRect);

	delete tmpCanvas;
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::WMMouseWheel(TWMMouseWheel &Message)
{
	UINT nSBCode;

	if(Message.WheelDelta < 0) {
		nSBCode = SB_LINEDOWN;
    }
	else {
    	nSBCode = SB_LINEUP;
    }

    if(mScrollBar->Visible)
		Perform(WM_VSCROLL, MAKELONG(nSBCode, 0), NULL);
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::CMMouseLeave(TMessage &Message)
{
	MouseMove(TShiftState(0), -1, -1);
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::WMVScroll(TWMScroll &Message)
{
	int minpos, maxpos, page, curpos;

	mScrollBar->GetScrollRange(&minpos, &maxpos);

	page = mScrollBar->GetPageSize();
	curpos = mScrollBar->GetScrollPos();

    switch(Message.ScrollCode) {
	case SB_TOP:
        curpos = minpos;
		break;

	case SB_BOTTOM:
        curpos = maxpos - page + 1;
        break;

	case SB_ENDSCROLL:
        break;

	case SB_LINEUP:
		if(curpos > minpos) {
            curpos--;
		}
        break;

	case SB_LINEDOWN:
		if(curpos < maxpos - page + 1) {
            curpos++;
        }
        break;

	case SB_PAGEUP:
		if(curpos > minpos) {
            curpos = MAX(minpos, curpos - page);
        }
        break;

	case SB_PAGEDOWN:
		if(curpos < maxpos) {
            curpos = MIN(maxpos - page + 1, curpos + page);
        }
        break;

	case SB_THUMBPOSITION:
        curpos = Message.Pos;
        break;

	case SB_THUMBTRACK:
        curpos = Message.Pos;
        break;
	}

    if(Message.ScrollBar != mScrollBar->Handle) {
        mScrollBar->SetPosition(curpos);
    }

	ScrollPos(curpos);
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::AfterConstruction()
{
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::CreateWnd()
{
	TPanel::CreateWnd();

	mScrollBar->Parent = this;
	mScrollBar->m_pWndCtrl = this;

	FItemWidth = Width;

	Reset();

	RecalcItemsRect();
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::Paint()
{
	Canvas->Lock();
	for(int Index = 0; Index < this->mItemList->Count; Index++) {
		TProgHandleItem *item = GetItem(Index);

		if(Index >= mBeginIndex && Index < mEndIndex) {
			item->IsHidden = false;

			TRect *Rect = (TRect *) mItemRectList->Items[Index - mBeginIndex];
			item->DrawItem(Canvas, *Rect);
		}
		else {
			item->IsHidden = true;
        }
	}
	Canvas->Unlock();
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::MouseDown(TMouseButton Button, TShiftState Shift, int X, int Y)
{
	TPanel::MouseDown(Button, Shift, X, Y);
	for(int Index = mBeginIndex; Index < mEndIndex; Index++) {
		TProgHandleItem *item = GetItem(Index);
		item->MouseDown(Button, Shift, X, Y);
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::MouseMove(TShiftState Shift, int X, int Y)
{
	TPanel::MouseMove(Shift, X, Y);
	for(int Index = mBeginIndex; Index < mEndIndex; Index++) {
		TProgHandleItem *item = GetItem(Index);
		item->MouseMove(Shift, X, Y);
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::MouseUp(TMouseButton Button, TShiftState Shift, int X, int Y)
{
	TPanel::MouseUp(Button, Shift, X, Y);
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::DoItemChange(TObject *Sender)
{
	mItemList->Clear();
	for(int i = 0; i < mTopLevelItemList->Count; i++) {
		TProgHandleItem *Item = GetTopLevelItem(i);
		LoadItem(Item);
	}

	if(HandleAllocated()) {
		Reset();
		Repaint();
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::DoSelectedItem(TObject *Sender)
{
	TProgHandleItem *Item = (TProgHandleItem *)Sender;

	if(mCurrentItem != Sender) {
		if(mCurrentItem)
			mCurrentItem->IsSelected = false;

		mCurrentItem = Item;
	}

	if(FOnSelectedItem) {
		FOnSelectedItem(Sender);
	}
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::DoCurrentItem(TObject *Sender)
{
}
//---------------------------------------------------------------------------
int __fastcall TProgHandlePanel::GetTopLevelItemCount()
{
	return mTopLevelItemList->Count;
}
//---------------------------------------------------------------------------
void __fastcall TProgHandlePanel::SetTextFont(String name, int size)
{
	Canvas->Font->Name = name;
	Canvas->Font->Size = size;
}
//---------------------------------------------------------------------------