paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:40:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Always create enabled controls in designer. Regression revision 58448 #9733fa84ab. Delphi compatible.

Browse Source 
git-svn-id: trunk@58740 -
This commit is contained in:
michl 2018-08-19 09:27:46 +00:00
parent f9781e8831
commit 1d1986b465
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/wincontrol.inc
View File

@ -6095,7 +6095,7 @@ begin
Params.ExStyle := Params.ExStyle or WS_EX_CLIENTEDGE;
if TabStop then
Params.Style := Params.Style or WS_TABSTOP;
if not IsEnabled then
if not IsEnabled and not (csDesigning in ComponentState) then
Params.Style := Params.Style or WS_DISABLED;
if (Parent <> nil) then