This commit is contained in:
David Arranz 2008-03-12 17:52:08 +00:00
parent 2668fd88cf
commit c2d041f7cc

View File

@ -15,6 +15,7 @@ uses
procedure ShowBalloonHint(const AMensaje: String; ABalloonIcon: TBalloonFlags);
begin
if Assigned(fServerForm) then
with fServerForm.TrayIcon1 do
begin
BalloonTitle := 'FactuGES (Servidor)';