| 168 |
CSSBackColorCheckBox: TCheckBox; |
CSSBackColorCheckBox: TCheckBox; |
| 169 |
CSSFontButton: TButton; |
CSSFontButton: TButton; |
| 170 |
CSSBackColorButton: TButton; |
CSSBackColorButton: TButton; |
| 171 |
|
SkinPopupCheckBox: TCheckBox; |
| 172 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 173 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 174 |
procedure ApplyButtonClick(Sender: TObject); |
procedure ApplyButtonClick(Sender: TObject); |
| 259 |
|
|
| 260 |
procedure TOptionDialog.FormCreate(Sender: TObject); |
procedure TOptionDialog.FormCreate(Sender: TObject); |
| 261 |
begin |
begin |
| 262 |
CSSBrowser.Navigate('about:blank'); |
|
| 263 |
|
CSSBrowser.Navigate('about:blank'); |
| 264 |
FClose := True; |
FClose := True; |
| 265 |
|
|
| 266 |
OptionTab.ActivePage := ConnectSheet; |
OptionTab.ActivePage := ConnectSheet; |
| 279 |
CSSCheckBoxClick(Sender); |
CSSCheckBoxClick(Sender); |
| 280 |
PostTimeCheckBoxClick(Sender); |
PostTimeCheckBoxClick(Sender); |
| 281 |
|
|
|
|
|
| 282 |
end; |
end; |
| 283 |
|
|
| 284 |
procedure TOptionDialog.FormDestroy(Sender: TObject); |
procedure TOptionDialog.FormDestroy(Sender: TObject); |
| 622 |
if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then |
if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then |
| 623 |
CSSListView.Items[0].Selected := True; |
CSSListView.Items[0].Selected := True; |
| 624 |
|
|
| 625 |
|
// スキンでもポップアップ |
| 626 |
|
SkinPopupCheckBox.Checked := GikoSys.Setting.SkinPopup; |
| 627 |
|
SkinPopupCheckBox.Enabled := (CSSListView.Selected.Data <> nil); |
| 628 |
|
|
| 629 |
//Mail欄表示 |
//Mail欄表示 |
| 630 |
ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail; |
ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail; |
| 631 |
//タブ追加位置 |
//タブ追加位置 |
| 801 |
GikoSys.Setting.BrowserBackColor := -1; |
GikoSys.Setting.BrowserBackColor := -1; |
| 802 |
end; |
end; |
| 803 |
|
|
| 804 |
|
// スキンでもポップアップ |
| 805 |
|
GikoSys.Setting.SkinPopup := SkinPopupCheckBox.Checked; |
| 806 |
|
|
| 807 |
//Mail欄表示 |
//Mail欄表示 |
| 808 |
GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked; |
GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked; |
| 809 |
|
|
| 1234 |
ThreadItem := TThreadItem.Create; |
ThreadItem := TThreadItem.Create; |
| 1235 |
|
|
| 1236 |
try |
try |
| 1237 |
ThreadItem.AllResCount := 2; |
ThreadItem.ParentBoard := nil; |
| 1238 |
|
ThreadItem.AllResCount := High( Res ); |
| 1239 |
ThreadItem.NewResCount := 1; |
ThreadItem.NewResCount := 1; |
| 1240 |
ThreadItem.NewReceive := 2; |
ThreadItem.NewReceive := 2; |
| 1241 |
|
|
| 1328 |
Change: TItemChange); |
Change: TItemChange); |
| 1329 |
begin |
begin |
| 1330 |
|
|
| 1331 |
if OptionTab.ActivePage <> CSSTabSheet then |
SkinPopupCheckBox.Enabled := (Item.Data <> nil); |
|
exit; |
|
| 1332 |
|
|
| 1333 |
CSSPreview; |
if OptionTab.ActivePage = CSSTabSheet then |
| 1334 |
|
CSSPreview; |
| 1335 |
|
|
| 1336 |
end; |
end; |
| 1337 |
|
|