Initial commit

2026-06-13 00:05:19 +08:00
commit 754cd7ccdb
402 changed files with 123771 additions and 0 deletions
@@ -0,0 +1,165 @@
+//---------------------------------------------------------------------------
+
+#ifndef ProgHandlePanelH
+#define ProgHandlePanelH
+
+#include <vcl.h>
+#include "SkinScrollBarUnit.h"
+#include "PNGButton.hpp"
+/*---------------------------------------------------------------------------
+	TProgHandleItem
+---------------------------------------------------------------------------*/
+class TProgHandleItem;
+class TProgHandlePanel;
+/*---------------------------------------------------------------------------
+	TProgHandleItem
+---------------------------------------------------------------------------*/
+class TProgHandleItem : public TObject
+{
+private:
+	/***********************************************************************/
+	TProgHandleItem *FParent;
+	TProgHandlePanel *FOwnerPanel;
+	String FCaption;
+	bool FIsUnfold;
+	bool FIsSelected;
+	bool FIsFocus;
+	bool FIsHidden;
+	bool FIsChecked;
+	/***********************************************************************/
+
+	/***********************************************************************/
+	int mLevel;
+	TRect mRect;
+	TRect mValidRect;
+	TRect mIconRect;
+	TRect mCaptionRect;
+	TList *mChildItem;
+	TCanvas *mCanvas;
+	TPNGButton *mHeaderIconButton;
+	TPNGButton *mCheckBox;
+	/***********************************************************************/
+
+	void __fastcall DoHeaderClick(TObject *Sender);
+	void __fastcall DoCheckClick(TObject *Sender);
+
+	void __fastcall SetCaption(String Value);
+	void __fastcall SetUnfold(bool Value);
+	void __fastcall SetSelected(bool Value);
+	void __fastcall SetHidden(bool Value);
+	void __fastcall SetChecked(bool Value);
+
+	int __fastcall GetChildCount();
+
+protected:
+	void __fastcall AfterConstruction();
+
+public:
+	void *Data;
+	__fastcall TProgHandleItem(TProgHandlePanel *OwnerPanel, String Caption);
+	__fastcall TProgHandleItem(TProgHandleItem *Parent, String Caption);
+	__fastcall ~TProgHandleItem();
+
+	/***********************************************************************/
+	void __fastcall DrawItem(TCanvas *Canvas, TRect Rect);
+	void __fastcall RedrawItem();
+	void __fastcall MouseDown(TMouseButton Button, TShiftState Shift, int X, int Y);
+	void __fastcall MouseMove(TShiftState Shift, int X, int Y);
+	void __fastcall MouseUp(TMouseButton Button, TShiftState Shift, int X, int Y);
+	/***********************************************************************/
+
+	/***********************************************************************/
+	TProgHandlePanel *GetOwnerPanel();
+	void AddChild(TProgHandleItem *Child);
+	TProgHandleItem *Child(int Index);
+	/***********************************************************************/
+
+__published:
+	__property TProgHandleItem *Parent = {read = FParent};
+	__property String Caption = {read = FCaption, write = SetCaption};
+	__property int ChildCount = {read = GetChildCount};
+	__property bool IsUnfold = {read = FIsUnfold, write = SetUnfold};
+	__property bool IsSelected = {read = FIsSelected, write = SetSelected};
+	__property bool IsHidden = {read = FIsHidden, write = SetHidden};
+	__property bool IsChecked = {read = FIsChecked, write = SetChecked};
+};
+/*---------------------------------------------------------------------------
+	TProgHandlePanel
+---------------------------------------------------------------------------*/
+class TProgHandlePanel : public TPanel
+{
+private:
+	/***********************************************************************/
+	int FItemWidth;
+	int FItemHeight;
+	TNotifyEvent FOnSelectedItem;
+	/***********************************************************************/
+
+	/***********************************************************************/
+	TList *mTopLevelItemList;
+	TList *mItemRectList;
+	TList *mItemList;
+	int mBeginIndex;
+	int mEndIndex;
+	int mCurrentItemIndex;
+	int mShowCount;
+	int mRealShowCount;
+	TSkinScrollBar *mScrollBar;
+
+	TProgHandleItem *mCurrentItem;
+	/***********************************************************************/
+
+	/***********************************************************************/
+	void __fastcall RecalcItemsRect();
+	void __fastcall Reset();
+	void __fastcall LoadItem(TProgHandleItem* Item);
+	TProgHandleItem *GetItem(int Index);
+	int __fastcall GetTopLevelItemCount();
+	/***********************************************************************/
+
+	/***********************************************************************/
+	MESSAGE void __fastcall WMSize(TWMSize &Message);
+	MESSAGE void __fastcall WMEraseBkgnd(TWMEraseBkgnd &Message);
+	MESSAGE void __fastcall WMMouseWheel(TWMMouseWheel &Message);
+	MESSAGE void __fastcall CMMouseLeave(TMessage &Message);
+	MESSAGE void __fastcall WMVScroll(TWMScroll &Message);
+
+	BEGIN_MESSAGE_MAP
+		MESSAGE_HANDLER(WM_SIZE, TWMSize, WMSize)
+		MESSAGE_HANDLER(WM_ERASEBKGND, TWMEraseBkgnd, WMEraseBkgnd)
+		MESSAGE_HANDLER(WM_MOUSEWHEEL, TWMMouseWheel, WMMouseWheel)
+		MESSAGE_HANDLER(CM_MOUSELEAVE, TMessage, CMMouseLeave)
+		MESSAGE_HANDLER(WM_VSCROLL, TWMScroll, WMVScroll)
+	END_MESSAGE_MAP(TPanel)
+	/***********************************************************************/
+
+protected:
+	void __fastcall AfterConstruction();
+
+	virtual void __fastcall CreateWnd();
+	virtual void __fastcall Paint();
+
+	DYNAMIC void __fastcall MouseDown(TMouseButton Button, TShiftState Shift, int X, int Y);
+	DYNAMIC void __fastcall MouseMove(TShiftState Shift, int X, int Y);
+	DYNAMIC void __fastcall MouseUp(TMouseButton Button, TShiftState Shift, int X, int Y);
+
+public:
+	__fastcall TProgHandlePanel(TComponent *Owner);
+	__fastcall ~TProgHandlePanel();
+
+	void __fastcall DoItemChange(TObject *Sender);
+	void __fastcall DoSelectedItem(TObject *Sender);
+	void __fastcall DoCurrentItem(TObject *Sender);
+
+	void __fastcall AddTopLevelItem(TProgHandleItem* Item);
+	void __fastcall ScrollPos(int Pos);
+	void __fastcall SetTextFont(String name, int size);
+
+	TProgHandleItem *GetTopLevelItem(int Index);
+
+__published:
+	__property TNotifyEvent OnSelectedItem = {read = FOnSelectedItem, write = FOnSelectedItem};
+	__property int TopLevelItemCount = {read = GetTopLevelItemCount};
+};
+//---------------------------------------------------------------------------
+#endif