| 1525 |
str := ZenToHan(str); |
str := ZenToHan(str); |
| 1526 |
res := StrToIntDef(str, -1); |
res := StrToIntDef(str, -1); |
| 1527 |
if (res > 0) and (res <= GikoForm.GetActiveContent.Count) then begin |
if (res > 0) and (res <= GikoForm.GetActiveContent.Count) then begin |
| 1528 |
GikoForm.BrowserMovement(IntToStr(res), GikoForm.ActiveContent); |
GikoForm.ActiveContent.Move(IntToStr(res)); |
| 1529 |
SetFocusForBrowserAction.Execute; |
SetFocusForBrowserAction.Execute; |
| 1530 |
end else if res > GikoForm.GetActiveContent.Count then begin |
end else if res > GikoForm.GetActiveContent.Count then begin |
| 1531 |
GikoForm.BrowserMovement(IntToStr(GikoForm.GetActiveContent.Count), GikoForm.ActiveContent); |
GikoForm.ActiveContent.Move(IntToStr(GikoForm.GetActiveContent.Count)); |
| 1532 |
SetFocusForBrowserAction.Execute; |
SetFocusForBrowserAction.Execute; |
| 1533 |
end; |
end; |
| 1534 |
end; |
end; |
| 1681 |
var |
var |
| 1682 |
Dlg: TToolBarSettingDialog; |
Dlg: TToolBarSettingDialog; |
| 1683 |
i: Integer; |
i: Integer; |
|
//Component: TComponent; |
|
|
ToolButton : TToolButton; |
|
| 1684 |
begin |
begin |
| 1685 |
Dlg := TToolBarSettingDialog.Create(GikoForm, GikoFormActionList); |
Dlg := TToolBarSettingDialog.Create(GikoForm, GikoFormActionList); |
| 1686 |
try |
try |
| 2352 |
limited := rc <> ID_YES; |
limited := rc <> ID_YES; |
| 2353 |
end; |
end; |
| 2354 |
body := GikoSys.GetSameIDResAnchor(No, ThreadItem, limited); |
body := GikoSys.GetSameIDResAnchor(No, ThreadItem, limited); |
| 2355 |
GikoForm.IDAnchorPopup(body); |
GikoForm.ActiveContent.IDAnchorPopup(body); |
| 2356 |
end; |
end; |
| 2357 |
// ************************************************************************* |
// ************************************************************************* |
| 2358 |
//! このレスあぼ〜ん (通常) |
//! このレスあぼ〜ん (通常) |