paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 12:47:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Make BeginUpdate and EndUpdate public in ToolWin / ToolBar. Fixes compilation of EditorToolBar.

Browse Source 
git-svn-id: trunk@40084 -
This commit is contained in:
juha 2013-01-31 08:12:13 +00:00
parent f7dcab3694
commit ff0a91887b
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/comctrls.pp
View File

@ -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

4
lcl/toolwin.pp
View File

@ -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;