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

fixed grids picklist losing focus when dropdown the combobox list

Browse Source 
git-svn-id: trunk@9123 -
This commit is contained in:
jesus 2006-04-15 06:03:05 +00:00
parent 1167080b3b
commit feb60a3907
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/grids.pas
View File

@ -7848,13 +7848,10 @@ begin
TransMsg('PicklistEditor: ', TheMessage);
{$Endif}
if TheMessage.msg=LM_KILLFOCUS then begin
// MWE: ???
// TODO: why are only the lower bytes of a handle checked ???
// In the LCL a Handle has the size of a PtrUInt
if (cardinal(TheMessage.WParam) and $FFFF) = cardinal(Handle) then begin
// what a weird thing, we are losing the focus
// and giving it to ourselves
TheMessage.Result := 0; // doesn't allow such thing
if HWND(TheMessage.WParam) = HWND(Handle) then begin
// lost the focus but it returns to ourselves
// eat the message.
TheMessage.Result := 0;
exit;
end;
end;
@ -7960,9 +7957,11 @@ end;
procedure TPickListCellEditor.EditingDone;
begin
{$ifdef dbgGrid}DebugLn('TPickListCellEditor.EditingDone INIT');{$ENDIF}
inherited EditingDone;
if FGrid<>nil then
FGrid.EditingDone;
{$ifdef dbgGrid}DebugLn('TPickListCellEditor.EditingDone DONE');{$ENDIF}
end;
procedure TPickListCellEditor.Change;
@ -7988,14 +7987,16 @@ end;
procedure TPickListCellEditor.DropDown;
begin
{$ifDef dbgGrid} DebugLn('TPickListCellEditor.DropDown INIT'); {$Endif}
inherited DropDown;
//DebugLn('*********** DROPDOWN ********** ');
{$ifDef dbgGrid} DebugLn('TPickListCellEditor.DropDown DONE'); {$Endif}
end;
procedure TPickListCellEditor.CloseUp;
begin
{$ifDef dbgGrid} DebugLn('TPickListCellEditor.CloseUp INIT'); {$Endif}
inherited CloseUp;
//DebugLn('*********** CLOSEUP ********** ');
{$ifDef dbgGrid} DebugLn('TPickListCellEditor.CloseUp DONE'); {$Endif}
end;
procedure TPickListCellEditor.msg_GetValue(var Msg: TGridMessage);

1
lcl/interfaces/win32/win32callback.inc
View File

@ -1221,6 +1221,7 @@ Begin
DebugLn('WM_KILLFOCUS received for window ', IntToHex(Window, 8));
{$endif}
LMessage.Msg := LM_KILLFOCUS;
LMessage.WParam := WParam;
End;
//TODO:LM_KILLCHAR,LM_KILLWORD,LM_KILLLINE
WM_LBUTTONDBLCLK: