манипуляции в StringGrid

[начинающий1]

Всем привет. В StringGrid выводятся данные в таком виде:

строка1    35ф 20н
строка2    10м  1ф

В событии DrawCell грида есть код, который окрашивает шрифт каждой ячейки цветом, в зависимости от буквы(м,ф или н - красный, зеленый, синий)
Каким образом можно убрать букву с каждой ячейки, но чтобы цвет шрифта в ней соответствовал заданному цвету?
Должно получится так:

строка1    35 20
строка2    10  1

10 красный цвет шрифта
35 и 1 зеленый цвет шрифта
20 синий цвет шрифта

Спасибо.

[ex.cluz]

Я бы посоветовал сделать виртуальное хранилище данных (двухмерный динамический массив, содержащий числа типа byte) о цвете шрифта в каждой ячейке.

[Sibedir]

Да не. По моему, тут все проще. Скорее всего StringGrid - readonly, и просто нужно наглядно визуализировать какие-то выходные данные. У меня такое 100 раз было.

В событии DrawCell грида есть код, который окрашивает шрифт каждой ячейки цветом

А что мешает в этом же DrawCell перерисовать цыфры без букв?

P.S:

В событии DrawCell

Строго говоря, событие называется - OnDrawCell. А DrawCell - это процедура, причем защищенная.

[начинающий1]

Sibedir
Вот, что у меня в событии OnDrawCell:

f:= Pos('ф',tabl1.Cells[ACol,ARow]);
m:= Pos('м',tabl1.Cells[ACol,ARow]);
with tabl1.Canvas do
begin
if (f<>0) and (m=0) and (ACol<>1) then
begin
Font.Color:=clRed; //устанавливаем красный цвет шрифта
Brush.Color:=clWhite; //устанавливаем белый цвет фона
FillRect(Rect); //заливаем фон
end
else
if (m<>0) and (f=0) and (ACol<>1) or (tabl1.Cells[ACol,ARow]='') then
begin
Font.Color:=clGreen; //устанавливаем зеленый цвет шрифта
Brush.Color:=clWhite; //устанавливаем белый цвет фона
FillRect(Rect); //заливаем фон
end;
end;

WriteText(Form2.tot.Canvas,Rect,2,2,tabl1.Cells[ACol,ARow],taCenter);

А что мешает в этом же DrawCell перерисовать цыфры без букв?

Мешает незнание того, как это можно сделать.

[Stilet]

Так:

f:= Pos('ф',tabl1.Cells[ACol,ARow]);
m:= Pos('м',tabl1.Cells[ACol,ARow]);
s:=tabl1.Cells[ACol,ARow];
with tabl1.Canvas do begin
 if (f<>0) and (m=0) and (ACol<>1) then begin
  Font.Color:=clRed; //устанавливаем красный цвет шрифта
  Brush.Color:=clWhite; //устанавливаем белый цвет фона
  FillRect(Rect); //заливаем фон
  delete(s,f,1);
 end else
   if (m<>0) and (f=0) and (ACol<>1) or (tabl1.Cells[ACol,ARow]='') then begin
    delete(s,m,1);
    Font.Color:=clGreen; //устанавливаем зеленый цвет шрифта
    Brush.Color:=clWhite; //устанавливаем белый цвет фона
    FillRect(Rect); //заливаем фон
   end;
end;

WriteText(Form2.tot.Canvas,Rect,2,2,s,taCenter);

Я выделил основные моменты
s - переменка типа String

[начинающий1]

Stilet

Я выделил основные моменты

Так все остается на своих местах(ничего не меняется)

[Stilet]

поставь точки прерывания на строки с delete(s,...
Сработает хоть одна?
Если нет то твои условия в IF'ах нужно переделывать.

[_Engine_]

Поставь DefaultDrawing := false;

[RuVarez]

Лучше всего скачай NextGrid. Самый удобный Grid с огромными возможностями)

[начинающий1]

Сообщение от Stilet

поставь точки прерывания на строки с delete(s,...
Сработает хоть одна?
Если нет то твои условия в IF'ах нужно переделывать.

Срабатывает, но результат остается с буковкой