paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 17:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win32: fix TListView losing focus after EndUpdate. Issue #40786.

Browse Source 
(cherry picked from commit 88827aa909)
This commit is contained in:
Bart 2024-02-23 22:56:08 +01:00 committed by Maxim Ganetsky
parent 7de8a80ca0
commit ab817f24ee
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32wscustomlistview.inc
View File

@ -1019,6 +1019,7 @@ end;
class procedure TWin32WSCustomListView.EndUpdate(const ALV: TCustomListView);
var
ColIndex : Integer;
WasFocused: Boolean;
begin
if not WSCheckHandleAllocated(ALV, 'EndUpdate')
then Exit;
@ -1032,6 +1033,10 @@ begin
// column resizing, but this way we we can really enforce it).
// ShowWindow() itself does not force an immediate redraw,
// so it won't flicker at all.
// If parent of the listview is not the form itself, then
// hiding it may cause it to loose focus. Issue #40786
WasFocused := ALV.Focused;
ShowWindow(ALV.Handle, SW_HIDE);
for ColIndex := 0 to TCustomListViewAccess(ALV).Columns.Count - 1 do
if ALV.Column[ColIndex].AutoSize
@ -1040,6 +1045,8 @@ begin
SendMessage(ALV.Handle,WM_SETREDRAW,WPARAM(True),0);
if ALV.Visible then
ShowWindow(ALV.Handle, SW_SHOW);
if WasFocused and ALV.CanSetFocus then
ALV.SetFocus;
end;
class function TWin32WSCustomListView.GetBoundingRect(const ALV: TCustomListView): TRect;