| 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 |
| 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; |
| 51 |
|
|
| 52 |
implementation |
implementation |
| 53 |
|
|
| 54 |
uses Giko, IdHeaderList; |
uses Giko, IdHeaderList, MojuUtils; |
| 55 |
|
|
| 56 |
{$R *.dfm} |
{$R *.dfm} |
| 57 |
|
|
| 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; |