StringGrid закрашиваем ячейку не полностью...т.е. не целиком или не всю!

[АлексейВалерьевич]

Задача стоит такая: Нужно что бы в StringGrid'е появлялась таблица содержащая поля


№ п/п|    Код студента | ФИО    |  Диаграма успеваемости  | Средняя оценка|
--------|---------------------|----------|-----------------------------------|----------------------|
      1   | 1233                 |   ФИО  |  =======                         |              3.5         |
      2   | 1333                 |   ФИО  |  ==================|                 5         |
      3   | 1443                 |   ФИО  |  =============           |              4.5         |
      4   | 1255                 |   ФИО  |  ===                                  |              2            |
      5   | 1244                 |   ФИО  |  ==============         |              4.7         |


                                                        РИС.1

Дак вот Столбец "Диаграма успеваемости" должен быть закрашен в соответствии со средней оценкой, т.е. если 3.5 то закрашиваем желтым ...70 % ячеки если 5 то вся ячека закрашена зеленым, если 2 то  красным 20% ячейки закрашено...

Вопрос...Как закрасить не полностью всю ячейку, а какой-то определенный участок ячейки? (на РИС.1 закрашенный участок обозначен "=")

Может как-то вставлять туда прямоугольник или еще как....поскажите пожалуйстО...я еще только учусь!

P.S. закрашивать я уже умею....но не так как хотелось бы уметь!

[RXL]

Фон на то и фон, чтобы весь менялся.

Посмотри, есть ли в TStringGrid возможность вставлять картинки - с их помощью можно попытаться добиться нужного эффекта.

[АлексейВалерьевич]

Ну картинки то можно вставлять я думаю, если даже объект можно вставить....только как...?
ВАРИАНТЫ..........ПРЕДЛОЖЕНИЯ ......................ПОЖЕЛАНИЯ............

[RXL]

Проще: документация!
Между "думаю" и "знаю" - большая разница! Вот я - "думаю", т.к. не пользуюсь этим компонентом и оно мне не надо.

[АлексейВалерьевич]

Проблема решена!
..........................................
.........................................................
s:=StrToFloat(SG1.Cells[Sg1.ColCount-1,Arow]); //считываем значение оценки в соседнем столбце
if s<3 then Begin                                               //сравниваем оценку если ниже "дВА" тогда
    if s<2.3 then si:=0 else if s<2.6 then si:=51 else si:=102;   //присвоим переменной Si числовое значение
   s:=s*100+240;                                                                 / / это высчитаные координаты для столбца диаграммы (у каждого свои!)
   st:=FloatTostr(s);
   cd:=StrToInt(st);
   SG1.Canvas.FillRect(Rect);
   SG1.Canvas.Pen.Color:=clBlack;  //присвоим цвет рамки черный
   SG1.Canvas.Brush.Color := TColor(RGB(255,si,0));  //присвоим цвет заливки тут красный....чем ближе к "ДВА" тем краснее

//    SG1.Canvas.Brush.Color := TColor(RGB(si,255,0));     чем больше Si тем желтее максимум 255   но в коде другие Si присваеваем

//    SG1.Canvas.Brush.Color := TColor(RGB(102,255,si));   чем больше Si тем зеленее максимум 255   но в коде другие Si присваеваем


   SG1.Canvas.Rectangle(Rect.Left,Rect.Top,cd,Rect.Bottom);   //выводим прямоугольник...который является столбцом диаграммы в таблице!!
    end
else // иначе и погнали дальше!!
...............................................................
.......................

[osminog]

Проблема решена!
..........................................

.......................

хорошее и интересное решение данной проблемы! у меня тоже такое как-то желание было воплотить в одной БД!