[Feedreader-development] Still problem with two things...

[Toomas T. <to...@i-...>]

If Feedreader is started minimized, then it will not show any newmessage 
windows until you open form first time.

Problem is in procedure:

procedure TFeedThread.OnNewHeadlinesAvailable;
...
For i := 0 To gMyFeedsTreeNode.Count-1 Do Begin
    TmpNode := gMyFeedsTreeNode.Item[i];
    Info := feedinfo( TmpNode.Data );
    If Info = Nil Then Continue;
    If Info.feedid = WorkerThread.CurFeedID Then Begin
      Node := TmpNode;  <-------it will never reach this place, if 
application is started minimized and form is not showed.
      Break;
    End;
  End;
  If Node = Nil Then  <--------------------
    Exit;
...

Every time Node will be nil and procedure will be terminated. If I open 
mainform, then node will not be nil any more and all newmessage windows 
will be showed.

Diference beetween minimized start and normal start:
//////////////////////////////
 if gProperties.StartHidden Or (LowerCase(ParamStr(1)) = 'min') or 
(LowerCase(ParamStr(2)) = 'min') then Begin
      Application.ShowMainForm := False;
      Self.windowstate := wsminimized;
      fShowWindowInTaskbar := False;
    End
     Else fShowWindowInTaskbar := True;
 
If fShowWindowInTaskbar Then Begin
    ShowWindow( Application.Handle, SW_SHOWNORMAL );
    Application.ShowMainForm := True;
  End;


//////////////////////////////////////
Second problem is about animated tray icon. It acts kind of funny. Try 
to test it with "enable animated trayicon" setting allowed. It will go 
red even if there is no new messages if some items are unread.

////////////////////////////////////////////////////////////////////////////////////////////
Some problems here....
Procedure TMainWindow.AnimateTrayIcon( Enable: Boolean );
Begin
  If Enable Then Begin
    If gProperties.EnableTaskbarAnimations Then Begin
      If Not CoolTrayIcon1.CycleIcons Then Begin
        CoolTrayIcon1.IconList := TrayIconAnimatedImageList;
        CoolTrayIcon1.CycleIcons := True;
      End;
    End
     Else Enable := False;
  End;


  If Not Enable Then Begin
    CoolTrayIcon1.CycleIcons := False;
    CoolTrayIcon1.IconList := TrayIconStaticImageList;
    If gfUnseenNewsAvailable Then
      CoolTrayIcon1.IconIndex := 1
     Else
      CoolTrayIcon1.IconIndex := 0;
  End;
End;



I'm trying to fix them but if anybody sees problem right now, replay 
please...