| 370 |
TabSave: TMenuItem; |
TabSave: TMenuItem; |
| 371 |
TabOpen: TMenuItem; |
TabOpen: TMenuItem; |
| 372 |
ResRangePopupMenu: TPopupMenu; |
ResRangePopupMenu: TPopupMenu; |
| 373 |
N1001: TMenuItem; |
ResRangeHundPMenuItem: TMenuItem; |
| 374 |
N501: TMenuItem; |
ResRangeKokoPMenuItem: TMenuItem; |
| 375 |
N22: TMenuItem; |
ResRangeNewPMenuItem: TMenuItem; |
| 376 |
A14: TMenuItem; |
ResRangeAllPMenuItem: TMenuItem; |
| 377 |
BrowsBoradHeadAction1: TMenuItem; |
BrowsBoradHeadAction1: TMenuItem; |
| 378 |
ThreadRangePopupMenu: TPopupMenu; |
ThreadRangePopupMenu: TPopupMenu; |
| 379 |
A15: TMenuItem; |
A15: TMenuItem; |
| 382 |
N68: TMenuItem; |
N68: TMenuItem; |
| 383 |
S6: TMenuItem; |
S6: TMenuItem; |
| 384 |
N69: TMenuItem; |
N69: TMenuItem; |
| 385 |
S7: TMenuItem; |
ResRangeSelectPMenuItem: TMenuItem; |
| 386 |
ListColumnPopupMenu: TPopupMenu; |
ListColumnPopupMenu: TPopupMenu; |
| 387 |
N70: TMenuItem; |
N70: TMenuItem; |
| 388 |
ID1: TMenuItem; |
ID1: TMenuItem; |
| 651 |
function GetScreenCursor(): TCursor; |
function GetScreenCursor(): TCursor; |
| 652 |
//カーソルを設定する |
//カーソルを設定する |
| 653 |
procedure SetScreenCursor(Cursor : TCursor); |
procedure SetScreenCursor(Cursor : TCursor); |
| 654 |
|
//! アクションのチェック状態の初期化 |
| 655 |
|
procedure InitActionChecked(); |
| 656 |
protected |
protected |
| 657 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 658 |
procedure WndProc(var Message: TMessage); override; |
procedure WndProc(var Message: TMessage); override; |
| 1083 |
FNameCookie := ''; |
FNameCookie := ''; |
| 1084 |
FMailCookie := ''; |
FMailCookie := ''; |
| 1085 |
|
|
|
//スレ全部表示ボタンを押された状態にする |
|
|
GikoDM.AllItemAction.Checked := True; |
|
|
GikoDM.AllResAction.Checked := True; |
|
|
|
|
| 1086 |
//ブラウザサイズ変更の初期化 |
//ブラウザサイズ変更の初期化 |
| 1087 |
FBrowserSizeHeight := GikoSys.Setting.ListHeight; |
FBrowserSizeHeight := GikoSys.Setting.ListHeight; |
| 1088 |
FBrowserSizeWidth := GikoSys.Setting.ListWidth; |
FBrowserSizeWidth := GikoSys.Setting.ListWidth; |
| 1222 |
|
|
| 1223 |
//リンクバー |
//リンクバー |
| 1224 |
SetLinkBar; |
SetLinkBar; |
|
|
|
|
// レス表示範囲 |
|
|
FResRangeMenuSelect := GikoSys.ResRange; |
|
|
case GikoSys.ResRange of |
|
|
Ord( grrAll ): |
|
|
begin |
|
|
GikoDM.AllResAction.Execute; |
|
|
end; |
|
|
Ord( grrSelect ): |
|
|
begin |
|
|
SelectComboBox.Text := SelectComboBox.Items[ 1 ]; |
|
|
GikoDM.SelectResAction.Checked := True; |
|
|
end; |
|
|
else |
|
|
// ResRangeAction.Execute; |
|
|
case FResRangeMenuSelect of |
|
|
Ord( grrKoko ): GikoDM.OnlyKokoResAction.Checked := True; |
|
|
Ord( grrNew ): GikoDM.OnlyNewResAction.Checked := True; |
|
|
100: GikoDM.OnlyAHundredResAction.Checked := True; |
|
|
end; |
|
|
end; |
|
|
|
|
|
// スレッド一覧表示範囲 |
|
|
// ThreadRangeAction.Execute; |
|
|
case GikoSys.Setting.ThreadRange of |
|
|
gtrAll: |
|
|
begin |
|
|
GikoDM.AllItemAction.Checked := True; |
|
|
ViewType := gvtAll; |
|
|
end; |
|
|
gtrLog: |
|
|
begin |
|
|
GikoDM.LogItemAction.Checked := True; |
|
|
ViewType := gvtLog; |
|
|
end; |
|
|
gtrNew: |
|
|
begin |
|
|
GikoDM.NewItemAction.Checked := True; |
|
|
ViewType := gvtNew; |
|
|
end; |
|
|
end; |
|
|
|
|
|
|
|
| 1225 |
//クールバー復元はFormShowに移動した |
//クールバー復元はFormShowに移動した |
| 1226 |
|
|
| 1227 |
//ボードファイルが無い場合はメッセージ表示 |
//ボードファイルが無い場合はメッセージ表示 |
| 1242 |
//ResHint |
//ResHint |
| 1243 |
FHint := TResPopup.Create(Self); |
FHint := TResPopup.Create(Self); |
| 1244 |
|
|
| 1245 |
ListView.OnData := TListViewUtils.ListViewData; |
ListView.OnData := TListViewUtils.ListViewData; |
| 1246 |
|
|
| 1247 |
// 最後に選択されたキャビネットの復元 |
// 最後に選択されたキャビネットの復元 |
| 1248 |
CabinetVisible( False ); |
CabinetVisible( False ); |
| 1303 |
if GikoSys.Setting.AutoLogin then |
if GikoSys.Setting.AutoLogin then |
| 1304 |
GikoDM.LoginAction.Execute; |
GikoDM.LoginAction.Execute; |
| 1305 |
|
|
|
GikoDM.MuteAction.Checked := GikoSys.Setting.Mute; |
|
|
|
|
| 1306 |
GikoSys.Setting.BeLogin := GikoSys.Setting.BeAutoLogin; |
GikoSys.Setting.BeLogin := GikoSys.Setting.BeAutoLogin; |
| 1307 |
|
|
| 1308 |
//キャプションが上書きされてしまうので、ここで再設定 |
//キャプションが上書きされてしまうので、ここで再設定 |
| 1309 |
FavoriteAddToolButton.Caption := '追加...'; |
FavoriteAddToolButton.Caption := '追加...'; |
| 1310 |
AntiIndivAbonMenuItem.Caption := '個別あぼ〜ん解除'; |
AntiIndivAbonMenuItem.Caption := '個別あぼ〜ん解除'; |
| 1311 |
|
|
| 1312 |
end; |
end; |
| 1313 |
|
|
| 1481 |
//重要 これがないとツールボタンの更新がおかしくなる |
//重要 これがないとツールボタンの更新がおかしくなる |
| 1482 |
// ResetBandInfo( ListCoolBar, ListToolBar ); |
// ResetBandInfo( ListCoolBar, ListToolBar ); |
| 1483 |
FIsIgnoreResize := rtNone; |
FIsIgnoreResize := rtNone; |
| 1484 |
|
//ツールバーの更新を終えた後にやらないといけないのかも |
| 1485 |
|
//アクションのチェック状態を初期化 |
| 1486 |
|
InitActionChecked(); |
| 1487 |
|
|
|
//TabAutoLoad |
|
| 1488 |
//FormCreteから移動。 |
//FormCreteから移動。 |
| 1489 |
if GikoSys.Setting.TabAutoLoadSave then begin |
if GikoSys.Setting.TabAutoLoadSave then begin |
| 1490 |
GikoDM.TabAutoLoadAction.Execute; |
GikoDM.TabAutoLoadAction.Execute; |
| 1491 |
end; |
end; |
| 1492 |
//にちゃん語案内サポート機能 |
//にちゃん語案内サポート機能 |
| 1493 |
if GikoSys.Setting.GengoSupport then begin |
if GikoSys.Setting.GengoSupport then begin |
| 1494 |
//予定地 |
//予定地 |
| 1495 |
//Test向け |
//Test向け |
| 1496 |
end; |
end; |
| 1497 |
|
|
| 1498 |
FStartUp := false; |
FStartUp := false; |
| 1499 |
end; |
end; |
| 1500 |
end; |
end; |
| 7805 |
s := s + E.Message; |
s := s + E.Message; |
| 7806 |
MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP); |
MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP); |
| 7807 |
end; |
end; |
| 7808 |
|
// ************************************************************************* |
| 7809 |
|
//! アクションのチェック状態の初期化 FormのCreateで呼び出しても反映しない |
| 7810 |
|
// ************************************************************************* |
| 7811 |
|
procedure TGikoForm.InitActionChecked(); |
| 7812 |
|
begin |
| 7813 |
|
//ログイン状態を再設定 |
| 7814 |
|
GikoDM.LoginAction.Checked := GikoDM.LoginAction.Checked; |
| 7815 |
|
//ミュートの状態を設定 |
| 7816 |
|
GikoDM.MuteAction.Checked := GikoSys.Setting.Mute; |
| 7817 |
|
|
| 7818 |
|
//スレ全部表示ボタンを押された状態にする |
| 7819 |
|
GikoDM.AllItemAction.Checked := True; |
| 7820 |
|
GikoDM.AllResAction.Checked := True; |
| 7821 |
|
|
| 7822 |
|
// レス表示範囲 |
| 7823 |
|
FResRangeMenuSelect := GikoSys.ResRange; |
| 7824 |
|
case GikoSys.ResRange of |
| 7825 |
|
Ord( grrAll ): |
| 7826 |
|
begin |
| 7827 |
|
GikoDM.AllResAction.Execute; |
| 7828 |
|
end; |
| 7829 |
|
Ord( grrSelect ): |
| 7830 |
|
begin |
| 7831 |
|
SelectComboBox.Text := SelectComboBox.Items[ 1 ]; |
| 7832 |
|
GikoDM.SelectResAction.Checked := True; |
| 7833 |
|
end; |
| 7834 |
|
else |
| 7835 |
|
case FResRangeMenuSelect of |
| 7836 |
|
Ord( grrKoko ): GikoDM.OnlyKokoResAction.Checked := True; |
| 7837 |
|
Ord( grrNew ): GikoDM.OnlyNewResAction.Checked := True; |
| 7838 |
|
100: GikoDM.OnlyAHundredResAction.Checked := True; |
| 7839 |
|
end; |
| 7840 |
|
end; |
| 7841 |
|
|
| 7842 |
|
// スレッド一覧表示範囲 |
| 7843 |
|
case GikoSys.Setting.ThreadRange of |
| 7844 |
|
gtrAll: |
| 7845 |
|
begin |
| 7846 |
|
GikoDM.AllItemAction.Checked := True; |
| 7847 |
|
ViewType := gvtAll; |
| 7848 |
|
end; |
| 7849 |
|
gtrLog: |
| 7850 |
|
begin |
| 7851 |
|
GikoDM.LogItemAction.Checked := True; |
| 7852 |
|
ViewType := gvtLog; |
| 7853 |
|
end; |
| 7854 |
|
gtrNew: |
| 7855 |
|
begin |
| 7856 |
|
GikoDM.NewItemAction.Checked := True; |
| 7857 |
|
ViewType := gvtNew; |
| 7858 |
|
end; |
| 7859 |
|
end; |
| 7860 |
|
end; |
| 7861 |
|
|
| 7862 |
initialization |
initialization |
| 7863 |
OleInitialize(nil); |
OleInitialize(nil); |