| 168 |
CSSBackColorCheckBox: TCheckBox; |
CSSBackColorCheckBox: TCheckBox; |
| 169 |
CSSFontButton: TButton; |
CSSFontButton: TButton; |
| 170 |
CSSBackColorButton: TButton; |
CSSBackColorButton: TButton; |
|
SkinPopupCheckBox: TCheckBox; |
|
| 171 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 172 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 173 |
procedure ApplyButtonClick(Sender: TObject); |
procedure ApplyButtonClick(Sender: TObject); |
| 278 |
CSSCheckBoxClick(Sender); |
CSSCheckBoxClick(Sender); |
| 279 |
PostTimeCheckBoxClick(Sender); |
PostTimeCheckBoxClick(Sender); |
| 280 |
|
|
| 281 |
|
if OptionTab.PageCount > GikoSys.Setting.OptionDialogTabIndex then begin |
| 282 |
|
OptionTab.ActivePageIndex := GikoSys.Setting.OptionDialogTabIndex; |
| 283 |
|
OptionTabChange( nil ); |
| 284 |
|
end; |
| 285 |
|
|
| 286 |
end; |
end; |
| 287 |
|
|
| 288 |
procedure TOptionDialog.FormDestroy(Sender: TObject); |
procedure TOptionDialog.FormDestroy(Sender: TObject); |
| 626 |
if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then |
if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then |
| 627 |
CSSListView.Items[0].Selected := True; |
CSSListView.Items[0].Selected := True; |
| 628 |
|
|
|
// スキンでもポップアップ |
|
|
SkinPopupCheckBox.Checked := GikoSys.Setting.SkinPopup; |
|
|
SkinPopupCheckBox.Enabled := (CSSListView.Selected.Data <> nil); |
|
|
|
|
| 629 |
//Mail欄表示 |
//Mail欄表示 |
| 630 |
ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail; |
ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail; |
| 631 |
//タブ追加位置 |
//タブ追加位置 |
| 726 |
//プロキシ接続HTTP1.1使用 |
//プロキシ接続HTTP1.1使用 |
| 727 |
Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked; |
Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked; |
| 728 |
|
|
| 729 |
|
GikoSys.Setting.OptionDialogTabIndex := OptionTab.TabIndex; |
| 730 |
|
|
| 731 |
GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked; |
GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked; |
| 732 |
GikoSys.Setting.ReadProxyAddress := ReadProxyAddressEdit.Text; |
GikoSys.Setting.ReadProxyAddress := ReadProxyAddressEdit.Text; |
| 733 |
GikoSys.Setting.ReadProxyPort := StrToInt(ReadPortEdit.Text); |
GikoSys.Setting.ReadProxyPort := StrToInt(ReadPortEdit.Text); |
| 803 |
GikoSys.Setting.BrowserBackColor := -1; |
GikoSys.Setting.BrowserBackColor := -1; |
| 804 |
end; |
end; |
| 805 |
|
|
|
// スキンでもポップアップ |
|
|
GikoSys.Setting.SkinPopup := SkinPopupCheckBox.Checked; |
|
|
|
|
| 806 |
//Mail欄表示 |
//Mail欄表示 |
| 807 |
GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked; |
GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked; |
| 808 |
|
|
| 900 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 901 |
begin |
begin |
| 902 |
GikoForm.TreeView.Items.BeginUpdate; |
GikoForm.TreeView.Items.BeginUpdate; |
| 903 |
|
GikoForm.FavoriteTreeView.Items.BeginUpdate; |
| 904 |
GikoForm.ListView.Items.BeginUpdate; |
GikoForm.ListView.Items.BeginUpdate; |
| 905 |
try |
try |
| 906 |
GikoForm.TreeView.Font.Name := GikoSys.Setting.CabinetFontName; |
GikoForm.TreeView.Font.Name := GikoSys.Setting.CabinetFontName; |
| 908 |
GikoForm.TreeView.Font.Color := GikoSys.Setting.CabinetFontColor; |
GikoForm.TreeView.Font.Color := GikoSys.Setting.CabinetFontColor; |
| 909 |
GikoForm.TreeView.Color := GikoSys.Setting.CabinetBackColor; |
GikoForm.TreeView.Color := GikoSys.Setting.CabinetBackColor; |
| 910 |
|
|
| 911 |
|
GikoForm.FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName; |
| 912 |
|
GikoForm.FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize; |
| 913 |
|
GikoForm.FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor; |
| 914 |
|
GikoForm.FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor; |
| 915 |
|
|
| 916 |
GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName; |
GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName; |
| 917 |
GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize; |
GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize; |
| 918 |
GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor; |
GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor; |
| 931 |
|
|
| 932 |
finally |
finally |
| 933 |
GikoForm.TreeView.Items.EndUpdate; |
GikoForm.TreeView.Items.EndUpdate; |
| 934 |
|
GikoForm.FavoriteTreeView.Items.EndUpdate; |
| 935 |
GikoForm.ListView.Items.EndUpdate; |
GikoForm.ListView.Items.EndUpdate; |
| 936 |
end; |
end; |
| 937 |
|
|
| 1345 |
Change: TItemChange); |
Change: TItemChange); |
| 1346 |
begin |
begin |
| 1347 |
|
|
|
SkinPopupCheckBox.Enabled := (Item.Data <> nil); |
|
|
|
|
| 1348 |
if OptionTab.ActivePage = CSSTabSheet then |
if OptionTab.ActivePage = CSSTabSheet then |
| 1349 |
CSSPreview; |
CSSPreview; |
| 1350 |
|
|