mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: the issue that TKASCDEdit could not gain focus when clicked

Browse source
This commit is contained in:
rich2014 2026-05-28 17:30:15 +08:00
commit 0ec7b7e32b
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
components/KASToolBar/kascdedit.pas
View file

@ -26,7 +26,7 @@ unit KASCDEdit;
interface
uses
Classes, SysUtils, LResources, Controls, Graphics, Dialogs, Types,
Classes, SysUtils, LazVersion, LResources, Controls, Graphics, Dialogs, Types,
Menus, CustomDrawnControls, CustomDrawnDrawers, CustomDrawn_Common;
type
@ -412,6 +412,12 @@ begin
begin
inherited MouseDown(Button, Shift, X, Y);
{$IF Laz_FullVersion >= 4990000}
// see also LCL 4b41b7a:
// customdrawn: remove redundant SetFocus from TCDControl.MouseDown
SetFocus();
{$ENDIF}
FDragDropStarted := True;
// Caret positioning