| 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; |
| 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(''); |
| 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 |
| 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); |