refactor/diversos

Author: Cesar4D

Src/Chat/DelphiAIDev.Chat.View.pas

@@ -428,7 +428,7 @@ procedure TDelphiAIDevChatView.ProcessSend;
   mmReturn.Lines.Clear;
   Self.WaitingFormON;
 
-  LQuestion := '';
+  LQuestion := FSettings.LanguageQuestions.GetLanguageDefinition;
 
   if btnUseCurrentUnitCode.ImageIndex = UseCurrentUnitCode_ImageIndex_ON then
     LQuestion := TUtilsOTA.GetSelectedBlockOrAllCodeUnit.Trim + sLineBreak;
@@ -765,7 +765,12 @@ procedure TDelphiAIDevChatView.ConfLabelCurrentAI;
       lbCurrentAI.Hint := FSettings.ModelGemini;
     TC4DAIsAvailable.OpenAI:
       lbCurrentAI.Hint := FSettings.ModelOpenAI;
+    TC4DAIsAvailable.Groq:
+      lbCurrentAI.Hint := FSettings.ModelGroq;
   end;
+
+  lbCurrentAI.Repaint;
+  Self.Repaint;
 end;
 
 procedure TDelphiAIDevChatView.Gemini1Click(Sender: TObject);

Src/Consts/DelphiAIDev.Consts.pas

@@ -5,7 +5,7 @@ interface
 type
   TConsts = class
   public const
-    SEMANTIC_VERSION = '1.7.0';
+    SEMANTIC_VERSION = '1.8.0';
     SEMANTIC_VERSION_LB = 'Version: ' + SEMANTIC_VERSION;
     WIN_CONTROL_FOCU_NIL = nil;
     DELPHI_AI_DEVELOPER_DPROJ = 'DelphiAIDeveloper.dproj';

Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.AddEdit.View.pas

@@ -240,12 +240,12 @@ procedure TDelphiAIDevDefaultsQuestionsAddEditView.ConfFieldsKind;
 
 procedure TDelphiAIDevDefaultsQuestionsAddEditView.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
-  case(Key)of
+  case Key of
     VK_F4:
-    if(ssAlt in Shift)then
+    if ssAlt in Shift then
       Key := 0;
     VK_ESCAPE:
-    if(Shift = [])then
+    if Shift = [] then
       btnClose.Click;
   end;
 end;

Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.View.pas

@@ -95,18 +95,18 @@ procedure TDelphiAIDevDefaultsQuestionsView.FormShow(Sender: TObject);
 
 procedure TDelphiAIDevDefaultsQuestionsView.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
-  case(Key)of
+  case Key of
     VK_F4:
-    if(ssAlt in Shift)then
+    if ssAlt in Shift then
       Key := 0;
     VK_ESCAPE:
-    if(Shift = [])then
+    if Shift = [] then
       btnClose.Click;
     VK_DOWN, VK_UP:
     begin
       if(ListView <> ActiveControl)then
       begin
-        case(Key)of
+        case Key of
           VK_DOWN:
           if(ListView.ItemIndex < Pred(ListView.Items.Count))then
             ListView.ItemIndex := ListView.ItemIndex + 1;

Src/Settings/DelphiAIDev.Settings.View.pas

@@ -185,12 +185,12 @@ procedure TDelphiAIDevSettingsView.btnCloseClick(Sender: TObject);
 
 procedure TDelphiAIDevSettingsView.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
-  case(Key)of
+  case Key of
     VK_F4:
-      if(ssAlt in Shift)then
+      if ssAlt in Shift then
         Key := 0;
     VK_ESCAPE:
-      if(Shift = [])then
+      if Shift = [] then
         btnClose.Click;
   end;
 end;

Src/Settings/DelphiAIDev.Settings.pas

@@ -90,7 +90,7 @@ constructor TDelphiAIDevSettings.Create;
 procedure TDelphiAIDevSettings.LoadDefaults;
 begin
   FLanguageQuestions := TC4DLanguage.ptBR;
