From ff0a91887b8a9972b83e418c31d4f3e8f426b73e Mon Sep 17 00:00:00 2001 From: juha Date: Thu, 31 Jan 2013 08:12:13 +0000 Subject: [PATCH] LCL: Make BeginUpdate and EndUpdate public in ToolWin / ToolBar. Fixes compilation of EditorToolBar. git-svn-id: trunk@40084 - --- lcl/comctrls.pp | 4 ++-- lcl/toolwin.pp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp index 5279697c84..e6818688d4 100644 --- a/lcl/comctrls.pp +++ b/lcl/comctrls.pp @@ -2065,8 +2065,8 @@ type function FindButtonFromAccel(Accel: Word): TToolButton; procedure FontChanged(Sender: TObject); override; procedure Loaded; override; - procedure EndUpdate; override; procedure Notification(AComponent: TComponent; Operation: TOperation); override; + procedure Paint; override; procedure RepositionButton(Index: Integer); procedure RepositionButtons(Index: Integer); function WrapButtons(UseSize: integer; @@ -2076,9 +2076,9 @@ type public constructor Create(TheOwner: TComponent); override; destructor Destroy; override; + procedure EndUpdate; override; procedure FlipChildren(AllLevels: Boolean); override; function GetEnumerator: TToolBarEnumerator; - procedure Paint; override; procedure SetButtonSize(NewButtonWidth, NewButtonHeight: integer); function CanFocus: Boolean; override; public diff --git a/lcl/toolwin.pp b/lcl/toolwin.pp index 5e2f38c52a..784953bfbc 100644 --- a/lcl/toolwin.pp +++ b/lcl/toolwin.pp @@ -65,10 +65,10 @@ type FUpdateCount: Integer; procedure AdjustClientRect(var ARect: TRect); override; procedure Paint; override; - procedure BeginUpdate; virtual; - procedure EndUpdate; virtual; public constructor Create(TheOwner: TComponent); override; + procedure BeginUpdate; virtual; + procedure EndUpdate; virtual; public property EdgeBorders: TEdgeBorders read FEdgeBorders write SetEdgeBorders default [ebLeft, ebTop, ebRight, ebBottom]; property EdgeInner: TEdgeStyle read FEdgeInner write SetEdgeInner default esRaised;