Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/About.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by h677, Sat Jun 25 11:27:22 2005 UTC revision 1.7 by h677, Mon Jul 18 03:55:14 2005 UTC
# Line 9  uses Line 9  uses
9    
10  type  type
11          TAboutDialog = class(TForm)          TAboutDialog = class(TForm)
12                  Label1: TLabel;          Panel1: TPanel;
13                  Image1: TImage;          Label1: TLabel;
14                  Button1: TButton;          Image1: TImage;
15      VersionEdit: TEdit;          Panel2: TPanel;
16            Button1: TButton;
17            VersionPanel: TPanel;
18            VersionMemo: TMemo;
19            ButtonPanel: TPanel;
20        CopyButton: TButton;
21                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
22  //              procedure BNGikoNaviImageClick(Sender: TObject);  //              procedure BNGikoNaviImageClick(Sender: TObject);
23  //              procedure BNMonazillaImageClick(Sender: TObject);  //              procedure BNMonazillaImageClick(Sender: TObject);
# Line 20  type Line 25  type
25  //              procedure Timer2Timer(Sender: TObject);  //              procedure Timer2Timer(Sender: TObject);
26  //              procedure HiLabelClick(Sender: TObject);  //              procedure HiLabelClick(Sender: TObject);
27                  procedure FormClose(Sender: TObject; var Action: TCloseAction);                  procedure FormClose(Sender: TObject; var Action: TCloseAction);
28        procedure CopyButtonClick(Sender: TObject);
29  //              procedure Image1Click(Sender: TObject);  //              procedure Image1Click(Sender: TObject);
30  //    procedure Timer1Timer(Sender: TObject);  //    procedure Timer1Timer(Sender: TObject);
31          private          private
# Line 63  const Line 69  const
69    
70  procedure TAboutDialog.FormCreate(Sender: TObject);  procedure TAboutDialog.FormCreate(Sender: TObject);
71  begin  begin
72          VersionEdit.Text := 'Version ' + BETA_VERSION_NAME_J          VersionMemo.Clear;
73            VersionMemo.Lines.Add('Version ' + BETA_VERSION_NAME_J
74                                                                          + FloatToStr(BETA_VERSION)                                                                          + FloatToStr(BETA_VERSION)
75                                                                          + '('                                                                          + '('
76                                                                          + GikoSys.Version                                                                          + GikoSys.Version
77                                                                          + ')';                                                                          + ')');
78        VersionMemo.Lines.Add('');
79            VersionMemo.Lines.Add('<Plugins>');
80            VersionMemo.Lines.Add(Trim(GikoSys.GetPluginsInfo));
81            VersionMemo.Lines.Add('');
82            VersionMemo.Lines.Add('<IE>');
83            VersionMemo.Lines.Add(Trim(GikoSys.GetIEVersion));
84  end;  end;
85    
86    
# Line 131  begin Line 144  begin
144    
145  end;}  end;}
146    
147    procedure TAboutDialog.CopyButtonClick(Sender: TObject);
148    begin
149            //バージョン情報をClipBoardに入れる
150            Clipboard.SetTextBuf( PChar(VersionMemo.Text) );
151    end;
152    
153  end.  end.

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26