Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

WinAPI: Изменение шрифта и стиля Edita


JJJ ©   (2004-08-06 09:15:00) 

Как изменить шрифт и стили(например установить ed_readonly) в уже созданом на WinAPI компоненте Edit?


GuAV   (2004-08-07 21:48:00) [1]

VMcL ©   (06.08.04 18:56) [3]
AFAIK, никак.
SetWindowLong с GWL_STYLE не стработает.

Иначе зачем EM_SETREADONLY ? причем написано, что получать текущее значение через GetWindowLong ...


VMcL   (2004-08-06 18:56:00) [2]

> Как изменить стили

GetWindowLong(), SetWindowLong()
?


GuAV   (2004-08-06 17:09:00) [3]


> например установить ed_readonly

EM_SETREADONLY

> Как изменить стили

AFAIK, никак.


BillyJeans   (2004-08-06 11:13:00) [4]

HEdit := CreateWindow('edit', '', ES_RIGHT or WS_CHILD or WS_VISIBLE, 12, 20, 122, 15, MainWnd, 0, hInstance, nil);
 MyFont := CreateFont(
   -16,        // logical height of font
   6,  // logical average character width
   0,  // angle of escapement
   0,  // base-line orientation angle
   120,        // font weight
   0,  // italic attribute flag
   0,  // underline attribute flag
   0,  // strikeout attribute flag
   DEFAULT_CHARSET,    // character set identifier
   OUT_DEFAULT_PRECIS, // output precision
   CLIP_DEFAULT_PRECIS,        // clipping precision
   PROOF_QUALITY,      // output quality
   FIXED_PITCH,        // pitch and family
   'System');
 SendMessage(HEdit, WM_SETFONT, MyFont, 0);


Наверх

Титульная страница Поиск, карта сайта Написать письмо