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

Раскрасить строки stringgrid

23.06.2015, 21:05. Просмотров 1102. Ответов 1
Метки нет (Все метки)

Здравствуйте. Подскажите, как можно покрасить в stringgrid четную строку одним цветом, а нечетную другим?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.06.2015, 21:05
Ответы с готовыми решениями:

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

Раскрасить строки в RichEdit
Подсчет чисел из диапазона min-max в RichEdit, вывод в Label: procedure...

Содержимое выделенной строки из первого StringGrid-а перенести во второй StringGrid
Нужно написать программу которая выполняет следующие действия. Есть два StringGrid. По нажатия на...

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

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

1
Puporev
Модератор
56564 / 43267 / 29911
Регистрация: 18.05.2008
Сообщений: 102,913
24.06.2015, 11:42 2
Лучший ответ Сообщение было отмечено Iskander122 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
with StringGrid1 do
 begin
  if odd(ARow) then Canvas.Brush.Color:=clRed
  else Canvas.Brush.Color:=clBlue;
  Canvas.FillRect(Rect);
  Canvas.TextRect (Rect,Rect.Left,Rect.Top,Cells[ACol,ARow]);
 end;
end;
Добавлено через 16 минут
Если в таблицу сначала вводится текст, то так.
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var
  Form1: TForm1;
  f:boolean=false;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
with Stringgrid1 do
 begin
  for i:=0 to rowcount-1 do
  for j:=0 to colcount-1 do
  cells[j,i]:=inttostr(100+random(1000));
 end;
f:=true;
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if f then
with StringGrid1 do
 begin
  //уберем синий цвет с ячейки [0,0]
  if gdSelected in state then
   begin
    Canvas.Brush.Color:=clWhite;
    Canvas.FillRect(Rect);
    Canvas.Font:=Font;
    Canvas.TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);
   end;
  if odd(ARow) then Canvas.Brush.Color:=clYellow
  else Canvas.Brush.Color:=clLime;
  Canvas.FillRect(Rect);
  Canvas.TextRect (Rect,Rect.Left,Rect.Top,Cells[ACol,ARow]);
  Canvas.TextRect (Rect,Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
 end;
end;
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2015, 11:42

Нужно, чтобы переносились из одного stringgrid в другой. Переносится, но на те же строки и образуются пустые строки
Прикрепляю код. Помогите пожалуйста. Я в DElphi новичок var i: integer; begin...

Delphi 7 Stringgrid Нужно сделать цикл для заполнения Stringgrid данными из другого Stringgrid
Нужно чтобы из Stringgrid1 данные переносились в Stringgrid2 Но ТОЛЬКО ПО УСЛОВИЮ Таблицы...

stringgrid строки и столбцы
Здравствуйте, прошу помощь вашу (ячейки stringgrid заполняются целыми случайными числами из...


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

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

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