Главная страница
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.024 c
1-1099934406
Kolan
2004-11-08 20:20
2004.11.21
TrackBar C Двумя Ползунками


14-1099641955
d[D]E
2004-11-05 11:05
2004.11.21
Вертикальный DBGrid


14-1098946507
1008
2004-10-28 10:55
2004.11.21
Я уж и забыл, что такое от души посмеяться


3-1098865954
Its
2004-10-27 12:32
2004.11.21
Добавление записи в БД


3-1098842650
piople
2004-10-27 06:04
2004.11.21
Blop поля