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

Qt: implemented case when an TWinControl have csNoFocus in TControlStyle

Browse Source 
git-svn-id: trunk@33077 -
This commit is contained in:
zeljko 2011-10-25 07:34:57 +00:00
parent ca38c9ebc5
commit 018a1428f5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/qt/qtwidgets.pas
View File

@ -1804,7 +1804,12 @@ begin
// set focus policy
if (LCLObject <> nil) and not (Self is TQtMainWindow) then
setFocusPolicy(QtClickFocus);
begin
if csNoFocus in LCLObject.ControlStyle then
setFocusPolicy(QtNoFocus)
else
setFocusPolicy(QtClickFocus);
end;
if (csDesigning in LCLObject.ComponentState) and not
(Self is TQtMainWindow) and