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 var
  72     CenterForm: TCustomForm;
  73 begin
  74     CenterForm := TCustomForm(Owner);
  75     if Assigned(CenterForm) then begin
  76         Left := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
  77         Top := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
  78     end else begin
  79         Left := (Screen.Width - Width) div 2;
  80         Top := (Screen.Height - Height) div 2;
  81     end;
  82         VersionMemo.Clear;
  83         VersionMemo.Lines.Add('Version ' + BETA_VERSION_NAME_J
  84                                                                         + FloatToStr(BETA_VERSION)
  85                                                                         + '('
  86                                                                         + GikoSys.Version
  87                                                                         + ')');
  88     VersionMemo.Lines.Add('');
  89         VersionMemo.Lines.Add('<Plugins>');
  90         VersionMemo.Lines.Add(Trim(GikoSys.GetPluginsInfo));
  91         VersionMemo.Lines.Add('');
  92         VersionMemo.Lines.Add('<IE>');
  93         VersionMemo.Lines.Add(Trim(GikoSys.GetIEVersion));
  94 end;
  95
  96
  97 {procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
  98 begin
  99         GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
 100 end;
 101
 102 procedure TAboutDialog.BNMonazillaImageClick(Sender: TObject);
 103 begin
 104         GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
 105 end;
 106
 107 procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
 108 begin
 109         GikoSys.OpenBrowser(URL_365CC, gbtAuto);
 110 end;}
 111
 112 {procedure TAboutDialog.Timer2Timer(Sender: TObject);
 113 begin
 114         Timer2.Interval := 3000;
 115         Label5.Caption := ST[FCnt];
 116         inc(FCnt);
 117         if FCnt > (Length(ST) - 1) then FCnt := 0;
 118 end;}
 119
 120 {procedure TAboutDialog.HiLabelClick(Sender: TObject);
 121 begin
 122         ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
 123 end;}
 124
 125 procedure TAboutDialog.FormClose(Sender: TObject;
 126         var Action: TCloseAction);
 127 begin
 128 //      AnimateWindow(Handle, 200, AW_HIDE or AW_BLEND);
 129 //      sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
 130 end;
 131
 132 {procedure TAboutDialog.Image1Click(Sender: TObject);
 133 var
 134         hResInfo: HRSRC;
 135         hglb: HGLOBAL;
 136         FRes: Pointer;
 137 begin
 138         Timer2.Enabled := False;
 139         Timer1.Enabled := True;
 140         Refresh;
 141         hResInfo := FindResource(HInstance, '#101', 'WAVE');
 142         hglb := LoadResource(HInstance, hResInfo);
 143         FRes := LockResource(hglb);
 144         sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);
 145
 146 end;}
 147
 148 {procedure TAboutDialog.Timer1Timer(Sender: TObject);
 149 begin
 150         Canvas.Brush.Style := bsClear;
 151         Canvas.Font.Color := Random($FFFFFF);
 152         Canvas.Font.Size := Random(30);
 153         Canvas.TextOut(Random(Width), Random(Height), '\83l\83^\90Ø\82ê');
 154
 155 end;}
 156
 157 procedure TAboutDialog.CopyButtonClick(Sender: TObject);
 158 begin
 159         //\83o\81[\83W\83\87\83\93\8fî\95ñ\82ðClipBoard\82É\93ü\82ê\82é
 160         Clipboard.SetTextBuf( PChar(VersionMemo.Text) );
 161 end;
 162
 163 end.