Bring order of implicit event calls into the right order to fix out of date ALTER TABLE code

This commit is contained in:
Ansgar Becker
2009-06-11 15:59:20 +00:00
parent 1b8301c64e
commit 184af6ce07

View File

@ -975,13 +975,13 @@ begin
ColumnsChanges.Add(NewText); ColumnsChanges.Add(NewText);
Columns[Node.Index] := NewText; Columns[Node.Index] := NewText;
end else if Column > 1 then begin end else if Column > 1 then begin
ColumnsChanges.Add(Columns[Node.Index]);
Properties := TWideStringList(Columns.Objects[Node.Index]); Properties := TWideStringList(Columns.Objects[Node.Index]);
Properties[Column-2] := NewText; Properties[Column-2] := NewText;
if (Column = 2) and (not CellEditingAllowed(Node, 3)) then begin if (Column = 2) and (not CellEditingAllowed(Node, 3)) then begin
// Reset length/set for column types which don't support that // Reset length/set for column types which don't support that
Properties[1] := ''; Properties[1] := '';
end; end;
ColumnsChanges.Add(Columns[Node.Index]);
end; end;
end; end;
@ -1001,8 +1001,8 @@ begin
// For checkboxes, cell editors are disabled, instead toggle their state // For checkboxes, cell editors are disabled, instead toggle their state
Props := TWideStringList(Columns.Objects[Click.HitNode.Index]); Props := TWideStringList(Columns.Objects[Click.HitNode.Index]);
if CellEditingAllowed(Click.HitNode, Click.HitColumn) then begin if CellEditingAllowed(Click.HitNode, Click.HitColumn) then begin
Props[Click.HitColumn-2] := BoolToStr(not StrToBool(Props[Click.HitColumn-2]));
ColumnsChanges.Add(Columns[Click.HitNode.Index]); ColumnsChanges.Add(Columns[Click.HitNode.Index]);
Props[Click.HitColumn-2] := BoolToStr(not StrToBool(Props[Click.HitColumn-2]));
VT.InvalidateNode(Click.HitNode); VT.InvalidateNode(Click.HitNode);
end; end;
end else begin end else begin