33 lines
661 B
ObjectPascal
33 lines
661 B
ObjectPascal
unit uServerAppUtils;
|
|
|
|
interface
|
|
|
|
uses
|
|
ExtCtrls;
|
|
|
|
procedure ShowBalloonHint(const AMensaje: String; ABalloonIcon: TBalloonFlags);
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
Dialogs, Forms, uServerMainForm, JvTrayIcon;
|
|
|
|
procedure ShowBalloonHint(const AMensaje: String; ABalloonIcon: TBalloonFlags);
|
|
begin
|
|
if Assigned(fServerForm) then
|
|
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.
|
|
|