Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Darwin
2 / 2 / 0
Регистрация: 16.08.2013
Сообщений: 88
1

Раскрасить строки в RichEdit

29.04.2015, 18:37. Просмотров 1044. Ответов 6
Метки нет (Все метки)

Подсчет чисел из диапазона min-max в RichEdit, вывод в Label:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
var
  min, max, count, i: Integer;
begin
  min := StrToInt(Edit1.Text);
  max := StrToInt(Edit2.Text);
  count := 0;
  for i := 0 to RichEdit1.lines.count - 1 do
    if StrToInt(RichEdit1.lines[i]) > 0 then
    begin
      if (max >= StrToInt(RichEdit1.lines[i])) and
        (min <= StrToInt(RichEdit1.lines[i])) then
      begin
        inc(count);
      end;
    end;
  Label1.Caption := IntToStr(count);
end;
Как раскрасить найденные числа (строки) в RichEdit?
0
Миниатюры
Раскрасить строки в RichEdit  
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2015, 18:37
Ответы с готовыми решениями:

По очереди раскрасить строки RichEdit в красный цвет
Мне надо по очереди раскрасить строки richedit в красный. Делаю так: for i:=0 to...

Раскрасить строки stringgrid
Здравствуйте. Подскажите, как можно покрасить в stringgrid четную строку одним цветом, а нечетную...

В StringGrid раскрасить строки и добавить hint
здравствуйте/ меня интересует два вопроса. 1. в stringgrig если в столбике 6 присутствует 0 то всю...

Раскрасить строки DbGrid
Подскажите как выделить строки с одинаковым содиржимиым допустим есть следйющие строки 1 2 2...

Richedit строки
В Richedit при добавлении строк внизу получается место около 2-х пустых строк когда скролбары...

6
GreeNicee
144 / 125 / 78
Регистрация: 04.10.2014
Сообщений: 315
Завершенные тесты: 2
29.04.2015, 20:05 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
var i,ln:integer;
begin
  ln:=0;
  for I := 0 to RichEdit1.Lines.Count do
  begin
    RichEdit1.SelStart := ln;
    RichEdit1.SelLength := RichEdit1.Lines[i].Length+5;
    RichEdit1.SelAttributes.Color:= RGB(Random(255),Random(255),Random(255));
    ln := ln + RichEdit1.Lines[i].Length+1;
  end;
end;
0
Darwin
2 / 2 / 0
Регистрация: 16.08.2013
Сообщений: 88
29.04.2015, 20:23  [ТС] 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
var i,ln:integer;
begin
  ln:=0;
  for I := 0 to RichEdit1.Lines.Count do
  begin
    RichEdit1.SelStart := ln;
    RichEdit1.SelLength := RichEdit1.Lines[i].Length+5;
    RichEdit1.SelAttributes.Color:= RGB(Random(255),Random(255),Random(255));
    ln := ln + RichEdit1.Lines[i].Length+1;
  end;
end;
Не, нужно чтоб закрашивались в этом диапазоне:

Delphi
1
(max >= StrToInt(RichEdit1.lines[i])) and (min <= StrToInt(RichEdit1.lines[i]))
0
GreeNicee
144 / 125 / 78
Регистрация: 04.10.2014
Сообщений: 315
Завершенные тесты: 2
29.04.2015, 20:29 4
ну я кинул пример, как можно имитировать выделение мышью, вы не знаете как сделать, конкретно то, что вам нужно?)
0
Darwin
2 / 2 / 0
Регистрация: 16.08.2013
Сообщений: 88
29.04.2015, 20:34  [ТС] 5
Цитата Сообщение от GreeNicee Посмотреть сообщение
ну я кинул пример, как можно имитировать выделение мышью, вы не знаете как сделать, конкретно то, что вам нужно?)
Знаю конкретно что нужно Раскрасить строки в RichEdit
Не знаю как это осуществить.
0
GreeNicee
144 / 125 / 78
Регистрация: 04.10.2014
Сообщений: 315
Завершенные тесты: 2
29.04.2015, 20:54 6
Лучший ответ Сообщение было отмечено Darwin как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
var
  min, max, count, i, ln: Integer;
begin
  ln := 0;
  min := StrToInt(Edit1.Text);
  max := StrToInt(Edit2.Text);
  count := 0;
  for i := 0 to RichEdit1.lines.count - 1 do
  begin
    if StrToInt(RichEdit1.lines[i]) > 0 then
    begin
      if (max >= StrToInt(RichEdit1.lines[i])) and
        (min <= StrToInt(RichEdit1.lines[i])) then
      begin
        RichEdit1.SelStart := ln;
        RichEdit1.SelLength := RichEdit1.Lines[i].Length+1;
        RichEdit1.SelAttributes.Color:= RGB(Random(255),Random(255),Random(255));
        inc(count);
      end;
    end;
    ln := ln+ RichEdit1.Lines[i].Length+1;
  end;
  Label1.Caption := IntToStr(count);
end;
1
Darwin
2 / 2 / 0
Регистрация: 16.08.2013
Сообщений: 88
29.04.2015, 21:24  [ТС] 7
Спасибо, работает как надо.
0
29.04.2015, 21:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2015, 21:24

RichEdit Строки и Столбцы
Доброе утро, подскажите, как сделать так чтобы в статус баре при нажатии на любой символ в richedit...

Выравнивание строки в компоненте RichEdit
Необходимо выровнять по центру строку в компоненте RichEdit. Например: 1-я строка по левому краю;...

Изменить цвет строки RichEdit
Есть код: procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor); var Format:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru