paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 10:20:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

update speedbutton state if Enabled changed (fixes bug #735)

Browse Source 
git-svn-id: trunk@7100 -
This commit is contained in:
micha 2005-04-24 13:42:04 +00:00
parent 5ad015542f
commit 8355126972
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/buttons.pp
View File

@ -306,6 +306,7 @@ type
procedure SetNumGlyphs(Value: integer);
procedure SetSpacing(const Value: integer);
procedure RealSetText(const Value: TCaption); override;
procedure SetEnabled(NewEnabled: boolean); override;
procedure UpdateState(InvalidateOnChange: boolean); virtual;
function GetDrawFlags: integer; virtual;
property MouseInControl: Boolean read FMouseInControl;
@ -404,6 +405,9 @@ end.
{ =============================================================================
$Log$
Revision 1.95 2005/04/24 13:42:04 micha
update speedbutton state if Enabled changed (fixes bug 735)
Revision 1.94 2005/04/17 18:41:15 micha
implement active default control switching
pressing return key executes active default control action

10
lcl/include/speedbutton.inc
View File

@ -127,6 +127,13 @@ begin
end;
end;
procedure TCustomSpeedButton.SetEnabled(NewEnabled: boolean);
begin
inherited;
UpdateState(true);
end;
{------------------------------------------------------------------------------
Method: TCustomSpeedButton.SetFlat
Params: Value:
@ -784,6 +791,9 @@ end;
{ =============================================================================
$Log$
Revision 1.65 2005/04/24 13:42:04 micha
update speedbutton state if Enabled changed (fixes bug 735)
Revision 1.64 2005/02/09 11:25:19 mattias
fixed loading TSpeedButton.Down from Yoyong