| 18 |
GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload, |
GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload, |
| 19 |
Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd, |
Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd, |
| 20 |
FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan, |
FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan, |
| 21 |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil; |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil, |
| 22 |
|
IndividualAbon; |
| 23 |
|
|
| 24 |
type |
type |
| 25 |
TGikoTreeType = (gttNone, gtt2ch, gttHistory); |
TGikoTreeType = (gttNone, gtt2ch, gttHistory); |
| 460 |
GoFowardAction: TAction; |
GoFowardAction: TAction; |
| 461 |
GoBackAction: TAction; |
GoBackAction: TAction; |
| 462 |
SelectComboBoxSplitter: TImage; |
SelectComboBoxSplitter: TImage; |
| 463 |
|
IndividualAbon1: TMenuItem; |
| 464 |
|
N41: TMenuItem; |
| 465 |
|
IndividualAbon2: TMenuItem; |
| 466 |
|
N42: TMenuItem; |
| 467 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 468 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 469 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 723 |
procedure SelectComboBoxSplitterMouseUp(Sender: TObject; |
procedure SelectComboBoxSplitterMouseUp(Sender: TObject; |
| 724 |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 725 |
procedure StatusBarResize(Sender: TObject); |
procedure StatusBarResize(Sender: TObject); |
| 726 |
|
procedure IndividualAbon1Click(Sender: TObject); |
| 727 |
|
procedure IndividualAbon2Click(Sender: TObject); |
| 728 |
|
procedure N42Click(Sender: TObject); |
| 729 |
private |
private |
| 730 |
{ Private 宣言 } |
{ Private 宣言 } |
| 731 |
|
|
| 6929 |
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin |
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin |
| 6930 |
MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
| 6931 |
end else begin |
end else begin |
| 6932 |
//ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。 |
ThreadItem := GetActiveContent; |
| 6933 |
ThreadItem := GetActiveContent; |
if ThreadItem <> nil then |
|
if ThreadItem <> nil then |
|
| 6934 |
SetContent( ThreadItem ); |
SetContent( ThreadItem ); |
| 6935 |
end; |
end; |
| 6936 |
|
|
| 6948 |
StatusBar.Panels.Items[2].Text := s; |
StatusBar.Panels.Items[2].Text := s; |
| 6949 |
StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100); |
StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100); |
| 6950 |
StatusBarResize(Sender); |
StatusBarResize(Sender); |
|
//ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。 |
|
| 6951 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 6952 |
if ThreadItem <> nil then |
if ThreadItem <> nil then |
| 6953 |
SetContent( ThreadItem ); |
SetContent( ThreadItem ); |
| 6963 |
if GikoSys.FAbon.GoBack =false then begin |
if GikoSys.FAbon.GoBack =false then begin |
| 6964 |
MsgBox(Handle, '一つ後ろのNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
MsgBox(Handle, '一つ後ろのNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
| 6965 |
end else begin |
end else begin |
|
//ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。 |
|
| 6966 |
s := GikoSys.FAbon.NGwordname; |
s := GikoSys.FAbon.NGwordname; |
| 6967 |
StatusBar.Panels.Items[2].Text := s; |
StatusBar.Panels.Items[2].Text := s; |
| 6968 |
StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100); |
StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100); |
| 7054 |
StatusBar.Panels[0].Width - |
StatusBar.Panels[0].Width - |
| 7055 |
StatusBar.Panels[2].Width; |
StatusBar.Panels[2].Width; |
| 7056 |
end; |
end; |
| 7057 |
|
//個別あぼーん「通常」 |
| 7058 |
|
procedure TGikoForm.IndividualAbon1Click(Sender: TObject); |
| 7059 |
|
var |
| 7060 |
|
ThreadItem : TThreadItem; |
| 7061 |
|
begin |
| 7062 |
|
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag,1); |
| 7063 |
|
ThreadItem := GetActiveContent; |
| 7064 |
|
if ThreadItem <> nil then |
| 7065 |
|
SetContent( ThreadItem ); |
| 7066 |
|
end; |
| 7067 |
|
//個別あぼーん「透明」 |
| 7068 |
|
procedure TGikoForm.IndividualAbon2Click(Sender: TObject); |
| 7069 |
|
var |
| 7070 |
|
ThreadItem : TThreadItem; |
| 7071 |
|
begin |
| 7072 |
|
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag,0); |
| 7073 |
|
ThreadItem := GetActiveContent; |
| 7074 |
|
if ThreadItem <> nil then |
| 7075 |
|
SetContent( ThreadItem ); |
| 7076 |
|
end; |
| 7077 |
|
//個別あぼーん解除 |
| 7078 |
|
procedure TGikoForm.N42Click(Sender: TObject); |
| 7079 |
|
var |
| 7080 |
|
IndividualForm :TIndividualAbonForm; |
| 7081 |
|
ThreadItem : TThreadItem; |
| 7082 |
|
i : Integer; |
| 7083 |
|
msg : String; |
| 7084 |
|
begin |
| 7085 |
|
try |
| 7086 |
|
IndividualForm := TIndividualAbonForm.Create(Self); |
| 7087 |
|
if GikoSys.FAbon.GetAbonResCount <> 0 then begin |
| 7088 |
|
for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin |
| 7089 |
|
IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i)); |
| 7090 |
|
end; |
| 7091 |
|
if IndividualForm.ShowModal = mrOK then begin |
| 7092 |
|
GikoSys.FAbon.DeleteIndividualAbon(IndividualForm.ResNumber); |
| 7093 |
|
end; |
| 7094 |
|
ThreadItem := GetActiveContent; |
| 7095 |
|
if ThreadItem <> nil then |
| 7096 |
|
SetContent( ThreadItem ); |
| 7097 |
|
end else begin |
| 7098 |
|
msg := 'このスレッドでは個別あぼーんを行ってません'; |
| 7099 |
|
MsgBox(Handle, msg, 'メッセージ', MB_OK); |
| 7100 |
|
end; |
| 7101 |
|
finally |
| 7102 |
|
IndividualForm.Free; |
| 7103 |
|
end; |
| 7104 |
|
end; |
| 7105 |
|
|
| 7106 |
initialization |
initialization |
| 7107 |
OleInitialize(nil); |
OleInitialize(nil); |