bk/2024-06-25-2336

Author: Cesar4D

Package/Img/c4d_question.bmp

@@ -3,7 +3,7 @@ object DelphiAIDevDefaultsQuestionsAddEditView: TDelphiAIDevDefaultsQuestionsAdd
   Top = 0
   BorderIcons = [biSystemMenu]
   Caption = 'IA Developer - Defaults questions - [action]'
-  ClientHeight = 350
+  ClientHeight = 389
   ClientWidth = 674
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -23,7 +23,7 @@ object DelphiAIDevDefaultsQuestionsAddEditView: TDelphiAIDevDefaultsQuestionsAdd
   object Bevel2: TBevel
     AlignWithMargins = True
     Left = 0
-    Top = 311
+    Top = 350
     Width = 674
     Height = 1
     Margins.Left = 0
@@ -37,7 +37,7 @@ object DelphiAIDevDefaultsQuestionsAddEditView: TDelphiAIDevDefaultsQuestionsAdd
   end
   object Panel1: TPanel
     Left = 0
-    Top = 315
+    Top = 354
     Width = 674
     Height = 35
     Align = alBottom
@@ -84,25 +84,25 @@ object DelphiAIDevDefaultsQuestionsAddEditView: TDelphiAIDevDefaultsQuestionsAdd
     Left = 0
     Top = 0
     Width = 674
-    Height = 311
+    Height = 350
     Align = alClient
     BevelOuter = bvNone
     ParentBackground = False
     TabOrder = 1
     DesignSize = (
       674
-      311)
+      350)
     object Label1: TLabel
       Left = 35
-      Top = 54
+      Top = 102
       Width = 43
       Height = 13
       Caption = 'Question'
     end
     object Bevel1: TBevel
       AlignWithMargins = True
       Left = 0
-      Top = 307
+      Top = 346
       Width = 674
       Height = 1
       Margins.Left = 0
@@ -115,21 +115,35 @@ object DelphiAIDevDefaultsQuestionsAddEditView: TDelphiAIDevDefaultsQuestionsAdd
     end
     object Label4: TLabel
       Left = 35
-      Top = 191
+      Top = 239
       Width = 28
       Height = 13
       Caption = 'Order'
     end
     object Label9: TLabel
-      Left = 34
+      Left = 183
       Top = 13
       Width = 62
       Height = 13
       Caption = 'Menu master'
     end
+    object Label2: TLabel
+      Left = 35
+      Top = 12
+      Width = 20
+      Height = 13
+      Caption = 'Kind'
+    end
+    object Label3: TLabel
+      Left = 35
+      Top = 56
+      Width = 37
+      Height = 13
+      Caption = 'Caption'
+    end
     object edtOrder: TEdit
       Left = 35
-      Top = 206
+      Top = 254
       Width = 126
       Height = 21
       MaxLength = 4
@@ -139,7 +153,7 @@ object DelphiAIDevDefaultsQuestionsAddEditView: TDelphiAIDevDefaultsQuestionsAdd
     end
     object UpDown1: TUpDown
       Left = 161
-      Top = 206
+      Top = 254
       Width = 17
       Height = 21
       Cursor = crHandPoint
@@ -149,7 +163,7 @@ object DelphiAIDevDefaultsQuestionsAddEditView: TDelphiAIDevDefaultsQuestionsAdd
     end
     object ckVisible: TCheckBox
       Left = 35
-      Top = 238
+      Top = 286
       Width = 53
       Height = 17
       Cursor = crHandPoint
@@ -158,17 +172,17 @@ object DelphiAIDevDefaultsQuestionsAddEditView: TDelphiAIDevDefaultsQuestionsAdd
     end
     object ckCodeOnly: TCheckBox
       Left = 35
-      Top = 261
+      Top = 309
       Width = 70
       Height = 17
       Cursor = crHandPoint
       Caption = 'Code Only'
       TabOrder = 3
     end
     object cBoxMenuMaster: TComboBox
-      Left = 34
+      Left = 183
       Top = 28
-      Width = 597
+      Width = 450
       Height = 21
       Margins.Left = 10
       Margins.Top = 15
@@ -181,11 +195,27 @@ object DelphiAIDevDefaultsQuestionsAddEditView: TDelphiAIDevDefaultsQuestionsAdd
     end
     object mmQuestion: TMemo
       Left = 34
-      Top = 70
+      Top = 118
       Width = 599
       Height = 116
       ScrollBars = ssVertical
       TabOrder = 5
     end
