| 1142 |
end; |
end; |
| 1143 |
|
|
| 1144 |
//キー設定読み込み |
//キー設定読み込み |
| 1145 |
GikoSys.LoadKeySetting(GikoDM.GikoFormActionList); |
GikoSys.LoadKeySetting(GikoDM.GikoFormActionList, GikoSys.GetMainKeyFileName); |
| 1146 |
|
|
| 1147 |
//最終巡回時間 |
//最終巡回時間 |
| 1148 |
// FLastRoundTime := 0; |
// FLastRoundTime := 0; |
| 3709 |
AddRoundNameMenu(ListReservPMenu); |
AddRoundNameMenu(ListReservPMenu); |
| 3710 |
end; |
end; |
| 3711 |
|
|
|
|
|
|
//ActiveListがTBoardかTCategoryでスレ一覧で1つ以上選択していると有効になるActionde共通 |
|
| 3712 |
procedure TGikoForm.TreePopupMenuPopup(Sender: TObject); |
procedure TGikoForm.TreePopupMenuPopup(Sender: TObject); |
| 3713 |
begin |
begin |
| 3714 |
FClickNode := TreeView.Selected; |
FClickNode := TreeView.Selected; |
| 5631 |
var |
var |
| 5632 |
i : Integer; |
i : Integer; |
| 5633 |
begin |
begin |
| 5634 |
|
Result := nil; |
| 5635 |
for i := bar.ButtonCount - 1 downto 0 do begin |
for i := bar.ButtonCount - 1 downto 0 do begin |
| 5636 |
if bar.Buttons[ i ].Action = action then begin |
if bar.Buttons[ i ].Action = action then begin |
| 5637 |
Result := bar.Buttons[ i ]; |
Result := bar.Buttons[ i ]; |
| 5638 |
Exit; |
Break; |
| 5639 |
end; |
end; |
| 5640 |
end; |
end; |
|
|
|
|
Result := nil; |
|
|
|
|
| 5641 |
end; |
end; |
| 5642 |
|
|
| 5643 |
procedure TGikoForm.SetToolBarPopup; |
procedure TGikoForm.SetToolBarPopup; |
| 5827 |
end; |
end; |
| 5828 |
|
|
| 5829 |
|
|
|
// 全てのレスを表示 |
|
| 5830 |
procedure TGikoForm.SelectComboBoxSplitterMouseMove(Sender: TObject; |
procedure TGikoForm.SelectComboBoxSplitterMouseMove(Sender: TObject; |
| 5831 |
Shift: TShiftState; X, Y: Integer); |
Shift: TShiftState; X, Y: Integer); |
| 5832 |
var |
var |
| 5901 |
|
|
| 5902 |
end; |
end; |
| 5903 |
|
|
|
//板名検索 |
|
| 5904 |
procedure TGikoForm.FavoriteMoveTo( SenderNode, SourceNode: TTreeNode ); |
procedure TGikoForm.FavoriteMoveTo( SenderNode, SourceNode: TTreeNode ); |
| 5905 |
begin |
begin |
| 5906 |
|
|
| 6429 |
end; |
end; |
| 6430 |
Body := CustomStringReplace(Body, '</a>', '',true); |
Body := CustomStringReplace(Body, '</a>', '',true); |
| 6431 |
|
|
| 6432 |
Body := GikoSys.DeleteLink(Body); |
Body := HTMLCreater.DeleteLink(Body); |
| 6433 |
if ReplaceTag then begin |
if ReplaceTag then begin |
| 6434 |
Body := CustomStringReplace(Body, '<', '<'); |
Body := CustomStringReplace(Body, '<', '<'); |
| 6435 |
Body := CustomStringReplace(Body, '>', '>'); |
Body := CustomStringReplace(Body, '>', '>'); |