opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix unfocused grid on the second arrow_down, broken in r1871

Browse Source
This commit is contained in:
Ansgar Becker
2008-10-19 12:24:57 +00:00
parent 0e11fdd184
commit 89dd84b7e1
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/childwin.pas
View File

@@ -5836,7 +5836,7 @@ procedure TMDIChild.DataGridFocusChanging(Sender: TBaseVirtualTree; OldNode,
Boolean);
begin
// Detect changed focus and update row
if Assigned(OldNode) and Assigned(NewNode) and (OldNode <> NewNode) then
if Assigned(OldNode) and (OldNode <> NewNode) then
Allowed := DataGridPostUpdateOrInsert(OldNode)
else
Allowed := True;
@@ -6027,8 +6027,8 @@ begin
// Scroll to the bottom to ensure we append the new row at the very last FDataGridResult chunk
DataGrid.FocusedNode := DataGrid.GetLast;
DataGrid.Repaint;
DataGrid.BeginUpdate;
DataGrid.FocusedNode := DataGrid.AddChild(nil);
// Steeling focus now to invoke posting a pending row update
DataGrid.FocusedNode := nil;
i := Length(FDataGridResult.Rows);
SetLength(FDataGridResult.Rows, i+1);
SetLength(FDataGridResult.Rows[i].Cells, Length(FDataGridResult.Columns));
@@ -6036,7 +6036,7 @@ begin
for j := 0 to Length(FDataGridResult.Rows[i].Cells) - 1 do begin
FDataGridResult.Rows[i].Cells[j].Text := '';
end;
DataGrid.EndUpdate;
DataGrid.FocusedNode := DataGrid.AddChild(nil);
DataGrid.ClearSelection;
DataGrid.Selected[DataGrid.FocusedNode] := True;
DataGridHasChanges := True;