+    object cBoxKind: TComboBox
+      Left = 35
+      Top = 28
+      Width = 145
+      Height = 21
+      Style = csDropDownList
+      TabOrder = 6
+      OnChange = cBoxKindChange
+    end
+    object edtCaption: TEdit
+      Left = 35
+      Top = 72
+      Width = 598
+      Height = 21
+      TabOrder = 7
+    end
   end
 end

Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.AddEdit.View.dfm

@@ -32,16 +32,26 @@   TDelphiAIDevDefaultsQuestionsAddEditView = class(TForm)
     Label9: TLabel;
     cBoxMenuMaster: TComboBox;
     mmQuestion: TMemo;
+    Label2: TLabel;
+    cBoxKind: TComboBox;
+    Label3: TLabel;
+    edtCaption: TEdit;
     procedure btnCloseClick(Sender: TObject);
     procedure btnConfirmClick(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure cBoxKindChange(Sender: TObject);
   private
     FFields: TDelphiAIDevDefaultsQuestionsFields;
+    FLastCaption: string;
+    FLastQuestion: string;
+    FLastItemIndexMenuMaster: Integer;
+    procedure FillcBoxKind;
     procedure MenuMasterLoad;
     procedure MenuMasterClear;
+    procedure ConfFieldsKind;
   public
     property Fields: TDelphiAIDevDefaultsQuestionsFields read FFields write FFields;
   end;
@@ -56,11 +66,22 @@ implementation
 
 {$R *.dfm}
 
+procedure TDelphiAIDevDefaultsQuestionsAddEditView.FillcBoxKind;
+begin
+  cBoxKind.Items.Clear;
+  TUtils.DefaultsQuestionsKindFillItemsTStrings(cBoxKind.Items);
+end;
+
 procedure TDelphiAIDevDefaultsQuestionsAddEditView.FormCreate(Sender: TObject);
 begin
   Self.ModalResult := mrCancel;
 
   TUtilsOTA.IDEThemingAll(TDelphiAIDevDefaultsQuestionsAddEditView, Self);
+
+  FLastCaption := '';
+  FLastQuestion := '';
+  FLastItemIndexMenuMaster := 0;
+  Self.FillcBoxKind;
 end;
 
 procedure TDelphiAIDevDefaultsQuestionsAddEditView.FormDestroy(Sender: TObject);
@@ -70,13 +91,19 @@ procedure TDelphiAIDevDefaultsQuestionsAddEditView.FormDestroy(Sender: TObject);
 
 procedure TDelphiAIDevDefaultsQuestionsAddEditView.FormShow(Sender: TObject);
 begin
+  cBoxKind.ItemIndex := cBoxKind.Items.IndexOf(FFields.Kind.ToString);
+  edtCaption.Text := FFields.Caption;
   mmQuestion.Lines.Text := FFields.Question;
   edtOrder.Text := FFields.Order.Tostring;
   ckVisible.Checked := FFields.Visible;
   ckCodeOnly.Checked := FFields.CodeOnly;
 
+  Self.ConfFieldsKind;
   Self.MenuMasterLoad;
-  mmQuestion.SetFocus;
+  if edtCaption.CanFocus then
+    edtCaption.SetFocus
+  else if cBoxKind.CanFocus then
+    cBoxKind.SetFocus;
 end;
 
 procedure TDelphiAIDevDefaultsQuestionsAddEditView.MenuMasterClear;
@@ -107,13 +134,13 @@ procedure TDelphiAIDevDefaultsQuestionsAddEditView.MenuMasterLoad;
       LFields: TDelphiAIDevDefaultsQuestionsFields;
       LItemIndex: Integer;
     begin
-      //if(AFields.Kind <> TC4DWizardOpenExternalKind.MenuMasterOnly)then
-      //  Exit;
+      if(AFields.Kind <> TC4DQuestionKind.MenuMasterOnly)then
+        Exit;
 
       LFields := TDelphiAIDevDefaultsQuestionsFields.Create;
       LFields.Guid := AFields.Guid;
-      LFields.Question := AFields.Question;
-      LItemIndex := cBoxMenuMaster.Items.AddObject(LFields.Question, LFields);
+      LFields.Caption := AFields.Caption;
+      LItemIndex := cBoxMenuMaster.Items.AddObject(LFields.Caption, LFields);
 
       //if (FFields.IdParent > 0)and(FFields.IdParent = LFields.IdParent) then
       //  LItemIndexDefault := LItemIndex;
@@ -134,9 +161,17 @@ procedure TDelphiAIDevDefaultsQuestionsAddEditView.btnCloseClick(Sender: TObject
 
 procedure TDelphiAIDevDefaultsQuestionsAddEditView.btnConfirmClick(Sender: TObject);
 begin
-  if Trim(mmQuestion.Lines.Text).IsEmpty then
-    TUtils.ShowMsgAndAbort('No informed Description', mmQuestion);
+  if(cBoxKind.ItemIndex <= 0)then
+    TUtils.ShowMsgAndAbort('No informed Kind', cBoxKind);
+
+  if Trim(edtCaption.Text).IsEmpty then
+    TUtils.ShowMsgAndAbort('No informed Caption', edtCaption);
+
+  if (mmQuestion.Enabled) and (Trim(mmQuestion.Lines.Text).IsEmpty )then
+    TUtils.ShowMsgAndAbort('No informed Question', mmQuestion);
 
+  FFields.Kind := TUtils.StrToDefaultsQuestionsKind(cBoxKind.Text);
+  FFields.Caption := edtCaption.Text;
   FFields.Question := mmQuestion.Lines.Text;
   FFields.Order := StrToIntDef(edtOrder.Text, 0);
   FFields.Visible := ckVisible.Checked;
@@ -153,6 +188,56 @@ procedure TDelphiAIDevDefaultsQuestionsAddEditView.btnConfirmClick(Sender: TObje
   Self.ModalResult := mrOK;
 end;
 
+procedure TDelphiAIDevDefaultsQuestionsAddEditView.cBoxKindChange(Sender: TObject);
+begin
+  Self.ConfFieldsKind;
+end;
+
+procedure TDelphiAIDevDefaultsQuestionsAddEditView.ConfFieldsKind;
+begin
+  edtCaption.Enabled := True;
+  mmQuestion.Enabled := True;
+  cBoxMenuMaster.Enabled := True;
+
+  if(cBoxKind.Text = TC4DQuestionKind.Separators.ToString)then
+  begin
+    FLastCaption := edtCaption.Text;
+    edtCaption.Text := '-';
+    edtCaption.Enabled := False;
+
+    FLastQuestion := mmQuestion.Lines.Text;
+    mmQuestion.Lines.Clear;
+    mmQuestion.Enabled := False;
+  end
+  else if(cBoxKind.Text = TC4DQuestionKind.MenuMasterOnly.ToString)then
+  begin
+    if(edtCaption.Text = '-')and(not FLastCaption.Trim.IsEmpty)then
+      edtCaption.Text := FLastCaption;
+
+    FLastQuestion := mmQuestion.Lines.Text;
+    mmQuestion.Lines.Clear;
+    mmQuestion.Enabled := False;
+
+    FLastItemIndexMenuMaster := cBoxMenuMaster.ItemIndex;
+    cBoxMenuMaster.ItemIndex := 0;
+    cBoxMenuMaster.Enabled := False;
+  end
+  else
+  begin
+    if(edtCaption.Text = '-')and(not FLastCaption.Trim.IsEmpty)then
+      edtCaption.Text := FLastCaption;
+
+    if(mmQuestion.Text = '')and(not FLastQuestion.Trim.IsEmpty)then
+      mmQuestion.Text := FLastQuestion;
+  end;
+
+  if(cBoxKind.Text <> TC4DQuestionKind.MenuMasterOnly.ToString)then
+  begin
+    if(cBoxMenuMaster.ItemIndex <= 0)then
+      cBoxMenuMaster.ItemIndex := FLastItemIndexMenuMaster;
+  end;
+end;
+
 procedure TDelphiAIDevDefaultsQuestionsAddEditView.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
   case(Key)of

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

@@ -2,21 +2,28 @@
 
 interface
 
+uses
+  DelphiAIDev.Types;
+
 type
   TDelphiAIDevDefaultsQuestionsFields = class
   private
     FGuid: string;
     FGuidMenuMaster: string;
     FQuestion: string;
+    FKind: TC4DQuestionKind;
     FOrder: Integer;
     FVisible: Boolean;
     FCodeOnly: Boolean;
+    FCaption: string;
   public
     constructor Create;
     procedure Clear;
     property Guid: string read FGuid write FGuid;
     property GuidMenuMaster: string read FGuidMenuMaster write FGuidMenuMaster;
+    property Caption: string read FCaption write FCaption;
     property Question: string read FQuestion write FQuestion;
+    property Kind: TC4DQuestionKind read FKind write FKind;
     property Order: Integer read FOrder write FOrder;
     property Visible: Boolean read FVisible write FVisible;
     property CodeOnly: Boolean read FCodeOnly write FCodeOnly;
@@ -33,7 +40,9 @@ procedure TDelphiAIDevDefaultsQuestionsFields.Clear;
 begin
   FGuid := '';
   FGuidMenuMaster := '';
+  FCaption := '';
   FQuestion := '';
+  FKind := TC4DQuestionKind.ItemMenuNormal;
   FOrder := 0;
   FVisible := True;
   FCodeOnly := False;