{*******************************************************************************
Unit: newprof.pas

contains Form_NewProf
*******************************************************************************}

{*******************************************************************************
LazUpdater runs SVN Update/Checkout, Make and Strip for FPC and Lazarus.

Copyright (C) 2010  Ingo Steiniger

This program is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free Software
Foundation; either version 3 of the License, or (at your option) any later version.

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. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with
this program; if not, see <http://www.gnu.org/licenses/>.
*******************************************************************************}

unit newprof;

{$mode objfpc}{$H+}

interface

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

type

  { TForm_NewProf }

  TForm_NewProf = class(TForm)
    Btn_Save: TButton;
    Btn_Cancel: TButton;
    Edit_Name: TEdit;
    procedure Btn_CancelClick(Sender: TObject);
    procedure Btn_SaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form_NewProf: TForm_NewProf;

implementation

{$R *.lfm}

{ TForm_NewProf }

procedure TForm_NewProf.Btn_CancelClick(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

procedure TForm_NewProf.Btn_SaveClick(Sender: TObject);
begin
  if Edit_Name.Text<>'' then
    ModalResult:=mrOK;
end;

procedure TForm_NewProf.FormShow(Sender: TObject);
begin
  Edit_Name.SetFocus;
end;

end.