fit/chats-fonts

Author: Cesar4D

Src/Chat/DelphiAIDev.Chat.View.dfm

@@ -67,7 +67,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
       Ctl3D = True
       Font.Charset = ANSI_CHARSET
       Font.Color = clWindow
-      Font.Height = -12
+      Font.Height = -13
       Font.Name = 'Courier New'
       Font.Style = []
       Lines.Strings = (
@@ -109,7 +109,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
-        Font.Height = -11
+        Font.Height = -13
         Font.Name = 'Tahoma'
         Font.Style = []
         ParentFont = False

Src/DB/Chat/DelphiAIDev.DB.Chat.View.dfm

@@ -79,7 +79,7 @@ object DelphiAIDevDBChatView: TDelphiAIDevDBChatView
       Ctl3D = True
       Font.Charset = ANSI_CHARSET
       Font.Color = clWindow
-      Font.Height = -12
+      Font.Height = -13
       Font.Name = 'Courier New'
       Font.Style = []
       Lines.Strings = (
@@ -108,12 +108,21 @@ object DelphiAIDevDBChatView: TDelphiAIDevDBChatView
       Padding.Top = 5
       ParentBackground = False
       TabOrder = 0
+      object Label2: TLabel
+        Left = 0
+        Top = 5
+        Width = 938
+        Height = 17
+        Align = alTop
+        AutoSize = False
+        Caption = 'Question / prompt'
+      end
       object mmQuestion: TMemo
         AlignWithMargins = True
         Left = 0
-        Top = 5
+        Top = 22
         Width = 938
-        Height = 108
+        Height = 91
         Hint = 'Insert question'
         Margins.Left = 0
         Margins.Top = 0
@@ -122,7 +131,7 @@ object DelphiAIDevDBChatView: TDelphiAIDevDBChatView
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
-        Font.Height = -11
+        Font.Height = -13
         Font.Name = 'Tahoma'
         Font.Style = []
         ParentFont = False

Src/DB/Chat/DelphiAIDev.DB.Chat.View.pas

@@ -104,6 +104,7 @@   TDelphiAIDevDBChatView = class(TDockableForm)
     Label3: TLabel;
     Ollama1: TMenuItem;
     btnGenerateDatabaseReference: TButton;
+    Label2: TLabel;
     procedure FormShow(Sender: TObject);
     procedure cBoxSizeFontKeyPress(Sender: TObject; var Key: Char);
     procedure Cut1Click(Sender: TObject);