From 5110dfc287054c864f3c2c95b352e620fa6475e6 Mon Sep 17 00:00:00 2001 From: blikblum Date: Sun, 22 May 2016 21:50:33 +0000 Subject: [PATCH] * Override equals git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4661 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/virtualtreeview-new/branches/4.8/VirtualTrees.pas | 4 ++-- components/virtualtreeview-new/trunk/VirtualTrees.pas | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas index 5696f3fa5..3ad4fa7e0 100644 --- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas +++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas @@ -1222,7 +1222,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; @@ -1319,7 +1319,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; diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas index bab504c09..00a024116 100644 --- a/components/virtualtreeview-new/trunk/VirtualTrees.pas +++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas @@ -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;