pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Override equals

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4661 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2016-05-22 21:50:33 +00:00
parent 18f350ab08
commit 5110dfc287
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -1013,7 +1013,7 @@ type
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
function Equals(OtherColumnObj: TObject): Boolean; virtual;
function Equals(OtherColumnObj: TObject): Boolean; override;
function GetRect: TRect; virtual;
procedure LoadFromStream(const Stream: TStream; Version: Integer);
procedure ParentBiDiModeChanged;
@ -1116,7 +1116,7 @@ type
procedure Clear; virtual;
function ColumnFromPosition(const P: TPoint; Relative: Boolean = True): TColumnIndex; overload; virtual;
function ColumnFromPosition(PositionIndex: TColumnPosition): TColumnIndex; overload; virtual;
function Equals(OtherColumnsObj: TObject): Boolean;
function Equals(OtherColumnsObj: TObject): Boolean; override;
procedure GetColumnBounds(Column: TColumnIndex; out Left, Right: Integer);
function GetFirstVisibleColumn(ConsiderAllowFocus: Boolean = False): TColumnIndex;
function GetLastVisibleColumn(ConsiderAllowFocus: Boolean = False): TColumnIndex;