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.175 by h677, Tue Dec 9 14:08:22 2003 UTC revision 1.176 by h677, Tue Dec 9 19:26:51 2003 UTC
# Line 501  type Line 501  type
501                  ToolButton20: TToolButton;                  ToolButton20: TToolButton;
502                  AHundredResButton: TToolButton;                  AHundredResButton: TToolButton;
503                  N60: TMenuItem;                  N60: TMenuItem;
                 N61: TMenuItem;  
504                  ExportFavoriteFileAction1: TMenuItem;                  ExportFavoriteFileAction1: TMenuItem;
505                  ExportFavoriteFile: TFileSaveAs;                  ExportFavoriteFile: TFileSaveAs;
506                  ToolButton21: TToolButton;                  ToolButton21: TToolButton;
# Line 517  type Line 516  type
516      N20: TMenuItem;      N20: TMenuItem;
517      N24: TMenuItem;      N24: TMenuItem;
518      N62: TMenuItem;      N62: TMenuItem;
519      N63: TMenuItem;      N61: TMenuItem;
     N441: TMenuItem;  
520                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
521                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
522                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 824  type Line 822  type
822                  procedure UpBoardActionUpdate(Sender: TObject);                  procedure UpBoardActionUpdate(Sender: TObject);
823      procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;      procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
824        var Handled: Boolean);        var Handled: Boolean);
     procedure N441Click(Sender: TObject);  
825          private          private
826                  { Private 宣言 }                  { Private 宣言 }
827    
# Line 1118  begin Line 1115  begin
1115          //手のカーソル          //手のカーソル
1116          Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');          Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
1117    
         //巡回データ読み込み  
         RoundList := TRoundList.Create;  
         RoundList.LoadRoundFile;  
1118    
1119          //アドレス履歴読み込み          //アドレス履歴読み込み
1120          AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);          AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
# Line 1129  begin Line 1123  begin
1123          InitializeBoardPlugIns;          InitializeBoardPlugIns;
1124    
1125          EnabledCloseButton := True;          EnabledCloseButton := True;
1126    
1127    
1128            //巡回データ読み込み
1129            RoundList := TRoundList.Create;
1130            RoundList.LoadRoundBoardFile;
1131    
1132          // ボードファイル読込(ReadFavorite より先に行うこと)          // ボードファイル読込(ReadFavorite より先に行うこと)
1133          GikoSys.ReadBoardFile;          GikoSys.ReadBoardFile;
1134  //      SetBoardTreeNode;                                                                               //ツリーにボード追加  
1135            RoundList.LoadRoundThreadFile;
1136    
1137    
1138    
1139        //  SetBoardTreeNode;                                                                               //ツリーにボード追加
1140          // メニューに追加          // メニューに追加
1141          for i := Length( BBSs ) - 1 downto 0 do begin          for i := Length( BBSs ) - 1 downto 0 do begin
1142                  try                  try
# Line 1149  begin Line 1154  begin
1154                  end;                  end;
1155          end;          end;
1156    
1157    
1158          // ヒストリリスト(LoadHistory よりも先に行うこと)          // ヒストリリスト(LoadHistory よりも先に行うこと)
1159          FHistoryList := TList.Create;          FHistoryList := TList.Create;
1160    
# Line 8705  begin Line 8711  begin
8711    
8712  end;  end;
8713    
 procedure TGikoForm.N441Click(Sender: TObject);  
 begin  
         RoundList.ConvertRoundFile;  
 end;  
   
8714  initialization  initialization
8715                                  OleInitialize(nil);                                  OleInitialize(nil);
8716  finalization  finalization

Legend:
Removed from v.1.175  
changed lines
  Added in v.1.176

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