SHDocVw_TLB,
MSHTML_TLB,
{$IFEND}
- BoardGroup;
+ BoardGroup, BrowserRecord;
type
TOptionDialog = class(TForm)
FontDialog: TFontDialog;
ColorDialog: TColorDialog;
OpenDialog: TOpenDialog;
- 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;
- 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;
- TabSheet1: TTabSheet;
- PopupPositionRadioGroup: TRadioGroup;
- 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;
- Tora3URLLabel: TLabel;
- Label12: TLabel;
- 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;
- GroupBox11: TGroupBox;
- SpamFilterAlgorithmComboBox: TComboBox;
- TabSheet4: TTabSheet;
- GroupBox13: TGroupBox;
- UseUndecidedCheckBox: TCheckBox;
+ IgnoreLimitResCountCheckBox: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ApplyButtonClick(Sender: TObject);
Change: TItemChange);
procedure AddURLButtonClick(Sender: TObject);
procedure RemoveURLButtonClick(Sender: TObject);
- procedure OddResNumCheckBoxClick(Sender: TObject);
- procedure ResRangeHoldCheckBoxClick(Sender: TObject);
- procedure CroutOptionClick(Sender: TObject);
+ procedure OddResNumCheckBoxClick(Sender: TObject);
+ procedure ResRangeHoldCheckBoxClick(Sender: TObject);
+ procedure CroutOptionClick(Sender: TObject);
+ procedure MaxRecordCountEditExit(Sender: TObject);
private
{ Private \90é\8c¾ }
FClose: 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¾ }
end;
implementation
uses
- Giko, Editor, Setting, ActnList, KuroutSetting;
+ Giko, Editor, Setting, ActnList, KuroutSetting, Math, HTMLCreate;
const
FONT_TEXT: string = '%s %d pt';
DEFAULT_TABFONT_NAME: string = '\82l\82r \82o\83S\83V\83b\83N';
DEFAULT_TABFONT_SIZE: Integer = 9;
URL_TORA3: WideString = 'http://2ch.tora3.net/';
+ DEFAULT_CSS_FILENAME = 'default.css';
{$R *.DFM}
+ '\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);
+ 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';
ReadPortEditExit(Sender);
WritePortEditExit(Sender);
AddressHistoryCountEditExit(Sender);
+ MaxRecordCountEditExit(Sender);
PreviewWaitEditExit(Sender);
if not CheckFolder then begin
FClose := False;
Exit;
end;
- SetAbonpropertys;
+ SetAbonpropertys;
SaveSetting;
SettingApply;
ReadPortEditExit(Sender);
WritePortEditExit(Sender);
AddressHistoryCountEditExit(Sender);
+ MaxRecordCountEditExit(Sender);
PreviewWaitEditExit(Sender);
if not CheckFolder then begin
FClose := False;
Exit;
end;
- SetAbonpropertys;
+ SetAbonpropertys;
SaveSetting;
SettingApply;
FClose := False;
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
//\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¦
else
DatOchiSortCombo.ItemIndex := 0;
end;
-
- //\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;
+ 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;
//TabAutoLoad
TabLoadSave.Checked := Gikosys.Setting.TabAutoLoadSave;
UseUndecidedCheckBox.Checked := GikoSys.Setting.UseUndecided;
+
+ //Be2ch\94F\8fØ
+ BeUserIDEdit.Text := GikoSys.Setting.BeUserID;
+ BeCodeEdit.Text := GikoSys.Setting.BeCode;
+ 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;
end;
procedure TOptionDialog.SaveSetting;
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;
//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
// \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 := 100;
- 2: GikoSys.Setting.ResRange := Ord( grrKoko );
- 3: GikoSys.Setting.ResRange := Ord( grrNew );
+ 0: GikoSys.Setting.ResRange := Ord( grrAll );
+ 1: GikoSys.Setting.ResRange := 100;
+ 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¦
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
//Tab\8e©\93®\95Û\91¶
GikoSys.Setting.TabAutoLoadSave := TabLoadSave.Checked;
GikoSys.Setting.UseUndecided := UseUndecidedCheckBox.Checked;
+ //Be2ch
+ GikoSys.Setting.BeUserID := BeUserIDEdit.Text;
+ GikoSys.Setting.BeCode := 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;
end;
procedure TOptionDialog.SettingApply;
GikoForm.TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
GikoForm.TreeView.Color := GikoSys.Setting.CabinetBackColor;
- {GikoForm.TreeView.Font.Style := [];
- if GikoSys.Setting.CabinetFontBold then
- GikoForm.TreeView.Font.Style := [fsBold];
- if GikoSys.Setting.CabinetFontItalic then
- GikoForm.TreeView.Font.Style := GikoForm.TreeView.Font.Style + [fsItalic];
- }
- {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.Color := GikoSys.Setting.ListBackColor;
GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
- GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
- GikoForm.OddColor := GikoSys.Setting.OddColor;
+ 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;
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;
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
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);
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;
+
end.