From 690f5e6d29d1c85c4be72638eb22843964c2f512 Mon Sep 17 00:00:00 2001
From: Alexander Lantsev <aunsane@gmail.com>
Date: Fri, 24 Apr 2015 08:21:28 +0000
Subject: All non-working stuff moved from trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@13071 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/!NotAdopted/Chess4Net/GameOptionsUnit.pas | 191 ----------------------
 1 file changed, 191 deletions(-)
 delete mode 100644 plugins/!NotAdopted/Chess4Net/GameOptionsUnit.pas

(limited to 'plugins/!NotAdopted/Chess4Net/GameOptionsUnit.pas')

diff --git a/plugins/!NotAdopted/Chess4Net/GameOptionsUnit.pas b/plugins/!NotAdopted/Chess4Net/GameOptionsUnit.pas
deleted file mode 100644
index 0c8fd6cdeb..0000000000
--- a/plugins/!NotAdopted/Chess4Net/GameOptionsUnit.pas
+++ /dev/null
@@ -1,191 +0,0 @@
-////////////////////////////////////////////////////////////////////////////////
-// All code below is exclusively owned by author of Chess4Net - Pavel Perminov
-// (packpaul@mail.ru, packpaul1@gmail.com).
-// Any changes, modifications, borrowing and adaptation are a subject for
-// explicit permition from the owner.
-
-unit GameOptionsUnit;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls,
-  Dialogs, StdCtrls, TntStdCtrls, ExtCtrls, ComCtrls,
-  ModalForm;
-
-type
-  TGameOptionsForm = class(TModalForm)
-    OkButton: TTntButton;
-    CancelButton: TTntButton;
-    TimeControlGroupBox: TTntGroupBox;
-    EqualTimeCheckBox: TTntCheckBox;
-    YouGroupBox: TTntGroupBox;
-    YouMinLabel: TTntLabel;
-    YouIncLabel: TTntLabel;
-    YouMinEdit: TEdit;
-    YouIncEdit: TEdit;
-    YouUnlimitedCheckBox: TTntCheckBox;
-    OpponentGroupBox: TTntGroupBox;
-    OpponentMinLabel: TTntLabel;
-    OpponentIncLabel: TTntLabel;
-    OpponentIncEdit: TEdit;
-    OpponentMinEdit: TEdit;
-    OpponentUnlimitedCheckBox: TTntCheckBox;
-    Panel1: TPanel;
-    AutoFlagCheckBox: TTntCheckBox;
-    TakeBackCheckBox: TTntCheckBox;
-    TrainingModeGroupBox: TTntGroupBox;
-    TrainingEnabledCheckBox: TTntCheckBox;
-    ExtBaseComboBox: TTntComboBox;
-    UsrBaseCheckBox: TTntCheckBox;
-    ExtBaseLabel: TTntLabel;
-    GamePauseCheckBox: TTntCheckBox;
-    YouMinUpDown: TUpDown;
-    YouIncUpDown: TUpDown;
-    OpponentMinUpDown: TUpDown;
-    OpponentIncUpDown: TUpDown;
-    GameAdjournCheckBox: TTntCheckBox;
-    procedure YouEditChange(Sender: TObject);
-    procedure OpponentEditChange(Sender: TObject);
-    procedure EqualTimeCheckBoxClick(Sender: TObject);
-    procedure UnlimitedCheckBoxClick(Sender: TObject);
-    procedure TrainingEnabledCheckBoxClick(Sender: TObject);
-    procedure ExtBaseComboBoxChange(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
-  private
-    procedure FLocalize;
-  protected
-    function GetModalID: TModalFormID; override;
-  end;
-
-implementation
-
-{$R *.dfm}
-
-uses
-  LocalizerUnit;
-
-procedure TGameOptionsForm.YouEditChange(Sender: TObject);
-begin
-  YouMinEdit.Text := IntToStr(YouMinUpDown.Position);
-  YouIncEdit.Text := IntToStr(YouIncUpDown.Position);
-  if EqualTimeCheckBox.Checked then
-    begin
-      OpponentMinEdit.Text := YouMinEdit.Text;
-      OpponentIncEdit.Text := YouIncEdit.Text;
-    end;
-end;
-
-
-procedure TGameOptionsForm.OpponentEditChange(Sender: TObject);
-begin
-  OpponentMinEdit.Text := IntToStr(OpponentMinUpDown.Position);
-  OpponentIncEdit.Text := IntToStr(OpponentIncUpDown.Position);
-  if EqualTimeCheckBox.Checked then
-    begin
-      YouMinEdit.Text := OpponentMinEdit.Text;
-      YouIncEdit.Text := OpponentIncEdit.Text;
-    end;
-end;
-
-
-procedure TGameOptionsForm.EqualTimeCheckBoxClick(Sender: TObject);
-begin
-  if EqualTimeCheckBox.Checked then
-    begin
-      OpponentMinEdit.Text := YouMinEdit.Text;
-      OpponentIncEdit.Text := YouIncEdit.Text;
-      OpponentUnlimitedCheckBox.Checked := YouUnlimitedCheckBox.Checked;
-    end;
-end;
-
-
-procedure TGameOptionsForm.UnlimitedCheckBoxClick(Sender: TObject);
-begin
-  if EqualTimeCheckBox.Checked then
-    begin
-      YouUnlimitedCheckBox.Checked := TCheckBox(Sender).Checked;
-      OpponentUnlimitedCheckBox.Checked := TCheckBox(Sender).Checked;
-    end;
-
-  YouMinEdit.Enabled := (not YouUnlimitedCheckBox.Checked);
-  YouMinUpDown.Enabled := (not YouUnlimitedCheckBox.Checked);
-  YouIncEdit.Enabled := (not YouUnlimitedCheckBox.Checked);
-  YouIncUpDown.Enabled := (not YouUnlimitedCheckBox.Checked);
-
-  OpponentMinEdit.Enabled := (not OpponentUnlimitedCheckBox.Checked);
-  OpponentMinUpDown.Enabled := (not OpponentUnlimitedCheckBox.Checked);
-  OpponentIncEdit.Enabled := (not OpponentUnlimitedCheckBox.Checked);
-  OpponentIncUpDown.Enabled := (not OpponentUnlimitedCheckBox.Checked);
-end;
-
-
-procedure TGameOptionsForm.TrainingEnabledCheckBoxClick(Sender: TObject);
-begin
-  ExtBaseComboBox.Enabled := TrainingEnabledCheckBox.Checked;
-  UsrBaseCheckBox.Enabled := TrainingEnabledCheckBox.Checked and (ExtBaseComboBox.ItemIndex <> 0);
-  TakeBackCheckBox.Enabled := not TrainingEnabledCheckBox.Checked;
-end;
-
-
-procedure TGameOptionsForm.ExtBaseComboBoxChange(Sender: TObject);
-begin
-  UsrBaseCheckBox.Enabled := (ExtBaseComboBox.ItemIndex <> 0);
-  if ExtBaseComboBox.ItemIndex = 0 then
-    UsrBaseCheckBox.Checked := TRUE;
-end;
-
-
-procedure TGameOptionsForm.FormShow(Sender: TObject);
-begin
-  ExtBaseComboBoxChange(Sender);
-end;
-
-
-function TGameOptionsForm.GetModalID: TModalFormID;
-begin
-  Result := mfGameOptions;
-end;
-
-
-procedure TGameOptionsForm.FormCreate(Sender: TObject);
-begin
-  FLocalize;
-end;
-
-
-procedure TGameOptionsForm.FLocalize;
-begin
-  with TLocalizer.Instance do
-  begin
-    Caption := GetLabel(24);
-
-    TimeControlGroupBox.Caption := GetLabel(25);
-    EqualTimeCheckBox.Caption := GetLabel(26);
-    YouGroupBox.Caption := GetLabel(27);
-    OpponentGroupBox.Caption := GetLabel(28);
-    YouUnlimitedCheckBox.Caption := GetLabel(29);
-    OpponentUnlimitedCheckBox.Caption := GetLabel(29);
-    YouMinLabel.Caption := GetLabel(30);
-    OpponentMinLabel.Caption := GetLabel(30);
-    YouIncLabel.Caption := GetLabel(31);
-    OpponentIncLabel.Caption := GetLabel(31);
-
-    TrainingModeGroupBox.Caption := GetLabel(32);
-    TrainingEnabledCheckBox.Caption := GetLabel(33);
-    ExtBaseLabel.Caption := GetLabel(34);
-    UsrBaseCheckBox.Caption := GetLabel(35);
-
-    GamePauseCheckBox.Caption := GetLabel(36);
-    GameAdjournCheckBox.Caption := GetLabel(37);
-    TakeBackCheckBox.Caption := GetLabel(38);
-    AutoFlagCheckBox.Caption := GetLabel(39);
-
-    OkButton.Caption := GetLabel(11);
-    CancelButton.Caption := GetLabel(12);
-  end;
-end;
-
-
-end.
-- 
cgit v1.2.3