end;
end;
end;
procedure tmytray.setactive(value:boolean);
begin
if factive<>value then
begin
factive:=value;
end;
end;
procedure tmytray.sethint(value:string);
begin
if fhint<>value then
begin
fhint:=value;
if (ismin)and(factive) then
settray(nim_modify);
end;
end;
procedure tmytray.setrmode(value:trmode);
begin
if frmode<>value then
frmode:=value;
end;
