All non-working stuff moved from trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@13071 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 0 insertions, 82 deletions

diff --git a/plugins/!NotAdopted/Chess4Net/DontShowMessageDlgUnit.pas b/plugins/!NotAdopted/Chess4Net/DontShowMessageDlgUnit.pas
deleted file mode 100644
index 357b56c8be..0000000000
--- a/plugins/!NotAdopted/Chess4Net/DontShowMessageDlgUnit.pas
+++ /dev/null
@@ -1,82 +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 DontShowMessageDlgUnit;

-

-interface

-

-uses

-  Forms, StdCtrls,

-  //

-  DialogUnit, ModalForm;

-

-type

-  TDontShowMessageDlg = class(TDialogForm)

-  private

-    m_DontShowCheckBox: TCheckBox;

-    function FGetDontShow: boolean;

-    procedure FSetDontShow(bValue: boolean);

-  protected

-    function GetModalID: TModalFormID; override;

-  public

-    class function Create(const ADialogs: TDialogs; const wstrMsg: WideString): TDontShowMessageDlg; overload;

-    constructor Create(Owner: TForm; modHandler: TModalFormHandler = nil); overload; override;

-    property DontShow: boolean read FGetDontShow write FSetDontShow;    

-  end;

-

-implementation

-

-uses

-  Dialogs, Controls;

-

-////////////////////////////////////////////////////////////////////////////////

-// TDontShowMessageDlg

-

-var

-  g_wstrMsg: WideString;

-

-constructor TDontShowMessageDlg.Create(Owner: TForm; modHandler: TModalFormHandler = nil);

-begin

-  inherited Create(Owner, g_wstrMsg, mtInformation, [mbOK], GetModalID, modHandler);

-

-  MsgDlg.Height := MsgDlg.Height + 10;

-

-  m_DontShowCheckBox := TCheckBox.Create(MsgDlg);

-  m_DontShowCheckBox.Parent := MsgDlg;

-  m_DontShowCheckBox.Caption := 'Don''t Show'; // TODO: Localize

-

-  m_DontShowCheckBox.Left := 10;

-  m_DontShowCheckBox.Top := MsgDlg.ClientHeight - m_DontShowCheckBox.Height - 5;

-end;

-

-

-class function TDontShowMessageDlg.Create(const ADialogs: TDialogs;

-  const wstrMsg: WideString): TDontShowMessageDlg;

-begin

-  g_wstrMsg := wstrMsg;

-  Result := ADialogs.CreateDialog(TDontShowMessageDlg) as TDontShowMessageDlg;

-  g_wstrMsg := '';

-end;

-

-

-function TDontShowMessageDlg.FGetDontShow: boolean;

-begin

-  Result := m_DontShowCheckBox.Checked;

-end;

-

-

-procedure TDontShowMessageDlg.FSetDontShow(bValue: boolean);

-begin

-  m_DontShowCheckBox.Checked := bValue;

-end;

-

-

-function TDontShowMessageDlg.GetModalID: TModalFormID;

-begin

-  Result := mfDontShowDlg;

-end;

-

-end.