Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.559 by h677, Sat Dec 10 08:07:50 2005 UTC revision 1.560 by h677, Sat Dec 10 11:01:53 2005 UTC
# Line 1142  begin Line 1142  begin
1142          end;          end;
1143    
1144          //キー設定読み込み          //キー設定読み込み
1145          GikoSys.LoadKeySetting(GikoDM.GikoFormActionList);          GikoSys.LoadKeySetting(GikoDM.GikoFormActionList, GikoSys.GetMainKeyFileName);
1146    
1147          //最終巡回時間          //最終巡回時間
1148  //      FLastRoundTime := 0;  //      FLastRoundTime := 0;
# Line 3709  begin Line 3709  begin
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;
# Line 5633  function TGikoForm.FindToolBarButton( ba Line 5631  function TGikoForm.FindToolBarButton( ba
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;
# Line 5832  begin Line 5827  begin
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
# Line 5907  begin Line 5901  begin
5901    
5902  end;  end;
5903    
 //板名検索  
5904  procedure TGikoForm.FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );  procedure TGikoForm.FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );
5905  begin  begin
5906    
# Line 6436  begin Line 6429  begin
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, '&lt;', '<');                                  Body := CustomStringReplace(Body, '&lt;', '<');
6435                                  Body := CustomStringReplace(Body, '&gt;', '>');                                  Body := CustomStringReplace(Body, '&gt;', '>');

Legend:
Removed from v.1.559  
changed lines
  Added in v.1.560

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