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

* lcl control: use only ColorIsStored for Color - no other default value (see 1837c65413)

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-11-21 12:04:40 +01:00
parent 7a73eac63a
commit 75ebb1fc4a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -1729,7 +1729,7 @@ type
property ClientOrigin: TPoint read GetClientOrigin; property ClientOrigin: TPoint read GetClientOrigin;
property ClientRect: TRect read GetClientRect; property ClientRect: TRect read GetClientRect;
property ClientWidth: Integer read GetClientWidth write SetClientWidth stored IsClientWidthStored; property ClientWidth: Integer read GetClientWidth write SetClientWidth stored IsClientWidthStored;
property Color: TColor read FColor write SetColor stored ColorIsStored default {$ifdef UseCLDefault}clDefault{$else}clWindow{$endif}; property Color: TColor read FColor write SetColor stored ColorIsStored nodefault;
property Constraints: TSizeConstraints read FConstraints write SetConstraints; property Constraints: TSizeConstraints read FConstraints write SetConstraints;
property ControlOrigin: TPoint read GetControlOrigin; property ControlOrigin: TPoint read GetControlOrigin;
property ControlState: TControlState read FControlState write FControlState; property ControlState: TControlState read FControlState write FControlState;

2
lcl/stdctrls.pp
View File

@ -1615,7 +1615,7 @@ type
procedure Paint; override; procedure Paint; override;
procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override; procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); override;
property AutoSize default True; property AutoSize default True;
property Color nodefault; property Color;
end; end;