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/!Deprecated/MirandaNGHistoryToDB/About.pas | 146 +++++++++++++++++++++
 1 file changed, 146 insertions(+)
 create mode 100644 plugins/!Deprecated/MirandaNGHistoryToDB/About.pas

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

diff --git a/plugins/!Deprecated/MirandaNGHistoryToDB/About.pas b/plugins/!Deprecated/MirandaNGHistoryToDB/About.pas
new file mode 100644
index 0000000000..7d175adb84
--- /dev/null
+++ b/plugins/!Deprecated/MirandaNGHistoryToDB/About.pas
@@ -0,0 +1,146 @@
+{ ############################################################################ }
+{ #                                                                          # }
+{ #  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