Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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.035 c
3-1098431394
Andrey_
2004-10-22 11:49
2004.11.21
Перегенерация индексов


3-1098768210
diabolik_krsk
2004-10-26 09:23
2004.11.21
Названия колонок в DBGrid в 2-а, 3-и ряда


14-1099471832
TUser
2004-11-03 11:50
2004.11.21
1 пост - 1 голос


8-1093180955
eg01st
2004-08-22 17:22
2004.11.21
Некорректная работа Image с прокруткой


1-1099862330
Metrolog
2004-11-08 00:18
2004.11.21
Распознавание выражений





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский