Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

DBRichEdit текст   Найти похожие ветки 

 
sloug ©   (2004-10-23 16:08) [0]

Добрый день всем! Я решил сделать в своей программе выбор стиля текста. Поставил 3 ToolButton и начал писать код. Первая кнопка у меня "Жирный", вторая - "Наклон", третья - "Подчеркнутый". Для первой кнопки пишу:

If ToolButton3.Down then
DBRichEdit1.SelAttributes.Style:=[fsBold];
IF ToolButton3.Down and ToolButton4.Down and ToolButton5.Down Then
DBRichEdit1.SelAttributes.Style:=[fsBold,fsItalic,fsUnderLine];
IF ToolButton3.Down and ToolButton4.Down Then
DBRichEdit1.SelAttributes.Style:=[fsBold,fsItalic];
IF ToolButton3.Down and ToolButton5.Down Then
DBRichEdit1.SelAttributes.Style:=[fsBold,fsUnderLine]
                    else
If ToolButton4.Down and ToolButton5.Down Then
DBRichEdit1.SelAttributes.Style:=[fsItalic,fsUnderline];
If ToolButton4.Down then
DBRichEdit1.SelAttributes.Style:=[fsItalic];
If ToolButton5.Down then
DBRichEdit1.SelAttributes.Style:=[fsUnderLine];

Но при проверке этот код работает не так как надо. Обьясните что не так, или как сделать по другому. Спасибо!


 
vecna ©   (2004-10-23 16:25) [1]

а как нада ?
Style := Style +/- [] ?



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

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

Наверх




Память: 0.46 MB
Время: 0.048 c
4-1097270355
Comp
2004-10-09 01:19
2004.11.21
Решение проблемы реализации классов на API


3-1098696836
Карелин Артем
2004-10-25 13:33
2004.11.21
Нужен сложный "григ", в котором можно показать связанные таблицы.


1-1099924974
Polycom
2004-11-08 17:42
2004.11.21
Listbox и чтение из файла


1-1099640046
Topepo
2004-11-05 10:34
2004.11.21
Помогите с тестовой оболочкой, плииз!


3-1098418036
Denis_Ac
2004-10-22 08:07
2004.11.21
Заполнение DBCombobox/ DBListBox