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

Examples/VirtualTreeView: Fix "Advanced" demo crashing when option -CR is active.

Browse Source 
git-svn-id: trunk@65096 -
This commit is contained in:
wp 2021-05-09 10:40:41 +00:00
parent 35660b1577
commit 3368c71d4e
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/virtualtreeview/advanced/Editors.pas
View File

@ -250,7 +250,10 @@ begin
if node <> nil then FTree.FocusedNode := node;
Key := 0;
if FTree.CanEdit(FTree.FocusedNode, FTree.FocusedColumn) then
{$PUSH}
{$OBJECTCHECKS OFF}
TVirtualStringTreeAccess(FTree).DoEdit;
{$POP}
end;
VK_UP,
@ -295,14 +298,20 @@ begin
repeat
// Find a column for the current node which can be focused.
while (col > NoColumn) and
{$PUSH}
{$OBJECTCHECKS OFF}
not TVirtualStringTreeAccess(FTree).DoFocusChanging(FNode, node, FColumn, col)
{$POP}
do
col := GetNextColumn(col, True);
if col > NoColumn then
begin
// Set new node and column in one go.
{$PUSH}
{$OBJECTCHECKS OFF}
TVirtualStringTreeAccess(FTree).SetFocusedNodeAndColumn(node, col);
{$POP}
Break;
end;
@ -319,11 +328,14 @@ begin
FTree.FocusedColumn := col;
end;
if FTree.CanEdit(FTree.FocusedNode, FTree.FocusedColumn) then
{$PUSH}
{$OBJECTCHECKS OFF}
with TVirtualStringTreeAccess(FTree) do
begin
EditColumn := FocusedColumn;
DoEdit;
end;
{$POP}
end;
end;