refactor/Width-buttons

Author: Cesar4D

Src/Chat/DelphiAIDev.Chat.View.dfm

@@ -81,6 +81,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
       ShowHint = True
       TabOrder = 1
       Zoom = 100
+      ExplicitTop = 18
     end
     object pnBackQuestion: TPanel
       Left = 18
@@ -222,12 +223,13 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
           Margins.Right = 0
           Margins.Bottom = 0
           Align = alRight
-          Caption = 'Questions'
+          Caption = '*Questions*'
           ImageIndex = 4
           Images = ImageList1
           PopupMenu = pMenuQuestions
           TabOrder = 2
           OnClick = btnDefaultsQuestionsClick
+          ExplicitLeft = 126
         end
       end
     end
@@ -749,7 +751,6 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
     object WordWrap1: TMenuItem
       AutoCheck = True
       Caption = 'WordWrap'
-      Checked = True
       OnClick = WordWrap1Click
     end
     object N1: TMenuItem
@@ -762,6 +763,8 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
     end
     object Clear1: TMenuItem
       Caption = 'Clear'
+      ShortCut = 16430
+      OnClick = Clear1Click
     end
   end
   object pMenuCurrentAI: TPopupMenu

Src/Chat/DelphiAIDev.Chat.View.pas

@@ -98,12 +98,14 @@   TDelphiAIDevChatView = class(TDockableForm)
     procedure WordWrap1Click(Sender: TObject);
     procedure btnCodeOnlyClick(Sender: TObject);
     procedure btnDefaultsQuestionsClick(Sender: TObject);
+    procedure Clear1Click(Sender: TObject);
   private
     FChat: TDelphiAIDevChat;
     FSettings: TDelphiAIDevSettings;
     FPopupMenuQuestions: TDelphiAIDevDefaultsQuestionsPopupMenu;
     FbtnUseCurrentUnitCodeWidth: Integer;
     FbtnCodeOnlyWidth: Integer;
+    FbtnDefaultsQuestionsWidth: Integer;
     procedure ReadFromFile;
     procedure WriteToFile;
     procedure InitializeRichEditReturn;
@@ -122,6 +124,7 @@   TDelphiAIDevChatView = class(TDockableForm)
     procedure ChangeCodeOnly;
     procedure AddItemsPopupMenuQuestion;
     procedure DoProcessClickInItemDefaultQuestions(ACodeOnly: Boolean; AQuestion: string);
+    procedure ProcessWordWrap;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -187,6 +190,7 @@ constructor TDelphiAIDevChatView.Create(AOwner: TComponent);
   pnWait.Visible := False;
   FbtnUseCurrentUnitCodeWidth := btnUseCurrentUnitCode.Width;
   FbtnCodeOnlyWidth := btnCodeOnly.Width;
+  FbtnDefaultsQuestionsWidth := btnDefaultsQuestions.Width;
 end;
 
 destructor TDelphiAIDevChatView.Destroy;
@@ -201,10 +205,10 @@ procedure TDelphiAIDevChatView.FormShow(Sender: TObject);
   Self.ConfScreenOnShow;
   Self.InitializeRichEditReturn;
   Self.ReadFromFile;
+  Self.ProcessWordWrap;
   //Self.GetSelectedBlockForQuestion;
 
   Self.AddItemsPopupMenuQuestion;
-
   TUtils.MemoFocusOnTheEnd(mmQuestion);
 end;
 
@@ -278,11 +282,14 @@ procedure TDelphiAIDevChatView.FormClose(Sender: TObject; var Action: TCloseActi
 end;
 
 procedure TDelphiAIDevChatView.FormResize(Sender: TObject);
+var
+  LWidth: Integer;
 const
   CAPTION_UseCurrentUnitCode = 'Use current unit code in query';
   CAPTION_CodeOnly = 'Code only';
+  CAPTION_DefaultsQuestions = 'Questions';
 begin
-  if(Self.Width > 530)then
+  if Self.Width > 620 then
   begin
     btnUseCurrentUnitCode.Caption := CAPTION_UseCurrentUnitCode;
     btnUseCurrentUnitCode.Width := FbtnUseCurrentUnitCodeWidth;
@@ -291,16 +298,28 @@ procedure TDelphiAIDevChatView.FormResize(Sender: TObject);
     btnCodeOnly.Caption := CAPTION_CodeOnly;
     btnCodeOnly.Width := FbtnCodeOnlyWidth;
     btnCodeOnly.ImageAlignment := TImageAlignment.iaLeft;
+
+    btnDefaultsQuestions.Caption := CAPTION_DefaultsQuestions;
+    btnDefaultsQuestions.Width := FbtnDefaultsQuestionsWidth;
+    btnDefaultsQuestions.ImageAlignment := TImageAlignment.iaLeft;
   end
   else
   begin
+    LWidth := btnSend.Width;
+    if Self.Width < 405 then
+      LWidth := 24;
+
     btnUseCurrentUnitCode.Caption := '';
-    btnUseCurrentUnitCode.Width := btnSend.Width;
+    btnUseCurrentUnitCode.Width := LWidth;
     btnUseCurrentUnitCode.ImageAlignment := TImageAlignment.iaCenter;
 
     btnCodeOnly.Caption := '';
-    btnCodeOnly.Width := btnSend.Width;
+    btnCodeOnly.Width := LWidth;
     btnCodeOnly.ImageAlignment := TImageAlignment.iaCenter;
+
+    btnDefaultsQuestions.Caption := '';
+    btnDefaultsQuestions.Width := LWidth;
+    btnDefaultsQuestions.ImageAlignment := TImageAlignment.iaCenter;
   end;
 end;
 
@@ -564,6 +583,11 @@ procedure TDelphiAIDevChatView.WaitingFormON;
 end;
 
 procedure TDelphiAIDevChatView.WordWrap1Click(Sender: TObject);
+begin
+  Self.ProcessWordWrap;
+end;
+
+procedure TDelphiAIDevChatView.ProcessWordWrap;
 begin
   if WordWrap1.Checked then
     mmReturn.ScrollBars := ssVertical
@@ -637,6 +661,11 @@ procedure TDelphiAIDevChatView.SaveContentToFile1Click(Sender: TObject);
   TUtils.ShowV('File saved successfully');
 end;
 
+procedure TDelphiAIDevChatView.Clear1Click(Sender: TObject);
+begin
+  mmReturn.Lines.Clear;
+end;
+
 procedure TDelphiAIDevChatView.ClearContent1Click(Sender: TObject);
 begin
   mmReturn.Lines.Clear;