opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Initial check in the new files

Browse Source
This commit is contained in:
CodehunterWorks
2018-02-23 10:39:15 +01:00
parent e09b58d21e
commit dfd74add6f
5 changed files with 18348 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
source/VirtualCheckTree.pas Normal file
View File

@ -0,0 +1,53 @@
unit VirtualCheckTree;
interface
uses
VirtualTrees, Vcl.Graphics, Vcl.ImgList;
type
TVirtualCheckTree = class(TVirtualStringTree)
public
class function GetCheckImageListFor(Kind: TCheckImageKind): TCustomImageList; override;
function GetCheckImage(Node: PVirtualNode; ImgCheckType: TCheckType = ctNone; ImgCheckState: TCheckState = csUncheckedNormal; ImgEnabled: Boolean = True): Integer; override;
procedure GetHitTestInfoAt(X, Y: Integer; Relative: Boolean; var HitInfo: THitInfo); override;
procedure PaintCheckImage(Canvas: TCanvas; const ImageInfo: TVTImageInfo; Selected: Boolean); override;
end;
implementation
uses
userprivileges;
{ TVirtualCheckTree }
function TVirtualCheckTree.GetCheckImage(Node: PVirtualNode;
ImgCheckType: TCheckType; ImgCheckState: TCheckState;
ImgEnabled: Boolean): Integer;
begin
Result:= inherited GetCheckImage(Node, ImgCheckType, ImgCheckState, ImgEnabled);
end;
class function TVirtualCheckTree.GetCheckImageListFor(
Kind: TCheckImageKind): TCustomImageList;
begin
Result:= inherited GetCheckImageListFor(Kind);
end;
procedure TVirtualCheckTree.GetHitTestInfoAt(X, Y: Integer; Relative: Boolean;
var HitInfo: THitInfo);
begin
inherited;
end;
procedure TVirtualCheckTree.PaintCheckImage(Canvas: TCanvas;
const ImageInfo: TVTImageInfo; Selected: Boolean);
begin
inherited;
end;
end.