FIX: Access violation

This commit is contained in:
Alexander Koblov 2017-09-20 18:04:03 +00:00
commit af8a9eb0ee

View file

@ -1276,7 +1276,10 @@ begin
SourceButton := Source as TKASToolButton;
TargetToolbar := Sender as TKASToolBar;
if SourceButton.ToolBar <> TargetToolBar then
begin
if (SourceButton = FCurrentButton) then FCurrentButton := nil;
SourceButton.ToolBar.MoveButton(SourceButton, TargetToolbar, nil);
end;
end;
end;