Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ItemDownload.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.33 by q9_, Sat Aug 7 21:12:07 2004 UTC revision 1.34 by yoffy, Mon Aug 16 14:24:05 2004 UTC
# Line 1246  begin Line 1246  begin
1246                                                          end;                                                          end;
1247                                                  end;                                                  end;
1248                                          until finish and ( loopCnt > 0 );                                          until finish and ( loopCnt > 0 );
1249                                          LastTxt := Body.Strings[ ThreadItem.Count - 1 ];                                          LastTxt := Body.Strings[ Body.Count - 1 ];
1250                                          if ThreadItem.Kokomade > 0 then begin                                          if ThreadItem.Kokomade > 0 then begin
1251                                                  KokoTxt := Body.Strings[ ThreadItem.Kokomade - 1 ];                                                  KokoTxt := Body.Strings[ ThreadItem.Kokomade - 1 ];
1252                                          end;                                          end;
# Line 1255  begin Line 1255  begin
1255                                          end;                                          end;
1256    
1257                                          Body.Text := Content;                                          Body.Text := Content;
1258                                          ThreadItem.AllResCount := 0;                                          Body.Find( LastTxt, LastIdx );
                                         ThreadItem.NewResCount := 0;  
                                         NewRes := Body.Count;  
   
                                         Body.Find( LastTxt, LastIdx );  
1259                                          OldCnt := LastIdx + 1;                                          OldCnt := LastIdx + 1;
1260                                            NewRes := Body.Count - OldCnt;
1261    
1262                                          if ThreadItem.Kokomade > 0 then begin                                          if ThreadItem.Kokomade > 0 then begin
1263                                                  Body.Find( KokoTxt, KokoIdx );                                                  Body.Find( KokoTxt, KokoIdx );
1264                                                  ThreadItem.Kokomade := KokoIdx + 1;                                                  ThreadItem.Kokomade := KokoIdx + 1;
# Line 1268  begin Line 1266  begin
1266                                          if ThreadItem.NewReceive > 0 then begin                                          if ThreadItem.NewReceive > 0 then begin
1267                                                  Body.Find( NewTxt, NewIdx );                                                  Body.Find( NewTxt, NewIdx );
1268                                                  Inc( NewIdx );                                                  Inc( NewIdx );
1269                                                  ThreadItem.AllResCount := NewIdx;                                                  if OldCnt < NewIdx then begin
1270                                                  if OldCnt >= NewIdx then                                                          OldCnt := NewIdx;
                                                         NewRes := Body.Count - OldCnt  
                                                 else  
1271                                                          NewRes := Body.Count - NewIdx;                                                          NewRes := Body.Count - NewIdx;
1272                                                    end;
1273                                          end;                                          end;
1274                                  end else begin                                  end else begin
1275                                          Body.Text := Content;                                          Body.Text := Content;
1276                                          //ThreadItem.Count := 0;                                          //ThreadItem.Count := 0;
                                         ThreadItem.AllResCount := 0;  
                                         ThreadItem.NewResCount := 0;  
1277                                          OldCnt := 0;                                          OldCnt := 0;
1278                                          NewRes := Body.Count;                                          NewRes := Body.Count;
1279                                          //Cnt := Body.Count;                                          //Cnt := Body.Count;

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

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