paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 18:19:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt,Qt5: qt allows child controls in TEdit or similar controls. part of issue #36513

Browse Source 
git-svn-id: trunk@62583 -
This commit is contained in:
zeljko 2020-01-24 08:58:24 +00:00
parent 1d3bd3cc4a
commit 976015c331
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/qt/qtobject.inc
View File

@ -1307,6 +1307,7 @@ begin
lcRadialGradientBrush: Result := LCL_CAPABILITY_YES; lcRadialGradientBrush: Result := LCL_CAPABILITY_YES;
lcTransparentWindow: Result := LCL_CAPABILITY_YES; lcTransparentWindow: Result := LCL_CAPABILITY_YES;
lcNativeTaskDialog: Result := {$ifdef MSWINDOWS} LCL_CAPABILITY_NO {$else} LCL_CAPABILITY_YES {$endif}; lcNativeTaskDialog: Result := {$ifdef MSWINDOWS} LCL_CAPABILITY_NO {$else} LCL_CAPABILITY_YES {$endif};
lcAllowChildControlsInNativeControls: Result := LCL_CAPABILITY_YES;
else else
Result := inherited GetLCLCapability(ACapability); Result := inherited GetLCLCapability(ACapability);
end; end;

1
lcl/interfaces/qt5/qtobject.inc
View File

@ -1237,6 +1237,7 @@ begin
lcTransparentWindow: Result := LCL_CAPABILITY_YES; lcTransparentWindow: Result := LCL_CAPABILITY_YES;
lcTextHint: Result := LCL_CAPABILITY_YES; lcTextHint: Result := LCL_CAPABILITY_YES;
lcNativeTaskDialog: Result := {$ifdef MSWINDOWS} LCL_CAPABILITY_NO {$else} LCL_CAPABILITY_YES {$endif}; lcNativeTaskDialog: Result := {$ifdef MSWINDOWS} LCL_CAPABILITY_NO {$else} LCL_CAPABILITY_YES {$endif};
lcAllowChildControlsInNativeControls: Result := LCL_CAPABILITY_YES;
else else
Result := inherited GetLCLCapability(ACapability); Result := inherited GetLCLCapability(ACapability);
end; end;