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

Please post bug reports, feature requests, or any question regarding the DELPHI AREA products here.

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

Postby riceball » March 3rd, 2005, 10:02 am

[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;
riceball
Member
Member
 
Posts: 3
Joined: February 21st, 2005, 4:11 am

Return to DELPHI AREA Products

Who is online

Users browsing this forum: No registered users and 2 guests