paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 23:09:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed old toolbar compilation

Browse Source 
git-svn-id: trunk@5222 -
This commit is contained in:
mattias 2004-02-22 16:22:53 +00:00
parent 6c8e827f79
commit 71dd6ba928
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/comctrls.pp
View File

@ -1033,9 +1033,6 @@ type
TToolBar = class;
TToolButton = class;
TToolButtonState = (tbsChecked, tbsPressed, tbsEnabled, tbsHidden,
tbsIndeterminate, tbsWrap, tbsEllipses, tbsMarked);
{ TToolButtonActionLink }
TToolButtonActionLink = class(TControlActionLink)
@ -2238,6 +2235,9 @@ end.
{ =============================================================================
$Log$
Revision 1.114 2004/02/22 16:22:53 mattias
fixed old toolbar compilation
Revision 1.113 2004/02/22 16:20:29 mattias
fixed old toolbar compilation

11
lcl/include/toolbutton.inc
View File

@ -657,6 +657,14 @@ end;
{$ELSE NewToolBar}
const
ButtonStates: array[TToolButtonState] of Word = (TBSTATE_CHECKED,
TBSTATE_PRESSED, TBSTATE_ENABLED, TBSTATE_HIDDEN, TBSTATE_INDETERMINATE,
TBSTATE_WRAP, TBSTATE_ELLIPSES, TBSTATE_MARKED);
ButtonStyles: array[TToolButtonStyle] of Byte = (TBSTYLE_BUTTON, TBSTYLE_CHECK,
TBSTYLE_DROPDOWN, TBSTYLE_SEP, TBSTYLE_SEP);
{ TToolButton }
constructor TToolButton.Create(AOwner: TComponent);
@ -1121,6 +1129,9 @@ end;
{
$Log$
Revision 1.13 2004/02/22 16:22:53 mattias
fixed old toolbar compilation
Revision 1.12 2004/02/22 16:20:29 mattias
fixed old toolbar compilation