| 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; |
IndividualAbon, Dialogs; |
| 23 |
|
|
| 24 |
type |
type |
| 25 |
TGikoTreeType = (gttNone, gtt2ch, gttHistory); |
TGikoTreeType = (gttNone, gtt2ch, gttHistory); |
| 470 |
N51: TMenuItem; |
N51: TMenuItem; |
| 471 |
N52: TMenuItem; |
N52: TMenuItem; |
| 472 |
N53: TMenuItem; |
N53: TMenuItem; |
| 473 |
|
SearchBoardName: TMenuItem; |
| 474 |
|
N55: TMenuItem; |
| 475 |
|
TreeSelectSearchBoardName: TAction; |
| 476 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 477 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 478 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 738 |
procedure SelectComboBoxEnter(Sender: TObject); |
procedure SelectComboBoxEnter(Sender: TObject); |
| 739 |
procedure AntiIndividualAbonClick(Sender: TObject); |
procedure AntiIndividualAbonClick(Sender: TObject); |
| 740 |
procedure N51Click(Sender: TObject); |
procedure N51Click(Sender: TObject); |
| 741 |
|
procedure TreeSelectSearchBoardNameExecute(Sender: TObject); |
| 742 |
private |
private |
| 743 |
{ Private 宣言 } |
{ Private 宣言 } |
| 744 |
|
|
| 3973 |
Editor: TEditorForm; |
Editor: TEditorForm; |
| 3974 |
Item: TThreadItem; |
Item: TThreadItem; |
| 3975 |
msg: string; |
msg: string; |
|
//buf: Integer; |
|
| 3976 |
begin |
begin |
| 3977 |
Item := GetActiveContent; |
Item := GetActiveContent; |
| 3978 |
if Item = nil then Exit; |
if Item = nil then Exit; |
| 7207 |
begin |
begin |
| 7208 |
N42Click(Sender); |
N42Click(Sender); |
| 7209 |
end; |
end; |
| 7210 |
|
//板名検索 |
| 7211 |
|
procedure TGikoForm.TreeSelectSearchBoardNameExecute(Sender: TObject); |
| 7212 |
|
var |
| 7213 |
|
s : String; |
| 7214 |
|
msg : String; |
| 7215 |
|
CurItem : TTreeNode; |
| 7216 |
|
next : boolean; |
| 7217 |
|
position : Integer; |
| 7218 |
|
begin |
| 7219 |
|
if InputQuery('板名検索','板名の入力',s) then begin |
| 7220 |
|
next := true; |
| 7221 |
|
while next do begin |
| 7222 |
|
if TreeView.Selected = nil then |
| 7223 |
|
CurItem := TreeView.Items.GetFirstNode |
| 7224 |
|
else begin |
| 7225 |
|
CurItem := TreeView.Selected.GetNext; |
| 7226 |
|
if CurItem = nil then |
| 7227 |
|
CurItem := TreeView.Items.GetFirstNode; |
| 7228 |
|
end; |
| 7229 |
|
while CurItem <> nil do begin |
| 7230 |
|
if (CurItem.ImageIndex <> 2) and (AnsiPos(s,CurItem.Text) <> 0) then begin |
| 7231 |
|
break; |
| 7232 |
|
end; |
| 7233 |
|
CurItem := CurItem.GetNext; |
| 7234 |
|
end; |
| 7235 |
|
try |
| 7236 |
|
if CurItem = nil then begin |
| 7237 |
|
msg := '先頭に戻りますか?'; |
| 7238 |
|
if MsgBox(Handle, msg, '', MB_YESNO or MB_ICONEXCLAMATION) = mrYes then begin |
| 7239 |
|
CurItem := TreeView.Items.GetFirstNode; |
| 7240 |
|
end else begin |
| 7241 |
|
Exit; |
| 7242 |
|
end; |
| 7243 |
|
TreeView.Select(CurItem); |
| 7244 |
|
TreeView.SetFocus; |
| 7245 |
|
end else begin |
| 7246 |
|
TreeView.Select(CurItem); |
| 7247 |
|
TreeView.SetFocus; |
| 7248 |
|
msg := '次に行きますか?'; |
| 7249 |
|
if MsgBox(Handle, msg, '', MB_YESNO or MB_ICONEXCLAMATION) = mrYes then begin |
| 7250 |
|
next := true; |
| 7251 |
|
end else begin |
| 7252 |
|
next := false; |
| 7253 |
|
end; |
| 7254 |
|
end; |
| 7255 |
|
|
| 7256 |
|
except |
| 7257 |
|
Exit; |
| 7258 |
|
end; |
| 7259 |
|
end; |
| 7260 |
|
end; |
| 7261 |
|
end; |
| 7262 |
|
|
| 7263 |
initialization |
initialization |
| 7264 |
OleInitialize(nil); |
OleInitialize(nil); |