Длина строки в пикселях

[Alexanbar]

1) Нужно рассчитать длину строки (конкретного шрифта)в пикселях или иных единицах через API (без использования Label1.Autosise)

2) А ещё лучше, если кто подскажет, как найти ширину таба в SSTAb.

[A.A.Z.]

1) А Form.TextWidth() не ага?
2) Там такого, по-моему, нет

[ALX_2002]

Хм.... В принципе наверное потребуется функция DrawText, и её настройка

на http://www.allapi.net можно примеры глянуть....

[Alexanbar]

В SSTab действительено нету нужного свойства, а надо. Пробовал посылать сообщение TCM_GETITEMRECT, но он на это выдаёт одни нули. Tabstrip выдаёт только Bottom, но значение очень странное.

А нужно это всё, чтобы отрисовать SSTab в стиле XP. И всего-то, что мне нужно - знать ширину таба.

Появилась идея рассчитать размер текста, написанного на табе, сложить его с размером картинки, и тогда, по-идее получится размер таба.

Чтобы рассчитать размер текста, нельзя использовать к-л контролы, кроме самого SSTAb - буду создавать Класс-модуль

Насчет DrawText посмотрю.

[Eugenio]

Насчет ширины текста. Глянь, на всякий, вот тут: http://bbs.vbstreets.ru/viewtopic.php?t=12431

[deepslam]

Хех...можно самому померить и создать некий массив типа:
буква-> шрифт-> длина буквы из этого складывать нужную длину...
Я думаю у тя ведь не будет слишком много разных шрифтов разных размеров в проге...

[ALX_2002]

Код: Выделить всё

Private Declare Function GetTextExtentPoint32 Lib "gdi32" _
            Alias "GetTextExtentPoint32A" _
            (ByVal hdc As Long, _
            ByVal lpsz As String, _
            ByVal cbString As Long, _
            lpSize As POINTAPI) As Long

Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetWindowDC Lib "user32" _
            (ByVal hwnd As Long) As Long
Dim PT As POINTAPI
Private Sub Form_Click()
GetTextExtentPoint32 GetWindowDC(Text1.hwnd), Text1.Text, Len(Text1.Text), PT
MsgBox PT.X
MsgBox PT.Y
End Sub

Во пашет по ходу

Нужно на форму добавить TextBox.

Тогда по клику на форме можно узнать высоту и ширину текста

Респект Eugenio !!

[Alexanbar]

Вроде получилось. Использовал ф-ю DrawText 2 раза для каждого таба.
Первый раз - с флагами DT_LEFT Or DT_CALCRECT. В этом случае правая грань прямоугольника усекается до нужной длины.

Это как раз определяет грань таба
Далее прорисовываю таб.
Затем ещё раз рисую текст с флагом DF_LEFT

Далее перехожу к следующему табу.

Остаётся сделать подсветку табов при движении мыши и устранить кое-какие мелкие неприятности.