object frmChatIA: TfrmChatIA
  Left = 0
  Top = 0
  Caption = 'Asistente IA - Consultas Inteligentes'
  ClientHeight = 600
  ClientWidth = 900
  Color = 15132390
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  TextHeight = 15
  object splSplitter: TSplitter
    Left = 497
    Top = 0
    Width = 6
    Height = 600
    Align = alRight
    ExplicitLeft = 500
    ExplicitHeight = 550
  end
  object pnlChatArea: TPanel
    Left = 0
    Top = 0
    Width = 497
    Height = 600
    Align = alClient
    BevelOuter = bvNone
    Color = 15132390
    ParentBackground = False
    TabOrder = 0
    object pnlInput: TPanel
      Left = 0
      Top = 500
      Width = 497
      Height = 100
      Align = alBottom
      BevelOuter = bvNone
      Color = 14474460
      ParentBackground = False
      TabOrder = 0
      object btnSend: TBitBtn
        Left = 407
        Top = 15
        Width = 80
        Height = 70
        Anchors = [akTop, akRight]
        Caption = 'Enviar'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Segoe UI'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = btnSendClick
      end
      object memInput: TMemo
        Left = 10
        Top = 15
        Width = 387
        Height = 70
        Anchors = [akLeft, akTop, akRight]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 1
        OnKeyDown = memInputKeyDown
      end
    end
    object webChat: TWebBrowser
      Left = 0
      Top = 0
      Width = 497
      Height = 500
      Align = alClient
      TabOrder = 1
      ExplicitLeft = -2
      ExplicitTop = -2
    end
  end
  object pnlResults: TPanel
    Left = 503
    Top = 0
    Width = 397
    Height = 600
    Align = alRight
    BevelOuter = bvNone
    Color = 15132390
    ParentBackground = False
    TabOrder = 1
    object pnlResultsHeader: TPanel
      Left = 0
      Top = 0
      Width = 397
      Height = 45
      Align = alTop
      BevelOuter = bvNone
      Color = 2960289
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'Segoe UI Semibold'
      Font.Style = []
      ParentBackground = False
      ParentFont = False
      TabOrder = 0
      object lblResultsTitle: TLabel
        Left = 15
        Top = 12
        Width = 145
        Height = 17
        Caption = 'Resultados de Consulta'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object btnExcelExport: TSpeedButton
        Left = 300
        Top = 8
        Width = 85
        Height = 28
        Anchors = [akTop, akRight]
        Caption = '  Excel'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Segoe UI'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = btnExcelExportClick
      end
    end
    object dbgResults: TDBGrid
      Left = 0
      Top = 45
      Width = 397
      Height = 435
      Align = alClient
      DataSource = dsResults
      DrawingStyle = gdsGradient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
      ParentFont = False
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'Segoe UI Semibold'
      TitleFont.Style = []
      OnDrawColumnCell = dbgResultsDrawColumnCell
      OnTitleClick = dbgResultsTitleClick
    end
    object pnlSQLInfo: TPanel
      Left = 0
      Top = 480
      Width = 397
      Height = 120
      Align = alBottom
      BevelOuter = bvNone
      Color = 14474460
      ParentBackground = False
      TabOrder = 2
      object lblSQLLabel: TLabel
        Left = 15
        Top = 6
        Width = 79
        Height = 15
        Caption = 'Sentencia SQL:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Segoe UI'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object memSQL: TMemo
        Left = 15
        Top = 27
        Width = 370
        Height = 80
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = 15790320
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Consolas'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object dsResults: TDataSource
    DataSet = qryResults
    Left = 560
    Top = 120
  end
  object qryResults: TFDQuery
    Connection = dmgMain.dbConn
    Left = 560
    Top = 180
  end
end