kolor tla komorek StringGrid

[ern777est]

Witam.
Moj problem polega na ustawieniu koloru tla dla kazdej komorki obiektu StringGrid na podstawie wartosci [0..255] ktore znajduja sie w komorkach.
Liczby w komorkach maja dotyczyc skladowej R, G i B maja byc =0.
Zrobilem to na podstawie tego:
http://cyfrowy.baron.webpark.pl/stringgrid.html#grid6
ale tu kolor jest ustawiony w kodzie i nie wiem jak go zmieniac dynamicznie w trakcie dzialania programu.
Gdyby ktos byl tak mily i mogl zerknac do tego programu:
http://www.e-mazing.pl/pliki/stuff/kolory_komorek.rar
Chodzi i to zeby po wpisaniu liczb w komorki i kliknieciu "pokaż", komorki zmienily kolor na odcienie czerwonego.
Bede bardzo wdzieczny za pomoc.

[Cyfrowy Baron]

W poradzie Określanie koloru dla wybranej komórki StringGrid jest tak:

Kod: Zaznacz cały

1.  
2. void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
3.       int ARow, TRect &Rect, TGridDrawState State)
4. {
5.  if(ARow == 2)
6.  {
7.   if(ACol == 1) StringGrid1->Canvas->Brush->Color = clYellow;
8.   if(ACol == 2) StringGrid1->Canvas->Brush->Color = clRed;
9.   if(ACol == 3) StringGrid1->Canvas->Brush->Color = clBlue;
10.   if(ACol == 4) StringGrid1->Canvas->Brush->Color = clGreen;
11.   StringGrid1->Canvas->FillRect(Rect);
12.   StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]);
13.  }
14. }
15.  

Odrysowaniem koloru steruje zdarzenie OnDrawCell, które jest wywoływane każdorazowo, gdy zachodzą jakieś zmiany w obiekcie StringGrid.
Zastanów się jak można sterować kolorem komórki? Przecież to banalnie proste, wystarczy zdefiniować zmienną globalną typu TColor i to za jej pomocą zmieniać kolor komórki:

plik nagłówkowy np. Unit1.h

Kod: Zaznacz cały

1.  
2. public:
3.         TColor kolor;
4.  

plik źródłowy np. Unit1.cpp

Kod: Zaznacz cały

1.  
2. void __fastcall TForm1::Button1Click(TObject *Sender)
3. {
4.  kolor = clRed;
5.  StringGrid1->Repaint();
6. }
7. //-----------------------------------------------------------------------------------
8. void __fastcall TForm1::Button2Click(TObject *Sender)
9. {
10.  kolor = clYellow;
11.  StringGrid1->Repaint();
12. }
13. //-----------------------------------------------------------------------------------
14. void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
15.       int ARow, TRect &Rect, TGridDrawState State)
16. {
17.  if(ARow == 2)
18.  {
19.   if(ACol == 1) StringGrid1->Canvas->Brush->Color = kolor; // tutaj zmienna steruje kolorem
20.   StringGrid1->Canvas->FillRect(Rect);
21.   StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]);
22.  }
23. }
24.  

Ten prosty przykład powinien dać Tobie ogląd na sprawę, a jeżeli nie zrozumiałeś, to już nie pomogę.

[ern777est]

Dzieki Baronie
udalo sie