From a94d2b45c7e2cf6f789eaa8a7363d50f42df4a16 Mon Sep 17 00:00:00 2001 From: dkolmck Date: Wed, 3 Dec 2014 10:55:36 +0000 Subject: [PATCH] * some fixes git-svn-id: https://svn.code.sf.net/p/kolmck/code@139 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07 --- Addons/MCKReport.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Addons/MCKReport.pas b/Addons/MCKReport.pas index 17b623d..fb47955 100644 --- a/Addons/MCKReport.pas +++ b/Addons/MCKReport.pas @@ -37,10 +37,10 @@ type protected function SetupParams( const AName, AParent: String ): String; override; function AdditionalUnits: String; override; - function NoDrawFrame: Boolean; override; procedure Set_VA(const Value: TVerticalAlign); override; public constructor Create( AOwner: TComponent ); override; + function NoDrawFrame: Boolean; override; procedure Paint; override; published property Frames: TFrames read FFrames write SetFrames; @@ -51,13 +51,13 @@ type FFrames: TFrames; procedure SetFrames(const Value: TFrames); protected - function SetupParams( const AName, AParent: String ): String; override; function AdditionalUnits: String; override; + public + constructor Create( AOwner: TComponent ); override; function TypeName: String; override; function NoDrawFrame: Boolean; override; function AdjustVerticalAlign( Value: TVerticalAlign ): TVerticalAlign; override; - public - constructor Create( AOwner: TComponent ); override; + function SetupParams( const AName, AParent: String ): String; override; procedure Paint; override; function BorderNeeded: Boolean; override; published