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...
|
