Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/NewBoard.pas

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

revision 1.20 by h677, Sat Jul 23 11:49:34 2005 UTC revision 1.21 by h677, Mon Aug 22 14:20:31 2005 UTC
# Line 6  uses Line 6  uses
6          Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,          Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7          Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,          Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
8          IdTCPConnection, IdTCPClient, IdHTTP, IDException, StdCtrls, IniFiles,          IdTCPConnection, IdTCPClient, IdHTTP, IDException, StdCtrls, IniFiles,
9          GikoSystem, BoardGroup, MojuUtils;          GikoSystem, BoardGroup;
10    
11  type  type
12          TNewBoardItem = record          TNewBoardItem = record
# Line 25  type Line 25  type
25          BoardURLComboBox: TComboBox;          BoardURLComboBox: TComboBox;
26          Label13: TLabel;          Label13: TLabel;
27          EditIgnoreListsButton: TButton;          EditIgnoreListsButton: TButton;
28      Label2: TLabel;          Label2: TLabel;
29                  procedure UpdateButtonClick(Sender: TObject);                  procedure UpdateButtonClick(Sender: TObject);
30                  procedure StopButtonClick(Sender: TObject);                  procedure StopButtonClick(Sender: TObject);
31                  procedure CloseButtonClick(Sender: TObject);                  procedure CloseButtonClick(Sender: TObject);
32                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
33          procedure EditIgnoreListsButtonClick(Sender: TObject);          procedure EditIgnoreListsButtonClick(Sender: TObject);
34      procedure FormClose(Sender: TObject; var Action: TCloseAction);          procedure FormClose(Sender: TObject; var Action: TCloseAction);
35          private          private
36                  { Private 宣言 }                  { Private 宣言 }
37                  IgnoreLists : TStringList;                  IgnoreLists : TStringList;
# Line 51  var Line 51  var
51    
52  implementation  implementation
53    
54  uses Giko, IdHeaderList;  uses Giko, IdHeaderList, MojuUtils;
55    
56  {$R *.dfm}  {$R *.dfm}
57    
# Line 60  var Line 60  var
60          Item: TNewBoardItem;          Item: TNewBoardItem;
61  begin  begin
62          try          try
63          GikoSys.Setting.BoardURLSelected := BoardURLComboBox.ItemIndex + 1;                  GikoSys.Setting.BoardURLSelected := BoardURLComboBox.ItemIndex + 1;
64                  FAbort := False;                  FAbort := False;
65                  UpdateButton.Enabled := False;                  UpdateButton.Enabled := False;
66                  StopButton.Enabled := True;                  StopButton.Enabled := True;

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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