Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/18: Рейтинг темы: голосов - 18, средняя оценка - 4.94
0 / 0 / 0
Регистрация: 07.10.2012
Сообщений: 44
1

Клетки StringGrid, в которых четные числа закрасить красным, нечетные - синим цветами.

11.06.2013, 00:14. Просмотров 3771. Ответов 2
Метки нет (Все метки)


помогите решить)
Заполнить StringGrid случайными натуральными числами. Клетки, в которых четные числа закрасить красным, нечетные синим цветами.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2013, 00:14
Ответы с готовыми решениями:

Раскрасить в массиве красным цветом нечетные положительные элементы, синим – нечетные отрицательные
Ввести двумерный массив произвольной размерности, раскрасить в нем при выводе красным цветом...

Вывести в файл числа, цифры которых чередуются как четные/нечетные
дан текстовый файл с изображениям целых чисел. в выходной файл поместить те и них ,у которых...

Сформировать два массива, в одном из которых будут все четные числа, а во втором - нечетные
Задача: считать с клавиатуры масив целых чисел, из него сформировать два масива в одном из которых...

Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй — нечетные
Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит четные числа из...

2
Эксперт Pascal/Delphi
4665 / 2652 / 832
Регистрация: 04.10.2012
Сообщений: 9,666
11.06.2013, 11:15 2
Лучший ответ Сообщение было отмечено yano4ka15 как решение

Решение

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
procedure TForm1.FormCreate(Sender: TObject);
var
ACol, ARow:Integer;
begin
Randomize; //генерируем случайные числа
 for ARow :=0 to strngrd1.RowCount-1 do
 for ACol :=0 to strngrd1.ColCount-1 do
 begin
strngrd1.Cells[ACol,ARow] :=IntToStr(Random(99)+1); //заполняем ими StringGrid
 end;
end;
 
// закрашиваем ячейки
procedure TForm1.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if  StrToInt(strngrd1.Cells[ACol,ARow]) mod 2=0 then //если число в ячейке
                                    //четное, то
begin
with strngrd1.Canvas do
begin
Brush.Color:= clRed; //закрашиваем прямоугольную область ячейки
 //в красный цвет
FillRect(Rect);
TextOut(Rect.Left+2, Rect.Top+2, strngrd1.Cells[ACol, ARow]);
end;
end
else // иначе (если нечетное)
with strngrd1.Canvas do
begin
Brush.Color:= clBlue; //окрашиваем в синий цвет
FillRect(Rect);
TextOut(Rect.Left+2, Rect.Top+2, strngrd1.Cells[ACol, ARow]);
end;
end;
 
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30859 / 20182 / 7874
Регистрация: 22.10.2011
Сообщений: 35,042
Записей в блоге: 6
11.06.2013, 12:36 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var Value : Integer;
begin
  with (Sender as TStringGrid) do
  begin
    if TryStrToInt(Cells[ACol, ARow], Value) then // Если это вообще число
      if Value mod 2=0 then // и оно - четное
        Canvas.Brush.Color:= clRed // закрашиваем прямоугольную область ячейки
      else
        Canvas.Brush.Color:= clBlue; //окрашиваем в синий цвет
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
  end;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2013, 12:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй — нечетные (в том же порядке)
1. Дан файл целых чисел. Создать два новых файла, первый из которых содержит четные числа из...

Определены ли на множестве: N(натуральные числа), Z(целые числа), Q, 2Z(четные числа), 2Z+1(нечетные)
4 Определены ли на множестве: N(натуральные числа), Z(целые числа), Q, 2Z(четные числа),...

Сортировка массива: Четные числа — по возрастанию, нечетные числа — по убыванию
Дан целочисленный массив. Надо отсортировать его. Четные числа - по возрастанию Нечетные числа -...

Столбики отрицательной температуры рисовать синим, а положительной - красным
Program Temper; Uses GraphABC; Const MinT = -25; MaxT = 10; Days = 40; Var T :...


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

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

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