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.198 by h677, Tue Mar 2 14:35:47 2004 UTC revision 1.199 by h677, Tue Mar 2 14:54:29 2004 UTC
# Line 2027  end; Line 2027  end;
2027    
2028  function TGikoForm.SetThreadListItem(Board: TBoard): Integer;  function TGikoForm.SetThreadListItem(Board: TBoard): Integer;
2029  const  const
2030          COLUMN: array[0..6] of string = ('スレッド名', 'カウント', '取得', '新着',          COLUMN: array[0..7] of string = ('スレッド名', 'カウント', '取得', '新着',
2031                                                                                                                                           '未読', '巡回予約', '取得日時');                                                                                                                                           '未読', '巡回予約', '取得日時', 'スレ作成日時');
2032          COLUMN_ALIGNMENT: array[0..6] of TAlignment = (taLeftJustify, taRightJustify,          COLUMN_ALIGNMENT: array[0..7] of TAlignment = (taLeftJustify, taRightJustify,
2033                                                                                                                                                                                                   taRightJustify, taRightJustify,                                                                                                                                                                                                   taRightJustify, taRightJustify,
2034                                                                                                                                                                                                   taRightJustify, taLeftJustify,                                                                                                                                                                                                   taRightJustify, taLeftJustify,
2035                                                                                                                                                                                                   taLeftJustify);                                                                                                                                                                                                   taLeftJustify, taLeftJustify);
2036          //No, スレッド名, カウント, 巡回予約, 取得日時          //No, スレッド名, カウント, 巡回予約, 取得日時
2037  var  var
2038          ListColumn: TListColumn;          ListColumn: TListColumn;
# Line 2247  begin Line 2247  begin
2247                  RepStr := CustomStringReplace(RepStr, '&', '&' );                  RepStr := CustomStringReplace(RepStr, '&', '&' );
2248                  //RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]);                  //RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]);
2249    
2250                  if Item.SubItems.Count <> 6 then begin                  if Item.SubItems.Count <> 7 then begin
2251                          Item.SubItems.Clear;                          Item.SubItems.Clear;
2252                          Item.SubItems.Add('');                          Item.SubItems.Add('');
2253                          Item.SubItems.Add('');                          Item.SubItems.Add('');
# Line 2255  begin Line 2255  begin
2255                          Item.SubItems.Add('');                          Item.SubItems.Add('');
2256                          Item.SubItems.Add('');                          Item.SubItems.Add('');
2257                          Item.SubItems.Add('');                          Item.SubItems.Add('');
2258                Item.SubItems.Add('');
2259                  end;                  end;
2260    
2261                  if ListNumberVisibleAction.Checked then                  if ListNumberVisibleAction.Checked then
# Line 2288  begin Line 2289  begin
2289                                  Item.SubItems[5] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.RoundDate);                                  Item.SubItems[5] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.RoundDate);
2290                          if ThreadItem.NewArrival then                          if ThreadItem.NewArrival then
2291                                  Item.ImageIndex := ITEM_ICON_THREADNEW1;                                  Item.ImageIndex := ITEM_ICON_THREADNEW1;
2292                if ThreadItem.CreateDate = ZERO_DATE then begin
2293                                    Item.SubItems[6] := '';
2294                            end else
2295                                    Item.SubItems[6] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate);
2296    
2297                  end else begin                  end else begin
2298                          Item.ImageIndex := ITEM_ICON_THREAD1;                          Item.ImageIndex := ITEM_ICON_THREAD1;
2299                          Item.SubItems[0] := IntToStr(ThreadItem.AllResCount);                          Item.SubItems[0] := IntToStr(ThreadItem.AllResCount);

Legend:
Removed from v.1.198  
changed lines
  Added in v.1.199

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