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

LCL: WinControl: Fixed revision 58448 #9733fa84ab: Create disabled control when control is disabled in designer. Issue #33923

Browse Source 
git-svn-id: trunk@58497 -
This commit is contained in:
michl 2018-07-12 09:06:48 +00:00
parent 3af5473c5e
commit 1a0431a7ad
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/wincontrol.inc
View File

@ -6095,6 +6095,8 @@ begin
Params.ExStyle := Params.ExStyle or WS_EX_CLIENTEDGE;
if TabStop then
Params.Style := Params.Style or WS_TABSTOP;
if not IsEnabled then
Params.Style := Params.Style or WS_DISABLED;
if (Parent <> nil) then
Params.WndParent := Parent.Handle