Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@338 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Browse Source
This commit is contained in:
David Arranz 2008-03-12 17:52:08 +00:00
parent 2668fd88cf
commit c2d041f7cc
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Source/Servidor/Utiles/uServerAppUtils.pas
View File

@ -15,15 +15,16 @@ uses
procedure ShowBalloonHint(const AMensaje: String; ABalloonIcon: TBalloonFlags); procedure ShowBalloonHint(const AMensaje: String; ABalloonIcon: TBalloonFlags);
begin begin
with fServerForm.TrayIcon1 do if Assigned(fServerForm) then
begin with fServerForm.TrayIcon1 do
BalloonTitle := 'FactuGES (Servidor)'; begin
BalloonHint := AMensaje; BalloonTitle := 'FactuGES (Servidor)';
BalloonTimeout := 2000; // 2000ms => 2seg BalloonHint := AMensaje;
BalloonFlags := ABalloonIcon; BalloonTimeout := 2000; // 2000ms => 2seg
Hint := 'FactuGES (Servidor)' + #10#13 + AMensaje; BalloonFlags := ABalloonIcon;
ShowBalloonHint; Hint := 'FactuGES (Servidor)' + #10#13 + AMensaje;
end; ShowBalloonHint;
end;
end; end;