[Bug 30392] Multiple applications hit DrawText assert (Amazon downloader, 1C Accounting, TeamViewer) - ellipsification fails on strings with very small width given

[WineHQ Bugzilla]

http://bugs.winehq.org/show_bug.cgi?id=30392

--- Comment #26 from KRosUser <[e-mail]> ---
Sample application proposed and new bug found:
https://bugs.winehq.org/show_bug.cgi?id=59727

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Width := 100;
  RenderText;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Width := 3;
  RenderText;
end;

procedure TForm1.RenderText;
var
  R :TRect;
begin
  R := Image1.ClientRect;
  DrawText(Image1.Canvas.Handle,
'ThisisaverylongtextaveryverylongtexttotestDT_WORD_ELLIPSISandDT_PATH_ELLIPSIS',
-1, R, DT_WORD_ELLIPSIS or DT_PATH_ELLIPSIS or DT_EXPANDTABS or DT_SINGLELINE);
  Image1.Repaint;
end;

-- 
Do not reply to this email, post in Bugzilla using the
above URL to reply.
You are receiving this mail because:
You are watching all bug changes.