bk/2023-10-17-0244

Author: César Cardoso

Package/C4DWizard.dpk

@@ -130,5 +130,4 @@ contains
   C4D.Wizard.UsesOrganization.ListOfUses in '..\Src\UsesOrganization\C4D.Wizard.UsesOrganization.ListOfUses.pas',
   C4D.Wizard.FormatSource.View in '..\Src\FormatSource\C4D.Wizard.FormatSource.View.pas' {C4DWizardFormatSourceView},
   C4D.Wizard.Notes.View in '..\Src\Notes\C4D.Wizard.Notes.View.pas' {C4DWizardNotesView};
-
 end.

Src/Notes/C4D.Wizard.Notes.View.dfm

@@ -51,7 +51,6 @@ object C4DWizardNotesView: TC4DWizardNotesView
     Padding.Right = 2
     Padding.Bottom = 2
     TabOrder = 0
-    ExplicitTop = 555
     object Bevel2: TBevel
       AlignWithMargins = True
       Left = 277
@@ -364,7 +363,6 @@ object C4DWizardNotesView: TC4DWizardNotesView
     Padding.Top = 2
     ParentBackground = False
     TabOrder = 1
-    ExplicitHeight = 551
     object RichEdit: TRichEdit
       Left = 0
       Top = 2
@@ -385,7 +383,6 @@ object C4DWizardNotesView: TC4DWizardNotesView
       ScrollBars = ssVertical
       TabOrder = 0
       Zoom = 100
-      ExplicitHeight = 549
     end
   end
   object ImageList1: TImageList

Src/Notes/C4D.Wizard.Notes.View.pas

@@ -20,7 +20,8 @@ interface
   Vcl.ExtCtrls,
   Vcl.ImgList,
   Vcl.Menus,
-  DockForm;
+  DockForm,
+  DeskUtil;
 
 type
   TC4DWizardNotesView = class(TDockableForm)
@@ -97,7 +98,6 @@ procedure C4DWizardNotesViewShowDockableForm;
 implementation
 
 uses
-  DeskUtil,
   C4D.Wizard.Utils,
   C4D.Wizard.Utils.OTA;
 
@@ -133,7 +133,7 @@ procedure C4DWizardNotesViewShowDockableForm;
 constructor TC4DWizardNotesView.Create(AOwner: TComponent);
 begin
   inherited;
-  DeskSection := Name;
+  DeskSection := Self.Name;
   AutoSave := True;
   SaveStateNecessary := True;
   RichEdit.Lines.Clear;

Src/Reopen/C4D.Wizard.Reopen.View.dfm

@@ -114,7 +114,7 @@ object C4DWizardReopenView: TC4DWizardReopenView
         Left = 10
         Top = 15
         Width = 127
-        Height = 31
+        Height = 21
         Cursor = crHandPoint
         Margins.Left = 10
         Margins.Top = 15

Src/Reopen/C4D.Wizard.Reopen.View.pas

@@ -8,6 +8,7 @@ interface
   System.Classes,
   System.Math,
   System.DateUtils,
+  System.ImageList,
   Winapi.Windows,
   Vcl.Controls,
   Vcl.ExtCtrls,
@@ -17,6 +18,7 @@ interface
   Vcl.ComCtrls,
   Vcl.Menus,
   Vcl.Clipbrd,
+  Vcl.ImgList,
   DockForm,
   C4D.Wizard.Types,
   C4D.Wizard.Utils.ListView;
@@ -195,7 +197,7 @@ procedure C4DWizardReopenViewShowDockableForm;
 constructor TC4DWizardReopenView.Create(AOwner: TComponent);
 begin
   inherited;
-  DeskSection := Name;
+  DeskSection := Self.Name;
   AutoSave := True;
   SaveStateNecessary := True;
   Self.ConfButtonCreate;