From 9649ae46f093f7d4e6130d24c90da19e153a2ccf Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Tue, 10 Dec 2013 14:30:49 +0000
Subject: MirandaNGHistoryToDB moved to deprecated

git-svn-id: http://svn.miranda-ng.org/main/trunk@7118 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/MirandaNGHistoryToDB/About.pas | 146 ---------------------------------
 1 file changed, 146 deletions(-)
 delete mode 100644 plugins/MirandaNGHistoryToDB/About.pas

(limited to 'plugins/MirandaNGHistoryToDB/About.pas')

diff --git a/plugins/MirandaNGHistoryToDB/About.pas b/plugins/MirandaNGHistoryToDB/About.pas
deleted file mode 100644
index 7d175adb84..0000000000
--- a/plugins/MirandaNGHistoryToDB/About.pas
+++ /dev/null
@@ -1,146 +0,0 @@
-{ ############################################################################ }
-{ #                                                                          # }
-{ #  MirandaNG HistoryToDB Plugin v2.5                                       # }
-{ #                                                                          # }
-{ #  License: GPLv3                                                          # }
-{ #                                                                          # }
-{ #  Author: Grigorev Michael (icq: 161867489, email: sleuthhound@gmail.com) # }
-{ #                                                                          # }
-{ ############################################################################ }
-
-unit About;
-
-interface
-
-uses Windows, Messages, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
-  Buttons, ExtCtrls, ShellAPI, Global, ComCtrls;
-
-type
-  TAboutForm = class(TForm)
-    AboutImage: TImage;
-    CloseButton: TButton;
-    AboutPageControl: TPageControl;
-    VersionTabSheet: TTabSheet;
-    ThankYouTabSheet: TTabSheet;
-    BAbout: TBevel;
-    LProgramName: TLabel;
-    LCopyright: TLabel;
-    LabelAuthor: TLabel;
-    LVersionNum: TLabel;
-    LVersion: TLabel;
-    LLicense: TLabel;
-    LLicenseType: TLabel;
-    LWeb: TLabel;
-    LabelWebSite: TLabel;
-    BThankYou: TBevel;
-    ThankYou: TLabel;
-    procedure FormCreate(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure CloseButtonClick(Sender: TObject);
-    procedure LabelAuthorClick(Sender: TObject);
-    procedure LabelWebSiteClick(Sender: TObject);
-    procedure MemoThankYouEnter(Sender: TObject);
-  private
-    { Private declarations }
-    // Для мультиязыковой поддержки
-    procedure OnLanguageChanged(var Msg: TMessage); message WM_LANGUAGECHANGED;
-    procedure LoadLanguageStrings;
-  public
-    { Public declarations }
-  end;
-
-var
-  AboutForm: TAboutForm;
-
-implementation
-
-{$R *.dfm}
-{$R icons.res}
-
-procedure TAboutForm.CloseButtonClick(Sender: TObject);
-begin
-  Close;
-end;
-
-procedure TAboutForm.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  // Переменная для режима анти-босс
-  Global_AboutForm_Showing := False;
-end;
-
-procedure TAboutForm.FormCreate(Sender: TObject);
-var
-  AboutBitmap: TBitmap;
-begin
-  // Для мультиязыковой поддержки
-  AboutFormHandle := Handle;
-  SetWindowLong(Handle, GWL_HWNDPARENT, 0);
-  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
-  // Грузим битовый образы из файла ресурсов
-  AboutBitmap := TBitmap.Create;
-  try
-    AboutBitmap.LoadFromResourceName(HInstance, 'About');
-    AboutImage.Picture.Assign(AboutBitmap);
-  finally
-    AboutBitmap.Free;
-  end;
-  LabelAuthor.Cursor := crHandPoint;
-  LabelWebSite.Cursor := crHandPoint;
-  // Загружаем язык интерфейса
-  LoadLanguageStrings;
-end;
-
-procedure TAboutForm.FormShow(Sender: TObject);
-begin
-  // Переменная для режима анти-босс
-  Global_AboutForm_Showing := True;
-  // Указываем версию в окне "О плагине"
-  LVersionNum.Caption := IntToStr(htdVerMajor) + '.' + IntToStr(htdVerMinor) + '.' + IntToStr(htdVerRelease) + '.' + IntToStr(htdVerBuild) + ' ' + htdPlatform;
-end;
-
-procedure TAboutForm.LabelAuthorClick(Sender: TObject);
-begin
-  ShellExecute(0, 'open', 'mailto:sleuthhound@gmail.com', nil, nil, SW_RESTORE);
-end;
-
-procedure TAboutForm.LabelWebSiteClick(Sender: TObject);
-begin
-  ShellExecute(0, 'open', 'http://www.im-history.ru', nil, nil, SW_RESTORE);
-end;
-
-// Мега-хак для запрета выделения в Memo :-D
-procedure TAboutForm.MemoThankYouEnter(Sender: TObject);
-begin
-  CloseButton.SetFocus;
-end;
-
-// Для мультиязыковой поддержки
-procedure TAboutForm.OnLanguageChanged(var Msg: TMessage);
-begin
-  LoadLanguageStrings;
-end;
-
-// Для мультиязыковой поддержки
-procedure TAboutForm.LoadLanguageStrings;
-begin
-  Caption := GetLangStr('AboutFormCaption');
-  LProgramName.Caption := htdPluginShortName;
-  CloseButton.Caption := GetLangStr('CloseButton');
-  LVersion.Caption := GetLangStr('Version');
-  LLicense.Caption := GetLangStr('License');
-  VersionTabSheet.Caption := GetLangStr('AboutFormCaption');
-  ThankYouTabSheet.Caption := GetLangStr('LThankYou');
-  // Позиционируем лейблы
-  LVersionNum.Left := LVersion.Left + 1 + LVersion.Width;
-  LLicenseType.Left := LLicense.Left + 1 + LLicense.Width;
-  // Благодарности
-  if CoreLanguage = 'Russian' then
-    ThankYou.Caption := ThankYouText_Rus
-  else
-    ThankYou.Caption := ThankYouText_Eng;
-  // End
-end;
-
-end.
- 
-- 
cgit v1.2.3