Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/HistoryList.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 19 |
procedure SaveToFile(const FileName: String); |
procedure SaveToFile(const FileName: String); |
| 20 |
procedure LoadFromFile(const FileName: String; |
procedure LoadFromFile(const FileName: String; |
| 21 |
TreeView : TTreeView; TreeType: TGikoTreeType); |
TreeView : TTreeView; TreeType: TGikoTreeType); |
| 22 |
|
procedure SetTreeNode( TreeView : TTreeView ); |
| 23 |
|
|
| 24 |
end; |
end; |
| 25 |
|
|
| 26 |
|
|
| 225 |
{$ENDIF} |
{$ENDIF} |
| 226 |
|
|
| 227 |
end; |
end; |
| 228 |
|
procedure THistoryList.SetTreeNode( |
| 229 |
|
TreeView : TTreeView ); |
| 230 |
|
var |
| 231 |
|
i: Integer; |
| 232 |
|
Node: TTreeNode; |
| 233 |
|
Item: TFavoriteThreadItem; |
| 234 |
|
begin |
| 235 |
|
TreeView.Items.BeginUpdate; |
| 236 |
|
try |
| 237 |
|
TreeView.Items.Clear; |
| 238 |
|
for i := 0 to Self.Count - 1 do begin |
| 239 |
|
Item := TFavoriteThreadItem(Self[i]); |
| 240 |
|
Node := TreeView.Items.Add(nil, Item.Title); |
| 241 |
|
{ |
| 242 |
|
if Item.Item.NewArrival then begin |
| 243 |
|
Node.ImageIndex := ITEM_ICON_THREADNEW1; |
| 244 |
|
Node.SelectedIndex := ITEM_ICON_THREADNEW2; |
| 245 |
|
end else begin |
| 246 |
|
Node.ImageIndex := ITEM_ICON_THREADLOG1; |
| 247 |
|
Node.SelectedIndex := ITEM_ICON_THREADLOG2; |
| 248 |
|
end; |
| 249 |
|
} |
| 250 |
|
// 負荷をかけたくないので NewArrival のチェックを行わない |
| 251 |
|
// ※Item.Item プロパティは dat の読み込みを必要とする |
| 252 |
|
Node.ImageIndex := ITEM_ICON_THREADLOG1; |
| 253 |
|
Node.SelectedIndex := ITEM_ICON_THREADLOG2; |
| 254 |
|
Node.Data := Item; |
| 255 |
|
end; |
| 256 |
|
finally |
| 257 |
|
TreeView.Items.EndUpdate; |
| 258 |
|
end; |
| 259 |
|
end; |
| 260 |
|
|
| 261 |
end. |
end. |
|
|
Legend:
| Removed from v.1.1 |
|
| changed lines |
| |
Added in v.1.2 |
|
|
|