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     VersionEdit: TEdit;
  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         VersionEdit.Text := 'Version ' + BETA_VERSION_NAME_J
  67                                                                         + FloatToStr(BETA_VERSION)
  68                                                                         + '('
  69                                                                         + GikoSys.Version
  70                                                                         + ')';
  71 end;
  72
  73
  74 {procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
  75 begin
  76         GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
  77 end;
  78
  79 procedure TAboutDialog.BNMonazillaImageClick(Sender: TObject);
  80 begin
  81         GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
  82 end;
  83
  84 procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
  85 begin
  86         GikoSys.OpenBrowser(URL_365CC, gbtAuto);
  87 end;}
  88
  89 {procedure TAboutDialog.Timer2Timer(Sender: TObject);
  90 begin
  91         Timer2.Interval := 3000;
  92         Label5.Caption := ST[FCnt];
  93         inc(FCnt);
  94         if FCnt > (Length(ST) - 1) then FCnt := 0;
  95 end;}
  96
  97 {procedure TAboutDialog.HiLabelClick(Sender: TObject);
  98 begin
  99         ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
 100 end;}
 101
 102 procedure TAboutDialog.FormClose(Sender: TObject;
 103         var Action: TCloseAction);
 104 begin
 105 //      AnimateWindow(Handle, 200, AW_HIDE or AW_BLEND);
 106 //      sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
 107 end;
 108
 109 {procedure TAboutDialog.Image1Click(Sender: TObject);
 110 var
 111         hResInfo: HRSRC;
 112         hglb: HGLOBAL;
 113         FRes: Pointer;
 114 begin
 115         Timer2.Enabled := False;
 116         Timer1.Enabled := True;
 117         Refresh;
 118         hResInfo := FindResource(HInstance, '#101', 'WAVE');
 119         hglb := LoadResource(HInstance, hResInfo);
 120         FRes := LockResource(hglb);
 121         sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);
 122
 123 end;}
 124
 125 {procedure TAboutDialog.Timer1Timer(Sender: TObject);
 126 begin
 127         Canvas.Brush.Style := bsClear;
 128         Canvas.Font.Color := Random($FFFFFF);
 129         Canvas.Font.Size := Random(30);
 130         Canvas.TextOut(Random(Width), Random(Height), '\83l\83^\90Ø\82ê');
 131
 132 end;}
 133
 134 end.