Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.14 by h677, Sun Nov 27 15:51:34 2005 UTC revision 1.15 by h677, Sun Nov 27 16:40:04 2005 UTC
# Line 1525  begin Line 1525  begin
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;
# Line 1681  procedure TGikoDM.ToolBarSettingActionEx Line 1681  procedure TGikoDM.ToolBarSettingActionEx
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
# Line 2354  begin Line 2352  begin
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  //! このレスあぼ〜ん (通常)  //! このレスあぼ〜ん (通常)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26