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

IconFinder: Fix hanging after arrow key press. Patch by @dsiders, issue #41142

Browse Source
This commit is contained in:
wp_xyz 2024-09-15 11:29:54 +02:00
parent 3f8ba46cfc
commit be8e37dc2f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/iconfinder/source/basicthumbnails.pas
View File

@ -388,6 +388,7 @@ begin
SelectedIndex := SelectedIndex + (ThumbnailCount - 1 - SelectedIndex) div FColCount * FColCount; SelectedIndex := SelectedIndex + (ThumbnailCount - 1 - SelectedIndex) div FColCount * FColCount;
end; end;
end; end;
Key := 0; // discard key... not handled in TWinControl or handled here
end; end;
procedure TBasicThumbnailViewer.MouseDown(Button: TMouseButton; Shift:TShiftState; procedure TBasicThumbnailViewer.MouseDown(Button: TMouseButton; Shift:TShiftState;