gikonavigoeson/gikonavi/About.pas

unit About;

interface

uses
        Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
        StdCtrls, Menus, Clipbrd, ExtCtrls, UrlMon, ShellAPI, MMSystem,
        GikoSystem;

type
        TAboutDialog = class(TForm)
        Panel1: TPanel;
        Label1: TLabel;
        Image1: TImage;
        Panel2: TPanel;
        Button1: TButton;
        VersionPanel: TPanel;
        VersionMemo: TMemo;
        ButtonPanel: TPanel;
    CopyButton: TButton;
                procedure FormCreate(Sender: TObject);
//              procedure BNGikoNaviImageClick(Sender: TObject);
//              procedure BNMonazillaImageClick(Sender: TObject);
//              procedure BN365ccImageClick(Sender: TObject);
//              procedure Timer2Timer(Sender: TObject);
//              procedure HiLabelClick(Sender: TObject);
                procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CopyButtonClick(Sender: TObject);
//              procedure Image1Click(Sender: TObject);
//    procedure Timer1Timer(Sender: TObject);
        private
                { Private ?辿?転 }
//              FCnt: Integer;
        public
                { Public ?辿?転 }
        end;

var
        AboutDialog: TAboutDialog;

implementation

const
        ST: array[0..10] of string =
                                        ('?y?卒???z???x?????????造???卒???????y?????z',
                                         '???????z?b?g?]?k???\?[?X???Q?l?????邸???????転?????即??????',
                                         '?A?C?R?????????f?鄭?????????????A?C?R?????g?????即??????',
                                         'gzip?R???|?[?l???g???添???直???????????g?????即??????',
                                         '?????泥??????Jane?????????????g?????即??????',
                                         'Dolib???A??Dax???????????g?????即??????',
                                         'Dolib???端?????辿???鼎kage???????????\?[?X???Q?l???直???即??????',
                                         '??????Del?X???長?t?T?M?R?????????纏?????巽????????',
                                         '???谷???谷???\?[?X???Q?l???直???即??????',
                                         '?M?R?i?r?X???長?????[?U???撤?X?????????????即??????',
                                         '?????? ?即???直???造???卒?????直??');

//      MAIL_GIKOANVI: string = 'mailto:gikonavi@ice.dti2.ne.jp';
//      URL_GIKONAVI:  string = 'http://gikonavi.hp.infoseek.co.jp/';
//      URL_MONAZILLA: string = 'http://www.monazilla.org/';
//      URL_365CC:     string = 'http://www.kyoto.zaq.ne.jp/365cc/';
//      TIP_GIKONAVI:  string = '?M?R?i?r???y?[?W';
//      TIP_MONAZILLA: string = '2ch?p?u???E?U?????店?直?????辿?T?C?g' + #13#10
//                                                                                              + '?M?R?i?r???????????巽????????';
//      TIP_365CC:     string = '2ch?L???????f?鄭???泥???直???辿?????????y?[?W' + #13#10
//                                                                                              + '?M?R?i?r?長?????p???邸?????巽?????????B';

{$R *.DFM}
//{$R gikoSound.res}

procedure TAboutDialog.FormCreate(Sender: TObject);
begin
        VersionMemo.Clear;
        VersionMemo.Lines.Add('Version ' + BETA_VERSION_NAME_J
                                                                        + FloatToStr(BETA_VERSION)
                                                                        + '('
                                                                        + GikoSys.Version
                                                                        + ')');
    VersionMemo.Lines.Add('');
        VersionMemo.Lines.Add('<Plugins>');
        VersionMemo.Lines.Add(Trim(GikoSys.GetPluginsInfo));
        VersionMemo.Lines.Add('');
        VersionMemo.Lines.Add('<IE>');
        VersionMemo.Lines.Add(Trim(GikoSys.GetIEVersion));
end;


{procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
begin
        GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
end;

procedure TAboutDialog.BNMonazillaImageClick(Sender: TObject);
begin
        GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
end;

procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
begin
        GikoSys.OpenBrowser(URL_365CC, gbtAuto);
end;}

{procedure TAboutDialog.Timer2Timer(Sender: TObject);
begin
        Timer2.Interval := 3000;
        Label5.Caption := ST[FCnt];
        inc(FCnt);
        if FCnt > (Length(ST) - 1) then FCnt := 0;
end;}

{procedure TAboutDialog.HiLabelClick(Sender: TObject);
begin
        ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
end;}

procedure TAboutDialog.FormClose(Sender: TObject;
        var Action: TCloseAction);
begin
//      AnimateWindow(Handle, 200, AW_HIDE or AW_BLEND);
//      sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
end;

{procedure TAboutDialog.Image1Click(Sender: TObject);
var
        hResInfo: HRSRC;
        hglb: HGLOBAL;
        FRes: Pointer;
begin
        Timer2.Enabled := False;
        Timer1.Enabled := True;
        Refresh;
        hResInfo := FindResource(HInstance, '#101', 'WAVE');
        hglb := LoadResource(HInstance, hResInfo);
        FRes := LockResource(hglb);
        sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);

end;}

{procedure TAboutDialog.Timer1Timer(Sender: TObject);
begin
        Canvas.Brush.Style := bsClear;
        Canvas.Font.Color := Random($FFFFFF);
        Canvas.Font.Size := Random(30);
        Canvas.TextOut(Random(Width), Random(Height), '?l?^????');

end;}

procedure TAboutDialog.CopyButtonClick(Sender: TObject);
begin
        //?o?[?W?????樽????ClipBoard???端???辿
        Clipboard.SetTextBuf( PChar(VersionMemo.Text) );
end;

end.