Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
ComCtrls, StdCtrls, ExtCtrls, Dialogs, FileCtrl, MMSystem,
GikoSystem, GikoUtil, Buttons, UrlMon, Menus, ImgList, OleCtrls,
- SHDocVw_TLB, BoardGroup;
+{$IF Defined(DELPRO) }
+ SHDocVw,
+ MSHTML,
+{$ELSE}
+ SHDocVw_TLB,
+ MSHTML_TLB,
+{$IFEND}
+ BoardGroup, BrowserRecord;
type
TOptionDialog = class(TForm)
- OkBotton: TButton;
CancelBotton: TButton;
- OptionTab: TPageControl;
- ConnectSheet: TTabSheet;
- Font1Sheet: TTabSheet;
ApplyButton: TButton;
FontDialog: TFontDialog;
ColorDialog: TColorDialog;
- ReadProxyGroupBox: TGroupBox;
- ReadAddressLabel: TLabel;
- ReadPortLabel: TLabel;
- ReadProxyCheck: TCheckBox;
- ReadProxyAddressEdit: TEdit;
- ReadPortEdit: TEdit;
- ReadProxyUserIDEdit: TEdit;
- ReadProxyPasswordEdit: TEdit;
- ReadUserIDLabel: TLabel;
- ReadPasswordLabel: TLabel;
- FolderSheet: TTabSheet;
- FolderGroupBox: TGroupBox;
- LogFolderEdit: TEdit;
- LogFolderButton: TButton;
- Label1: TLabel;
- Label2: TLabel;
- ThreadSheet: TTabSheet;
- SoundSheet: TTabSheet;
- SoundEventGroupBox: TGroupBox;
- SoundListView: TListView;
- SoundReferButton: TButton;
- SoundFileEdit: TEdit;
OpenDialog: TOpenDialog;
- WriteProxyGroupBox: TGroupBox;
- WriteAddressLabel: TLabel;
- WritePortLabel: TLabel;
- WriteUserIDLabel: TLabel;
- WritePasswordLabel: TLabel;
- WriteProxyCheck: TCheckBox;
- WriteProxyAddressEdit: TEdit;
- WritePortEdit: TEdit;
- WriteProxyUserIDEdit: TEdit;
- WriteProxyPasswordEdit: TEdit;
- BoardSheet: TTabSheet;
- GroupBox4: TGroupBox;
- Label13: TLabel;
- UserIDSheet: TTabSheet;
- GroupBox3: TGroupBox;
- Label9: TLabel;
- Label10: TLabel;
- UserIDEdit: TEdit;
- PasswordEdit: TEdit;
- SoundPlayButton: TBitBtn;
- AutoLoginCheckBox: TCheckBox;
- Tora3URLLabel: TLabel;
- Label12: TLabel;
- Label5: TLabel;
- CabinetFontBotton: TButton;
- CabinetColorBotton: TButton;
- CabinetDefaultButton: TButton;
- CabinetMemo: TMemo;
- ListMemo: TMemo;
- ListFontBotton: TButton;
- ListColorBotton: TButton;
- ListDefaultBotton: TButton;
- HintFontButton: TButton;
- HintBackButton: TButton;
- HintDefaultButton: TButton;
- HintMemo: TMemo;
- EditorMemo: TMemo;
- EditorFontBotton: TButton;
- EditorColorBotton: TButton;
- EditorDefaultBotton: TButton;
- BrowserTabMemo: TMemo;
- BruwserTabFontButton: TButton;
- BrowserTabDefaultButton: TButton;
- Bevel1: TBevel;
- Bevel2: TBevel;
- GroupBox1: TGroupBox;
- GroupBox2: TGroupBox;
- URLAppCheckBox: TCheckBox;
- AppFolderLabel: TLabel;
- AppFolderEdit: TEdit;
- AppFolderButton: TButton;
- OpenMailerCheckBox: TCheckBox;
- TabSheet1: TTabSheet;
- PopupPositionRadioGroup: TRadioGroup;
- TabAddRadioGroup: TRadioGroup;
- TabSheet2: TTabSheet;
- GroupBox7: TGroupBox;
- URLDisplayCheckBox: TCheckBox;
- Label3: TLabel;
- Label11: TLabel;
- TabStopAddressBarCheckBox: TCheckBox;
- AddressHistoryCountEdit: TEdit;
- LinkAddCheckBox: TCheckBox;
- GroupBox8: TGroupBox;
- PreviewVisibleCheckBox: TCheckBox;
- PreviewSizeComboBox: TComboBox;
- Label14: TLabel;
- Label15: TLabel;
- PreviewWaitEdit: TEdit;
- Label16: TLabel;
- ShowMailCheckBox: TCheckBox;
- TabSheet3: TTabSheet;
- GroupBox9: TGroupBox;
- ThreadListIconCheckBox: TCheckBox;
- NonAcquiredCountCheckBox: TCheckBox;
- GroupBox6: TGroupBox;
- LogDeleteMessageCheckBox: TCheckBox;
- GroupBox10: TGroupBox;
- UnActivePopupCheckBox: TCheckBox;
- GroupBox11: TGroupBox;
- RecvBufferSize: TEdit;
- Label17: TLabel;
- ProxyProtocolCheckBox: TCheckBox;
- ProtocolCheckBox: TCheckBox;
- Label18: TLabel;
- Label19: TLabel;
- Bevel5: TBevel;
- Label20: TLabel;
- Label21: TLabel;
- Label22: TLabel;
- Label23: TLabel;
- CSSTabSheet: TTabSheet;
- lblSFont: TLabel;
- GroupBox12: TGroupBox;
- CSSCheckBox: TCheckBox;
- CSSListLabel: TLabel;
- CSSListView: TListView;
- GroupBox13: TGroupBox;
- PostTimeCheckBox: TCheckBox;
- Label24: TLabel;
- Label25: TLabel;
- PostTimeEdit: TEdit;
- PostTimeLabel: TLabel;
- Label27: TLabel;
- PutPostTimeRadioButton: TRadioButton;
- BackPostTimeRadioButton: TRadioButton;
- ResPopupBoldCheckBox: TCheckBox;
- NGwordSheet: TTabSheet;
- GroupBox14: TGroupBox;
- RloCheckBox: TCheckBox;
- ReplaceulCheckBox: TCheckBox;
- PopUpAbonCheckBox: TCheckBox;
- CSSBrowser: TWebBrowser;
- CSSFontCheckBox: TCheckBox;
- CSSBackColorCheckBox: TCheckBox;
- CSSFontButton: TButton;
- CSSBackColorButton: TButton;
- ShowNGLineCheckBox: TCheckBox;
- AddResAnchorCheckBox: TCheckBox;
- OnlyAHundredResCheckBox: TCheckBox;
- BoardURLComboBox: TComboBox;
- AddURLButton: TButton;
- RemoveURLButton: TButton;
- GroupBox15: TGroupBox;
- ShowDialogForEndCheckBox: TCheckBox;
- OddResNumCheckBox: TCheckBox;
- OddResNumColorBox: TColorBox;
- ForcedLoginCheckBox: TCheckBox;
- ForcedLoginLabel: TLabel;
- GroupBox16: TGroupBox;
- CreationTimeLogsCheckBox: TCheckBox;
- FutureThreadCheckBox: TCheckBox;
- DeleteSyriaCheckBox: TCheckBox;
- TabSheet4: TTabSheet;
- SambaGroupBox: TGroupBox;
- UseSambaCheckBox: TCheckBox;
- Label26: TLabel;
- ResAnchorGroupBox: TGroupBox;
+ Label26: TLabel;
+ CroutOption: TButton;
+ OptionTab: TPageControl;
+ ConnectSheet: TTabSheet;
+ ReadProxyGroupBox: TGroupBox;
+ ReadAddressLabel: TLabel;
+ ReadPortLabel: TLabel;
+ ReadUserIDLabel: TLabel;
+ ReadPasswordLabel: TLabel;
+ ReadProxyCheck: TCheckBox;
+ ReadProxyAddressEdit: TEdit;
+ ReadPortEdit: TEdit;
+ ReadProxyUserIDEdit: TEdit;
+ ReadProxyPasswordEdit: TEdit;
+ WriteProxyGroupBox: TGroupBox;
+ WriteAddressLabel: TLabel;
+ WritePortLabel: TLabel;
+ WriteUserIDLabel: TLabel;
+ WritePasswordLabel: TLabel;
+ WriteProxyCheck: TCheckBox;
+ WriteProxyAddressEdit: TEdit;
+ WritePortEdit: TEdit;
+ WriteProxyUserIDEdit: TEdit;
+ WriteProxyPasswordEdit: TEdit;
+ Font1Sheet: TTabSheet;
+ Bevel1: TBevel;
+ Bevel2: TBevel;
+ Label19: TLabel;
+ Bevel5: TBevel;
+ Label20: TLabel;
+ Label21: TLabel;
+ Label22: TLabel;
+ Label23: TLabel;
+ lblSFont: TLabel;
+ CabinetFontBotton: TButton;
+ CabinetColorBotton: TButton;
+ CabinetDefaultButton: TButton;
+ CabinetMemo: TMemo;
+ ListMemo: TMemo;
+ ListFontBotton: TButton;
+ ListColorBotton: TButton;
+ ListDefaultBotton: TButton;
+ HintFontButton: TButton;
+ HintBackButton: TButton;
+ HintDefaultButton: TButton;
+ HintMemo: TMemo;
+ EditorMemo: TMemo;
+ EditorFontBotton: TButton;
+ EditorColorBotton: TButton;
+ EditorDefaultBotton: TButton;
+ BrowserTabMemo: TMemo;
+ BruwserTabFontButton: TButton;
+ BrowserTabDefaultButton: TButton;
+ OddResNumCheckBox: TCheckBox;
+ OddResNumColorBox: TColorBox;
+ CSSTabSheet: TTabSheet;
+ GroupBox12: TGroupBox;
+ CSSListLabel: TLabel;
+ CSSCheckBox: TCheckBox;
+ CSSListView: TListView;
+ CSSBrowser: TWebBrowser;
+ CSSFontCheckBox: TCheckBox;
+ CSSBackColorCheckBox: TCheckBox;
+ CSSFontButton: TButton;
+ CSSBackColorButton: TButton;
+ TabSheet3: TTabSheet;
+ GroupBox9: TGroupBox;
+ ThreadListIconCheckBox: TCheckBox;
+ GroupBox16: TGroupBox;
+ CreationTimeLogsCheckBox: TCheckBox;
+ FutureThreadCheckBox: TCheckBox;
+ GroupBox5: TGroupBox;
+ BrowserMaxLabel: TLabel;
+ BrowserMaxCombo: TComboBox;
+ GroupBox17: TGroupBox;
+ SelectIntervalLabel: TLabel;
+ Label4: TLabel;
+ Label6: TLabel;
+ SelectIntervalEdit: TEdit;
+ GroupBox18: TGroupBox;
+ DatOchiSortCombo: TComboBox;
+ ThreadSheet: TTabSheet;
+ GroupBox1: TGroupBox;
+ ShowMailCheckBox: TCheckBox;
+ ResRangeHoldCheckBox: TCheckBox;
+ ResRangeHoldComboBox: TComboBox;
+ GroupBox2: TGroupBox;
+ AppFolderLabel: TLabel;
+ URLAppCheckBox: TCheckBox;
+ AppFolderEdit: TEdit;
+ AppFolderButton: TButton;
+ OpenMailerCheckBox: TCheckBox;
+ GroupBox6: TGroupBox;
+ LogDeleteMessageCheckBox: TCheckBox;
+ TabSheet1: TTabSheet;
+ TabAddRadioGroup: TRadioGroup;
+ GroupBox8: TGroupBox;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ PreviewVisibleCheckBox: TCheckBox;
+ PreviewSizeComboBox: TComboBox;
+ PreviewWaitEdit: TEdit;
+ GroupBox10: TGroupBox;
+ UnActivePopupCheckBox: TCheckBox;
+ ResPopupBoldCheckBox: TCheckBox;
+ TabSheet2: TTabSheet;
+ GroupBox7: TGroupBox;
+ Label3: TLabel;
+ Label11: TLabel;
+ URLDisplayCheckBox: TCheckBox;
+ AddressHistoryCountEdit: TEdit;
+ TabStopAddressBarCheckBox: TCheckBox;
+ LinkAddCheckBox: TCheckBox;
+ GroupBox15: TGroupBox;
+ ShowDialogForEndCheckBox: TCheckBox;
+ AllTabCloseCheckBox: TCheckBox;
+ SambaGroupBox: TGroupBox;
+ UseSambaCheckBox: TCheckBox;
+ TabAutoSaveLoad: TGroupBox;
+ TabLoadSave: TCheckBox;
+ SoundSheet: TTabSheet;
+ SoundEventGroupBox: TGroupBox;
+ SoundListView: TListView;
+ SoundReferButton: TButton;
+ SoundFileEdit: TEdit;
+ SoundPlayButton: TBitBtn;
+ FolderSheet: TTabSheet;
+ FolderGroupBox: TGroupBox;
+ Label1: TLabel;
+ Label2: TLabel;
+ Label5: TLabel;
+ LogFolderEdit: TEdit;
+ LogFolderButton: TButton;
+ NGwordSheet: TTabSheet;
+ GroupBox14: TGroupBox;
+ RloCheckBox: TCheckBox;
+ ReplaceulCheckBox: TCheckBox;
+ PopUpAbonCheckBox: TCheckBox;
+ ShowNGLineCheckBox: TCheckBox;
+ AddResAnchorCheckBox: TCheckBox;
+ DeleteSyriaCheckBox: TCheckBox;
+ UserIDSheet: TTabSheet;
+ GroupBox3: TGroupBox;
+ Label9: TLabel;
+ Label10: TLabel;
+ ForcedLoginLabel: TLabel;
+ UserIDEdit: TEdit;
+ PasswordEdit: TEdit;
+ AutoLoginCheckBox: TCheckBox;
+ ForcedLoginCheckBox: TCheckBox;
+ GroupBox4: TGroupBox;
+ Label13: TLabel;
+ BoardURLComboBox: TComboBox;
+ AddURLButton: TButton;
+ RemoveURLButton: TButton;
+ OkBotton: TButton;
+ SpamFilterGroupBox: TGroupBox;
+ SpamFilterAlgorithmComboBox: TComboBox;
+ TabSheet4: TTabSheet;
+ GroupBox13: TGroupBox;
+ UseUndecidedCheckBox: TCheckBox;
+ Tora3URLLabel: TLabel;
+ Label12: TLabel;
+ GroupBox11: TGroupBox;
+ Label7: TLabel;
+ BeUserIDEdit: TEdit;
+ Label8: TLabel;
+ BeCodeEdit: TEdit;
+ BeAutoLoginCheckBox: TCheckBox;
+ GroupBox19: TGroupBox;
+ Label17: TLabel;
+ MaxRecordCountEdit: TEdit;
+ Label18: TLabel;
+ UnFocusedBoldCheckBox: TCheckBox;
+ IgnoreKanaCheckBox: TCheckBox;
+ UseKatjuTypeSkinCheckBox: TCheckBox;
+ GroupBox20: TGroupBox;
+ AutoSortCheckBox: TCheckBox;
+ Label24: TLabel;
+ GroupBox21: TGroupBox;
+ StoredTaskTrayCB: TCheckBox;
+ GroupBox22: TGroupBox;
+ LoopBrowserTabsCB: TCheckBox;
+ GroupBox23: TGroupBox;
+ IgnoreContextCheckBox: TCheckBox;
+ GroupBox24: TGroupBox;
+ gppRightTopRB: TRadioButton;
+ gppTopRB: TRadioButton;
+ gppLeftTopRB: TRadioButton;
+ gppLeftRB: TRadioButton;
+ gppRightRB: TRadioButton;
+ gppLeftBottomRB: TRadioButton;
+ gppBottomRB: TRadioButton;
+ gppRighBottomRB: TRadioButton;
ResAnchorCheckBox: TCheckBox;
- AllTabCloseCheckBox: TCheckBox;
- GroupBox5: TGroupBox;
- BrowserMaxLabel: TLabel;
- BrowserMaxCombo: TComboBox;
- GroupBox17: TGroupBox;
- SelectIntervalLabel: TLabel;
- SelectIntervalEdit: TEdit;
- Label4: TLabel;
- Label6: TLabel;
- GroupBox18: TGroupBox;
- CheckBox1: TCheckBox;
- CheckBox2: TCheckBox;
+ IgnoreLimitResCountCheckBox: TCheckBox;
+ GroupBox25: TGroupBox;
+ Label25: TLabel;
+ BoukenComboBox: TComboBox;
+ BoukenModButton: TButton;
+ BoukenDelButton: TButton;
+ BoukenEdit: TEdit;
+ GroupBox26: TGroupBox;
+ UseUnicodeCB: TCheckBox;
+ Label27: TLabel;
+ DispImageCheckBox: TCheckBox;
+ GroupBox27: TGroupBox;
+ ThreadTitleTrimCheckBox: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ApplyButtonClick(Sender: TObject);
procedure BrowserTabDefaultButtonClick(Sender: TObject);
procedure AddressHistoryCountEditExit(Sender: TObject);
procedure PreviewWaitEditExit(Sender: TObject);
- procedure RecvBufferSizeExit(Sender: TObject);
- procedure CSSCheckBoxClick(Sender: TObject);
- procedure PostTimeEditExit(Sender: TObject);
- procedure PostTimeCheckBoxClick(Sender: TObject);
- procedure CSSFontButtonClick(Sender: TObject);
+ procedure CSSCheckBoxClick(Sender: TObject); procedure CSSFontButtonClick(Sender: TObject);
procedure CSSBackColorButtonClick(Sender: TObject);
procedure CSSFontCheckBoxClick(Sender: TObject);
procedure CSSBackColorCheckBoxClick(Sender: TObject);
Change: TItemChange);
procedure AddURLButtonClick(Sender: TObject);
procedure RemoveURLButtonClick(Sender: TObject);
- procedure OddResNumCheckBoxClick(Sender: TObject);
+ procedure OddResNumCheckBoxClick(Sender: TObject);
+ procedure ResRangeHoldCheckBoxClick(Sender: TObject);
+ procedure CroutOptionClick(Sender: TObject);
+ procedure MaxRecordCountEditExit(Sender: TObject);
+ procedure BoukenDelButtonClick(Sender: TObject);
+ procedure BoukenComboBoxChange(Sender: TObject);
+ procedure BoukenModButtonClick(Sender: TObject);
private
{ Private \90é\8c¾ }
FClose: Boolean;
+ FRepaintList: Boolean;
FRepaintThread: Boolean;
FCSSFont: TFont;
FCSSBackColor: TColor;
function GetMemoText(font: TFont; text: string): string;
// function GetFontText(Font: TFont; Text: string): string;
procedure SetValue;
-// procedure SaveSetting;
+ procedure SaveSetting;
procedure SettingApply;
function CheckFolder: Boolean;
procedure SetAbonpropertys;
procedure CSSSetContent(Content: string);
procedure CSSPreview;
+ //! CSS\83v\83\8c\83r\83\85\81[\97pHTMLBody\90¶\90¬
+ function CreatePreviewBody(Res: array of TResRec): string;
+ //! CSS/SKIN\83v\83\8c\83r\83\85\81[\97pStyle\95¶\8e\9a\97ñ\8eæ\93¾
+ function GetPreviewUserStyle(): string;
public
{ Public \90é\8c¾ }
- TabAddRadio: Integer;
- procedure SaveSetting;
- property TabAddPro: TRadioGroup read TabAddRadioGroup write TabAddRadioGroup;
end;
var
implementation
uses
- Giko, Editor, Setting, ActnList;
+ Giko, Editor, Setting, ActnList, KuroutSetting, Math, HTMLCreate;
const
FONT_TEXT: string = '%s %d pt';
DEFAULT_FONT_SIZE: Integer = 9;
DEFAULT_TABFONT_NAME: string = '\82l\82r \82o\83S\83V\83b\83N';
DEFAULT_TABFONT_SIZE: Integer = 9;
- URL_TORA3: WideString = 'http://2ch.tora3.net/';
+// URL_TORA3: WideString = 'http://2ch.tora3.net/';
+ URL_TORA3: WideString = 'http://ronin.bbspink.com/';
+ DEFAULT_CSS_FILENAME = 'default.css';
{$R *.DFM}
procedure TOptionDialog.FormCreate(Sender: TObject);
+var
+ CenterForm: TCustomForm;
begin
+ CenterForm := TCustomForm(Owner);
+ if Assigned(CenterForm) then begin
+ Left := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
+ Top := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
+ end else begin
+ Left := (Screen.Width - Width) div 2;
+ Top := (Screen.Height - Height) div 2;
+ end;
CSSBrowser.Navigate('about:blank');
FClose := True;
+ '\83X\83\8c\83b\83h\95\\8e¦\83G\83\8a\83A\82Ì\83t\83H\83\93\83g\95Ï\8dX\82Í\81A'#13#10
+ '\81uCSS \82Æ\83X\83L\83\93\81v\83^\83u\82Å\90Ý\92è\8fo\97\88\82Ü\82·';
- ForcedLoginLabel.Caption := '- \83`\83F\83b\83N\82ð\93ü\82ê\82é\82Ì\82Í\83Z\83L\83\85\83\8a\83e\83B\8fã\8dD\82Ü\82µ\82\82 \82è\82Ü\82¹\82ñ\81B' + #13#10
- + '\81@\82â\82Þ\82ð\93¾\82È\82¢\8e\9e\82¾\82¯\82É\82µ\82Ä\82\82¾\82³\82¢\81B';
- CSSCheckBoxClick(Sender);
- PostTimeCheckBoxClick(Sender);
+ ForcedLoginLabel.Caption := '- \83`\83F\83b\83N\82ð\93ü\82ê\82é\82Ì\82Í\83Z\83L\83\85\83\8a\83e\83B\8fã\8dD\82Ü\82µ\82\82 \82è\82Ü\82¹\82ñ\81B' + #13#10
+ + '\81@\82â\82Þ\82ð\93¾\82È\82¢\8e\9e\82¾\82¯\82É\82µ\82Ä\82\82¾\82³\82¢\81B';
+ CSSCheckBoxClick(Sender);
BrowserMaxLabel.Caption :=
'\83u\83\89\83E\83U\82ª\8dÅ\8f¬\89»\82³\82ê\82Ä\82¢\82é\82Æ\82«\82É\88È\89º\82Ì\91\80\8dì\82Å\83u\83\89\83E\83U\82ð\8dÅ\91å\89»\82µ\82Ü\82·\81B'#13#10 +
'\82Ü\82½\81A\83z\83C\81[\83\8b\83N\83\8a\83b\83N\82É\82æ\82è\8dÅ\91å\89»\82ð\83L\83\83\83\93\83Z\83\8b\82·\82é\82±\82Æ\82ª\8fo\97\88\82Ü\82·\81B';
procedure TOptionDialog.OkBottonClick(Sender: TObject);
begin
FClose := True;
- RecvBufferSizeExit(Sender);
ReadPortEditExit(Sender);
WritePortEditExit(Sender);
AddressHistoryCountEditExit(Sender);
+ MaxRecordCountEditExit(Sender);
PreviewWaitEditExit(Sender);
- PostTimeEditExit(Sender);
if not CheckFolder then begin
FClose := False;
Exit;
end;
- SetAbonpropertys;
+ SetAbonpropertys;
SaveSetting;
SettingApply;
procedure TOptionDialog.ApplyButtonClick(Sender: TObject);
begin
- RecvBufferSizeExit(Sender);
ReadPortEditExit(Sender);
WritePortEditExit(Sender);
AddressHistoryCountEditExit(Sender);
+ MaxRecordCountEditExit(Sender);
PreviewWaitEditExit(Sender);
- PostTimeEditExit(Sender);
if not CheckFolder then begin
FClose := False;
Exit;
end;
- SetAbonpropertys;
+ SetAbonpropertys;
SaveSetting;
SettingApply;
FClose := False;
Item: TListItem;
// s: string;
idx: Integer;
- FileList: TStringList;
+ FileList : TStringList;
+ DomainList : TStringList;
begin
- //\8eó\90M\83o\83b\83t\83@\83T\83C\83Y
- RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize);
- //HTTP1.1\8eg\97p
- ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
- //\83v\83\8d\83L\83V\90Ú\91±HTTP1.1\8eg\97p
- ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
//\93Ç\82Ý\8d\9e\82Ý\97p\83v\83\8d\83L\83V
ReadProxyCheck.Checked := GikoSys.Setting.ReadProxy;
CabinetMemo.Font.Name := GikoSys.Setting.CabinetFontName;
CabinetMemo.Font.Size := GikoSys.Setting.CabinetFontSize;
CabinetMemo.Font.Color := GikoSys.Setting.CabinetFontColor;
+ CabinetMemo.Font.Style := [];
+ if GikoSys.Setting.CabinetFontBold then
+ CabinetMemo.Font.Style := [fsBold];
+ if GikoSys.Setting.CabinetFontItalic then
+ CabinetMemo.Font.Style := CabinetMemo.Font.Style + [fsItalic];
CabinetMemo.Color := GikoSys.Setting.CabinetBackColor;
+
//\83X\83\8c\83b\83h\83\8a\83X\83g\83t\83H\83\93\83g
ListMemo.Font.Name := GikoSys.Setting.ListFontName;
ListMemo.Font.Size := GikoSys.Setting.ListFontSize;
ListMemo.Font.Color := GikoSys.Setting.ListFontColor;
+ ListMemo.Font.Style := [];
+ if GikoSys.Setting.ListFontBold then
+ ListMemo.Font.Style := ListMemo.Font.Style + [fsBold];
+ if GikoSys.Setting.ListFontItalic then
+ ListMemo.Font.Style := ListMemo.Font.Style + [fsItalic];
+
ListMemo.Color := GikoSys.Setting.ListBackColor;
//\83\8c\83X\90\94\91\9d\8c¸\83X\83\8c\8b\92²\95\\8e¦\83`\83F\83b\83N\83{\83b\83N\83X\81\95\83J\83\89\81[\83_\83C\83A\83\8d\83O
OddResNumCheckBox.Checked := GikoSys.Setting.UseOddColorOddResNum;
OddResNumColorBox.Selected := GikoSys.Setting.OddColor;
OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;
+ UnFocusedBoldCheckBox.Checked := GikoSys.Setting.UnFocusedBold;
+ UnFocusedBoldCheckBox.Enabled := OddResNumCheckBox.Checked;
//\83u\83\89\83E\83U\83|\83b\83v\83A\83b\83v\83t\83H\83\93\83g
HintMemo.Font.Name := GikoSys.Setting.HintFontName;
EditorMemo.Color := GikoSys.Setting.EditorBackColor;
//CSS\95\\8e¦
CSSCheckBox.Checked := GikoSys.Setting.UseCSS;
+ //\82©\82¿\82ã\83X\83L\83\93\8eg\97p
+ UseKatjuTypeSkinCheckBox.Checked := GikoSys.Setting.UseKatjushaType;
if FCSSFont <> nil then
FCSSFont.Free;
FCSSFont := TFont.Create;
//\83X\83^\83C\83\8b\83V\81[\83g\83t\83@\83C\83\8b\96¼\88ê\97\97
FileList := TStringList.Create;
try
+ FileList.BeginUpdate;
GikoSys.GetFileList(GikoSys.GetStyleSheetDir, '*.css', FileList, True, True);
-
+ FileList.EndUpdate;
Idx := Length(GikoSys.GetStyleSheetDir);
for i := 0 to FileList.Count - 1 do
FileList[i] := Copy(FileList[i], Idx + 1, Length(FileList[i]));
FileList.Sort;
for i := 0 to FileList.Count - 1 do begin
//s := ExtractFileName(FileList[i]);
- if LowerCase(FileList[i]) = 'default.css' then
+ if LowerCase(FileList[i]) = DEFAULT_CSS_FILENAME then
Item := CSSListView.Items.Insert(0)
else
Item := CSSListView.Items.Add;
FCSSStrings.Clear;
FCSSStrings := TStringList.Create;
try
- //GikoSys.GetDirectoryList(GikoSys.GetSkinDir, '*', FileList, False);
GikoSys.GetDirectoryList(GikoSys.GetSkinDir, '*', FCSSStrings, False);
Idx := Length(GikoSys.GetSkinDir);
- //FileList.Sort;
FCSSStrings.Sort;
- //for i := 0 to FileList.Count - 1 do begin
for i := 0 to FCSSStrings.Count - 1 do begin
- //s := ExtractFileName(FileList[i]);
Item := CSSListView.Items.Add;
- {Item.Data := PChar( FileList[i] );
- Item.Caption := Copy( FileList[i], Idx + 1, Length(FileList[i]) );
- if LowerCase(FileList[i]) = LowerCase(GikoSys.Setting.CSSFileName) then
- Item.Selected := True;
- }
Item.Data := PChar( FCSSStrings[i] );
Item.Caption := Copy( FCSSStrings[i], Idx + 1, Length(FCSSStrings[i]) );
if LowerCase(FCSSStrings[i]) = LowerCase(GikoSys.Setting.CSSFileName) then
Item.Selected := True;
end;
finally
- // Item.Data \82É\83|\83C\83\93\83^\93Ë\82Á\8d\9e\82ñ\82Å\82é\82©\82ç\8aJ\95ú\82Å\82«\82È\82¢\82æ\82§\81`
- //FileList.Free;
end;
if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then
//Mail\97\93\95\\8e¦
ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail;
- OnlyAHundredResCheckBox.Checked := GikoSYs.Setting.OnlyAHundredRes;
+ //BE2.0\83A\83C\83R\83\93\81EEmoticons\82ð\89æ\91\9c\95\\8e¦\82·\82é
+ DispImageCheckBox.Checked := GikoSys.Setting.IconImageDisplay;
+
+ // \8bN\93®\8e\9e\83\8c\83X\95\\8e¦\94Í\88Í\82Ì\8cÅ\92è
+ ResRangeHoldCheckBox.Checked := GikoSys.Setting.ResRangeHold;
+ case GikoSys.Setting.ResRange of
+ Ord( grrAll ): ResRangeHoldComboBox.ItemIndex := 0;
+ Ord( grrKoko ): ResRangeHoldComboBox.ItemIndex := 2;
+ Ord( grrNew ): ResRangeHoldComboBox.ItemIndex := 3;
+ 10..65535: ResRangeHoldComboBox.ItemIndex := 1;
+ end;
+ ResRangeHoldComboBox.Enabled := GikoSys.Setting.ResRangeHold;
//\83^\83u\92Ç\89Á\88Ê\92u
TabAddRadioGroup.ItemIndex := Ord(GikoSys.Setting.BrowserTabAppend);
//\94Â\8dX\90VURL
//\83\8d\83O\8dí\8f\9c\8e\9e\83\81\83b\83Z\81[\83W
LogDeleteMessageCheckBox.Checked := GikoSys.Setting.DeleteMsg;
+ //\93¯ID\83\8c\83X\83A\83\93\83J\81[\95\\8e¦\82Ì\90§\8cÀ\90\94\89z\82¦\83\81\83b\83Z\81[\83W
+ IgnoreLimitResCountCheckBox.Checked := GikoSys.Setting.LimitResCountMessage;
//\8fI\97¹\8e\9e\8am\94F\83_\83C\83A\83\8d\83O
ShowDialogForEndCheckBox.Checked := GikoSys.Setting.ShowDialogForEnd;
BrowserMaxCombo.ItemIndex := Ord( GikoSys.Setting.BrowserAutoMaximize );
//\83|\83b\83v\83A\83b\83v\88Ê\92u
case GikoSys.Setting.PopupPosition of
- gppRightTop: PopupPositionRadioGroup.ItemIndex := 0;
- gppRight: PopupPositionRadioGroup.ItemIndex := 1;
- gppRightBottom: PopupPositionRadioGroup.ItemIndex := 2;
- gppTop: PopupPositionRadioGroup.ItemIndex := 3;
- gppCenter: PopupPositionRadioGroup.ItemIndex := 4;
- gppBottom: PopupPositionRadioGroup.ItemIndex := 5;
- gppLeftTop: PopupPositionRadioGroup.ItemIndex := 6;
- gppLeft: PopupPositionRadioGroup.ItemIndex := 7;
- gppLeftBottom: PopupPositionRadioGroup.ItemIndex := 8;
+ gppRightTop: gppRightTopRB.Checked := True;
+ gppRight: gppRightRB.Checked := True;
+ gppRightBottom: gppRighBottomRB.Checked := True;
+ gppTop: gppTopRB.Checked := True;
+ gppCenter: gppTopRB.Checked := True; // \93Ç\82Ý\8d\9e\82Ý\82Å\95Ï\8a·\82µ\82Ä\82é\82Í\82¸
+ gppBottom: gppBottomRB.Checked := True;
+ gppLeftTop: gppLeftTopRB.Checked := True;
+ gppLeft: gppLeftRB.Checked := True;
+ gppLeftBottom: gppLeftBottomRB.Checked := True;
end;
//\94ñ\83A\83N\83e\83B\83u\8e\9e\83|\83b\83v\83A\83b\83v\95\\8e¦
//\83X\83\8c\83b\83h\88ê\97\97\8dX\90V\83A\83C\83R\83\93
ThreadListIconCheckBox.Checked := GikoSys.Setting.ListIconVisible;
- NonAcquiredCountCheckBox.Checked := GikoSys.Setting.NonAcquiredCount;
CreationTimeLogsCheckBox.Checked := GikoSys.Setting.CreationTimeLogs;
FutureThreadCheckBox.Checked := GikoSys.Setting.FutureThread;
SelectIntervalEdit.Text := IntToStr(GikoSys.Setting.SelectInterval);
-
- //\83X\83\8c\83b\83h\88ê\97\97\82ÅLog\82Ì\82 \82é\83X\83\8c\83b\83h\82Ì\82Ý\83X\83\8c\8dì\90¬\93ú\82ð\95\\8e¦\82·\82é\82©
- //ExistLogCheckBox.Checked :=
-
- //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
- PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
- PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec);
- if GikoSys.Setting.TimeAdjust then
- PutPostTimeRadioButton.Checked := True
+
+ //dat\97\8e\82¿\83X\83\8c\83\\81[\83g\8f\87
+ case TGikoBoardColumnID( GikoSys.Setting.DatOchiSortIndex ) of
+ gbcTitle:
+ if GikoSys.Setting.DatOchiSortOrder then
+ DatOchiSortCombo.ItemIndex := 1
+ else
+ DatOchiSortCombo.ItemIndex := 2;
+ gbcRoundDate://gbcLastModified:
+ if GikoSys.Setting.DatOchiSortOrder then
+ DatOchiSortCombo.ItemIndex := 3
+ else
+ DatOchiSortCombo.ItemIndex := 4;
+ gbcCreated:
+ if GikoSys.Setting.DatOchiSortOrder then
+ DatOchiSortCombo.ItemIndex := 5
+ else
+ DatOchiSortCombo.ItemIndex := 6;
+ gbcLastModified:
+ if GikoSys.Setting.DatOchiSortOrder then
+ DatOchiSortCombo.ItemIndex := 7
+ else
+ DatOchiSortCombo.ItemIndex := 8;
else
- BackPostTimeRadioButton.Checked := True;
- //\82 \82Ú\81`\82ñ
- RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo;
- ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul;
- PopUpAbonCheckBox.Checked := GikoSys.Setting.PopUpAbon;
- ShowNGLineCheckBox.Checked := GikoSys.Setting.ShowNGLinesNum;
- AddResAnchorCheckBox.Checked := GikoSys.Setting.AddResAnchor;
+ DatOchiSortCombo.ItemIndex := 0;
+ end;
+ AutoSortCheckBox.Checked := GikoSys.Setting.AutoSortThreadList;
+
+ //\82 \82Ú\81`\82ñ
+ RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo;
+ ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul;
+ PopUpAbonCheckBox.Checked := GikoSys.Setting.PopUpAbon;
+ ShowNGLineCheckBox.Checked := GikoSys.Setting.ShowNGLinesNum;
+ AddResAnchorCheckBox.Checked := GikoSys.Setting.AddResAnchor;
DeleteSyriaCheckBox.Checked := GikoSys.Setting.DeleteSyria;
-
+ IgnoreKanaCheckBox.Checked := GikoSys.Setting.IgnoreKana;
+{$IFDEF SPAM_FILTER_ENABLED}
+ // \83X\83p\83\80\83t\83B\83\8b\83^\82Ì\90Ý\92è\82ð\95\\8e¦\82·\82é
+ SpamFilterGroupBox.Visible := True;
+{$ENDIF}
+ // \8eg\97p\82·\82é\83X\83p\83\80\83t\83B\83\8b\83^
+{$IFDEF DEBUG}
+ SpamFilterAlgorithmComboBox.Clear;
+ SpamFilterAlgorithmComboBox.AddItem( '\8eg\97p\82µ\82È\82¢', nil );
+ SpamFilterAlgorithmComboBox.AddItem( 'Paul Graham \96@', nil );
+ SpamFilterAlgorithmComboBox.AddItem( 'Gary Robinson \96@', nil );
+ SpamFilterAlgorithmComboBox.AddItem( 'Gary Robinson-Fisher \96@', nil );
+{$ENDIF}
+ SpamFilterAlgorithmComboBox.ItemIndex :=
+ Ord( GikoSys.Setting.SpamFilterAlgorithm );
+
+ //TabAutoLoad
+ TabLoadSave.Checked := Gikosys.Setting.TabAutoLoadSave;
+ UseUndecidedCheckBox.Checked := GikoSys.Setting.UseUndecided;
+
+ // \83\8c\83X\83G\83f\83B\83^Unicode\93ü\97Í
+ UseUnicodeCB.Checked := Gikosys.Setting.UseUnicode;
+ // \83X\83\8c\83^\83C\93Á\92è\95¶\8e\9a\97ñ\8f\9c\8b\8e
+ ThreadTitleTrimCheckBox.Checked := GikoSys.Setting.ThreadTitleTrim;
+
+ //Be2ch\94F\8fØ
+ BeUserIDEdit.Text := GikoSys.Setting.BeUserID;
+ BeCodeEdit.Text := GikoSys.Setting.BePassword;
+ BeAutoLoginCheckBox.Checked := GikoSys.Setting.BeAutoLogin;
+ //\97\9a\97ð\82Ì\8dÅ\91å\95Û\91¶\90\94
+ MaxRecordCountEdit.Text := IntToStr(GikoSys.Setting.MaxRecordCount);
+ // \8dÅ\8f¬\89»\8e\9e\82É\83^\83X\83N\83g\83\8c\83C\82É\8ai\94[\82·\82é\82©
+ StoredTaskTrayCB.Checked := GikoSys.Setting.StoredTaskTray;
+ // \83u\83\89\83E\83U\83^\83u\82Ì\88Ú\93®\82Å\83\8b\81[\83v\82ð\8b\96\89Â\82·\82é\82©
+ LoopBrowserTabsCB.Checked := GikoSys.Setting.LoopBrowserTabs;
+ //
+ IgnoreContextCheckBox.Checked := GikoSys.Setting.GestureIgnoreContext;
+
+ // \96`\8c¯\82Ì\8f\91\83h\83\81\83C\83\93\88ê\97\97\8eæ\93¾
+ BoukenComboBox.Text := '';
+ BoukenComboBox.Items.Clear;
+ DomainList := TStringList.Create;
+ GikoSys.GetBoukenDomain(DomainList);
+ for i := 0 to DomainList.Count - 1 do begin
+ BoukenComboBox.Items.Add( DomainList[i] ) ;
+ end;
+ DomainList.Free;
+ BoukenComboBox.ItemIndex := 0;
+ BoukenComboBox.OnChange(nil);
end;
procedure TOptionDialog.SaveSetting;
tmp: string;
// Item: TListItem;
begin
- //\8eó\90M\83o\83b\83t\83@\83T\83C\83Y
- Gikosys.Setting.RecvBufferSize := StrToInt(RecvBufferSize.Text);
- //HTTP1.1\8eg\97p
- GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
- //\83v\83\8d\83L\83V\90Ú\91±HTTP1.1\8eg\97p
- Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
-
GikoSys.Setting.OptionDialogTabIndex := OptionTab.TabIndex;
GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked;
GikoSys.Setting.CabinetFontName := CabinetMemo.Font.Name;
GikoSys.Setting.CabinetFontSize := CabinetMemo.Font.Size;
GikoSys.Setting.CabinetFontColor := CabinetMemo.Font.Color;
+ GikoSys.Setting.CabinetFontBold := fsBold in CabinetMemo.Font.Style;
+ GikoSys.Setting.CabinetFontItalic:= fsItalic in CabinetMemo.Font.Style;
GikoSys.Setting.CabinetBackColor := CabinetMemo.Color;
- GikoSys.Setting.ListFontName := ListMemo.Font.Name;
- GikoSys.Setting.ListFontSize := ListMemo.Font.Size;
- GikoSys.Setting.ListFontColor := ListMemo.Font.Color;
+ GikoSys.Setting.ListFontName := ListMemo.Font.Name;
+ GikoSys.Setting.ListFontSize := ListMemo.Font.Size;
+ GikoSys.Setting.ListFontColor := ListMemo.Font.Color;
+ GikoSys.Setting.ListFontBold := fsBold in ListMemo.Font.Style;
+ GikoSys.Setting.ListFontItalic := fsItalic in ListMemo.Font.Style;
GikoSys.Setting.ListBackColor := ListMemo.Color;
GikoSys.Setting.UseOddColorOddResNum := OddResNumCheckBox.Checked;
GikoSys.Setting.OddColor := OddResNumColorBox.Selected;
+ GikoSys.Setting.UnFocusedBold := (UnFocusedBoldCheckBox.Enabled) and
+ (UnFocusedBoldCheckBox.Checked);
GikoSys.Setting.HintFontName := HintMemo.Font.Name;
GikoSys.Setting.HintFontSize := HintMemo.Font.Size;
GikoSys.Setting.BrowserTabFontName := BrowserTabMemo.Font.Name;
GikoSys.Setting.BrowserTabFontSize := BrowserTabMemo.Font.Size;
-
+ GikoSys.Setting.BrowserTabFontBold := fsBold in BrowserTabMemo.Font.Style;
+ GikoSys.Setting.BrowserTabFontItalic := fsItalic in BrowserTabMemo.Font.Style;
GikoSys.Setting.EditorFontName := EditorMemo.Font.Name;
GikoSys.Setting.EditorFontSize := EditorMemo.Font.Size;
GikoSys.Setting.EditorFontColor := EditorMemo.Font.Color;
//CSS\95\\8e¦
if GikoSys.Setting.UseCSS <> CSSCheckBox.Checked then FRepaintThread := true;
GikoSys.Setting.UseCSS := CSSCheckBox.Checked;
+ GikoSys.Setting.UseKatjushaType := UseKatjuTypeSkinCheckBox.Checked;
//CSS\83t\83@\83C\83\8b\96¼
tmp := GikoSys.Setting.CSSFileName;
- GikoSys.Setting.CSSFileName := 'default.css';
+ GikoSys.Setting.CSSFileName := DEFAULT_CSS_FILENAME;
if CSSListView.Items.Count > 0 then begin
try
if CSSListView.Items[CSSListView.ItemIndex].Data <> nil then
//Mail\97\93\95\\8e¦
if GikoSys.Setting.ShowMail <> ShowMailCheckBox.Checked then FRepaintThread := true;
GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;
- //\8dÅ\90V100\83\8c\83X\95\\8e¦
- GikoSYs.Setting.OnlyAHundredRes := OnlyAHundredResCheckBox.Checked;
+ //BE2.0\83A\83C\83R\83\93\81EEmoticons\82ð\89æ\91\9c\95\\8e¦\82·\82é
+ GikoSys.Setting.IconImageDisplay := DispImageCheckBox.Checked;
+ // \8bN\93®\8e\9e\83\8c\83X\95\\8e¦\94Í\88Í\82Ì\8cÅ\92è
+ GikoSys.Setting.ResRangeHold := ResRangeHoldCheckBox.Checked;
+ case ResRangeHoldComboBox.ItemIndex of
+ 0: GikoSys.Setting.ResRange := Ord( grrAll );
+ 1: GikoSys.Setting.ResRange := GikoSys.Setting.ResRangeExCount;
+ 2: GikoSys.Setting.ResRange := Ord( grrKoko );
+ 3: GikoSys.Setting.ResRange := Ord( grrNew );
+ end;
GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);
GikoSys.Setting.OpenMailer := OpenMailerCheckBox.Checked;
GikoSys.Setting.DeleteMsg := LogDeleteMessageCheckBox.Checked;
+ GikoSys.Setting.LimitResCountMessage := IgnoreLimitResCountCheckBox.Checked;
+
//\8fI\97¹\8e\9e\8am\94F\83_\83C\83A\83\8d\83O
GikoSys.Setting.ShowDialogForEnd := ShowDialogForEndCheckBox.Checked;
//AllTabClose
GikoSys.Setting.ShowDialogForAllTabClose := AllTabCloseCheckBox.Checked;
- //Samba
+ //Samba
GikoSys.Setting.UseSamba := UseSambaCheckBox.Checked;
GikoSys.Setting.ResAnchorJamp := ResAnchorCheckBox.Checked;
// \83u\83\89\83E\83U\8dÅ\91å\89»
GikoSys.Setting.BrowserAutoMaximize := TGikoBrowserAutoMaximize( BrowserMaxCombo.ItemIndex );
//\83|\83b\83v\83A\83b\83v\88Ê\92u
- case PopupPositionRadioGroup.ItemIndex of
- 0: GikoSys.Setting.PopupPosition := gppRightTop;
- 1: GikoSys.Setting.PopupPosition := gppRight;
- 2: GikoSys.Setting.PopupPosition := gppRightBottom;
- 3: GikoSys.Setting.PopupPosition := gppTop;
- 4: GikoSys.Setting.PopupPosition := gppCenter;
- 5: GikoSys.Setting.PopupPosition := gppBottom;
- 6: GikoSys.Setting.PopupPosition := gppLeftTop;
- 7: GikoSys.Setting.PopupPosition := gppLeft;
- 8: GikoSys.Setting.PopupPosition := gppLeftBottom;
- end;
-
+ if (gppRightTopRB.Checked) then GikoSys.Setting.PopupPosition := gppRightTop;
+ if (gppRightRB.Checked) then GikoSys.Setting.PopupPosition := gppRight;
+ if (gppRighBottomRB.Checked) then GikoSys.Setting.PopupPosition := gppRightBottom;
+ if (gppTopRB.Checked) then GikoSys.Setting.PopupPosition := gppTop;
+ if (gppBottomRB.Checked) then GikoSys.Setting.PopupPosition := gppBottom;
+ if (gppLeftTopRB.Checked) then GikoSys.Setting.PopupPosition := gppLeftTop;
+ if (gppLeftRB.Checked) then GikoSys.Setting.PopupPosition := gppLeft;
+ if (gppLeftBottomRB.Checked) then GikoSys.Setting.PopupPosition := gppLeftBottom;
//\94ñ\83A\83N\83e\83B\83u\8e\9e\83|\83b\83v\83A\83b\83v\95\\8e¦
GikoSys.Setting.UnActivePopup := UnActivePopupCheckBox.Checked;
//\83\8c\83X\83|\83b\83v\83A\83b\83v\83{\81[\83\8b\83h\95\\8e¦
//\83X\83\8c\83b\83h\88ê\97\97\8dX\90V\83A\83C\83R\83\93
GikoSys.Setting.ListIconVisible := ThreadListIconCheckBox.Checked;
- GikoSys.Setting.NonAcquiredCount := NonAcquiredCountCheckBox.Checked;
- GikoSys.Setting.CreationTimeLogs := CreationTimeLogsCheckBox.Checked;
+
+ GikoSys.Setting.CreationTimeLogs := CreationTimeLogsCheckBox.Checked;
GikoSys.Setting.FutureThread := FutureThreadCheckBox.Checked;
if StrToIntDef(SelectIntervalEdit.Text, 110) > 55 then
GikoSys.Setting.SelectInterval := StrToIntDef(SelectIntervalEdit.Text, 110)
else
GikoSys.Setting.SelectInterval := 55;
-
- //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
- GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
- if GikoSys.IsNumeric(PostTimeEdit.Text) then
- GikoSys.Setting.TimeAdjustSec := StrToInt(PostTimeEdit.Text)
- else
- GikoSys.Setting.TimeAdjustSec := 0;
- GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
+ //dat\97\8e\82¿\83X\83\8c\83\\81[\83g\8f\87
+ case DatOchiSortCombo.ItemIndex of
+ 0: GikoSys.Setting.DatOchiSortIndex := -1; //\95À\82Ñ\91Ö\82¦\82µ\82È\82¢
+ 1: begin //\83X\83\8c\94Ô\8d\86(\8f¸\8f\87)
+ GikoSys.Setting.DatOchiSortOrder := true;
+ GikoSys.Setting.DatOchiSortIndex := Ord( gbcTitle );
+ end;
+ 2: begin //\83X\83\8c\94Ô\8d\86(\8d~\8f\87)
+ GikoSys.Setting.DatOchiSortOrder := false;
+ GikoSys.Setting.DatOchiSortIndex := Ord( gbcTitle );
+ end;
+ 3: begin //\8eæ\93¾\93ú\8e\9e(\8f¸\8f\87)
+ GikoSys.Setting.DatOchiSortOrder := true;
+ GikoSys.Setting.DatOchiSortIndex := Ord( gbcRoundDate );{gbcLastModified}
+ end;
+ 4: begin //\8eæ\93¾\93ú\8e\9e(\8d~\8f\87)
+ GikoSys.Setting.DatOchiSortOrder := false;
+ GikoSys.Setting.DatOchiSortIndex := Ord( gbcRoundDate );{gbcLastModified}
+ end;
+ 5: begin //\83X\83\8c\8dì\90¬\93ú\8e\9e(\8f¸\8f\87)
+ GikoSys.Setting.DatOchiSortOrder := true;
+ GikoSys.Setting.DatOchiSortIndex := Ord( gbcCreated );
+ end;
+ 6: begin //\83X\83\8c\8dì\90¬\93ú\8e\9e(\8d~\8f\87)
+ GikoSys.Setting.DatOchiSortOrder := false;
+ GikoSys.Setting.DatOchiSortIndex := Ord( gbcCreated );
+ end;
+ 7: begin //\83X\83\8c\8dÅ\8fI\8dX\90V\93ú\8e\9e\81i\8f¸\8f\87\81j
+ GikoSys.Setting.DatOchiSortOrder := true;
+ GikoSys.Setting.DatOchiSortIndex := Ord( gbcLastModified );{gbcLastModified}
+ end;
+ 8: begin //\83X\83\8c\8dÅ\8fI\8dX\90V\93ú\8e\9e\81i\8d~\8f\87\81j
+ GikoSys.Setting.DatOchiSortOrder := false;
+ GikoSys.Setting.DatOchiSortIndex := Ord( gbcLastModified );{gbcLastModified}
+ end;
+ end;
+ GikoSys.Setting.AutoSortThreadList := AutoSortCheckBox.Checked;
GikoSys.Setting.WriteSystemSettingFile;
GikoSys.Setting.WriteBoardURLSettingFile;
GikoSys.Setting.PopUpAbon := PopUpAbonCheckBox.Checked;
GikoSys.Setting.ShowNGLinesNum := ShowNGLineCheckBox.Checked;
GikoSys.Setting.AddResAnchor := AddResAnchorCheckBox.Checked;
- GikoSys.Setting.DeleteSyria := DeleteSyriaCheckBox.Checked;
+ GikoSys.Setting.DeleteSyria := DeleteSyriaCheckBox.Checked;
+ GikoSys.Setting.IgnoreKana := IgnoreKanaCheckBox.Checked;
+ GikoSys.FAbon.IgnoreKana := GikoSys.Setting.IgnoreKana;
+ // \8eg\97p\82·\82é\83X\83p\83\80\83t\83B\83\8b\83^
+ if GikoSys.Setting.SpamFilterAlgorithm <> TGikoSpamFilterAlgorithm(
+ SpamFilterAlgorithmComboBox.ItemIndex ) then begin
+ GikoSys.Setting.SpamFilterAlgorithm := TGikoSpamFilterAlgorithm(
+ SpamFilterAlgorithmComboBox.ItemIndex );
+ FRepaintThread := True;
+ end;
+
+ //Tab\8e©\93®\95Û\91¶
+ GikoSys.Setting.TabAutoLoadSave := TabLoadSave.Checked;
+ GikoSys.Setting.UseUndecided := UseUndecidedCheckBox.Checked;
+ //Be2ch
+ GikoSys.Setting.BeUserID := BeUserIDEdit.Text;
+ GikoSys.Setting.BePassword := BeCodeEdit.Text;
+ GikoSys.Setting.BeAutoLogin := BeAutoLoginCheckBox.Checked;
+ //\97\9a\97ð\82Ì\8dÅ\91å\95Û\91¶\90\94
+ GikoSys.Setting.MaxRecordCount := Max(StrToInt64Def(MaxRecordCountEdit.Text,100),1);
+ GikoSys.Setting.StoredTaskTray := StoredTaskTrayCB.Checked;
+ GikoSys.Setting.LoopBrowserTabs := LoopBrowserTabsCB.Checked;
+
+ GikoSys.Setting.GestureIgnoreContext := IgnoreContextCheckBox.Checked;
+
+ // \83\8c\83X\83G\83f\83B\83^Unicode\93ü\97Í
+ Gikosys.Setting.UseUnicode := UseUnicodeCB.Checked;
+ // \83X\83\8c\83^\83C\93Á\92è\95¶\8e\9a\97ñ\8f\9c\8b\8e
+ GikoSys.Setting.ThreadTitleTrim := ThreadTitleTrimCheckBox.Checked;
+
end;
procedure TOptionDialog.SettingApply;
GikoForm.TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
GikoForm.TreeView.Color := GikoSys.Setting.CabinetBackColor;
- GikoForm.FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName;
- GikoForm.FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
- GikoForm.FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
+ GikoForm.FavoriteTreeView.Font.Assign(GikoForm.TreeView.Font);
GikoForm.FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor;
GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName;
GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize;
GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor;
+ GikoForm.ListView.Font.Style := [];
+ if GikoSys.Setting.ListFontBold then
+ GikoForm.ListView.Font.Style := [fsbold];
+ if GikoSys.Setting.ListFontItalic then
+ GikoForm.ListView.Font.Style := GikoForm.ListView.Font.Style + [fsitalic];
+
//GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;
- GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
- GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
- GikoForm.OddColor := GikoSys.Setting.OddColor;
+ GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
+ GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
+ GikoForm.OddColor := GikoSys.Setting.OddColor;
+ GikoSys.Setting.UnFocusedBold := (UnFocusedBoldCheckBox.Enabled) and
+ (UnFocusedBoldCheckBox.Checked);
GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
+ GikoForm.BrowserTab.Font.Style := [];
+ if GikoSys.Setting.BrowserTabFontBold then
+ GikoForm.BrowserTab.Font.Style := [fsBold];
+ if GikoSys.Setting.BrowserTabFontItalic then
+ GikoForm.BrowserTab.Font.Style := GikoForm.BrowserTab.Font.Style + [fsItalic];
// GikoForm.BrowserTab.Height := (GikoSys.Setting.BrowserTabFontSize * 2) + 1;
// GikoForm.BrowserBottomPanel.Height := GikoForm.BrowserTab.Height;
end;
GikoForm.AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
+ //\83X\83\8c\88ê\97\97\82Ì\83\8a\83t\83\8c\83b\83V\83\85
+ if FRepaintList then begin
+ // SetActiveList\82ð\8eÀ\8ds
+ GikoForm.ActiveList := GikoForm.ActiveList;
+ end;
+
// \83X\83\8c\83b\83h\82Ì\83\8a\83t\83\8c\83b\83V\83\85
if FRepaintThread then begin
for i := GikoForm.BrowserTab.Tabs.Count - 1 downto 0 do begin
end;
GikoForm.BrowserTab.OnChange(nil);
end;
+
+ // \83^\83u\82Ì\83X\83\8c\83^\83C\8dX\90V
+ GikoForm.UpdateThreadTitle;
end;
procedure TOptionDialog.ReadProxyCheckClick(Sender: TObject);
function TOptionDialog.CheckFolder: Boolean;
begin
if Trim(LogFolderEdit.Text) = '' then
- LogFolderEdit.Text := ExtractFilePath(Application.ExeName) + 'Log';
+ LogFolderEdit.Text := GikoSys.GetAppDir + 'Log';
if DirectoryExists(LogFolderEdit.Text) then begin
Result := True;
sndPlaySound(nil, SND_ASYNC);
if OpenDialog.Execute then begin
SoundFileEdit.Text := OpenDialog.FileName;
+ // \83A\83v\83\8a\94z\89º\82Ì\83t\83@\83C\83\8b\82Ì\8fê\8d\87\91\8a\91Î\83p\83X\82É\95Ï\8a·\82·\82é\81B
+ if (AnsiPos(GikoSys.Setting.GetAppDir,SoundFileEdit.Text) = 1) then begin
+ // .\ \82ª\82Â\82©\82È\82¢\82Ì\82Å\81A.\\82ð\92Ç\89Á
+ SoundFileEdit.Text := '.\' + ExtractRelativePath(
+ GikoSys.Setting.GetAppDir,
+ SoundFileEdit.Text);
+
+ end;
end;
end;
procedure TOptionDialog.SoundPlayButtonClick(Sender: TObject);
+var
+ s : String;
begin
- if not FileExists(SoundFileEdit.Text) then begin
+ SetCurrentDir(GikoSys.Setting.GetAppDir);
+ s := ExpandFileName(SoundFileEdit.Text);
+ if not FileExists(s) then begin
MsgBox(Handle, '\91¶\8dÝ\82µ\82È\82¢\83t\83@\83C\83\8b\82Å\82·', '\83G\83\89\81[', MB_ICONSTOP or MB_OK);
SoundFileEdit.Text := '';
Exit;
end;
- if not sndPlaySound(PChar(SoundFileEdit.Text), SND_ASYNC or SND_NOSTOP) then begin
+ if not sndPlaySound(PChar(s), SND_ASYNC or SND_NOSTOP) then begin
sndPlaySound(nil, SND_ASYNC);
end;
end;
Item := SoundListView.Selected;
if Item = nil then Exit;
- if FileExists(SoundFileEdit.Text) then
+ SetCurrentDir(GikoSys.Setting.GetAppDir);
+ if FileExists(ExpandFileName(SoundFileEdit.Text)) then
Item.SubItems[0] := SoundFileEdit.Text;
if Trim(SoundFileEdit.Text) = '' then
Item.SubItems[0] := '';
PreviewWaitEdit.Text := '9999';
end;
-procedure TOptionDialog.RecvBufferSizeExit(Sender: TObject);
-begin
- if not GikoSys.IsNumeric(RecvBufferSize.Text) then
- RecvBufferSize.Text := '4096';
- if StrToInt(RecvBufferSize.Text) < 256 then
- RecvBufferSize.Text := '4096';
-end;
-
procedure TOptionDialog.CSSCheckBoxClick(Sender: TObject);
begin
CSSListLabel.Enabled := CSSCheckBox.Checked;
CSSListView.Enabled := CSSCheckBox.Checked;
end;
-procedure TOptionDialog.PostTimeEditExit(Sender: TObject);
-begin
- if not GikoSys.IsNumeric(PostTimeEdit.Text) then
- PostTimeEdit.Text := '0';
-end;
-
-procedure TOptionDialog.PostTimeCheckBoxClick(Sender: TObject);
-begin
- PostTimeLabel.Enabled := PostTimeCheckBox.Checked;
- PostTimeEdit.Enabled := PostTimeCheckBox.Checked;
- PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
- BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
-end;
procedure TOptionDialog.SetAbonpropertys;
begin
- //\82 \82Ú\81`\82ñ
- GikoSys.FAbon.Deleterlo := RloCheckBox.Checked;
- GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked;
- GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked;
+ //\82 \82Ú\81`\82ñ
+ GikoSys.FAbon.Deleterlo := RloCheckBox.Checked;
+ GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked;
+ GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked;
GikoSys.FAbon.ReturnNGwordLineNum := ShowNGLineCheckBox.Checked;
GikoSys.FAbon.SetNGResAnchor := AddResAnchorCheckBox.Checked;
- GikoSys.FAbon.DeleteSyria := DeleteSyriaCheckBox.Checked;
+ GikoSys.FAbon.DeleteSyria := DeleteSyriaCheckBox.Checked;
end;
procedure TOptionDialog.CSSFontButtonClick(Sender: TObject);
begin
procedure TOptionDialog.CSSSetContent(Content: string);
var
- doc : Variant;
+ doc : OleVariant;
begin
if CSSBrowser.Document <> nil then begin
- doc := CSSBrowser.Document;
+ doc := CSSBrowser.OleObject.Document;
doc.open;
- doc.Clear;
+ doc.Clear;
doc.charset := 'Shift_JIS';
doc.Write(Content);
doc.Close;
ThreadItem: TThreadItem;
html: string;
Res: array [0..1] of TResRec;
- UserOptionalStyle: string;
- i: Integer;
fileName: string;
begin
fileName := GikoSys.Setting.CSSFileName;
- GikoSys.Setting.CSSFileName := 'default.css';
+ GikoSys.Setting.CSSFileName := DEFAULT_CSS_FILENAME;
if CSSListView.Items.Count > 0 then begin
try
if CSSListView.ItemIndex >= 0 then begin
GikoSys.Setting.CSSFileName := string( CSSListView.Items[CSSListView.ItemIndex].data )
else
GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css';
- end;
+ end;
except
end;
end;
Board := TBoard.Create( nil, 'about://sample/' );
- ThreadItem := TThreadItem.Create( nil, 'about://sample/test/read.cgi/sample/' );
+ ThreadItem := TThreadItem.Create( nil, Board, 'about://sample/test/read.cgi/sample/' );
try
Board.Title := '\83T\83\93\83v\83\8b\94Â';
Res[1].FDateTime := 'ID:Sample';
Res[1].FBody := '\83I\83}\83G\83\82\83i\81[';
- // \83t\83H\83\93\83g\82â\83T\83C\83Y\82Ì\90Ý\92è
- if CSSFontCheckBox.Checked then begin
- i := ColorToRGB( FCSSFont.Color );
- i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
-
- UserOptionalStyle := UserOptionalStyle +
- 'font-family:"' + FCSSFont.Name + '";' +
- 'font-size:' + IntToStr( FCSSFont.Size ) + 'pt;' +
- 'color:#' + IntToHex( i, 6 ) + ';';
- if fsBold in FCSSFont.Style then
- UserOptionalStyle := UserOptionalStyle + 'font-weight:bold;'
- else
- UserOptionalStyle := UserOptionalStyle + 'font-weight:normal;';
- if fsItalic in FCSSFont.Style then
- UserOptionalStyle := UserOptionalStyle + 'font-style:italic;'
- else
- UserOptionalStyle := UserOptionalStyle + 'font-style:normal;';
- end;
- if CSSBackColorCheckBox.Checked then begin
- i := ColorToRGB( FCSSBackColor );
- i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
-
- UserOptionalStyle := UserOptionalStyle +
- 'background-color:#' + IntToHex( i, 6 ) + ';';
- end;
if FileExists( GikoSys.GetSkinHeaderFileName ) then begin
html :=
- GikoSys.LoadFromSkin( GikoSys.GetSkinHeaderFileName, ThreadItem, 0 ) +
+ HTMLCreater.LoadFromSkin( GikoSys.GetSkinHeaderFileName, ThreadItem, 0 ) +
'<a name="top"></a>' +
- GikoSys.SkinedRes( GikoSYs.LoadFromSkin( GikoSys.GetSkinResFileName, ThreadItem, 0 ), Res[0], '1' ) +
- GikoSys.SkinedRes( GikoSYs.LoadFromSkin( GikoSys.GetSkinNewResFileName, ThreadItem, 0 ), Res[1], '2' ) +
+ HTMLCreater.SkinedRes( HTMLCreater.LoadFromSkin( GikoSys.GetSkinResFileName, ThreadItem, 0 ), @Res[0], '1' ) +
+ HTMLCreater.SkinedRes( HTMLCreater.LoadFromSkin( GikoSys.GetSkinNewResFileName, ThreadItem, 0 ), @Res[1], '2' ) +
'<a name="bottom"></a>' +
- GikoSys.LoadFromSkin( GikoSys.GetSkinFooterFileName, ThreadItem, 0 );
+ HTMLCreater.LoadFromSkin( GikoSys.GetSkinFooterFileName, ThreadItem, 0 );
html := StringReplace( html, '</head>',
- '<style type="text/css">body {' + UserOptionalStyle + '}</style></head>', [rfReplaceAll] );
+ '<style type="text/css">body {' + GetPreviewUserStyle + '}</style></head>', [rfReplaceAll] );
end else begin
html :=
- '<html><head>' +
- '<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">' +
+ '<html><head><meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">' +
'<title>' + ThreadItem.Title + '</title>' +
'<link rel="stylesheet" href="' + GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName + '" type="text/css">' +
- '<style type="text/css">body {' + UserOptionalStyle + '}</style>' +
- '</head><body>' +
- '<div class="title">' + ThreadItem.Title + '</div>';
-
- for i := 0 to High( Res ) do
- begin
- html := html +
- '<div class="header"><span class="no">' + IntToStr( i + 1 ) + '</span>' +
- '<span class="name_label"> \96¼\91O\81F </span>' +
- '<a class="name_mail" href="mailto:' + Res[i].FMailTo + '">' +
- '<b>' + Res[i].FName + '</b></a><span class="mail"> [' + Res[i].FMailTo + ']</span>' +
- '<span class="date_label"> \93\8a\8de\93ú\81F</span>' +
- '<span class="date"> ' + Res[i].FDateTime+ '</span></div>' +
- '<div class="mes">' + Res[i].FBody + ' </div>';
- end;
-
- html := html + '</body></html>';
+ '<style type="text/css">body {' + GetPreviewUserStyle + '}</style>' +
+ '</head><body><div class="title">' + ThreadItem.Title + '</div>';
+
+ html := html + CreatePreviewBody(Res) + '</body></html>';
end;
try
end;
end;
+function TOptionDialog.CreatePreviewBody(Res: array of TResRec): string;
+var
+ i : Integer;
+begin
+ Result := '';
+ for i := 0 to High( Res ) do
+ begin
+ Result := Result +
+ '<div class="header"><span class="no">' + IntToStr( i + 1 ) + '</span>' +
+ '<span class="name_label"> \96¼\91O\81F </span>' +
+ '<a class="name_mail" href="mailto:' + Res[i].FMailTo + '">' +
+ '<b>' + Res[i].FName + '</b></a><span class="mail"> [' + Res[i].FMailTo + ']</span>' +
+ '<span class="date_label"> \93\8a\8de\93ú\81F</span>' +
+ '<span class="date"> ' + Res[i].FDateTime+ '</span></div>' +
+ '<div class="mes">' + Res[i].FBody + ' </div>';
+ end;
+end;
+
+function TOptionDialog.GetPreviewUserStyle(): string;
+var
+ i : Integer;
+
+begin
+ Result := '';
+ // \83t\83H\83\93\83g\82â\83T\83C\83Y\82Ì\90Ý\92è
+ if CSSFontCheckBox.Checked then begin
+ i := ColorToRGB( FCSSFont.Color );
+ i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
+
+ Result := Result +
+ 'font-family:"' + FCSSFont.Name + '";' +
+ 'font-size:' + IntToStr( FCSSFont.Size ) + 'pt;' +
+ 'color:#' + IntToHex( i, 6 ) + ';';
+ if fsBold in FCSSFont.Style then
+ Result := Result + 'font-weight:bold;'
+ else
+ Result := Result + 'font-weight:normal;';
+ if fsItalic in FCSSFont.Style then
+ Result := Result + 'font-style:italic;'
+ else
+ Result := Result + 'font-style:normal;';
+ end;
+ if CSSBackColorCheckBox.Checked then begin
+ i := ColorToRGB( FCSSBackColor );
+ i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
+
+ Result := Result +
+ 'background-color:#' + IntToHex( i, 6 ) + ';';
+ end;
+end;
procedure TOptionDialog.CSSListViewChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
procedure TOptionDialog.OddResNumCheckBoxClick(Sender: TObject);
begin
OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;
+ UnFocusedBoldCheckBox.Enabled := OddResNumCheckBox.Checked;
+end;
+
+procedure TOptionDialog.ResRangeHoldCheckBoxClick(Sender: TObject);
+begin
+ ResRangeHoldComboBox.Enabled := ResRangeHoldCheckBox.Checked;
+end;
+
+procedure TOptionDialog.CroutOptionClick(Sender: TObject);
+var
+ KuroutOption: TKuroutOption;
+begin
+ KuroutOption := TKuroutOption.Create(Self);
+ try
+ KuroutOption.ShowModal;
+ finally
+ KuroutOption.Release;
+ end;
+end;
+
+procedure TOptionDialog.MaxRecordCountEditExit(Sender: TObject);
+begin
+ if not GikoSys.IsNumeric(MaxRecordCountEdit.Text) then
+ MaxRecordCountEdit.Text := '100'
+ else if StrToIntDef(MaxRecordCountEdit.Text, 100) <= 0 then
+ MaxRecordCountEdit.Text := '1';
+end;
+
+procedure TOptionDialog.BoukenDelButtonClick(Sender: TObject);
+begin
+ if ( BoukenComboBox.Items.IndexOf( BoukenComboBox.Text ) <> -1 ) then begin
+ if MsgBox(Self.Handle, BoukenComboBox.Text + ' \82ð\8dí\8f\9c\82µ\82Ü\82·\81B'#13#10 +
+ '\8dí\8f\9c\82·\82é\82Æ\95\9c\8c³\82Å\82«\82Ü\82¹\82ñ\81B\82æ\82ë\82µ\82¢\82Å\82·\82©\81H', '\94E\96@\92\9f\81@\83h\83\81\83C\83\93\8dí\8f\9c', MB_YESNO or MB_ICONQUESTION) = IDYES then begin
+ GikoSys.DelBoukenCookie(BoukenComboBox.Text);
+ GikoSys.Setting.WriteBoukenSettingFile;
+ BoukenComboBox.Items.Delete(BoukenComboBox.ItemIndex);
+ if ( BoukenComboBox.Items.Count = 0 ) then begin
+ BoukenComboBox.Text := '';
+ end;
+ BoukenComboBox.OnChange(nil);
+ end
+ end else begin
+ BoukenComboBox.Text := '';
+ end;
+end;
+
+procedure TOptionDialog.BoukenComboBoxChange(Sender: TObject);
+begin
+ BoukenEdit.Text := GikoSys.GetBoukenCookie('http://*' +BoukenComboBox.Text);
+end;
+
+procedure TOptionDialog.BoukenModButtonClick(Sender: TObject);
+var
+ DomainList : TStringList;
+ i : Integer;
+ s : String;
+begin
+ if ( Length(BoukenComboBox.Text) > 0 ) then begin
+ s := BoukenComboBox.Text;
+ GikoSys.SetBoukenCookie(BoukenEdit.Text, s);
+ GikoSys.Setting.WriteBoukenSettingFile;
+ // \96`\8c¯\82Ì\8f\91\83h\83\81\83C\83\93\88ê\97\97\8eæ\93¾
+ BoukenComboBox.Text := '';
+ BoukenComboBox.Items.Clear;
+ DomainList := TStringList.Create;
+ GikoSys.GetBoukenDomain(DomainList);
+ for i := 0 to DomainList.Count - 1 do begin
+ BoukenComboBox.Items.Add( DomainList[i] ) ;
+ end;
+ DomainList.Free;
+ BoukenComboBox.ItemIndex := 0;
+ for i := 0 to BoukenComboBox.Items.Count - 1 do begin
+ if ( BoukenComboBox.Items[i] = s) then begin
+ BoukenComboBox.ItemIndex := i;
+ Break;
+ end;
+ end;
+ BoukenComboBox.OnChange(nil);
+ end;
end;
end.
OSDN Git Service
