Форум: "Базы";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c