david
27038fd9b1
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@30 93f398dd-4eb6-7a46-baf6-13f46f578da2
32 lines
627 B
ObjectPascal
32 lines
627 B
ObjectPascal
unit uServerAppUtils;
|
|
|
|
interface
|
|
|
|
uses
|
|
ExtCtrls;
|
|
|
|
procedure ShowBalloonHint(const AMensaje: String; ABalloonIcon: TBalloonFlags);
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
Dialogs, Forms, uServerMainForm, JvTrayIcon, uROComboService;
|
|
|
|
procedure ShowBalloonHint(const AMensaje: String; ABalloonIcon: TBalloonFlags);
|
|
begin
|
|
with fServerForm.TrayIcon1 do
|
|
begin
|
|
BalloonTitle := 'FactuGES (Servidor)';
|
|
BalloonHint := AMensaje;
|
|
BalloonTimeout := 2000; // 2000ms => 2seg
|
|
BalloonFlags := ABalloonIcon;
|
|
Hint := 'FactuGES (Servidor)' + #10#13 + AMensaje;
|
|
ShowBalloonHint;
|
|
end;
|
|
end;
|
|
|
|
|
|
end.
|
|
|