bk/2025-01-13-1518

Author: Cesar4D

Package/C4DWizard.dproj

@@ -18,7 +18,7 @@ interface
   C4D.Wizard.IDE.ShortCut.KeyboardBinding,
   C4D.Wizard.Notes.View;
 
-procedure Register;
+procedure register;
 
 implementation
 
@@ -35,7 +35,7 @@ procedure RegisterAll;
   C4D.Wizard.Notes.View.RegisterSelf;
 end;
 
-procedure Register;
+procedure register;
 begin
   RegisterAll;
 end;

Package/C4DWizard.res

@@ -15,6 +15,10 @@ interface
   TC4DWizardIDEPopupMenuDesignerComponentSel = class
   private
     class procedure CopyNamesClick(Sender: TObject);
+    class procedure AddItem(const AItem: IMenuItem; const ACaption: WideString;
+      const AName: string = ''; AOnClick: TNotifyEvent = nil);
+    class procedure CopyDataFieldsClick(Sender: TObject);
+    class procedure CopyDataFields;
   public
     class procedure AddSubItems(const AItem: IMenuItem);
     class procedure CopyNames;
@@ -27,7 +31,14 @@ implementation
 
 class procedure TC4DWizardIDEPopupMenuDesignerComponentSel.AddSubItems(const AItem: IMenuItem);
 begin
-  AItem.AddItem('Copy names of selected components', TextToShortCut(''), False, True, Self.CopyNamesClick, 0, 'C4DWizardIDEPopupMenuDesignerComponentSel1');
+  Self.AddItem(AItem, 'Copy names of selected components', 'C4DWizardNamesComponentSel1', Self.CopyNamesClick);
+  Self.AddItem(AItem, 'Copy DataField of selected components', 'C4DWizardDataFieldComponentSel1', Self.CopyDataFieldsClick);
+end;
+
+class procedure TC4DWizardIDEPopupMenuDesignerComponentSel.AddItem(const AItem: IMenuItem; const ACaption: WideString;
+  const AName: string = ''; AOnClick: TNotifyEvent = nil);
+begin
+  AItem.AddItem(ACaption, TextToShortCut(''), False, True, AOnClick, 0, AName);
 end;
 
 class procedure TC4DWizardIDEPopupMenuDesignerComponentSel.CopyNamesClick(Sender: TObject);
@@ -41,27 +52,67 @@ class procedure TC4DWizardIDEPopupMenuDesignerComponentSel.CopyNames;
   LIOTAFormEditor: IOTAFormEditor;
   LIOTAComponent: IOTAComponent;
   LStrList: TStringList;
-  LNomeComponente: String;
+  LNameComponent: String;
+  LSelCount: Integer;
+begin
+  LIOTAModule := (BorlandIDEServices as IOTAModuleServices).CurrentModule;
+  if not Assigned(LIOTAModule) then
+    Exit;
+
+  LIOTAFormEditor := TC4DWizardUtilsOTA.GetIOTAFormEditor(LIOTAModule);
+  if not Assigned(LIOTAFormEditor) then
+    Exit;
+
+  LStrList := TStringList.Create;
+  try
+    for LSelCount := 0 to Pred(LIOTAFormEditor.GetSelCount) do
+    begin
+      LIOTAComponent := LIOTAFormEditor.GetSelComponent(LSelCount);
+      LIOTAComponent.GetPropValueByName('Name', LNameComponent);
+      LStrList.Add(LNameComponent);
+    end;
+
+    if not Trim(LStrList.Text).IsEmpty then
+      Clipboard.AsText := LStrList.Text;
+  finally
+    LStrList.Free;
+  end;
+end;
+
+class procedure TC4DWizardIDEPopupMenuDesignerComponentSel.CopyDataFieldsClick(Sender: TObject);
+begin
+  Self.CopyDataFields;
+end;
+
+class procedure TC4DWizardIDEPopupMenuDesignerComponentSel.CopyDataFields;
+var
+  LIOTAModule: IOTAModule;
+  LIOTAFormEditor: IOTAFormEditor;
+  LIOTAComponent: IOTAComponent;
+  LStrList: TStringList;
+  LNameComponent: String;
   LSelCount: Integer;
 begin
   LIOTAModule := (BorlandIDEServices as IOTAModuleServices).CurrentModule;
