{
 *****************************************************************************
 *                                                                           *
 *  See the file COPYING.modifiedLGPL.txt, included in this distribution,        *
 *  for details about the copyright.                                         *
 *                                                                           *
 *  This program is distributed in the hope that it will be useful,          *
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
 *                                                                           *
 *****************************************************************************
}

unit ThreadOptionsDialog;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TThreadOptionsDialog }

  TThreadOptionsDialog = class(TForm)
    CreateUnitButton: TButton;
    ThreadNameLabel: TLabel;
    ThreadNameEdit: TEdit;
    OptionsGroupBox: TGroupBox;
  private
    { private declarations }
  public
    { public declarations }
    constructor Create(AOwner: TComponent);override;
  end; 

implementation

resourcestring
  SThreadDialogTitle       = 'Thread Class Options';
  SOptionsGroupBoxCaption  = 'Options';
  SThreadNameLabelCaption  = 'Thread Class Name';
  SCreateUnitButtonCaption = 'Create Unit';

{ TThreadOptionsDialog }

//--------------------------------------------------------//
constructor TThreadOptionsDialog.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Caption := SThreadDialogTitle;
  OptionsGroupBox.Caption  := SOptionsGroupBoxCaption;
  ThreadNameLabel.Caption  := SThreadNameLabelCaption;
  CreateUnitButton.Caption := SCreateUnitButtonCaption;
end;

initialization
  {$I threadoptionsdialog.lrs}

end.