Skip to content

Commit 70bfe4c

Browse files
author
joachim.marder
committed
The deprecated TUIRibbonForm now compiles again against the current implementation of TUIRibbon.
1 parent 8eb7f96 commit 70bfe4c

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

Lib/UIRibbonForm.pas

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -53,7 +53,7 @@ TUIRibbonForm = class(TForm)
5353

5454
{ The ribbon hosted on this form }
5555
property Ribbon: TUIRibbon read FRibbon;
56-
end deprecated 'There is no longer a need to use TUIRibbonForm, you can place TUIRibbon on your form and it ha all properties in the designer.';
56+
end deprecated 'There is no longer a need to use TUIRibbonForm, you can place TUIRibbon on your form and it has all properties in the designer.';
5757

5858
implementation
5959

@@ -65,7 +65,9 @@ implementation
6565
procedure TUIRibbonForm.AfterConstruction;
6666
begin
6767
inherited;
68-
FRibbon.Load(RibbonResourceName, RibbonInstance);
68+
FRibbon.ResourceName := RibbonResourceName;
69+
FRibbon.ResourceInstance := RibbonInstance;
70+
FRibbon.Load();
6971
RibbonLoaded;
7072
end;
7173

0 commit comments

Comments
 (0)