Skip to content

Commit

Permalink
Fixed designtime exception introdcued when fixing #95.
Browse files Browse the repository at this point in the history
  • Loading branch information
Joachim Marder committed Aug 16, 2018
1 parent c48cf22 commit ea8913b
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion Lib/UIRibbon.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1070,9 +1070,11 @@ procedure TUIRibbon.LoadFramework;
var
Intf: IUnknown;
begin
if (csDesigning in ComponentState) then
exit;
FAvailable := Succeeded(CoCreateInstance(CLSID_UIRibbonFramework, nil,
CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IUnknown, Intf));
if (not FAvailable) and not (csDesigning in ComponentState) then
if (not FAvailable) then
Height := 0
else
begin
Expand Down

0 comments on commit ea8913b

Please sign in to comment.