| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Размер шрифта
Andrej © (2003-02-27 14:20:00)Как его установить в Edit при помощи API
Спасибо
Игорь Шевченко (2003-02-27 17:00:00) [1]Изменение высоты только через создание нового шрифта, через
var
Buffer : LOGFONT;
GetObject(hFont, sizeof(Buffer), @Buffer);
Buffer.lfHeight := нужная высота
hFont2 := CreateFontIndirect(Buffer)
SendMessage (Edit1, WM_SETFONT, hFont2, 1);
Andrej (2003-02-27 16:51:00) [2]Игорь, большое спасибо
Подскажи еще, пожалуйста
AFont := SendMessage(Edit1, WM_GetFont,0,0 );
// изменение высоты (только API)
SendMessage(Edit1, wm_SETfont, AFont, 0);
Спасибо
Игорь Шевченко (2003-02-27 16:08:00) [3]
procedure TForm1.Button1Click(Sender: TObject);
var
AFont : TFont;
begin
AFont := TFont.Create();
AFont.Height := Edit1.Font.Height - 2;
SendMessage(Edit1.Handle, WM_SETFONT, AFont.Handle, LPARAM(True));
end;
Проверь
Andrej (2003-02-27 15:29:00) [4]Игорь, WM_SETFONT - не изменяет размер (высоту) символов
Игорь Шевченко (2003-02-27 14:57:00) [5]WM_SETFONT
| |