-  if(not Assigned(LIOTAModule))then
+  if not Assigned(LIOTAModule) then
     Exit;
 
   LIOTAFormEditor := TC4DWizardUtilsOTA.GetIOTAFormEditor(LIOTAModule);
-  if(not Assigned(LIOTAFormEditor))then
+  if not Assigned(LIOTAFormEditor) then
     Exit;
 
   LStrList := TStringList.Create;
   try
     for LSelCount := 0 to Pred(LIOTAFormEditor.GetSelCount) do
     begin
       LIOTAComponent := LIOTAFormEditor.GetSelComponent(LSelCount);
-      LIOTAComponent.GetPropValueByName('Name', LNomeComponente);
-      LStrList.Add(LNomeComponente)
+      LIOTAComponent.GetPropValueByName('DataField', LNameComponent);
+      if not LNameComponent.Trim.IsEmpty then
+        LStrList.Add(LNameComponent);
     end;
 
-    Clipboard.AsText := LStrList.Text;
+    if not Trim(LStrList.Text).IsEmpty then
+      Clipboard.AsText := LStrList.Text;
   finally
     LStrList.Free;
   end;

Src/C4D.Wizard.Register.pas

@@ -994,8 +994,8 @@ class procedure TC4DWizardUtils.ShowMsgInMemo(AText: string);
 begin
   LC4DWizardViewMemo := TC4DWizardViewMemo.Create(Nil);
   try
-    LC4DWizardViewMemo.mmMensagem.Lines.Clear;
-    LC4DWizardViewMemo.mmMensagem.Lines.Add(AText);
+    LC4DWizardViewMemo.mmMessage.Lines.Clear;
+    LC4DWizardViewMemo.mmMessage.Lines.Add(AText);
     LC4DWizardViewMemo.ShowModal;
   finally
     LC4DWizardViewMemo.Free

Src/IDE/PopupMenuDesigner/C4D.Wizard.IDE.PopupMenuDesigner.ComponentSel.pas

@@ -29,7 +29,7 @@ object C4DWizardViewMemo: TC4DWizardViewMemo
     Color = clWindow
     ParentBackground = False
     TabOrder = 0
-    object mmMensagem: TMemo
+    object mmMessage: TMemo
       AlignWithMargins = True
       Left = 10
       Top = 10
@@ -49,7 +49,7 @@ object C4DWizardViewMemo: TC4DWizardViewMemo
       ParentFont = False
       ScrollBars = ssVertical
       TabOrder = 0
-      OnKeyDown = mmMensagemKeyDown
+      OnKeyDown = mmMessageKeyDown
       ExplicitLeft = 18
       ExplicitTop = 9
     end
@@ -70,7 +70,6 @@ object C4DWizardViewMemo: TC4DWizardViewMemo
     Padding.Bottom = 2
     ParentBackground = False
     TabOrder = 1
-    ExplicitTop = 317
     object btnOK: TButton
       Left = 723
       Top = 2

Src/Utils/C4D.Wizard.Utils.pas

@@ -16,16 +16,14 @@   TC4DWizardViewMemo = class(TForm)
     pnMemo: TPanel;
     pnButtons: TPanel;
     btnOK: TButton;
-    mmMensagem: TMemo;
+    mmMessage: TMemo;
     procedure btnOKClick(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormCreate(Sender: TObject);
-    procedure mmMensagemKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure mmMessageKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
   private
   protected
-
   public
-
   end;
 
 implementation
@@ -43,20 +41,20 @@ procedure TC4DWizardViewMemo.FormCreate(Sender: TObject);
 
 procedure TC4DWizardViewMemo.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
-  case(Key)of
+  case Key of
     VK_F4:
-    if(ssAlt in Shift)then
-      Key := 0;
+      if ssAlt in Shift then
+        Key := 0;
     VK_ESCAPE:
-    if(Shift = [])then
-      btnOK.Click;
+      if Shift = [] then
+        btnOK.Click;
   end;
 end;
 
-procedure TC4DWizardViewMemo.mmMensagemKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+procedure TC4DWizardViewMemo.mmMessageKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
-  if(Key = $41)and(Shift = [ssCtrl])then
-    mmMensagem.SelectAll;
+  if (Key = $41) and (Shift = [ssCtrl]) then
+    mmMessage.SelectAll;
 end;
 
 procedure TC4DWizardViewMemo.btnOKClick(Sender: TObject);