OSDN Git Service
(root)
/
gikonavigoeson
/
gikonavi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
スレタイの[転載禁止]と「©2ch.net」を非表示にする機能を追加
[gikonavigoeson/gikonavi.git]
/
Option.pas
diff --git
a/Option.pas
b/Option.pas
index
da1777f
..
dd70f62
100644
(file)
--- a/
Option.pas
+++ b/
Option.pas
@@
-229,6
+229,8
@@
type
UseUnicodeCB: TCheckBox;
Label27: TLabel;
DispImageCheckBox: TCheckBox;
UseUnicodeCB: TCheckBox;
Label27: TLabel;
DispImageCheckBox: TCheckBox;
+ GroupBox27: TGroupBox;
+ ThreadTitleTrimCheckBox: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ApplyButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ApplyButtonClick(Sender: TObject);
@@
-903,6
+905,8
@@
begin
//
\83
\8c
\83
X
\83
G
\83
f
\83
B
\83
^Unicode
\93
ü
\97
Í
UseUnicodeCB.Checked := Gikosys.Setting.UseUnicode;
//
\83
\8c
\83
X
\83
G
\83
f
\83
B
\83
^Unicode
\93
ü
\97
Í
UseUnicodeCB.Checked := Gikosys.Setting.UseUnicode;
+ //
\83
X
\83
\8c
\83
^
\83
C
\93
Á
\92
è
\95
¶
\8e
\9a
\97
ñ
\8f
\9c
\8b
\8e
+ ThreadTitleTrimCheckBox.Checked := GikoSys.Setting.ThreadTitleTrim;
//Be2ch
\94
F
\8f
Ø
BeUserIDEdit.Text := GikoSys.Setting.BeUserID;
//Be2ch
\94
F
\8f
Ø
BeUserIDEdit.Text := GikoSys.Setting.BeUserID;
@@
-1222,6
+1226,8
@@
begin
//
\83
\8c
\83
X
\83
G
\83
f
\83
B
\83
^Unicode
\93
ü
\97
Í
Gikosys.Setting.UseUnicode := UseUnicodeCB.Checked;
//
\83
\8c
\83
X
\83
G
\83
f
\83
B
\83
^Unicode
\93
ü
\97
Í
Gikosys.Setting.UseUnicode := UseUnicodeCB.Checked;
+ //
\83
X
\83
\8c
\83
^
\83
C
\93
Á
\92
è
\95
¶
\8e
\9a
\97
ñ
\8f
\9c
\8b
\8e
+ GikoSys.Setting.ThreadTitleTrim := ThreadTitleTrimCheckBox.Checked;
end;
end;
@@
-1300,6
+1306,9
@@
begin
end;
GikoForm.BrowserTab.OnChange(nil);
end;
end;
GikoForm.BrowserTab.OnChange(nil);
end;
+
+ //
\83
^
\83
u
\82
Ì
\83
X
\83
\8c
\83
^
\83
C
\8d
X
\90
V
+ GikoForm.UpdateThreadTitle;
end;
procedure TOptionDialog.ReadProxyCheckClick(Sender: TObject);
end;
procedure TOptionDialog.ReadProxyCheckClick(Sender: TObject);