| 175 |
RemoveURLButton: TButton; |
RemoveURLButton: TButton; |
| 176 |
GroupBox15: TGroupBox; |
GroupBox15: TGroupBox; |
| 177 |
ShowDialogForEndCheckBox: TCheckBox; |
ShowDialogForEndCheckBox: TCheckBox; |
| 178 |
|
OddResNumCheckBox: TCheckBox; |
| 179 |
|
OddResNumColorBox: TColorBox; |
| 180 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 181 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 182 |
procedure ApplyButtonClick(Sender: TObject); |
procedure ApplyButtonClick(Sender: TObject); |
| 226 |
Change: TItemChange); |
Change: TItemChange); |
| 227 |
procedure AddURLButtonClick(Sender: TObject); |
procedure AddURLButtonClick(Sender: TObject); |
| 228 |
procedure RemoveURLButtonClick(Sender: TObject); |
procedure RemoveURLButtonClick(Sender: TObject); |
| 229 |
|
procedure OddResNumCheckBoxClick(Sender: TObject); |
| 230 |
private |
private |
| 231 |
{ Private 宣言 } |
{ Private 宣言 } |
| 232 |
FClose: Boolean; |
FClose: Boolean; |
| 287 |
lblSFont.Caption := '★重要★'#13#10#13#10 |
lblSFont.Caption := '★重要★'#13#10#13#10 |
| 288 |
+ 'スレッド表示エリアのフォント変更は、'#13#10 |
+ 'スレッド表示エリアのフォント変更は、'#13#10 |
| 289 |
+ '「CSS とスキン」タブで設定出来ます'; |
+ '「CSS とスキン」タブで設定出来ます'; |
| 290 |
CSSCheckBoxClick(Sender); |
|
| 291 |
|
|
| 292 |
|
CSSCheckBoxClick(Sender); |
| 293 |
PostTimeCheckBoxClick(Sender); |
PostTimeCheckBoxClick(Sender); |
| 294 |
|
|
| 295 |
if OptionTab.PageCount > GikoSys.Setting.OptionDialogTabIndex then begin |
if OptionTab.PageCount > GikoSys.Setting.OptionDialogTabIndex then begin |
| 548 |
ListMemo.Font.Size := GikoSys.Setting.ListFontSize; |
ListMemo.Font.Size := GikoSys.Setting.ListFontSize; |
| 549 |
ListMemo.Font.Color := GikoSys.Setting.ListFontColor; |
ListMemo.Font.Color := GikoSys.Setting.ListFontColor; |
| 550 |
ListMemo.Color := GikoSys.Setting.ListBackColor; |
ListMemo.Color := GikoSys.Setting.ListBackColor; |
| 551 |
|
//レス数増減スレ強調表示チェックボックス&カラーダイアログ |
| 552 |
|
OddResNumCheckBox.Checked := GikoSys.Setting.UseOddColorOddResNum; |
| 553 |
|
OddResNumColorBox.Selected := GikoSys.Setting.OddColor; |
| 554 |
|
OddResNumColorBox.Enabled := OddResNumCheckBox.Checked; |
| 555 |
|
|
| 556 |
//ブラウザポップアップフォント |
//ブラウザポップアップフォント |
| 557 |
HintMemo.Font.Name := GikoSys.Setting.HintFontName; |
HintMemo.Font.Name := GikoSys.Setting.HintFontName; |
| 558 |
HintMemo.Font.Size := GikoSys.Setting.HintFontSize; |
HintMemo.Font.Size := GikoSys.Setting.HintFontSize; |
| 780 |
GikoSys.Setting.ListFontSize := ListMemo.Font.Size; |
GikoSys.Setting.ListFontSize := ListMemo.Font.Size; |
| 781 |
GikoSys.Setting.ListFontColor := ListMemo.Font.Color; |
GikoSys.Setting.ListFontColor := ListMemo.Font.Color; |
| 782 |
GikoSys.Setting.ListBackColor := ListMemo.Color; |
GikoSys.Setting.ListBackColor := ListMemo.Color; |
| 783 |
|
GikoSys.Setting.UseOddColorOddResNum := OddResNumCheckBox.Checked; |
| 784 |
|
GikoSys.Setting.OddColor := OddResNumColorBox.Selected; |
| 785 |
|
|
| 786 |
GikoSys.Setting.HintFontName := HintMemo.Font.Name; |
GikoSys.Setting.HintFontName := HintMemo.Font.Name; |
| 787 |
GikoSys.Setting.HintFontSize := HintMemo.Font.Size; |
GikoSys.Setting.HintFontSize := HintMemo.Font.Size; |
| 959 |
GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName; |
GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName; |
| 960 |
GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize; |
GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize; |
| 961 |
GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor; |
GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor; |
| 962 |
GikoForm.ListView.Color := GikoSys.Setting.ListBackColor; |
//GikoForm.ListView.Color := GikoSys.Setting.ListBackColor; |
| 963 |
|
GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor; |
| 964 |
|
GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum; |
| 965 |
|
GikoForm.OddColor := GikoSys.Setting.OddColor; |
| 966 |
|
|
| 967 |
GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName; |
GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName; |
| 968 |
GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize; |
GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize; |
| 1406 |
BoardURLComboBox.DeleteSelected; |
BoardURLComboBox.DeleteSelected; |
| 1407 |
end; |
end; |
| 1408 |
|
|
| 1409 |
|
procedure TOptionDialog.OddResNumCheckBoxClick(Sender: TObject); |
| 1410 |
|
begin |
| 1411 |
|
OddResNumColorBox.Enabled := OddResNumCheckBox.Checked; |
| 1412 |
|
end; |
| 1413 |
|
|
| 1414 |
end. |
end. |
| 1415 |
|
|