We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 30a4638 commit c48cf22Copy full SHA for c48cf22
Designer/FPreview.pas
@@ -449,8 +449,7 @@ procedure TFormPreview.CommandCreated(const Sender: TUIRibbon;
449
try
450
for I := 0 to 19 do
451
begin
452
- RecentItem := TUIRecentItem.Create;
453
- RecentItem.LabelText := RS_ITEM + ' ' + Char(Ord('A') + I);
+ RecentItem := TUIRecentItem.Create(RS_ITEM + ' ' + Char(Ord('A') + I));
454
RecentItem.Description := RS_ITEM_DESC + ' ' + Char(Ord('A') + I);
455
RecentItem.Pinned := False;
456
CmdRecentItems.Items.Add(RecentItem);
0 commit comments