bk/2024-09-18-1525

Author: Cesar4D

Src/View.Main.dfm

@@ -77,6 +77,15 @@ object ViewMain: TViewMain
       TabOrder = 4
       OnClick = btnConstantesClick
     end
+    object Button1: TButton
+      Left = 128
+      Top = 208
+      Width = 75
+      Height = 25
+      Caption = 'Button1'
+      TabOrder = 5
+      OnClick = Button1Click
+    end
   end
   object Panel6: TPanel
     Left = 0

Src/View.Main.pas

@@ -22,9 +22,10 @@ interface
 
 type
   /// <summary> Usando em enums, use tcSim; caso contrário, use tcNao. </summary>
+  /// <version> 1.0.0 </version>
   TCalcular = (tcSim, tcNao);
 
-  /// <summary> Usando Help Insight para classes. </summary>
+  /// <summary> Usando Help Insight para classes - YouTube. </summary>
   TViewMain = class(TForm)
     pnBackTop: TPanel;
     btnUsandoEmMetodos: TButton;
@@ -46,14 +47,16 @@   TViewMain = class(TForm)
     btnUsandoEmVariaveisLocais: TButton;
     btnUsandoEmVariaveisDeInstancia: TButton;
     btnConstantes: TButton;
+    Button1: TButton;
     procedure btnUsandoEmMetodosClick(Sender: TObject);
     procedure btnUsandoEmEnumsClick(Sender: TObject);
     procedure lbRepositorioClick(Sender: TObject);
     procedure btnUsandoEmVariaveisDeInstanciaClick(Sender: TObject);
     procedure btnUsandoEmVariaveisLocaisClick(Sender: TObject);
     procedure btnConstantesClick(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
   private
-    /// <summary> Usando Help Insight para variáveis de instância </summary>
+    /// <summary> Usando Help Insight para variáveis de instância - YouTUbe.</summary>
     FTest: string;
   public
 
@@ -104,6 +107,17 @@ procedure TViewMain.btnUsandoEmVariaveisLocaisClick(Sender: TObject);
   ShowMessage(LTest);
 end;
 
+procedure TViewMain.Button1Click(Sender: TObject);
+const
+  /// <summary> Esta constante de teste
+  ///  <p> linha 2 </p>
+  ///  <p> <b> Linha 3 </b> </p>
+  ///  </summary>
+  TESTANDO = 'tSTE';
+begin
+
+end;
+
 procedure TViewMain.btnUsandoEmVariaveisDeInstanciaClick(Sender: TObject);
 begin
   //PARA TESTAR: REPOUSE O MOUSE SOBRE FTest
@@ -115,6 +129,10 @@ procedure TViewMain.btnConstantesClick(Sender: TObject);
 const
   /// <summary> Recurso suportado em constantes </summary>
   TESTE = 'Constante teste';
+
+var
+  /// <summary> Recurso suportado em constantes </summary>
+  LVar: Integer;
 begin
   //PARA TESTAR: REPOUSE O MOUSE SOBRE TESTE
   ShowMessage(TESTE);