opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Revert r1092 and apply an alternate solution. Wants nothing more than to be tested badly.

Browse Source
This commit is contained in:
rosenfield
2007-11-09 15:02:07 +00:00
parent 0cc2bd5f7f
commit 55acd1c45a
1 changed files with 5 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/smdbgrid/source/SMDBGrid.pas
View File

@ -1028,17 +1028,11 @@ end;
function TSMDBGrid.AcquireFocus: Boolean;
begin
Result := True;
if FAcquireFocus and not (csDesigning in ComponentState) then
if FAcquireFocus and CanFocus and not (csDesigning in ComponentState) then
begin
if (InplaceEditor <> nil) then begin
if InplaceEditor.CanFocus then begin
InplaceEditor.SetFocus;
Result := InplaceEditor.Focused;
end;
end else if CanFocus then begin
Windows.SetFocus(Self.Handle);
SetFocus;
Result := Focused;
end;
Result := Focused or (InplaceEditor <> nil) and InplaceEditor.Focused;
end;
end;
@ -1459,7 +1453,7 @@ var
EnableClick: Boolean;
PopCoord: TPoint;
begin
if not AcquireFocus then Exit;
if not AcquireFocus then exit;
if (ssDouble in Shift) and (Button = mbLeft) then
begin
DblClick;