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                 Label1: TLabel;
  13                 Image1: TImage;
  14                 Button1: TButton;
  15     VersionLabel: TLabel;
  16                 procedure FormCreate(Sender: TObject);
  17 //              procedure BNGikoNaviImageClick(Sender: TObject);
  18 //              procedure BNMonazillaImageClick(Sender: TObject);
  19 //              procedure BN365ccImageClick(Sender: TObject);
  20 //              procedure Timer2Timer(Sender: TObject);
  21 //              procedure HiLabelClick(Sender: TObject);
  22                 procedure FormClose(Sender: TObject; var Action: TCloseAction);
  23 //              procedure Image1Click(Sender: TObject);
  24 //    procedure Timer1Timer(Sender: TObject);
  25         private
  26                 { Private \90é\8c¾ }
  27 //              FCnt: Integer;
  28         public
  29                 { Public \90é\8c¾ }
  30         end;
  31
  32 var
  33         AboutDialog: TAboutDialog;
  34
  35 implementation
  36
  37 const
  38         ST: array[0..10] of string =
  39                                         ('\81y\8a´\8eÓ\81z\96\88\93x\82 \82è\82ª\82Æ\82¤\82²\82´\82¢\82Ü\82·\81y\8eÓ\88Ó\81z',
  40                                          '\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·',
  41                                          '\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·',
  42                                          '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·',
  43                                          '\88Ã\8d\86\89»\8f\88\97\9d\82ÍJane\8dì\8eÒ\82³\82ñ\82Ì\82ð\8eg\82Á\82Ä\82¨\82è\82Ü\82·',
  44                                          'Dolib\8aÖ\98A\82ÍDax\82³\82ñ\8dì\82Ì\82ð\8eg\82Á\82Ä\82¨\82è\82Ü\82·',
  45                                          '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·',
  46                                          '\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·',
  47                                          '\82¢\82ë\82¢\82ë\82È\83\\81[\83X\82ð\8eQ\8dl\82É\82µ\82Ä\82¨\82è\82Ü\82·',
  48                                          '\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·',
  49                                          '\82Æ\82Ä\82à \82¨\82¢\82µ\82ã\82¤\82²\82´\82¢\82Ü\82µ\82½');
  50
  51 //      MAIL_GIKOANVI: string = 'mailto:gikonavi@ice.dti2.ne.jp';
  52 //      URL_GIKONAVI:  string = 'http://gikonavi.hp.infoseek.co.jp/';
  53 //      URL_MONAZILLA: string = 'http://www.monazilla.org/';
  54 //      URL_365CC:     string = 'http://www.kyoto.zaq.ne.jp/365cc/';
  55 //      TIP_GIKONAVI:  string = '\83M\83R\83i\83r\82Ì\83y\81[\83W';
  56 //      TIP_MONAZILLA: string = '2ch\97p\83u\83\89\83E\83U\82ð\8dì\90¬\82µ\82Ä\82¢\82é\83T\83C\83g' + #13#10
  57 //                                                                                              + '\83M\83R\83i\83r\82à\82Ü\82º\82Ä\82à\82ç\82Á\82Ä\82Ü\82·';
  58 //      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
  59 //                                                                                              + '\83M\83R\83i\83r\82Å\82à\97\98\97p\82³\82¹\82Ä\82à\82ç\82Á\82Ä\82Ü\82·\81B';
  60
  61 {$R *.DFM}
  62 //{$R gikoSound.res}
  63
  64 procedure TAboutDialog.FormCreate(Sender: TObject);
  65 begin
  66
  67         VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
  68                                                                         + IntToStr(BETA_VERSION)
  69                                                                         + '('
  70                                                                         + GikoSys.Version
  71                                                                         + ')';
  72 end;
  73
  74
  75 {procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
  76 begin
  77         GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
  78 end;
  79
  80 procedure TAboutDialog.BNMonazillaImageClick(Sender: TObject);
  81 begin
  82         GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
  83 end;
  84
  85 procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
  86 begin
  87         GikoSys.OpenBrowser(URL_365CC, gbtAuto);
  88 end;}
  89
  90 {procedure TAboutDialog.Timer2Timer(Sender: TObject);
  91 begin
  92         Timer2.Interval := 3000;
  93         Label5.Caption := ST[FCnt];
  94         inc(FCnt);
  95         if FCnt > (Length(ST) - 1) then FCnt := 0;
  96 end;}
  97
  98 {procedure TAboutDialog.HiLabelClick(Sender: TObject);
  99 begin
 100         ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
 101 end;}
 102
 103 procedure TAboutDialog.FormClose(Sender: TObject;
 104         var Action: TCloseAction);
 105 begin
 106 //      AnimateWindow(Handle, 200, AW_HIDE or AW_BLEND);
 107 //      sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
 108 end;
 109
 110 {procedure TAboutDialog.Image1Click(Sender: TObject);
 111 var
 112         hResInfo: HRSRC;
 113         hglb: HGLOBAL;
 114         FRes: Pointer;
 115 begin
 116         Timer2.Enabled := False;
 117         Timer1.Enabled := True;
 118         Refresh;
 119         hResInfo := FindResource(HInstance, '#101', 'WAVE');
 120         hglb := LoadResource(HInstance, hResInfo);
 121         FRes := LockResource(hglb);
 122         sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);
 123
 124 end;}
 125
 126 {procedure TAboutDialog.Timer1Timer(Sender: TObject);
 127 begin
 128         Canvas.Brush.Style := bsClear;
 129         Canvas.Font.Color := Random($FFFFFF);
 130         Canvas.Font.Size := Random(30);
 131         Canvas.TextOut(Random(Width), Random(Height), '\83l\83^\90Ø\82ê');
 132
 133 end;}
 134
 135 end.