About.pas

   1 unit About;
   2
   3 interface
   4
   5 uses
   6         Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   7         StdCtrls, Menus, Clipbrd, ExtCtrls, UrlMon, ShellAPI, MMSystem,
   8         GikoSystem;
   9
  10 type
  11         TAboutDialog = class(TForm)
  12         Panel1: TPanel;
  13         Label1: TLabel;
  14         Image1: TImage;
  15         Panel2: TPanel;
  16         Button1: TButton;
  17         VersionPanel: TPanel;
  18         VersionMemo: TMemo;
  19         ButtonPanel: TPanel;
  20     CopyButton: TButton;
  21                 procedure FormCreate(Sender: TObject);
  22 //              procedure BNGikoNaviImageClick(Sender: TObject);
  23 //              procedure BNMonazillaImageClick(Sender: TObject);
  24 //              procedure BN365ccImageClick(Sender: TObject);
  25 //              procedure Timer2Timer(Sender: TObject);
  26 //              procedure HiLabelClick(Sender: TObject);
  27                 procedure FormClose(Sender: TObject; var Action: TCloseAction);
  28     procedure CopyButtonClick(Sender: TObject);
  29 //              procedure Image1Click(Sender: TObject);
  30 //    procedure Timer1Timer(Sender: TObject);
  31         private
  32                 { Private \90é\8c¾ }
  33 //              FCnt: Integer;
  34         public
  35                 { Public \90é\8c¾ }
  36         end;
  37
  38 var
  39         AboutDialog: TAboutDialog;
  40
  41 implementation
  42
  43 const
  44         ST: array[0..10] of string =
  45                                         ('\81y\8a´\8eÓ\81z\96\88\93x\82 \82è\82ª\82Æ\82¤\82²\82´\82¢\82Ü\82·\81y\8eÓ\88Ó\81z',
  46                                          '\82¢\82Â\82à\83z\83b\83g\83]\83k\82Ì\83\\81[\83X\82ð\8eQ\8dl\82É\82³\82¹\82Ä\82¢\82½\82¾\82¢\82Ä\82¨\82è\82Ü\82·',
  47                                          '\83A\83C\83R\83\93\82È\82Ç\82Ì\91f\8dÞ\82Í\8b\8d\82³\82ñ\8dì\82Ì\83A\83C\83R\83\93\82ð\8eg\82Á\82Ä\82¨\82è\82Ü\82·',
  48                                          'gzip\83R\83\93\83|\81[\83l\83\93\83g\82Í\96¼\96³\82µ\82³\82ñ\8dì\82Ì\82ð\8eg\82Á\82Ä\82¨\82è\82Ü\82·',
  49                                          '\88Ã\8d\86\89»\8f\88\97\9d\82ÍJane\8dì\8eÒ\82³\82ñ\82Ì\82ð\8eg\82Á\82Ä\82¨\82è\82Ü\82·',
  50                                          'Dolib\8aÖ\98A\82ÍDax\82³\82ñ\8dì\82Ì\82ð\8eg\82Á\82Ä\82¨\82è\82Ü\82·',
  51                                          'Dolib\82ð\89ü\91¢\82·\82é\82Æ\82«kage\8dì\8eÒ\82³\82ñ\82Ì\83\\81[\83X\82ð\8eQ\8dl\82É\82µ\82Ä\82¨\82è\82Ü\82·',
  52                                          '\82¢\82Â\82àDel\83X\83\8c\82Å\83t\83T\83M\83R\82³\82ñ\82É\8f\95\82¯\82Ä\82à\82ç\82Á\82Ä\82Ü\82·',
  53                                          '\82¢\82ë\82¢\82ë\82È\83\\81[\83X\82ð\8eQ\8dl\82É\82µ\82Ä\82¨\82è\82Ü\82·',
  54                                          '\83M\83R\83i\83r\83X\83\8c\82Å\82Í\83\86\81[\83U\82Ì\95û\81X\82É\93Ã\82Ü\82³\82ê\82Ä\82¨\82è\82Ü\82·',
  55                                          '\82Æ\82Ä\82à \82¨\82¢\82µ\82ã\82¤\82²\82´\82¢\82Ü\82µ\82½');
  56
  57 //      MAIL_GIKOANVI: string = 'mailto:gikonavi@ice.dti2.ne.jp';
  58 //      URL_GIKONAVI:  string = 'http://gikonavi.hp.infoseek.co.jp/';
  59 //      URL_MONAZILLA: string = 'http://www.monazilla.org/';
  60 //      URL_365CC:     string = 'http://www.kyoto.zaq.ne.jp/365cc/';
  61 //      TIP_GIKONAVI:  string = '\83M\83R\83i\83r\82Ì\83y\81[\83W';
  62 //      TIP_MONAZILLA: string = '2ch\97p\83u\83\89\83E\83U\82ð\8dì\90¬\82µ\82Ä\82¢\82é\83T\83C\83g' + #13#10
  63 //                                                                                              + '\83M\83R\83i\83r\82à\82Ü\82º\82Ä\82à\82ç\82Á\82Ä\82Ü\82·';
  64 //      TIP_365CC:     string = '2ch\83L\83\83\83\89\82Ì\91f\8dÞ\82ð\90»\8dì\82µ\82Ä\82é\8b\8d\82³\82ñ\82Ì\83y\81[\83W' + #13#10
  65 //                                                                                              + '\83M\83R\83i\83r\82Å\82à\97\98\97p\82³\82¹\82Ä\82à\82ç\82Á\82Ä\82Ü\82·\81B';
  66
  67 {$R *.DFM}
  68 //{$R gikoSound.res}
  69
  70 procedure TAboutDialog.FormCreate(Sender: TObject);
  71 begin
  72         VersionMemo.Clear;
  73         VersionMemo.Lines.Add('Version ' + BETA_VERSION_NAME_J
  74                                                                         + FloatToStr(BETA_VERSION)
  75                                                                         + '('
  76                                                                         + GikoSys.Version
  77                                                                         + ')');
  78     VersionMemo.Lines.Add('');
  79         VersionMemo.Lines.Add('<Plugins>');
  80         VersionMemo.Lines.Add(Trim(GikoSys.GetPluginsInfo));
  81         VersionMemo.Lines.Add('');
  82         VersionMemo.Lines.Add('<IE>');
  83         VersionMemo.Lines.Add(Trim(GikoSys.GetIEVersion));
  84 end;
  85
  86
  87 {procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
  88 begin
  89         GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
  90 end;
  91
  92 procedure TAboutDialog.BNMonazillaImageClick(Sender: TObject);
  93 begin
  94         GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
  95 end;
  96
  97 procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
  98 begin
  99         GikoSys.OpenBrowser(URL_365CC, gbtAuto);
 100 end;}
 101
 102 {procedure TAboutDialog.Timer2Timer(Sender: TObject);
 103 begin
 104         Timer2.Interval := 3000;
 105         Label5.Caption := ST[FCnt];
 106         inc(FCnt);
 107         if FCnt > (Length(ST) - 1) then FCnt := 0;
 108 end;}
 109
 110 {procedure TAboutDialog.HiLabelClick(Sender: TObject);
 111 begin
 112         ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
 113 end;}
 114
 115 procedure TAboutDialog.FormClose(Sender: TObject;
 116         var Action: TCloseAction);
 117 begin
 118 //      AnimateWindow(Handle, 200, AW_HIDE or AW_BLEND);
 119 //      sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
 120 end;
 121
 122 {procedure TAboutDialog.Image1Click(Sender: TObject);
 123 var
 124         hResInfo: HRSRC;
 125         hglb: HGLOBAL;
 126         FRes: Pointer;
 127 begin
 128         Timer2.Enabled := False;
 129         Timer1.Enabled := True;
 130         Refresh;
 131         hResInfo := FindResource(HInstance, '#101', 'WAVE');
 132         hglb := LoadResource(HInstance, hResInfo);
 133         FRes := LockResource(hglb);
 134         sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);
 135
 136 end;}
 137
 138 {procedure TAboutDialog.Timer1Timer(Sender: TObject);
 139 begin
 140         Canvas.Brush.Style := bsClear;
 141         Canvas.Font.Color := Random($FFFFFF);
 142         Canvas.Font.Size := Random(30);
 143         Canvas.TextOut(Random(Width), Random(Height), '\83l\83^\90Ø\82ê');
 144
 145 end;}
 146
 147 procedure TAboutDialog.CopyButtonClick(Sender: TObject);
 148 begin
 149         //\83o\81[\83W\83\87\83\93\8fî\95ñ\82ðClipBoard\82É\93ü\82ê\82é
 150         Clipboard.SetTextBuf( PChar(VersionMemo.Text) );
 151 end;
 152
 153 end.