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

EditButton: yet another attempt to get focus right on QT when (tabStop = False)

Browse Source 
git-svn-id: trunk@44836 -
This commit is contained in:
bart 2014-04-28 15:29:23 +00:00
parent 22443c165c
commit 394e7ead52
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/editbtn.pas
View File

@ -217,6 +217,7 @@ type
procedure SetAutoSize(AValue: Boolean); override;
procedure SetColor(AValue: TColor); override;
procedure SetCursor(AValue: TCursor); override;
procedure SetFocus; override;
property AutoSelect: Boolean read GetAutoSelect write SetAutoSelect default True;
property AutoSelected: Boolean read GetAutoSelected write SetAutoSelected;
@ -1319,6 +1320,11 @@ begin
FEdit.Cursor := AValue;
end;
procedure TCustomEditButton.SetFocus;
begin
FEdit.SetFocus;
end;
procedure TCustomEditButton.SetFlat(AValue: Boolean);
begin
if FFlat = AValue then