source: trunk/Add.pas

unit Add;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs, Buttons;

type
  TForm4 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Image1: TImage;
    Memo1: TMemo;
    Label4: TLabel;
    Button2: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    OpenDialog1: TOpenDialog;
    Button3: TButton;
    Button4: TButton;
    Label5: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label6: TLabel;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Save;
  end;

var
  Form4: TForm4;
  ImageFile: string;
  ServerIndex: integer;   // TODO

implementation

uses Main;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
  OpenDialog1.Filter:= 'Spustitelné soubory|*.exe|Všechny soubory|*.*';
  OpenDialog1.FileName:= ExtractFileDir(Edit3.Text);
  if OpenDialog1.Execute then begin
    Edit3.Text:= OpenDialog1.FileName;
  end;
end;

procedure TForm4.Save;
begin
  if ServerIndex <> -1 then begin
    Form1.Servers[ServerIndex].Name := Edit1.Text;
    Form1.Servers[ServerIndex].Address := Edit2.Text;
    Form1.Servers[ServerIndex].ExeFile := Edit3.Text;
    Form1.Servers[ServerIndex].Description := Memo1.Lines.Text;
    Form1.Servers[ServerIndex].Image := ImageFile;
    Form1.Servers[ServerIndex].OnlinePlayersAddress := Edit4.Text;
    Form1.StatusBar1.SimpleText := 'Server byl upraven';
  end else begin
    SetLength(Form1.Servers, Length(Form1.Servers)+1);
    Form1.Servers[Length(Form1.Servers)-1].Name := Edit1.Text;
    Form1.Servers[Length(Form1.Servers)-1].Address := Edit2.Text;
    Form1.Servers[Length(Form1.Servers)-1].ExeFile := Edit3.Text;
    Form1.Servers[Length(Form1.Servers)-1].Description := Memo1.Lines.Text;
    Form1.Servers[Length(Form1.Servers)-1].Image := ImageFile;
    Form1.Servers[Length(Form1.Servers)-1].OnlinePlayersAddress := Edit4.Text;
    Form1.StatusBar1.SimpleText := 'Server byl uložen';
  end;
  Form1.WriteImages;
  Form1.WriteServers;
  Close;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
  Save;
  Form1.SaveRegServers;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
  close;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    ImageFile := OpenPictureDialog1.FileName;
  end;
end;

procedure TForm4.SpeedButton1Click(Sender: TObject);
var
  BitMap: TBitmap;
begin
  ImageFile := '';
  BitMap := TBitmap.Create;
  Form1.ImageList32default.GetBitmap(0,BitMap);
  Form4.Image1.Picture.Graphic := BitMap;
end;

procedure TForm4.SpeedButton2Click(Sender: TObject);
var
  BitMap: TBitmap;
begin
  ImageFile := '1';
  BitMap := TBitmap.Create;
  Form1.ImageList32default.GetBitmap(1,BitMap);
  Form4.Image1.Picture.Graphic := BitMap;
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Memo1.Clear;
  ImageFile := '';
  ServerIndex := -1;
end;

procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then begin
    Key:= #0;
    Button3Click(nil);
  end;
end;

procedure TForm4.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //  Form1.Show;
end;

end.