From 106cd2b6c3a7a9e8c787e61db9a571ec7f2db297 Mon Sep 17 00:00:00 2001 From: blikblum Date: Thu, 13 Jan 2011 20:49:57 +0000 Subject: [PATCH] * Remove unnecessary virtual methods git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1445 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/smnetgradient/smnetgradient.pas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/components/smnetgradient/smnetgradient.pas b/components/smnetgradient/smnetgradient.pas index a38a362bb..83431afca 100644 --- a/components/smnetgradient/smnetgradient.pas +++ b/components/smnetgradient/smnetgradient.pas @@ -73,11 +73,11 @@ type procedure OnFontChanged(Sender: TObject); protected { Protected declarations } - procedure SetCaption(const Value: TCaption); virtual; - procedure SetFont(Value: TFont); virtual; - procedure SetMarginLeft(Value: Integer); virtual; - procedure SetMarginTop(Value: Integer); virtual; - procedure SetVisible(Value: Boolean); virtual; + procedure SetCaption(const Value: TCaption); + procedure SetFont(Value: TFont); + procedure SetMarginLeft(Value: Integer); + procedure SetMarginTop(Value: Integer); + procedure SetVisible(Value: Boolean); public { Public declarations } constructor Create(AOwner: TCustomNetGradient); overload;