bk/2023-10-17-0330

Author: César Cardoso

Package/C4DWizard.dpk

@@ -129,7 +129,6 @@ contains
   C4D.Wizard.IDE.ShortCut.KeyboardBinding in '..\Src\IDE\ShortCut\C4D.Wizard.IDE.ShortCut.KeyboardBinding.pas',
   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},
-  Teste in '..\Src\Teste.pas' {Form1};
+  C4D.Wizard.Notes.View in '..\Src\Notes\C4D.Wizard.Notes.View.pas' {C4DWizardNotesView};
 
 end.

Package/C4DWizard.dproj

@@ -289,10 +289,6 @@
             <Form>C4DWizardNotesView</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="..\Src\Teste.pas">
-            <Form>Form1</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
         <RcItem Include="Img\C4D_Logo.bmp">
             <ResourceType>BITMAP</ResourceType>
             <ResourceId>C4D_Logo</ResourceId>

Src/C4D.Wizard.Register.pas

@@ -19,8 +19,7 @@ interface
   C4D.Wizard.IDE.EditServicesNotifier,
   C4D.Wizard.IDE.CompileNotifier,
   C4D.Wizard.IDE.ShortCut.KeyboardBinding,
-  C4D.Wizard.Notes.View,
-  Teste;
+  C4D.Wizard.Notes.View;
 
 {$IFDEF C4D_WIZARD_DLL}
 function RegisterDLL(const BorlandIDEServices: IBorlandIDEServices;
@@ -43,7 +42,6 @@ procedure RegistrarAll;
   C4D.Wizard.IDE.EditServicesNotifier.RegisterSelf;
   C4D.Wizard.IDE.CompileNotifier.RegisterSelf;
   C4D.Wizard.Notes.View.RegisterSelf;
-  Teste.RegisterSelf;
 end;
 
 {$IFDEF C4D_WIZARD_DLL}

Src/IDE/MainMenu/C4D.Wizard.IDE.MainMenu.Clicks.pas

@@ -52,8 +52,7 @@ implementation
   C4D.Wizard.View.About,
   C4D.Wizard.DefaultFilesInOpeningProject,
   C4D.Wizard.FormatSource.View,
-  C4D.Wizard.Notes.View,
-  Teste;
+  C4D.Wizard.Notes.View;
 
 class procedure TC4DWizardIDEMainMenuClicks.UsesOrganizationClick(Sender: TObject);
 var
@@ -130,8 +129,6 @@ class procedure TC4DWizardIDEMainMenuClicks.ReplaceClick(Sender: TObject);
 
 class procedure TC4DWizardIDEMainMenuClicks.NotesClick(Sender: TObject);
 begin
-  Teste.C4DWizardReopenViewShowDockableForm;
-
   C4D.Wizard.Notes.View.C4DWizardNotesViewShowDockableForm;
 end;
 

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

@@ -1,10 +1,9 @@
 object C4DWizardNotesView: TC4DWizardNotesView
   Left = 0
   Top = 0
-  BorderIcons = [biSystemMenu, biMaximize]
-  Caption = 'Notes'
+  Caption = 'C4DWizardNotesView'
   ClientHeight = 521
-  ClientWidth = 884
+  ClientWidth = 874
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -14,30 +13,65 @@ object C4DWizardNotesView: TC4DWizardNotesView
   KeyPreview = True
   OldCreateOrder = False
   Position = poScreenCenter
-  OnCreate = FormCreate
   OnHide = FormHide
   OnShow = FormShow
   PixelsPerInch = 96
   TextHeight = 13
-  object Bevel1: TBevel
-    AlignWithMargins = True
+  object pnBack: TPanel
     Left = 0
-    Top = 492
-    Width = 884
-    Height = 3
-    Margins.Left = 0
-    Margins.Top = 1
-    Margins.Right = 0
-    Margins.Bottom = 0
-    Align = alBottom
-    Shape = bsBottomLine
-    ExplicitTop = 480
-    ExplicitWidth = 705
+    Top = 0
+    Width = 874
+    Height = 495
+    Align = alClient
+    BevelOuter = bvNone
+    Padding.Top = 2
+    ParentBackground = False
+    TabOrder = 0
+    ExplicitWidth = 812
+    ExplicitHeight = 513
+    object Bevel1: TBevel
+      AlignWithMargins = True
+      Left = 0
+      Top = 492
+      Width = 874
+      Height = 3
+      Margins.Left = 0
+      Margins.Top = 1
+      Margins.Right = 0
+      Margins.Bottom = 0
+      Align = alBottom
+      Shape = bsBottomLine
+      ExplicitTop = 480
+      ExplicitWidth = 705
+    end
+    object RichEdit: TRichEdit
+      Left = 0
+      Top = 2
+      Width = 874
+      Height = 489
+      Align = alClient
+      BevelInner = bvNone
+      BevelOuter = bvNone
+      BorderStyle = bsNone
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlack
+      Font.Height = -12
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentColor = True
+      ParentFont = False
+      PopupMenu = PopupMenu1
+      ScrollBars = ssVertical
+      TabOrder = 0
+      Zoom = 100
+      ExplicitWidth = 812
+      ExplicitHeight = 507
+    end
   end
   object pnTop: TPanel
     Left = 0
     Top = 495
-    Width = 884
+    Width = 874
     Height = 26
     Margins.Left = 0
     Margins.Top = 0
@@ -50,7 +84,9 @@ object C4DWizardNotesView: TC4DWizardNotesView
     Padding.Top = 2
     Padding.Right = 2
     Padding.Bottom = 2
-    TabOrder = 0
+    TabOrder = 1
+    ExplicitTop = 513
+    ExplicitWidth = 812
     object Bevel2: TBevel
       AlignWithMargins = True
       Left = 277
@@ -353,38 +389,6 @@ object C4DWizardNotesView: TC4DWizardNotesView
       OnClick = btnStrikethroughClick
     end
   end
-  object pnBack: TPanel
-    Left = 0
-    Top = 0
-    Width = 884
-    Height = 491
-    Align = alClient
-    BevelOuter = bvNone
-    Padding.Top = 2
-    ParentBackground = False
-    TabOrder = 1
-    object RichEdit: TRichEdit
-      Left = 0
-      Top = 2
-      Width = 884
-      Height = 489
-      Align = alClient
-      BevelInner = bvNone
-      BevelOuter = bvNone
-      BorderStyle = bsNone
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clBlack
-      Font.Height = -12
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentColor = True
-      ParentFont = False
-      PopupMenu = PopupMenu1
-      ScrollBars = ssVertical
-      TabOrder = 0
-      Zoom = 100
-    end
-  end
   object ImageList1: TImageList
     Left = 200
     Top = 96