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.555 by h677, Sun Dec 4 08:54:15 2005 UTC revision 1.556 by h677, Tue Dec 6 14:09:23 2005 UTC
# Line 2268  var Line 2268  var
2268          boardPlugIn : TBoardPlugIn;          boardPlugIn : TBoardPlugIn;
2269          i: Integer;          i: Integer;
2270          browserRec      : TBrowserRecord;          browserRec      : TBrowserRecord;
2271            Res : TResRec;
2272  begin  begin
2273          try          try
2274                  if Item.DownType = gdtBoard then                  if Item.DownType = gdtBoard then
# Line 2298  begin Line 2299  begin
2299                                  if (Item.ThreadItem.ParentBoard.IsBoardPlugInAvailable) and (Item.ThreadItem.Title = '') then begin                                  if (Item.ThreadItem.ParentBoard.IsBoardPlugInAvailable) and (Item.ThreadItem.Title = '') then begin
2300                                          //boardPlugIn           := Item.ThreadItem.BoardPlugIn;                                          //boardPlugIn           := Item.ThreadItem.BoardPlugIn;
2301                                          boardPlugIn             := Item.ThreadItem.ParentBoard.BoardPlugIn;                                          boardPlugIn             := Item.ThreadItem.ParentBoard.BoardPlugIn;
2302                                          Item.ThreadItem.Title := DivideStrLine(boardPlugIn.GetDat( DWORD( Item.ThreadItem ), 1 )).FTitle;                                          DivideStrLine(boardPlugIn.GetDat( DWORD( Item.ThreadItem ), 1 ), @Res);
2303                                            Item.ThreadItem.Title := Res.FTitle;
2304                                          ATitle := Item.ThreadItem.Title;                                          ATitle := Item.ThreadItem.Title;
2305                                  end else if ATitle = '(名称不明)' then begin                                  end else if ATitle = '(名称不明)' then begin
2306                                          ATitle := DivideStrLine(GikoSys.ReadThreadFile(Item.ThreadItem.GetThreadFileName, 1)).FTitle;                                          DivideStrLine(GikoSys.ReadThreadFile(Item.ThreadItem.GetThreadFileName, 1), @Res);
2307                                            ATitle := Res.FTitle;
2308                                  end;                                  end;
2309                                  for i := BrowserTab.Tabs.Count - 1 downto 0 do begin                                  for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
2310                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = Item.ThreadItem then begin                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = Item.ThreadItem then begin
# Line 6430  begin Line 6433  begin
6433        tmp := GikoSys.ReadThreadFile(FileName, Number);        tmp := GikoSys.ReadThreadFile(FileName, Number);
6434                  end;                  end;
6435                  if tmp <> '' then begin                  if tmp <> '' then begin
6436                          Res := DivideStrLine(tmp);                          DivideStrLine(tmp, @Res);
6437    
6438                          Header := IntToStr(Number) + ' :' + Res.FName + ' :' + Res.FDateTime + #13#10;                          Header := IntToStr(Number) + ' :' + Res.FName + ' :' + Res.FDateTime + #13#10;
6439                          if ReplaceTag then begin                          if ReplaceTag then begin

Legend:
Removed from v.1.555  
changed lines
  Added in v.1.556

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