[Assistants]MiniorBug:the width of the speak dialog tooSmall

[riceball]

[Assistants] Minior Bug fixed: the width of the speak dialog is too small, if the message is very very long.

oaBaloon.pas[2432]
function TAssistantBalloon.RebuildIconTitleMsg(MinW, BtnsW: Integer): Integer;
begin
...
//<------------added by riceball to calculate the message width!
DrawText(Canvas.Handle, PChar(Msg.Caption), Length(Msg.Caption), MsgRect,
{$IFDEF DELPHI4_UP}DrawTextBiDiModeFlags{$ENDIF}(DrawTextFlags or DT_CALCRECT));
if MsgRect.Bottom > MsgRect.Right then
begin
if MsgRect.Bottom >= MinTipsDlgWidth then
MsgRect.Right := MinTipsDlgWidth
else
MsgRect.Right := MsgRect.Bottom;
end;
//<-------------added END
DrawText(Canvas.Handle, PChar(Msg.Caption), Length(Msg.Caption), MsgRect,
{$IFDEF DELPHI4_UP}DrawTextBiDiModeFlags{$ENDIF}(DrawTextFlags));
end;