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.195 by h677, Thu Jan 22 14:39:04 2004 UTC revision 1.196 by h677, Fri Jan 23 15:23:32 2004 UTC
# Line 2151  begin Line 2151  begin
2151                  if Item.Index > BBS.Count then Exit;                  if Item.Index > BBS.Count then Exit;
2152                  if ListView.Items.Count = 0 then Exit;                  if ListView.Items.Count = 0 then Exit;
2153    
2154                  if not (BBS.Items[Item.index] is TCategory) then Exit;          if not (BBS.Items[Item.index] is TCategory) then Exit;
2155                  Category := TCategory(BBS.Items[Item.index]);          Category := TCategory(BBS.Items[Item.index]);
2156    
2157                  if Category = nil then Exit;                  if Category = nil then Exit;
2158    
# Line 2297  begin Line 2297  begin
2297                          Item.SubItems[4] := '';                          Item.SubItems[4] := '';
2298                          Item.SubItems[5] := '';                          Item.SubItems[5] := '';
2299                  end;                  end;
2300    
2301                  Item.Data := ThreadItem;                  Item.Data := ThreadItem;
2302          end;          end;
2303  end;  end;
# Line 2306  procedure TGikoForm.ListViewDataFind(Sen Line 2307  procedure TGikoForm.ListViewDataFind(Sen
2307          StartIndex: Integer; Direction: TSearchDirection; Wrap: Boolean;          StartIndex: Integer; Direction: TSearchDirection; Wrap: Boolean;
2308          var Index: Integer);          var Index: Integer);
2309  begin  begin
2310    
2311  //  //
2312  end;  end;
2313    
# Line 3726  begin Line 3728  begin
3728                                  TreeView.OnChange := nil;                                  TreeView.OnChange := nil;
3729                                  TreeView.OnChanging := nil;                                  TreeView.OnChanging := nil;
3730                          end;                          end;
3731                          Application.ProcessMessages;                          //Application.ProcessMessages;
3732                          for i := 0 to TreeView.Items.Count - 1 do begin                          for i := 0 to TreeView.Items.Count - 1 do begin
3733                                  if TreeView.Items[i].Data = Item then begin                                  if TreeView.Items[i].Data = Item then begin
3734                                          TreeView.Items[i].Selected := True;                                          TreeView.Items[i].Selected := True;
# Line 3735  begin Line 3737  begin
3737                                          Break;                                          Break;
3738                                  end;                                  end;
3739                          end;                          end;
3740                          Application.ProcessMessages;                          //Application.ProcessMessages;
3741                  finally                  finally
3742                          if not CallEvent then begin                          if not CallEvent then begin
3743                                  TreeView.OnChange := ChangeEvent;                                  TreeView.OnChange := ChangeEvent;
# Line 3755  begin Line 3757  begin
3757                  end;                  end;
3758    
3759                  if (Item is TBBS) or (Item is TCategory) then begin                  if (Item is TBBS) or (Item is TCategory) then begin
3760                ListView.Columns.Clear;
3761                          SetActiveList( Item );                          SetActiveList( Item );
3762                  end else if Item is TBoard then begin                  end else if Item is TBoard then begin
3763                          if not TBoard( Item ).IsThreadDatRead then begin                          if not TBoard( Item ).IsThreadDatRead then begin

Legend:
Removed from v.1.195  
changed lines
  Added in v.1.196

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