mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
Update VirtualTrees component code to release v7.6.5a
This commit is contained in:
Ansgar Becker
@ -1,331 +0,0 @@
|
||||
unit VirtualTrees.DrawTree;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.Types,
|
||||
System.Classes,
|
||||
VirtualTrees.Types,
|
||||
VirtualTrees;
|
||||
|
||||
|
||||
type
|
||||
// Tree descendant to let an application draw its stuff itself.
|
||||
TCustomVirtualDrawTree = class(TBaseVirtualTree)
|
||||
private
|
||||
FOnDrawNode: TVTDrawNodeEvent;
|
||||
FOnGetCellContentMargin: TVTGetCellContentMarginEvent;
|
||||
FOnGetNodeWidth: TVTGetNodeWidthEvent;
|
||||
protected
|
||||
function DoGetCellContentMargin(Node: PVirtualNode; Column: TColumnIndex;
|
||||
CellContentMarginType: TVTCellContentMarginType = ccmtAllSides; Canvas: TCanvas = nil): TPoint; override;
|
||||
function DoGetNodeWidth(Node: PVirtualNode; Column: TColumnIndex; Canvas: TCanvas = nil): Integer; override;
|
||||
procedure DoPaintNode(var PaintInfo: TVTPaintInfo); override;
|
||||
function GetDefaultHintKind: TVTHintKind; override;
|
||||
|
||||
property OnDrawNode: TVTDrawNodeEvent read FOnDrawNode write FOnDrawNode;
|
||||
property OnGetCellContentMargin: TVTGetCellContentMarginEvent read FOnGetCellContentMargin write FOnGetCellContentMargin;
|
||||
property OnGetNodeWidth: TVTGetNodeWidthEvent read FOnGetNodeWidth write FOnGetNodeWidth;
|
||||
end;
|
||||
|
||||
[ComponentPlatformsAttribute(pidWin32 or pidWin64)]
|
||||
TVirtualDrawTree = class(TCustomVirtualDrawTree)
|
||||
private
|
||||
function GetOptions: TVirtualTreeOptions;
|
||||
procedure SetOptions(const Value: TVirtualTreeOptions);
|
||||
protected
|
||||
function GetOptionsClass: TTreeOptionsClass; override;
|
||||
public
|
||||
property Canvas;
|
||||
property LastDragEffect;
|
||||
property CheckImageKind; // should no more be published to make #622 fix working
|
||||
published
|
||||
property Action;
|
||||
property Align;
|
||||
property Alignment;
|
||||
property Anchors;
|
||||
property AnimationDuration;
|
||||
property AutoExpandDelay;
|
||||
property AutoScrollDelay;
|
||||
property AutoScrollInterval;
|
||||
property Background;
|
||||
property BackgroundOffsetX;
|
||||
property BackgroundOffsetY;
|
||||
property BiDiMode;
|
||||
property BevelEdges;
|
||||
property BevelInner;
|
||||
property BevelOuter;
|
||||
property BevelKind;
|
||||
property BevelWidth;
|
||||
property BorderStyle;
|
||||
property BottomSpace;
|
||||
property ButtonFillMode;
|
||||
property ButtonStyle;
|
||||
property BorderWidth;
|
||||
property ChangeDelay;
|
||||
property ClipboardFormats;
|
||||
property Color;
|
||||
property Colors;
|
||||
property Constraints;
|
||||
property Ctl3D;
|
||||
property CustomCheckImages;
|
||||
property DefaultNodeHeight;
|
||||
property DefaultPasteMode;
|
||||
property DragCursor;
|
||||
property DragHeight;
|
||||
property DragKind;
|
||||
property DragImageKind;
|
||||
property DragMode;
|
||||
property DragOperations;
|
||||
property DragType;
|
||||
property DragWidth;
|
||||
property DrawSelectionMode;
|
||||
property EditDelay;
|
||||
property Enabled;
|
||||
property Font;
|
||||
property Header;
|
||||
property HintMode;
|
||||
property HotCursor;
|
||||
property Images;
|
||||
property IncrementalSearch;
|
||||
property IncrementalSearchDirection;
|
||||
property IncrementalSearchStart;
|
||||
property IncrementalSearchTimeout;
|
||||
property Indent;
|
||||
property LineMode;
|
||||
property LineStyle;
|
||||
property Margin;
|
||||
property NodeAlignment;
|
||||
property NodeDataSize;
|
||||
property OperationCanceled;
|
||||
property ParentBiDiMode;
|
||||
property ParentColor default False;
|
||||
property ParentCtl3D;
|
||||
property ParentFont;
|
||||
property ParentShowHint;
|
||||
property PopupMenu;
|
||||
property RootNodeCount;
|
||||
property ScrollBarOptions;
|
||||
property SelectionBlendFactor;
|
||||
property SelectionCurveRadius;
|
||||
property ShowHint;
|
||||
property StateImages;
|
||||
property TabOrder;
|
||||
property TabStop default True;
|
||||
property TextMargin;
|
||||
property TreeOptions: TVirtualTreeOptions read GetOptions write SetOptions;
|
||||
property Visible;
|
||||
property WantTabs;
|
||||
|
||||
property OnAddToSelection;
|
||||
property OnAdvancedHeaderDraw;
|
||||
property OnAfterAutoFitColumn;
|
||||
property OnAfterAutoFitColumns;
|
||||
property OnAfterCellPaint;
|
||||
property OnAfterColumnExport;
|
||||
property OnAfterColumnWidthTracking;
|
||||
property OnAfterGetMaxColumnWidth;
|
||||
property OnAfterHeaderExport;
|
||||
property OnAfterHeaderHeightTracking;
|
||||
property OnAfterItemErase;
|
||||
property OnAfterItemPaint;
|
||||
property OnAfterNodeExport;
|
||||
property OnAfterPaint;
|
||||
property OnAfterTreeExport;
|
||||
property OnBeforeAutoFitColumn;
|
||||
property OnBeforeAutoFitColumns;
|
||||
property OnBeforeCellPaint;
|
||||
property OnBeforeColumnExport;
|
||||
property OnBeforeColumnWidthTracking;
|
||||
property OnBeforeDrawTreeLine;
|
||||
property OnBeforeGetMaxColumnWidth;
|
||||
property OnBeforeHeaderExport;
|
||||
property OnBeforeHeaderHeightTracking;
|
||||
property OnBeforeItemErase;
|
||||
property OnBeforeItemPaint;
|
||||
property OnBeforeNodeExport;
|
||||
property OnBeforePaint;
|
||||
property OnBeforeTreeExport;
|
||||
property OnCanSplitterResizeColumn;
|
||||
property OnCanSplitterResizeHeader;
|
||||
property OnCanSplitterResizeNode;
|
||||
property OnChange;
|
||||
property OnChecked;
|
||||
property OnChecking;
|
||||
property OnClick;
|
||||
property OnCollapsed;
|
||||
property OnCollapsing;
|
||||
property OnColumnClick;
|
||||
property OnColumnDblClick;
|
||||
property OnColumnExport;
|
||||
property OnColumnResize;
|
||||
property OnColumnVisibilityChanged;
|
||||
property OnColumnWidthDblClickResize;
|
||||
property OnColumnWidthTracking;
|
||||
property OnCompareNodes;
|
||||
property OnContextPopup;
|
||||
property OnCreateDataObject;
|
||||
property OnCreateDragManager;
|
||||
property OnCreateEditor;
|
||||
property OnDblClick;
|
||||
property OnDragAllowed;
|
||||
property OnDragOver;
|
||||
property OnDragDrop;
|
||||
property OnDrawHint;
|
||||
property OnDrawNode;
|
||||
property OnEdited;
|
||||
property OnEditing;
|
||||
property OnEndDock;
|
||||
property OnEndDrag;
|
||||
property OnEndOperation;
|
||||
property OnEnter;
|
||||
property OnExit;
|
||||
property OnExpanded;
|
||||
property OnExpanding;
|
||||
property OnFocusChanged;
|
||||
property OnFocusChanging;
|
||||
property OnFreeNode;
|
||||
property OnGetCellIsEmpty;
|
||||
property OnGetCursor;
|
||||
property OnGetHeaderCursor;
|
||||
property OnGetHelpContext;
|
||||
property OnGetHintKind;
|
||||
property OnGetHintSize;
|
||||
property OnGetImageIndex;
|
||||
property OnGetImageIndexEx;
|
||||
property OnGetLineStyle;
|
||||
property OnGetNodeDataSize;
|
||||
property OnGetNodeWidth;
|
||||
property OnGetPopupMenu;
|
||||
property OnGetUserClipboardFormats;
|
||||
property OnHeaderAddPopupItem;
|
||||
property OnHeaderClick;
|
||||
property OnHeaderDblClick;
|
||||
property OnHeaderDragged;
|
||||
property OnHeaderDraggedOut;
|
||||
property OnHeaderDragging;
|
||||
property OnHeaderDraw;
|
||||
property OnHeaderDrawQueryElements;
|
||||
property OnHeaderHeightTracking;
|
||||
property OnHeaderHeightDblClickResize;
|
||||
property OnHeaderMouseDown;
|
||||
property OnHeaderMouseMove;
|
||||
property OnHeaderMouseUp;
|
||||
property OnHotChange;
|
||||
property OnIncrementalSearch;
|
||||
property OnInitChildren;
|
||||
property OnInitNode;
|
||||
property OnKeyAction;
|
||||
property OnKeyDown;
|
||||
property OnKeyPress;
|
||||
property OnKeyUp;
|
||||
property OnLoadNode;
|
||||
property OnLoadTree;
|
||||
property OnMeasureItem;
|
||||
property OnMouseDown;
|
||||
property OnMouseMove;
|
||||
property OnMouseUp;
|
||||
property OnMouseWheel;
|
||||
property OnNodeClick;
|
||||
property OnNodeCopied;
|
||||
property OnNodeCopying;
|
||||
property OnNodeDblClick;
|
||||
property OnNodeExport;
|
||||
property OnNodeHeightTracking;
|
||||
property OnNodeHeightDblClickResize;
|
||||
property OnNodeMoved;
|
||||
property OnNodeMoving;
|
||||
property OnPaintBackground;
|
||||
property OnPrepareButtonBitmaps;
|
||||
property OnRemoveFromSelection;
|
||||
property OnRenderOLEData;
|
||||
property OnResetNode;
|
||||
property OnResize;
|
||||
property OnSaveNode;
|
||||
property OnSaveTree;
|
||||
property OnScroll;
|
||||
property OnShowScrollBar;
|
||||
property OnStartDock;
|
||||
property OnStartDrag;
|
||||
property OnStartOperation;
|
||||
property OnStateChange;
|
||||
property OnStructureChange;
|
||||
property OnUpdating;
|
||||
property OnCanResize;
|
||||
property OnGesture;
|
||||
property Touch;
|
||||
property StyleElements;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
function TCustomVirtualDrawTree.DoGetCellContentMargin(Node: PVirtualNode; Column: TColumnIndex;
|
||||
CellContentMarginType: TVTCellContentMarginType = ccmtAllSides; Canvas: TCanvas = nil): TPoint;
|
||||
|
||||
begin
|
||||
Result := Point(0, 0);
|
||||
if Canvas = nil then
|
||||
Canvas := Self.Canvas;
|
||||
|
||||
if Assigned(FOnGetCellContentMargin) then
|
||||
FOnGetCellContentMargin(Self, Canvas, Node, Column, CellContentMarginType, Result);
|
||||
end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
function TCustomVirtualDrawTree.DoGetNodeWidth(Node: PVirtualNode; Column: TColumnIndex; Canvas: TCanvas = nil): Integer;
|
||||
|
||||
begin
|
||||
Result := 2 * TextMargin;
|
||||
if Canvas = nil then
|
||||
Canvas := Self.Canvas;
|
||||
|
||||
if Assigned(FOnGetNodeWidth) then
|
||||
FOnGetNodeWidth(Self, Canvas, Node, Column, Result);
|
||||
end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
procedure TCustomVirtualDrawTree.DoPaintNode(var PaintInfo: TVTPaintInfo);
|
||||
|
||||
begin
|
||||
if Assigned(FOnDrawNode) then
|
||||
FOnDrawNode(Self, PaintInfo);
|
||||
end;
|
||||
|
||||
function TCustomVirtualDrawTree.GetDefaultHintKind: TVTHintKind;
|
||||
|
||||
begin
|
||||
Result := vhkOwnerDraw;
|
||||
end;
|
||||
|
||||
//----------------- TVirtualDrawTree -----------------------------------------------------------------------------------
|
||||
|
||||
function TVirtualDrawTree.GetOptions: TVirtualTreeOptions;
|
||||
|
||||
begin
|
||||
Result := inherited TreeOptions as TVirtualTreeOptions;
|
||||
end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
procedure TVirtualDrawTree.SetOptions(const Value: TVirtualTreeOptions);
|
||||
|
||||
begin
|
||||
TreeOptions.Assign(Value);
|
||||
end;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
function TVirtualDrawTree.GetOptionsClass: TTreeOptionsClass;
|
||||
|
||||
begin
|
||||
Result := TVirtualTreeOptions;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user