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
---
 .../lib/TntUnicodeControls/Source/TntDBLogDlg.pas  | 133 ---------------------
 1 file changed, 133 deletions(-)
 delete mode 100644 plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntDBLogDlg.pas

(limited to 'plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntDBLogDlg.pas')

diff --git a/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntDBLogDlg.pas b/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntDBLogDlg.pas
deleted file mode 100644
index c8747e2f2a..0000000000
--- a/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntDBLogDlg.pas
+++ /dev/null
@@ -1,133 +0,0 @@
-
-{*****************************************************************************}
-{                                                                             }
-{    Tnt Delphi Unicode Controls                                              }
-{      http://www.tntware.com/delphicontrols/unicode/                         }
-{        Version: 2.3.0                                                       }
-{                                                                             }
-{    Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com)       }
-{                                                                             }
-{*****************************************************************************}
-
-unit TntDBLogDlg;
-
-{$INCLUDE TntCompilers.inc}
-
-interface
-
-uses
-  SysUtils, Windows, Messages, Classes, Graphics,  
-  TntForms, TntStdCtrls, TntExtCtrls, StdCtrls, ExtCtrls, Controls;
-
-type
-  TTntLoginDialog = class(TTntForm)
-    Panel: TTntPanel;
-    Bevel: TTntBevel;
-    DatabaseName: TTntLabel;
-    OKButton: TTntButton;
-    CancelButton: TTntButton;
-    Panel1: TTntPanel;
-    Label1: TTntLabel;
-    Label2: TTntLabel;
-    Label3: TTntLabel;
-    Password: TTntEdit;
-    UserName: TTntEdit;
-    procedure FormShow(Sender: TObject);
-  end;
-
-{TNT-WARN LoginDialog}
-function TntLoginDialog(const ADatabaseName: WideString;
-  var AUserName, APassword: WideString): Boolean;
-
-{TNT-WARN LoginDialogEx}
-function TntLoginDialogEx(const ADatabaseName: WideString;
-  var AUserName, APassword: WideString; NameReadOnly: Boolean): Boolean;
-
-{TNT-WARN RemoteLoginDialog}
-function TntRemoteLoginDialog(var AUserName, APassword: WideString): Boolean;
-
-implementation
-
-{$R *.dfm}
-
-uses
-  Forms, VDBConsts;
-
-function TntLoginDialog(const ADatabaseName: WideString;
-  var AUserName, APassword: WideString): Boolean;
-begin
-  with TTntLoginDialog.Create(Application) do
-  try
-    DatabaseName.Caption := ADatabaseName;
-    UserName.Text := AUserName;
-    Result := False;
-    if AUserName = '' then ActiveControl := UserName;
-    if ShowModal = mrOk then
-    begin
-      AUserName := UserName.Text;
-      APassword := Password.Text;
-      Result := True;
-    end;
-  finally
-    Free;
-  end;
-end;
-
-function TntLoginDialogEx(const ADatabaseName: WideString;
-  var AUserName, APassword: WideString; NameReadOnly: Boolean): Boolean;
-begin
-  with TTntLoginDialog.Create(Application) do
-  try
-    DatabaseName.Caption := ADatabaseName;
-    UserName.Text := AUserName;
-    Result := False;
-    if NameReadOnly then
-      UserName.Enabled := False
-    else
-      if AUserName = '' then ActiveControl := UserName;
-    if ShowModal = mrOk then
-    begin
-      AUserName := UserName.Text;
-      APassword := Password.Text;
-      Result := True;
-    end;
-  finally
-    Free;
-  end;
-end;
-
-function TntRemoteLoginDialog(var AUserName, APassword: WideString): Boolean;
-begin
-  with TTntLoginDialog.Create(Application) do
-  try
-    Caption := SRemoteLogin;
-    Bevel.Visible := False;
-    DatabaseName.Visible := False;
-    Label3.Visible := False;
-    Panel.Height := Panel.Height - Bevel.Top;
-    OKButton.Top := OKButton.Top - Bevel.Top;
-    CancelButton.Top := CancelButton.Top - Bevel.Top;
-    Height := Height - Bevel.Top;
-    UserName.Text := AUserName;
-    Result := False;
-    if AUserName = '' then ActiveControl := UserName;
-    if ShowModal = mrOk then
-    begin
-      AUserName := UserName.Text;
-      APassword := Password.Text;
-      Result := True;
-    end;
-  finally
-    Free;
-  end;
-end;
-
-{ TTntLoginDialog }
-
-procedure TTntLoginDialog.FormShow(Sender: TObject);
-begin
-  if (DatabaseName.Width + DatabaseName.Left) >= Panel.ClientWidth then
-    DatabaseName.Width := (Panel.ClientWidth - DatabaseName.Left) - 5;
-end;
-
-end.
-- 
cgit v1.2.3