Текущий архив: 2003.04.24;
Скачать: CL | DM;

Вниз

Размер шрифта   Найти похожие ветки 

← →
Andrej   (2003-02-27 14:20) [0]

Как его установить в Edit при помощи API
Спасибо

---

← →
Игорь Шевченко ©   (2003-02-27 14:57) [1]

WM_SETFONT

---

← →
Andrej   (2003-02-27 15:29) [2]

Игорь, WM_SETFONT - не изменяет размер (высоту) символов

---

← →
Игорь Шевченко ©   (2003-02-27 16:08) [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 16:51) [4]

Игорь, большое спасибо

Подскажи еще, пожалуйста

AFont := SendMessage(Edit1, WM_GetFont,0,0 );
// изменение высоты (только API)
SendMessage(Edit1, wm_SETfont, AFont, 0);

Спасибо

---

← →
Игорь Шевченко ©   (2003-02-27 17:00) [5]

Изменение высоты только через создание нового шрифта, через

var
Buffer : LOGFONT;

GetObject(hFont, sizeof(Buffer), @Buffer);
Buffer.lfHeight := нужная высота
hFont2 := CreateFontIndirect(Buffer)
SendMessage (Edit1, WM_SETFONT, hFont2, 1);

---

Страницы: 1 вся ветка

Текущий архив: 2003.04.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c