Функция DrawText

[SNUPY]

Доброго времени суток!!!!!! Возник вопрос... функция DrawText возвращает высоту надписи... а вот хотелось бы узнать как узнать минимальную ширину которая необходима этой надписи, ибо обрезается очень часто =\\\ Заранее спасибо =)))

[raxp]

length('надпись') * textwidth('0')

[SNUPY]

Эмммм... вот только DrawText выводит текст много строчно =))))

[evg_m]

If there is only one line of text, DrawText modifies the right side of the rectangle so that it bounds the last character in the line. In either case, DrawText returns the height of the formatted text but does not draw the text.

[SNUPY]

If there is only one line of text, DrawText modifies the right side of the rectangle so that it bounds the last character in the line. In either case, DrawText returns the height of the formatted text but does not draw the text.

Ентересно.... сколька я понял, он должен изменять правую строну Trect'а попытался это провернуть в этой конструкции (приведенна исходная задача):

{событие ОнДравЦел СтрингГрида}
procedure TEventHandlers.StringGridsMyDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s:string;
 Flag: Cardinal;
 H: integer;
 Indent:integer;
begin
  TStringGrid(Sender).Canvas.FillRect(Rect);
  Indent:=3;
  s := TStringGrid(Sender).Cells[ACol,ARow];
  if (Acol+1>TStringGrid(Sender).FixedCols) and
    (ARow+1>TStringGrid(Sender).FixedRows) then
    Flag:=DT_LEFT
  else
    Flag:=DT_CENTER;
  Flag := Flag or DT_WORDBREAK;
  Inc(Rect.Left,Indent);
  Dec(Rect.Right,Indent);
  H := DrawText(TStringGrid(Sender).Canvas.Handle,PChar(s),length(s),Rect,Flag);
  if H > TStringGrid(Sender).RowHeights[ARow] then
    TStringGrid(Sender).RowHeights[ARow] := H;
end;

Но потерпел фиаско =\\\ думаю ключевым являеться это:

If there is only one line of text

Как там писал Чернышевский ... Что делать???

[raxp]

Сообщение от SNUPY

Эмммм... вот только DrawText выводит текст много строчно =))))

- ну дык узнавайте максимальную ширину из всез строк
max() - рулит

[SNUPY]

- ну дык узнавайте максимальную ширину из всез строк
max() - рулит

Нууу мне кажеться это уже крайние меры... Большая вероятность того, что существуют более реинтабельные меры =)))