Цитата

WrapText function Splits a string into multiple lines as its length approaches a specified size. Unit SysUtils Category string handling routines

Добавлено @ 09:35
Но она немного не тем занимается, она по буквам разбивает, а не по ширине слов.

Тем-тем. Все зависит от переданных параметров.

function WrapText(const Line, BreakStr: string; BreakChars: TSysCharSet; MaxCol: Integer): string;overload;

По умолчанию BreakChars = [' ', ' -' , #9], т.е. как раз на слова и разбивается. Но считает она не ширину строки в пикселах, а просто, что бы количество символов было меньше MaxCol.

Цитата(tripsin @ 19.5.2005, 10:36)

Но считает она не ширину строки в пикселах, а просто, что бы количество символов было меньше MaxCol.

Я об этом и говорю:

Цитата(s @ 19.5.2005, 09:33)

Но она немного не тем занимается, она по буквам разбивает, а не по ширине слов.

Мдя... уж!

tripsin обрати внимание на следующие функции: GetCharWidth32, GetCharABCWidths.

Вот например простейший пример для GetCharWidth32:

Код

procedure TForm1.Button2Click(Sender: TObject); var a:array [0..255] of DWord;     w,i,wid:DWord;     s:string;     DC:HDC; begin  DC:=GetDC(Memo1.Handle);  Wid:=20; //Типо... заданная ширина  s:='G'+#9+'irder'; //Типо... заданная строка для которой мы хотим узнать... сколько из неё символов влезет :)  FillChar(a,SizeOf(a),#0);  GetCharWidth32(DC,0,255,a);  w:=0;  for i:=1 to Length(s) do   begin    if s[i]=#9 then w:=w+a[ord(s[i])]*4 else w:=w+a[ord(s[i])]; //Ну мне лень было описывает все "спец" символы :)    if w>Wid then     begin      Caption:=IntToStr(i-1); //Типо... ответ      break;     end;   end;  ReleaseDC(Memo1.Handle,DC); end;

Это сообщение отредактировал(а) Girder - 19.5.2005, 12:31

Girder Твой код не работает! Ты сам-то пробовал. Он до строки "Caption:=IntToStr(i-1); //Типо... ответ" - даже не доходит.
GetCharWidth32(DC,0,255,a); - это че за вызов-то?
Вставь проверку: if not GetCharWidth32(DC,0,255,a) then ShowMessage('Хрена! Не работает!');
Кста. В твоем коде в DC надо выбирать шрифт с помощью SelectObject, иначе будет использоваться системный шрифт.

Ну блииииин!! Ну как еще объяснить-то.
Короче нужна функция такого вида:
function Number_Of_Chars_In_Pixel_Width(Pixel_Width_Of_window: Integer; WindowFont: TFont): Integer;
Может хоть так понятнее. Как определить ширину имеющейся строки я и так знаю.

Пока у этой задачи я нашел 2 ответа:
1. Подбор ширины строки в цикле, как показал Yanis(по "среднему" символу, или с помошью функций группы GetCharWidth (но для них нужен конкретный текст)
2. Мой вариант с использованием метрик тескта. Мне только интересно - корректный это код или нет (работает точно).

1.

Цитата

Remarks GetCharWidth32 cannot be used on TrueType fonts. To retrieve character widths for TrueType fonts, use GetCharABCWidths. The range is inclusive; that is, the returned widths include the widths of the characters specified by the iFirstChar and iLastChar parameters. If a character does not exist in the current font, it is assigned the width of the default character.

для TrueType - надо использовать GetCharABCWidths

Цитата

Requirements   Windows NT/2000/XP: Included in Windows NT 3.5 and later.   Windows 95/98/Me: Unsupported.

для W9X - GetCharWidth
2.

Цитата(tripsin @ 19.5.2005, 14:53)

Кста. В твоем коде в DC надо выбирать шрифт с помощью SelectObject, иначе будет использоваться системный шрифт.

А я что за тебя должен писать весь код? читай:

Цитата(Girder @ 19.5.2005, 13:27)

Вот например простейший пример для GetCharWidth32

3.

Цитата(tripsin @ 19.5.2005, 14:53)

Кста. В твоем коде в DC надо выбирать шрифт с помощью SelectObject, иначе будет использоваться системный шрифт.

Да пробывал. У меня работает.

Это сообщение отредактировал(а) Girder - 19.5.2005, 15:26

Это я, tripsin Girder Прошу прощения за наезд. Код действительно рабочий. Просто у меня Win98. Заменил на GetCharWidth и все заработало.
Girder Ты уж не обижайся , че-то нервный я стал.

Лови... примерную реализацию

Код

function www(lFont:tagLogFonta;TypeFont:integer):DWord; var a:array [0..255] of DWord;     b:array [0..255] of ABC;     w,i,wid,n:DWord;     s:string;     DC:HDC;     FontOld,FontNew:HFont; begin FontNew:=CreateFontIndirect(lFont); Result:=0; DC:=GetDC(0); FontOld:=SelectObject(DC,FontNew); Wid:=50; s:='Gir'+#9+'der'; if TypeFont<>TRUETYPE_FONTTYPE then   begin   FillChar(a,SizeOf(a),#0);   if GetCharWidth32(DC,0,255,a)=false then     GetCharWidth(DC,0,255,a);   w:=0;   for i:=1 to Length(s) do     begin     inc(Result);     if s[i]=#9 then w:=w+a[ord(s[i])]*4 else w:=w+a[ord(s[i])];     if w>Wid then break;     end;   end else   begin   FillChar(b,SizeOf(b),#0);   GetCharABCWidths(DC,0,255,b);   w:=0;   for i:=1 to Length(s) do     begin     n:=b[ord(s[i])].abcA+b[ord(s[i])].abcB+b[ord(s[i])].abcC;     if s[i]=#9 then w:=w+n*4 else w:=w+n;     if w>Wid then       begin       Result:=i-1;       break;       end;     end;   end; SelectObject(DC,FontOld); ReleaseDC(0,DC); DeleteObject(FontNew); end;

Это сообщение отредактировал(а) Girder - 19.5.2005, 15:32