type
TAboutDialog = class(TForm)
- Timer2: TTimer;
- Label1: TLabel;
- Label2: TLabel;
- BN365ccImage: TImage;
- BNMonazillaImage: TImage;
- BNGikoNaviImage: TImage;
- Image6: TImage;
- Label3: TLabel;
- VersionLabel: TLabel;
- Label5: TLabel;
- Label4: TLabel;
- HiLabel: TLabel;
- Image1: TImage;
- Button1: TButton;
- Timer1: TTimer;
+ 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 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 Image1Click(Sender: TObject);
- procedure Timer1Timer(Sender: TObject);
+ procedure CopyButtonClick(Sender: TObject);
+// procedure Image1Click(Sender: TObject);
+// procedure Timer1Timer(Sender: TObject);
private
{ Private \90é\8c¾ }
- FCnt: Integer;
+// FCnt: Integer;
public
{ Public \90é\8c¾ }
end;
'\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·',
'\82Æ\82Ä\82à \82¨\82¢\82µ\82ã\82¤\82²\82´\82¢\82Ü\82µ\82½');
- 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 = '\83M\83R\83i\83r\82Ì\83y\81[\83W';
- TIP_MONAZILLA: string = '2ch\97p\83u\83\89\83E\83U\82ð\8dì\90¬\82µ\82Ä\82¢\82é\83T\83C\83g' + #13#10
- + '\83M\83R\83i\83r\82à\82Ü\82º\82Ä\82à\82ç\82Á\82Ä\82Ü\82·';
- 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
- + '\83M\83R\83i\83r\82Å\82à\97\98\97p\82³\82¹\82Ä\82à\82ç\82Á\82Ä\82Ü\82·\81B';
+// 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 = '\83M\83R\83i\83r\82Ì\83y\81[\83W';
+// TIP_MONAZILLA: string = '2ch\97p\83u\83\89\83E\83U\82ð\8dì\90¬\82µ\82Ä\82¢\82é\83T\83C\83g' + #13#10
+// + '\83M\83R\83i\83r\82à\82Ü\82º\82Ä\82à\82ç\82Á\82Ä\82Ü\82·';
+// 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
+// + '\83M\83R\83i\83r\82Å\82à\97\98\97p\82³\82¹\82Ä\82à\82ç\82Á\82Ä\82Ü\82·\81B';
{$R *.DFM}
-{$R gikoSound.res}
+//{$R gikoSound.res}
procedure TAboutDialog.FormCreate(Sender: TObject);
-var
- build: string;
- bnum: Integer;
begin
- bnum := GikoSys.GetVersionBuild;
- if bnum > 0 then
- build := 'Build ' + IntToStr(bnum);
-{ VersionLabel.Caption := 'Version ' + IntToStr(MAJOR_VERSION) + '.'
- + Format('%.2d', [MINOR_VERSION]) + ' '
- + BETA_VERSION_NAME_J
- + IntToStr(BETA_VERSION)
- + BETA_VERSION_BUILD + ' '
- + build;
-}
- VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
- + IntToStr(BETA_VERSION)
- + BETA_VERSION_BUILD + ' '
- + build;
-// Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
-
- BNGikoNaviImage.Hint := TIP_GIKONAVI;
- BNMonazillaImage.Hint := TIP_MONAZILLA;
- BN365ccImage.Hint := TIP_365CC;
- BNGikoNaviImage.Cursor := 5;
- BNMonazillaImage.Cursor := 5;
- BN365ccImage.Cursor := 5;
- HiLabel.Cursor := 5;
- DoubleBuffered := True;
- FCnt := 0;
- Randomize;
+ 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);
+{procedure TAboutDialog.BNGikoNaviImageClick(Sender: TObject);
begin
GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
end;
procedure TAboutDialog.BN365ccImageClick(Sender: TObject);
begin
GikoSys.OpenBrowser(URL_365CC, gbtAuto);
-end;
+end;}
-procedure TAboutDialog.Timer2Timer(Sender: TObject);
+{procedure TAboutDialog.Timer2Timer(Sender: TObject);
begin
Timer2.Interval := 3000;
Label5.Caption := ST[FCnt];
inc(FCnt);
if FCnt > (Length(ST) - 1) then FCnt := 0;
-end;
+end;}
-procedure TAboutDialog.HiLabelClick(Sender: TObject);
+{procedure TAboutDialog.HiLabelClick(Sender: TObject);
begin
ShellExecute(Handle, 'Open', PChar(MAIL_GIKOANVI), '', '', SW_SHOW);
-end;
+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);
+// sndPlaySound(nil, SND_ASYNC or SND_MEMORY);
end;
-procedure TAboutDialog.Image1Click(Sender: TObject);
+{procedure TAboutDialog.Image1Click(Sender: TObject);
var
hResInfo: HRSRC;
hglb: HGLOBAL;
begin
Timer2.Enabled := False;
Timer1.Enabled := True;
- Refresh;
+ Refresh;
hResInfo := FindResource(HInstance, '#101', 'WAVE');
hglb := LoadResource(HInstance, hResInfo);
FRes := LockResource(hglb);
sndPlaySound(FRes, SND_ASYNC or SND_MEMORY);
-end;
+end;}
-procedure TAboutDialog.Timer1Timer(Sender: TObject);
+{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), '\83l\83^\90Ø\82ê');
+end;}
+
+procedure TAboutDialog.CopyButtonClick(Sender: TObject);
+begin
+ //\83o\81[\83W\83\87\83\93\8fî\95ñ\82ðClipBoard\82É\93ü\82ê\82é
+ Clipboard.SetTextBuf( PChar(VersionMemo.Text) );
end;
end.
OSDN Git Service
