mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-26 21:43:58 +02:00
44 lines
653 B
ObjectPascal
44 lines
653 B
ObjectPascal
unit AddProfileDialog;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls, ButtonPanel, LazarusIDEStrConsts;
|
|
|
|
type
|
|
|
|
{ TAddProfileForm }
|
|
|
|
TAddProfileForm = class(TForm)
|
|
ButtonPanel: TButtonPanel;
|
|
NameEdit: TEdit;
|
|
ProfileHeaderLabel: TLabel;
|
|
procedure FormCreate(Sender:TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
AddProfileForm: TAddProfileForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
|
|
{ TAddProfileForm }
|
|
|
|
procedure TAddProfileForm.FormCreate(Sender:TObject);
|
|
begin
|
|
ButtonPanel.OKButton.Caption:=lisOk;
|
|
ButtonPanel.CancelButton.Caption:=dlgCancel;
|
|
end;
|
|
|
|
end.
|
|
|