mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 19:04:16 +02:00
64 lines
1.9 KiB
ObjectPascal
64 lines
1.9 KiB
ObjectPascal
{
|
|
*****************************************************************************
|
|
* *
|
|
* 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.
|
|
|