[РЕШЕНО] Длина строки в пикселях

[Женя32]

Здравствуйте!
Подскажите, пожалуйста, как получить длину строки в пикселях?

[Serge_Bliznykov]

Сообщение от Женя32

Подскажите, пожалуйста, как получить длину строки в пикселях?

строки, выведенной на экран? с учётом текущих настроек браузера и отображения?
Наверное, можно это получить из свойств DOM. попробуйте через JS взять width у нужного элемента.

[Женя32]

Ой, я прощу прощение, но, я не в том разделе создал тему... Что делать? Delphi нужно...

[Serge_Bliznykov]

тю. сейчас перенесу из "Общие вопросы Web" в "Общие вопросы Delphi".
а я ещё подумал, вроде бы тут - https://programmersforum.ru/showthread.php?t=331447 уже всё обсудили, зачем опять? Неужели, думаю, на Web технологии перейти решили..
а оно вот как, оказывается...

а длина строки в пикселях:
https://programmersforum.ru/showpost...47&postcount=2

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

ww := Canvas.TextWidth("Тут Ваш текст");

[Женя32]

ww := Canvas.TextWidth("Тут Ваш текст");
Как то не точно показывает.

Хотел попробовать воспользоваться этой функцией:

 
      h_DC := Self.Canvas.Handle;
      S:=Edit1.Text;
  Windows.GetTextExtentPoint32(h_DC, PChar(S), Length(S), ts);

Но, выходит ошибка:
[dcc32 Error] Unit1.pas(1023): E2003 Undeclared identifier: 'Windows'

[Serge_Bliznykov]

а зачем Вы написали Windows?
достаточно в uses написать

uses ... ,Windows, ...

и так пробовали?

var
  ts : TSize;
  S  : String;
begin
    S := Edit1.Text;
    GetTextExtentPoint32(Canvas.Handle,PChar(S),Length(S), ts);

А у Вас, кстати, точно приложение 32-битное?

p.s. я это просто нагуглил. сам я во внутренностях Windows и тонкостях вывода текста в WinAPI вообще не силён.

[Женя32]

А как получить результат?

      h_DC := Self.Canvas.Handle;
      S:=RecPaOwnershipW.Text;
     GetTextExtentPoint32(h_DC, PChar(S), Length(S), ts);

[Serge_Bliznykov]

Сообщение от Женя32

А как получить результат?

так это и есть получение результата.
размер возвращается в переменной ts
TSize — это record с полями

    cx: Longint;
    cy: Longint;

причем сама GetTextExtentPoint32 типа BOOL:

Если функция завершается успешно, возвращаемое значение не нуль.

Если функция завершается с ошибкой, величина возвращаемого значения - ноль.

Windows NT/2000/XP: Чтобы получить дополнительную информацию об ошибке, вызовите функцию GetLastError.

читать - ТЫЦ

впрочем, в исходниках Delphi 2006 возвращаемый функцией результат BOOL нигде не проверяется.
Видимо, считается, что раз входные параметры корректные, то и функция всегда отрабатывает.

[Аватар]

Canvas.TextExtent то же самое делает

[Serge_Bliznykov]

Сообщение от Аватар

Canvas.TextExtent то же самое делает

function TCanvas.TextExtent(const Text: string): TSize;
begin
  RequiredState([csHandleValid, csFontValid]);
  Result.cX := 0;
  Result.cY := 0;
  Windows.GetTextExtentPoint32(FHandle, PChar(Text), Length(Text), Result);
end;