add-bnt-data-in-setting

Author: Cesar4D

Src/Settings/DelphiAIDev.Settings.View.dfm

@@ -402,6 +402,31 @@ object DelphiAIDevSettingsView: TDelphiAIDevSettingsView
           end
         end
       end
+      object gboxData: TGroupBox
+        Left = 0
+        Top = 436
+        Width = 632
+        Height = 58
+        Align = alTop
+        Caption = ' Data '
+        Padding.Left = 2
+        Padding.Top = 5
+        Padding.Bottom = 3
+        TabOrder = 3
+        ExplicitTop = 426
+        ExplicitWidth = 686
+        object btnOpenDataFolder: TButton
+          Left = 4
+          Top = 20
+          Width = 122
+          Height = 33
+          Cursor = crHandPoint
+          Align = alLeft
+          Caption = 'Open Data Folder'
+          TabOrder = 0
+          OnClick = btnOpenDataFolderClick
+        end
+      end
     end
     object pnBottom: TPanel
       Left = 0

Src/Settings/DelphiAIDev.Settings.View.pas

@@ -56,6 +56,8 @@   TDelphiAIDevSettingsView = class(TForm)
     lbLinkGemini03: TLabel;
     Label4: TLabel;
     cBoxLanguageQuestions: TComboBox;
+    gboxData: TGroupBox;
+    btnOpenDataFolder: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure btnCloseClick(Sender: TObject);
@@ -67,6 +69,7 @@   TDelphiAIDevSettingsView = class(TForm)
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure lbRestoreDefaultsClick(Sender: TObject);
     procedure ckColorHighlightCodeDelphiUseClick(Sender: TObject);
+    procedure btnOpenDataFolderClick(Sender: TObject);
   private
     FSettings: TDelphiAIDevSettings;
     procedure SaveSettings;
@@ -247,4 +250,15 @@ procedure TDelphiAIDevSettingsView.SaveSettings;
   FSettings.SaveData;
 end;
 
+procedure TDelphiAIDevSettingsView.btnOpenDataFolderClick(Sender: TObject);
+var
+  LPathFolder: string;
+begin
+  LPathFolder := TUtils.GetPathFolderRoot;
+  if(not DirectoryExists(LPathFolder))then
+    TUtils.ShowMsg('Forder not found: ' + LPathFolder);
+
+  TUtils.OpenFolder(LPathFolder);
+end;
+
 end.