| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить ширину текста в пункте меню?
deema © (2003-12-14 19:20:00)
Здравствуйте! При ручной прорисовке пункта меню хочу знать ширину текста в нем. Как это сделать?
deema (2003-12-19 23:01:00) [1]
Спасибо, попробую...
Игорь Шевченко (2003-12-18 00:17:00) [2]
function GetMenuFont : HFONT;
var
NonClientMetrics: TNonClientMetrics;
begin
Result := 0;
if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
Result := CreateFontIndirect(NonClientMetrics.lfMenuFont);
end;
function GetMenuTextWidth (const Str : String);
var
DC : HDC;
OldFont, MenuFont : HFONT;
TextSize : SIZE;
begin
DC := GetDC (HWND_DESKTOP);
MenuFont := GetMenuFont();
try
OldFont := SelectObject(DC, MenuFont);
try
if not GetTextExtentPoint32(DC, PChar(Str), Length(Str), TextSize)) then
RaiseLastWin32Error;
Result := TextSize.cx;
finally
SelectObject(DC, OldFont);
end;
finally
ReleaseDC (HWND_DESKTOP, DC);
DeleteObject(MenuFont);
end;
end;
LMD
deema (2003-12-17 23:15:00) [3]
Спасибо, но чтобы взять hdc нужно сначала где-то раскопать окно с этим dc. Или где еще этот DC взять????????????????????
ka3ax (2003-12-16 10:01:00) [4]
BOOL GetTextExtentPoint(
HDC hdc, // handle to DC
LPCTSTR lpString, // text string
int cbString, // number of characters in string
LPSIZE lpSize // string size
);
определяет высоту и ширину текста на контексте hdc, при текущем выбранном в нем шрифте,
можно же и свой шрифт выбрать наверное...
deema (2003-12-15 23:31:00) [5]
> TCanvas.TextWidth
Во-первых, я использую только API и никакой канвы, а во-вторях, я рылся в исходниках Delphi 6, там создается окно класса TUtilWindow (или типа того) с шрифтом по умолчанию, а не с менюшным. В Delphi ширина определяется используя этот стандартный шрифт, а он может от менюшного отличаться очень даже сильно.
Может быть, переформулировать вопрос - Где взять шрифт, определенный для пунктов меню (может функция какая есть, или даже в реестре прочитать)?
MBo (2003-12-15 06:58:00) [6]
TCanvas.TextWidth
Dimaxx (2003-12-15 01:41:00) [7]
Удалено модератором
| |
