<commit_before>unit KM_GUIMenuCredits;
{$I KaM_Remake.inc}
interface
uses
  {$IFDEF Unix} LCLType, {$ENDIF}
  {$IFDEF WDC} ShellAPI, Windows, {$ENDIF} // Required for OpenURL in Delphi
  {$IFDEF FPC} LCLIntf, {$ENDIF} // Required for OpenURL in Lazarus
  Classes, Forms, Controls,
  KM_Controls, KM_Defaults,
  KM_InterfaceDefaults;


type
  TKMMenuCredits = class (TKMMenuPageCommon)
  private
    fOnPageChange: TKMMenuChangeEventText;

    procedure LinkClick(Sender: TObject);
    procedure BackClick(Sender: TObject);
  protected
    Panel_Credits: TKMPanel;
    Label_Credits_KaM: TKMLabelScroll;
    Label_Credits_Remake: TKMLabelScroll;
    Button_CreditsHomepage: TKMButton;
    Button_CreditsFacebook: TKMButton;
    Button_CreditsBack: TKMButton;
  public
    constructor Create(aParent: TKMPanel; aOnPageChange: TKMMenuChangeEventText);

    procedure Show;
  end;


implementation
uses
  KM_ResTexts, KM_RenderUI, KM_ResFonts, KM_ResLocales, KM_CommonUtils;


{ TKMGUIMainCredits }
constructor TKMMenuCredits.Create(aParent: TKMPanel; aOnPageChange: TKMMenuChangeEventText);
const
  OFFSET = 312;
begin
  inherited Create;

  fOnPageChange := aOnPageChange;
  OnEscKeyDown := BackClick;

  Panel_Credits := TKMPanel.Create(aParent, 0, 0, aParent.Width, aParent.Height);
  Panel_Credits.AnchorsStretch;

    TKMLabel.Create(Panel_Credits, aParent.Width div 2 - OFFSET, 70, gResTexts[TX_CREDITS],fntOutline,taCenter);
    Label_Credits_Remake := TKMLabelScroll.Create(Panel_Credits, aParent.Width div 2 - OFFSET, 110, 0, aParent.Height - 130,
      gResTexts[TX_CREDITS_PROGRAMMING] + '|Krom|Lewin||' +
      gResTexts[TX_CREDITS_ADDITIONAL_PROGRAMMING] + '|Alex|andreus|Rey|Danjb||' +
      gResTexts[TX_CREDITS_ADDITIONAL_GRAPHICS] + '|StarGazer|Malin|H.A.H.||' +
      gResTexts[TX_CREDITS_ADDITIONAL_MUSIC] + '|<NAME> - www.juicelab.cz||' +
      gResTexts[TX_CREDITS_ADDITIONAL_SOUNDS] + '|trb1914||' +
      gResTexts[TX_CREDITS_ADDITIONAL_TRANSLATIONS] + '|' + gResLocales.TranslatorCredits + '|' +
      gResTexts[TX_CREDITS_SPECIAL] + '|KaM Community members',
      fntGrey,
      taCenter);<commit_msg>Some important commit<commit_after>unit KM_GUIMenuCredits;
{$I KaM_Remake.inc}
interface
uses
  {$IFDEF Unix} LCLType, {$ENDIF}
  {$IFDEF WDC} ShellAPI, Windows, {$ENDIF} // Required for OpenURL in Delphi
  {$IFDEF FPC} LCLIntf, {$ENDIF} // Required for OpenURL in Lazarus
  Classes, Forms, Controls,
  KM_Controls, KM_Defaults,
  KM_InterfaceDefaults;


type
  TKMMenuCredits = class (TKMMenuPageCommon)
  private
    fOnPageChange: TKMMenuChangeEventText;

    procedure LinkClick(Sender: TObject);
    procedure BackClick(Sender: TObject);
  protected
    Panel_Credits: TKMPanel;
    Label_Credits_KaM: TKMLabelScroll;
    Label_Credits_Remake: TKMLabelScroll;
    Button_CreditsHomepage: TKMButton;
    Button_CreditsFacebook: TKMButton;
    Button_CreditsBack: TKMButton;
  public
    constructor Create(aParent: TKMPanel; aOnPageChange: TKMMenuChangeEventText);

    procedure Show;
  end;


implementation
uses
  KM_ResTexts, KM_RenderUI, KM_ResFonts, KM_ResLocales, KM_CommonUtils;


{ TKMGUIMainCredits }
constructor TKMMenuCredits.Create(aParent: TKMPanel; aOnPageChange: TKMMenuChangeEventText);
const
  OFFSET = 312;
begin
  inherited Create;

  fOnPageChange := aOnPageChange;
  OnEscKeyDown := BackClick;

  Panel_Credits := TKMPanel.Create(aParent, 0, 0, aParent.Width, aParent.Height);
  Panel_Credits.AnchorsStretch;

    TKMLabel.Create(Panel_Credits, aParent.Width div 2 - OFFSET, 70, gResTexts[TX_CREDITS],fntOutline,taCenter);
    Label_Credits_Remake := TKMLabelScroll.Create(Panel_Credits, aParent.Width div 2 - OFFSET, 110, 0, aParent.Height - 130,
      gResTexts[TX_CREDITS_PROGRAMMING] + '|Krom|Lewin||' +
      gResTexts[TX_CREDITS_ADDITIONAL_PROGRAMMING] + '|Alex|Rey|andreus|Danjb||' +
      gResTexts[TX_CREDITS_ADDITIONAL_GRAPHICS] + '|StarGazer|Malin|H.A.H.||' +
      gResTexts[TX_CREDITS_ADDITIONAL_MUSIC] + '|<NAME> - www.juicelab.cz||' +
      gResTexts[TX_CREDITS_ADDITIONAL_SOUNDS] + '|trb1914||' +
      gResTexts[TX_CREDITS_ADDITIONAL_TRANSLATIONS] + '|' + gResLocales.TranslatorCredits + '|' +
      gResTexts[TX_CREDITS_SPECIAL] + '|KaM Community members',
      fntGrey,
      taCenter);
{'fraction_non_alphanumeric': 0.10244360902255639, 'fraction_numerical': 0.009398496240601503, 'mean_word_length': 5.1606367583212736, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, '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': '2353424', 'n_tokens_mistral': 1745, 'n_tokens_neox': 1610, 'n_words': 273}