<commit_before>(*
  Name:             UfrmDebugStatus
  Copyright:        Copyright (C) SIL International.
  Documentation:
  Description:
  Create Date:      14 Sep 2006

  Modified Date:    18 May 2012
  Authors:          mcdurdin
  Related Files:
  Dependencies:

  Bugs:
  Todo:
  Notes:
  History:          14 Sep 2006 - mcdurdin - Initial version
                    04 Dec 2006 - mcdurdin - Tweak display of debug pages, to Unicode
                    04 Jan 2007 - mcdurdin - Remove old code
                    18 May 2012 - mcdurdin - I3306 - V9.0 - Remove TntControls + Win9x support
*)
unit UfrmDebugStatus;  // I3306

interface

uses
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Buttons,
  Vcl.ComCtrls,
  Vcl.Controls,
  Vcl.Dialogs,
  Vcl.ExtCtrls,
  Vcl.Forms,
  Vcl.Graphics,
  Vcl.StdCtrls,
  Winapi.Messages,
  Winapi.Windows,

  DebugBitBtn,
  DebugDeadkeys,
  debugkeyboard,
  DebugListBox,
  DebugListView,
  KeymanDeveloperDebuggerMemo,
  Keyman.System.Debug.DebugCore,
  Keyman.System.Debug.DebugEvent,
  PaintPanel,
  RegressionTest,
  UfrmDebugStatus_CallStack,
  UfrmDebugStatus_Child,
  UfrmDebugStatus_Deadkeys,
  UfrmDebugStatus_Elements,
  UfrmDebugStatus_Events,
  UfrmDebugStatus_Key,
  UfrmDebugStatus_Options,
  UfrmDebugStatus_Platform,
  UfrmDebugStatus_RegTest,
  UfrmDebugStatus_Options,
  UfrmTike;

const
  DebugTab_Status            = 0;
  DebugTab_Stores            = 1;
  DebugTab_CallStack         = 2;
  DebugTab_Deadkeys          = 3;
  DebugTab_RegressionTesting = 4;
  DebugTab_Platform          = 5;
  DebugTab_Options           = 6;
  DebugTab_Events            = 7;
  DebugTab__Max = 8;

type
  TfrmDebugStatus = class(TTikeForm)
    pagesDebug: TPageControl;
    tabDebugStores: TTabSheet;
    tabDebugCallStack: TTabSheet;
    tabDebugDeadkeys: TTabSheet;
    tabDebugRegressionTesting: TTabSheet;
    tabDebugKey: TTabSheet;
    tabDebugEvents: TTabSheet;
    tabDebugOptions: TTabSheet;
    tabDebugPlatform: TTabSheet;
    procedure FormCreate(Sender: TObject);
  private
    FChildren: TArray<TfrmDebugStatus_Child>;
    FCallStack: TfrmDebugStatus_CallStack;<commit_msg>chore(developer): fixup merge issue<commit_after>(*
  Name:             UfrmDebugStatus
  Copyright:        Copyright (C) SIL International.
  Documentation:
  Description:
  Create Date:      14 Sep 2006

  Modified Date:    18 May 2012
  Authors:          mcdurdin
  Related Files:
  Dependencies:

  Bugs:
  Todo:
  Notes:
  History:          14 Sep 2006 - mcdurdin - Initial version
                    04 Dec 2006 - mcdurdin - Tweak display of debug pages, to Unicode
                    04 Jan 2007 - mcdurdin - Remove old code
                    18 May 2012 - mcdurdin - I3306 - V9.0 - Remove TntControls + Win9x support
*)
unit UfrmDebugStatus;  // I3306

interface

uses
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Buttons,
  Vcl.ComCtrls,
  Vcl.Controls,
  Vcl.Dialogs,
  Vcl.ExtCtrls,
  Vcl.Forms,
  Vcl.Graphics,
  Vcl.StdCtrls,
  Winapi.Messages,
  Winapi.Windows,

  DebugBitBtn,
  DebugDeadkeys,
  debugkeyboard,
  DebugListBox,
  DebugListView,
  KeymanDeveloperDebuggerMemo,
  Keyman.System.Debug.DebugCore,
  Keyman.System.Debug.DebugEvent,
  PaintPanel,
  RegressionTest,
  UfrmDebugStatus_CallStack,
  UfrmDebugStatus_Child,
  UfrmDebugStatus_Deadkeys,
  UfrmDebugStatus_Elements,
  UfrmDebugStatus_Events,
  UfrmDebugStatus_Key,
  UfrmDebugStatus_Options,
  UfrmDebugStatus_Platform,
  UfrmDebugStatus_RegTest,
  UfrmTike;

const
  DebugTab_Status            = 0;
  DebugTab_Stores            = 1;
  DebugTab_CallStack         = 2;
  DebugTab_Deadkeys          = 3;
  DebugTab_RegressionTesting = 4;
  DebugTab_Platform          = 5;
  DebugTab_Options           = 6;
  DebugTab_Events            = 7;
  DebugTab__Max = 8;

type
  TfrmDebugStatus = class(TTikeForm)
    pagesDebug: TPageControl;
    tabDebugStores: TTabSheet;
    tabDebugCallStack: TTabSheet;
    tabDebugDeadkeys: TTabSheet;
    tabDebugRegressionTesting: TTabSheet;
    tabDebugKey: TTabSheet;
    tabDebugEvents: TTabSheet;
    tabDebugOptions: TTabSheet;
    tabDebugPlatform: TTabSheet;
    procedure FormCreate(Sender: TObject);
  private
    FChildren: TArray<TfrmDebugStatus_Child>;
    FCallStack: TfrmDebugStatus_CallStack;
{'fraction_non_alphanumeric': 0.066246792628878, 'fraction_numerical': 0.026125495684627947, 'mean_word_length': 2.887579329102448, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 2, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5895776', 'n_tokens_mistral': 1572, 'n_tokens_neox': 1455, 'n_words': 301}