Исскуство работы с StringGrid

[>Sergeevich<]

Добрый день, а быть может ночи!
Может я Вам и покажусь лентяем, быть может уже где-нибудь была освещена данная проблема, но, я позволю себе повториться и спросить вновь: кто знает?
Значит проблема вот в чем: создаю я небольшую базу данных, представление которой является список элемента StringGrid.
А необходимо следующее: менять фон ячеек, но чтобы текст оставался виден!!!
Я множество находил исходников, где было показано как менять цвет ячейки, но при изменении такового, текста видно не было, тобиш он просто закрашивался!!!
Подскажите, плиз, каким образом это возможно реализовать, желательно с исходником!!

Заранее всем благодарен, кто останется неравнодушен моей теме!

P.S.
Вот один из примеров:
http://www.sql.ru/forum/actualthread.aspx?tid=152945

[Lokos]

а что если после того как вы поменяли цвет ячейки заново написать в нее текст

[rdama]

А почему БД и StringGrid? Почему не DBGrid?

[Stilet]

>Sergeevich<

Все просто. В OnDrawCell отрисовывать текст нужно после того как залил ячейку.
Сначала выполняешь Canvas.FillRect(Rect) а уже потом желательно в самом конце этого обработчика пиши Canvas.TextOut(... тогда текст отрисуется поверх залитого.

[Korben5E]

действительно - поддерживаю rdama
а почему не DBGrid, в нём эсть событие OnDrawColumnCell которое предназначено для раскраски списка

а в СтрингГриде при самопальной раскраске тебе придется вручную обсчитывать выравнивание текста, размер шрифта и т.п. ....

[Stilet]

действительно - поддерживаю rdama

А я с ним не согласен. Я уже понюхал эту гадость, больше к DB контролам никогда не вернусь. (впрочем это субъективный оффтоп...)

[Korben5E]

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

А я с ним не согласен. Я уже понюхал эту гадость, больше к DB контролам никогда не вернусь. (впрочем это субъективный оффтоп...)

конечно официальный ДБГрид до сих пор в дельфях не исправлен, например по поводу мышки он не слабо косячит

но раскраску списка он делает прекрасно.

[>Sergeevich<]

Быть может и стоит уйти от стринга!!
А в ДБГриде??? Все тоже?? Можете покидать примерчики, если несложно...

[>Sergeevich<]

Точнее, как работать с ДБГридом, каким образом менять цвет...
Заранее благодарен неравнодушным!!

[Korben5E]

procedure TForm1.DBGrid1DrawColumnCell(Sender : TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
{
в функцию передается:
const Rect: TRect; - координаты ячейки для рисования
DataCol: Integer; - номер колонки в гриде
Column: TColumn; - указатель на саму колонку
State: TGridDrawState - состояние ячей
}

// условие на проверку значения поля и его отрисовку
// будем красить только поле с именем intField и типом integer
// ну условие на твой вкус с учетом что можно и номер колонки сюда подключить

if DataSet1['intField'] = 1 then
begin
// если текущая ячейка выделена
if gdSelected in State then
DBGrid1.Canvas.Brush.Color := clGreen // красим в зеленый
else
DBGrid1.Canvas.Brush.Color := clMoneyGreen; // иначе в салатовый

// так-же делаем шрифт жирным
DBGrid1.Canvas.Font.Style := [fsBold];

// и красным цветом
DBGrid1.Canvas.Font.Color := clRed;

// выполняем отрисовку
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
// замечу что эту функцию надо вызывать если необходима отрисовка
// если отрисовка ненужна - вызов ни к чему
end

end;