Skip to content

Commit 26fb82c

Browse files
author
César Cardoso
committed
bk/2023-10-17-0324
1 parent de1ae20 commit 26fb82c

9 files changed

Lines changed: 1364 additions & 12 deletions

‎Package/C4DWizard.dpk‎

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -129,5 +129,7 @@ contains
129129
C4D.Wizard.IDE.ShortCut.KeyboardBinding in '..\Src\IDE\ShortCut\C4D.Wizard.IDE.ShortCut.KeyboardBinding.pas',
130130
C4D.Wizard.UsesOrganization.ListOfUses in '..\Src\UsesOrganization\C4D.Wizard.UsesOrganization.ListOfUses.pas',
131131
C4D.Wizard.FormatSource.View in '..\Src\FormatSource\C4D.Wizard.FormatSource.View.pas' {C4DWizardFormatSourceView},
132-
C4D.Wizard.Notes.View in '..\Src\Notes\C4D.Wizard.Notes.View.pas' {C4DWizardNotesView};
132+
C4D.Wizard.Notes.View in '..\Src\Notes\C4D.Wizard.Notes.View.pas' {C4DWizardNotesView},
133+
Teste in '..\Src\Teste.pas' {Form1};
134+
133135
end.

‎Package/C4DWizard.dproj‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -289,6 +289,10 @@
289289
<Form>C4DWizardNotesView</Form>
290290
<FormType>dfm</FormType>
291291
</DCCReference>
292+
<DCCReference Include="..\Src\Teste.pas">
293+
<Form>Form1</Form>
294+
<FormType>dfm</FormType>
295+
</DCCReference>
292296
<RcItem Include="Img\C4D_Logo.bmp">
293297
<ResourceType>BITMAP</ResourceType>
294298
<ResourceId>C4D_Logo</ResourceId>

‎Src/C4D.Wizard.Register.pas‎

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,8 @@ interface
1919
C4D.Wizard.IDE.EditServicesNotifier,
2020
C4D.Wizard.IDE.CompileNotifier,
2121
C4D.Wizard.IDE.ShortCut.KeyboardBinding,
22-
C4D.Wizard.Notes.View;
22+
C4D.Wizard.Notes.View,
23+
Teste;
2324

2425
{$IFDEF C4D_WIZARD_DLL}
2526
function RegisterDLL(const BorlandIDEServices: IBorlandIDEServices;
@@ -42,6 +43,7 @@ procedure RegistrarAll;
4243
C4D.Wizard.IDE.EditServicesNotifier.RegisterSelf;
4344
C4D.Wizard.IDE.CompileNotifier.RegisterSelf;
4445
C4D.Wizard.Notes.View.RegisterSelf;
46+
Teste.RegisterSelf;
4547
end;
4648

4749
{$IFDEF C4D_WIZARD_DLL}

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

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,8 @@ implementation
5252
C4D.Wizard.View.About,
5353
C4D.Wizard.DefaultFilesInOpeningProject,
5454
C4D.Wizard.FormatSource.View,
55-
C4D.Wizard.Notes.View;
55+
C4D.Wizard.Notes.View,
56+
Teste;
5657

5758
class procedure TC4DWizardIDEMainMenuClicks.UsesOrganizationClick(Sender: TObject);
5859
var
@@ -129,6 +130,8 @@ class procedure TC4DWizardIDEMainMenuClicks.ReplaceClick(Sender: TObject);
129130

130131
class procedure TC4DWizardIDEMainMenuClicks.NotesClick(Sender: TObject);
131132
begin
133+
Teste.C4DWizardReopenViewShowDockableForm;
134+
132135
C4D.Wizard.Notes.View.C4DWizardNotesViewShowDockableForm;
133136
end;
134137

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

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -389,7 +389,7 @@ object C4DWizardNotesView: TC4DWizardNotesView
389389
Left = 200
390390
Top = 96
391391
Bitmap = {
392-
494C01010F003000040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
392+
494C01010E003000040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
393393
0000000000003600000028000000400000004000000001002000000000000040
394394
0000000000000000000000000000000000000000000000000000000000000000
395395
0000000000000000000000000000000000000000000000000000000000000000
@@ -905,11 +905,11 @@ object C4DWizardNotesView: TC4DWizardNotesView
905905
0000000000000000000000000000EDC49A00DDAE9400E0B39600DCA88700DCA8
906906
8700DCA88700B5837800FBF2E50000000000424D3E000000000000003E000000
907907
2800000040000000400000000100010000000000000200000000000000000000
908-
000000000000000000000000FFFFFF00FFFFFFFFFFFF0000C003C003FFFF0000
909-
80018001FFFF000080018001FFFF000080018001E0FF000080018001F1FF0000
910-
80018001F1FF000080018001F1BF000080018001F03F000080018001F1BF0000
911-
80018001F1FF000080018001F19F000080018001E01F000080018001FFFF0000
912-
C003C003FFFF0000FFFFFFFFFFFF0000FFFFFFFFFFFFFFFFC003C003C003C003
908+
000000000000000000000000FFFFFF00FFFFFFFF00000000C003C00300000000
909+
8001800100000000800180010000000080018001000000008001800100000000
910+
8001800100000000800180010000000080018001000000008001800100000000
911+
8001800100000000800180010000000080018001000000008001800100000000
912+
C003C00300000000FFFFFFFF00000000FFFFFFFFFFFFFFFFC003C003C003C003
913913
8001800180018001800180018001800180018001800180018001800180018001
914914
8001800180018001800180018001800180018001800180018001800180018001
915915
8001800180018001800180018001800180018001800180018001800180018001

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

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -141,7 +141,7 @@ constructor TC4DWizardNotesView.Create(AOwner: TComponent);
141141

142142
procedure TC4DWizardNotesView.FormCreate(Sender: TObject);
143143
begin
144-
RichEdit.Lines.Clear;
144+
//RichEdit.Lines.Clear;
145145
end;
146146

147147
procedure TC4DWizardNotesView.FormShow(Sender: TObject);
@@ -155,7 +155,7 @@ procedure TC4DWizardNotesView.FormShow(Sender: TObject);
155155

156156
procedure TC4DWizardNotesView.FormHide(Sender: TObject);
157157
begin
158-
Self.WriteToFile;
158+
//Self.WriteToFile;
159159
end;
160160

161161
procedure TC4DWizardNotesView.ReadFromFile;

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

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -157,7 +157,6 @@ implementation
157157

158158
{$R *.dfm}
159159

160-
161160
const
162161
C_INDEX_SUBITEM_Nickname = 0;
163162
C_INDEX_SUBITEM_Name = 1;

0 commit comments

Comments
 (0)