-  FAIDefault := TC4DAIsAvailable.Gemini;
+  FAIDefault := TC4DAIsAvailable.Groq;
 
   FColorHighlightCodeDelphiUse := False;
   FColorHighlightCodeDelphi := clNone;

Src/Test/DelphiAIDev.Test.pas

@@ -5,19 +5,9 @@ interface
 type
   TDelphiAIDevTest = class
   private
-    FCodigo: Integer;
-    FNome: string;
-    FIdade: Integer;
-    procedure Clear;
   public
   end;
 
 implementation
 
-procedure TDelphiAIDevTest.Clear;
-begin
-  FCodigo := 0;
-
-end;
-
 end.

Src/Types/DelphiAIDev.Types.pas

@@ -27,6 +27,7 @@   TC4DAIsAvailableHelper = record helper for TC4DAIsAvailable
 
   TC4DLanguageHelper = record helper for TC4DLanguage
     function ToString: string;
+    function GetLanguageDefinition: string;
     function GetMsgCodeOnly: string;
   end;
 
@@ -93,14 +94,25 @@ function TC4DLanguageHelper.ToString: string;
   end;
 end;
 
+function TC4DLanguageHelper.GetLanguageDefinition: string;
+begin
+  Result := 'Responda em português.' + sLineBreak;
+  case Self of
+    TC4DLanguage.en:
+      Result := 'Answer in English.' + sLineBreak;
+    TC4DLanguage.es:
+      Result := 'Answer in Spanish.' + sLineBreak;
+  end;
+end;
+
 function TC4DLanguageHelper.GetMsgCodeOnly: string;
 begin
-  Result := 'Faça a seguinte ação sem adicionar comentários: ' + sLineBreak;
+  Result := 'Faça a seguinte ação sem adicionar comentários:' + sLineBreak;
   case Self of
     TC4DLanguage.en:
-      Result := 'Perform the following action without adding comments: ' + sLineBreak;
+      Result := 'Perform the following action without adding comments:' + sLineBreak;
     TC4DLanguage.es:
-      Result := 'Realice la siguiente acción sin agregar comentarios.: ' + sLineBreak;
+      Result := 'Realice la siguiente acción sin agregar comentarios:' + sLineBreak;
   end;
 end;
 

Src/View/DelphiAIDev.View.About.pas

@@ -59,15 +59,14 @@ implementation
 
 {$R *.dfm}
 
-
 procedure TDelphiAIDevViewAbout.FormCreate(Sender: TObject);
 begin
   TUtilsOTA.IDEThemingAll(TDelphiAIDevViewAbout, Self);
 end;
 
 procedure TDelphiAIDevViewAbout.FormShow(Sender: TObject);
 begin
-  Self.Caption := TConsts.MENU_IDE_ABOUT_CAPTION + TConsts.SEMANTIC_VERSION;
+  Self.Caption := TConsts.MENU_IDE_ABOUT_CAPTION + ' ' + TConsts.SEMANTIC_VERSION;
 
   mmMensagem.Lines.Clear;
   mmMensagem.Lines.Add(TConsts.ABOUT_COPY_RIGHT);
@@ -78,12 +77,12 @@ procedure TDelphiAIDevViewAbout.FormShow(Sender: TObject);
 
 procedure TDelphiAIDevViewAbout.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
-  case(Key)of
+  case Key of
     VK_F4:
-      if(ssAlt in Shift)then
+      if ssAlt in Shift then
         Key := 0;
     VK_ESCAPE:
-      if(Shift = [])then
+      if Shift = [] then
         btnOK.Click;
   end;
 end;

Src/View/DelphiAIDev.View.Dialog.pas

@@ -105,12 +105,12 @@ procedure TDelphiAIDevViewDialog.FormClose(Sender: TObject; var Action: TCloseAc
 
 procedure TDelphiAIDevViewDialog.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
-  case(Key)of
+  case Key of
     VK_F4:
-    if(ssAlt in Shift)then
+    if ssAlt in Shift then
       Key := 0;
     VK_ESCAPE:
-    if(Shift = [])then
+    if Shift = [] then
     begin
       if(btnCancel.Visible)then
         btnCancel.Click