Stuff

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Mask, inifiles, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdFTP;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    ListBox1: TListBox;
    GroupBox3: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Edit2: TEdit;
    Memo2: TMemo;
    Button5: TButton;
    Button3: TButton;
    Memo3: TMemo;
    Button6: TButton;
    IdFTP1: TIdFTP;
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i : integer;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure lyginimas;
begin
form1.edit2.Text := form1.memo2.Text;
end;

procedure didinimas;
begin
inc(i);
form1.memo2.Text := inttostr(i);
form1.edit2.Text := form1.memo2.Text;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
form1.Memo3.Lines.Add('...PROGRAM CLOSED...');

form1.IdFTP1.Connect;
form1.Memo2.Lines.SaveToFile('numeris.andriuxa');
form1.IdFTP1.Put('numeris.andriuxa', 'numeris.andriuxa', false);
form1.IdFTP1.Disconnect;

form1.Memo3.Lines.SaveToFile('lastUsedlog.txt');
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

didinimas;
form1.Memo3.Lines.Add('...INSERT WORD...');
form2.show;
form2.Button1.Caption := 'Insert';
form2.Caption := 'Insert Word';
form2.GroupBox1.Caption := 'Insert Word';
form2.Memo1.Text := '';
form2.Edit1.Text := '';
form2.Edit1.Enabled := true;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
didinimas;
form1.Memo3.Lines.Add('...READING ABOUT...');
form4.show;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Memo3.Lines.Add('...DELITING WORD...');
if MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
if listbox1.ItemIndex = -1 then begin
MessageDlg('Choose the word!',mtInformation,[mbOk],0);  exit; end;
didinimas;
idftp1.Connect;
DeleteFile('duomenubaze\' + listbox1.Items[listbox1.itemindex] +'.profuks');
idftp1.Delete('duomenubaze\' + listbox1.Items[listbox1.itemindex] +'.profuks');
idftp1.Disconnect;

form1.listbox1.Items.Delete(listbox1.ItemIndex);

idftp1.Connect;
form1.listbox1.Items.SaveToFile('zodziai.profas');
idftp1.Put('zodziai.profas','zodziai.profas',false);
idftp1.Disconnect;

listbox1.ItemIndex := 0;
if listbox1.ItemIndex = -1 then memo1.Text := 'There is no words in the list...';
form1.Memo3.Lines.Add('...WORD DELETED...');
end else
form1.Memo3.Lines.Add('...DELITING WORD IS CANCELED...');
listbox1.ItemIndex := -1;
memo1.Text := 'Choose word...(or there is no words in the list)...';
exit;
end;

procedure TForm1.FormActivate(Sender: TObject);

begin
memo1.Text := 'Choose word...(or there is no words in the list)...';
if FileExists('zodziai.profas')
then idftp1.Connect;
DeleteFile('zodziai.profas');
idftp1.Get('zodziai.profas','zodziai.profas',false);
listbox1.Items.LoadFromFile('zodziai.profas');
Idftp1.Disconnect;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
idftp1.Connect;
DeleteFile('duomenubaze\'+listbox1.items[listbox1.itemindex]+'.profuks');
idftp1.Get('duomenubaze\'+listbox1.items[listbox1.itemindex]+'.profuks','duomenubaze\'+listbox1.items[listbox1.itemindex]+'.profuks', false);
form1.memo1.Lines.LoadFromFile('duomenubaze\'+listbox1.items[listbox1.itemindex]+'.profuks');
idftp1.Disconnect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
idftp1.Connect;
DeleteFile('numeris.andriuxa');
idftp1.Get('numeris.andriuxa','numeris.andriuxa', false);
Form1.Memo2.Lines.LoadFromFile('numeris.andriuxa');
idftp1.Disconnect;
Form1.Edit2.Text := Form1.Memo2.Text;
i := strtoint(form1.Edit2.text);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  Ini: TMemIniFile;
begin
didinimas;
 form1.Memo3.Lines.Add('...READING OPTIONS...');
form3.show;
idftp1.Connect;
    Ini := TMemIniFile.Create('nustatymai.ini');
    form3.ComboBox1.Text := Ini.ReadString( 'nustatymai', 'kalba','');
    form3.ComboBox2.Text := Ini.ReadString( 'nustatymai', 'skinas','');
    form3.ComboBox3.Text := Ini.ReadString( 'nustatymai', 'rusiuotipagal','');
    ini.Destroy;
    DeleteFile('nustatymai.ini');
    idftp1.Get('nustatymai.ini','nustatymai.ini', false);
    idftp1.Disconnect;

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if listbox1.ItemIndex = -1 then begin
MessageDlg('Choose the word!',mtInformation,[mbOk],0);  exit; end;
didinimas;
form1.Memo3.Lines.Add('...EDIT WORD...');
form2.Show;
form2.Memo1.Text := form1.Memo1.Text;
form2.Edit1.Text := form1.listbox1.Items[listbox1.itemindex];
form2.Button1.Caption := 'Edit';
form2.Caption := 'Edit Word';
form2.GroupBox1.Caption := 'Edit Word';
form2.Edit1.Enabled := false;

end;

end.


unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP;

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure didinimas;
begin
inc(i);
form1.Edit2.Text := inttostr(i);
end;

procedure idetizodi;
begin
 if FileExists('duomenubaze\'+ form2.Edit1.Text +'.profuks') then begin
 MessageDlg('You have this word in the list already! ',mtInformation,[mbOk],0); exit; end;
 if form2.edit1.Text = '' then begin
 MessageDlg('Enter the word!',mtInformation,[mbOk],0);
 exit; end;
 if form2.memo1.Text = '' then begin
 MessageDlg('Enter the description!',mtInformation,[mbok],0); exit; end;
 didinimas;
 form1.ListBox1.items.Add(form2.Edit1.Text);

form1.idftp1.Connect;
form1.listbox1.Items.SaveToFile('zodziai.profas');
form1.idftp1.Put('zodziai.profas','zodziai.profas',false);
form1.idftp1.Disconnect;

form1.IdFTP1.Connect;
 form2.Memo1.Lines.SaveToFile('duomenubaze\'+form2.Edit1.Text +'.profuks');
 form1.idftp1.Put('duomenubaze\'+form2.Edit1.Text +'.profuks', 'duomenubaze\'+form2.Edit1.Text +'.profuks', false);
 form1.IdFTP1.Disconnect;
 form1.Memo3.Lines.Add('...WORD INSERTED...');
 form1.Memo1.Text := 'Choose the word...';
 form2.Hide;
end;

procedure pakeistizodi;
begin
 if FileExists('duomenubaze\'+ form2.Edit1.Text +'.profuks') then begin
 form1.IdFTP1.Connect;
 Deletefile('duomenubaze\'+ form2.Edit1.Text +'.profuks');
 form1.IdFTP1.Delete('duomenubaze\'+ form2.Edit1.Text +'.profuks');
 form1.IdFTP1.Disconnect;

 form1.listbox1.Items.Delete(form1.listbox1.ItemIndex);
 end;
 if form2.memo1.Text = '' then begin
 MessageDlg('Description is Empty!',mtInformation,[mbok],0); exit; end;
 didinimas;
 form1.ListBox1.items.Add(form2.Edit1.Text);

form1.idftp1.Connect;
form1.listbox1.Items.SaveToFile('zodziai.profas');
form1.idftp1.Put('zodziai.profas','zodziai.profas',false);
form1.idftp1.Disconnect;

  form1.idftp1.Connect;
 form2.Memo1.Lines.SaveToFile('duomenubaze\'+form2.Edit1.Text +'.profuks');
 form1.idftp1.Put('duomenubaze\'+form2.Edit1.Text +'.profuks','duomenubaze\'+form2.Edit1.Text +'.profuks', false);
  form1.idftp1.Disconnect;

 form1.Memo3.Lines.Add('...WORD CHANGED...');
 form1.Memo1.Text := 'Choose the word...';
 form2.Hide;

end;

procedure lyginimas;
begin
form1.edit2.Text := form1.memo2.Text;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
if form2.Button1.Caption = 'Insert' then idetizodi
else pakeistizodi;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
didinimas;
form2.Hide;
if button1.Caption = 'insert' then form1.Memo3.Lines.Add('...INSERT WORD IS CLOSED...')
else form1.Memo3.Lines.Add('...EDIT WORD IS CLOSED...');
end;
                      
procedure TForm2.FormShow(Sender: TObject);
begin
if form2.Button1.Caption = 'Insert' then begin
edit1.Text := '';
memo1.Text := ''; end;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
didinimas;
form2.Memo1.Text := '';
if button1.Caption = 'Insert' then Edit1.Text := '';
form1.Memo3.Lines.Add('...FIELDS ARE CLEARED...');
end;

end.


unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, inifiles;

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label3: TLabel;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  Ini: TMemIniFile;

implementation

uses Unit1;

{$R *.dfm}

procedure configas;
begin
  Ini := TMemIniFile.Create('nustatymai.ini' ) ;
    Ini.WriteString( 'Nustatymai', 'kalba', form3.ComboBox1.Text);
    Ini.WriteString( 'Nustatymai', 'skinas', form3.ComboBox2.Text);
    Ini.WriteString( 'Nustatymai', 'rusiuotipagal', form3.ComboBox3.Text);
    Ini.UpdateFile;
    Ini.Destroy;
end;

procedure  defoultconfigas;
begin
    form3.ComboBox1.Text := 'English';
    form3.ComboBox2.Text := 'Standart';
    form3.ComboBox3.Text := 'Last Created';
Ini := TMemIniFile.Create('nustatymai.ini' ) ;
    Ini.WriteString( 'Nustatymai', 'kalba', 'English');
    Ini.WriteString( 'Nustatymai', 'skinas', 'Standart');
    Ini.WriteString( 'Nustatymai', 'rusiuotipagal', 'Last Created');
    Ini.UpdateFile;
    Ini.Destroy;
end;


procedure didinimas;
begin
inc(i);
form1.Edit2.Text := inttostr(i);
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
didinimas;
 form1.Memo3.Lines.Add('...OPTIONS IS CLOSED...');
form3.Hide;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
form1.memo2.Text := '0';
form1.Edit2.text := '0';
i := 0;
form1.Memo2.Lines.SaveToFile('numeris.andriuxa');
MessageDlg('Status reseted to 0',mtInformation,[mbOk],0);
 form1.Memo3.Lines.Add('...STATUS IS NOW 0...');

end;

procedure TForm3.Button4Click(Sender: TObject);
begin
  form1.Memo3.Lines.Add('...SAVING LOG...');
  if SaveDIalog1.Execute then
  begin
    form1.Memo3.Lines.SaveToFile(SaveDialog1.FileName);
     form1.Memo3.Lines.Add('...LOG SAVED...');
     didinimas;
     exit;
  end;
   form1.Memo3.Lines.Add('...SAVE LOG CANCELED...');
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
didinimas;
form1.Memo3.Lines.Add('...CHANGES SAVED...');
configas;
form3.Hide;
end;

procedure TForm3.Button6Click(Sender: TObject);
begin
 defoultconfigas;
 form1.Memo3.Lines.Add('...OPTIONS SETED TO DEFOULT...');
 didinimas;
 messagedlg('Options seted to defoult', mtInformation, [mbok], 0);

end;

procedure TForm3.Button5Click(Sender: TObject);
var a : integer;
begin
form1.Memo3.Lines.Add('...DELITING ALL WORDS...');
if MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
for a:=0 to form1.ListBox1.Items.Count-1 do
DeleteFile('duomenubaze\'+form1.ListBox1.Items[a]+'.profuks');
form1.ListBox1.Items.Text := '';
form1.ListBox1.Items.SaveToFile('zodziai.profas');
form1.Memo3.Lines.Add('...ALL WORLDS ARE DELETED FORM LIST...');
messagedlg('Deleted!', mtinformation, [mbok], 0);
didinimas;
end else
form1.Memo3.Lines.Add('...DELITING ALL WORDS IS CANCELED...');
exit;
end;

end.


unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button5: TButton;
    Label7: TLabel;
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure didinimas;
begin
inc(i);
form1.Edit2.Text := inttostr(i);
end;

procedure TForm4.Button5Click(Sender: TObject);
begin
form4.Hide;
didinimas;
form1.Memo3.Lines.Add('...ABOUT IS CLOSED...');
end;

end.