paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 05:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed and clearified loaded

Browse Source 
git-svn-id: trunk@6581 -
This commit is contained in:
marc 2005-01-13 23:37:33 +00:00
parent fe0efb9fa5
commit 294f1041bd
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/customcheckbox.inc
View File

@ -193,9 +193,11 @@ end;
procedure TCustomCheckBox.Loaded;
begin
// set first the loaded FState, otherwise the inherited Loaded will load the
// the interface state
TWSCustomCheckBoxClass(WidgetSetClass).SetState(Self, FState);
// Send first the FState to the interface before calling inherited,
// otherwise the FState will be lost and the default interface State is taken.
// TODO: MWE, remove this, it should be handled by InitializeWnd
if HandleAllocated
then TWSCustomCheckBoxClass(WidgetSetClass).SetState(Self, FState);
inherited Loaded;
end;
@ -227,6 +229,9 @@ end;
{
$Log$
Revision 1.30 2005/01/13 23:37:33 marc
* Fixed and clearified loaded
Revision 1.29 2005/01/11 13:25:23 vincents
TCustomCheckBox.AllowGray defaults to false.