<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:v =
"urn:schemas-microsoft-com:vml" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:w =
"urn:schemas-microsoft-com:office:word" xmlns:m =
"http://schemas.microsoft.com/office/2004/12/omml"><HEAD>
<META content="text/html; charset=utf-8" http-equiv=Content-Type>
<META name=Generator content="Microsoft Word 12 (filtered medium)">
<STYLE><!--
/* Font Definitions */
@font-face
{font-family:SimSun;
panose-1:2 1 6 0 3 1 1 1 1 1;}
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:"\@SimSun";
panose-1:2 1 6 0 3 1 1 1 1 1;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{mso-style-priority:99;
mso-style-link:"Balloon Text Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif";}
span.EmailStyle17
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle18
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.BalloonTextChar
{mso-style-name:"Balloon Text Char";
mso-style-priority:99;
mso-style-link:"Balloon Text";
font-family:"Tahoma","sans-serif";}
..MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.WordSection1
{page:WordSection1;}
--></STYLE>
</HEAD>
<BODY lang=EN-NZ dir=ltr vLink=purple link=blue>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>For
a Firemonkey stringgrid I wish to color some rows depending on the data in one
cell (column 3 has a web return code from a web call, eg 200 or 404
etc)</DIV></DIV>
<DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>Firemonkey
is q</DIV>
<DIV style="TEXT-DECORATION: ; FONT-FAMILY: ; COLOR: ; DISPLAY: inline">uite
different from how to do it in a VCL stringgrid. Example below is
best code I have found so far.</DIV></DIV>
<DIV>
<DIV
style="TEXT-DECORATION: ; FONT-FAMILY: ; COLOR: ; DISPLAY: inline"> </DIV></DIV>
<DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>This
code works in Windows but not android - ie in android cbxShowColor being
checked shows each cell with black blackground. If unchecked, displays on
white background as it should.</DIV></DIV>
<DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'> </DIV></DIV>
<DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>Question
1 – does anyone know ideal way to show colors in a grid (either font or
background would be fine). See DrawColumnCell code below which is
called when DefaultDraw is set to false.</DIV></DIV>
<DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'> </DIV></DIV>
<DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'> </DIV></DIV>
<DIV>
<DIV>procedure TfrmURLTest.grdURLDrawColumnCell(Sender: TObject; const Canvas:
TCanvas; const Column: TColumn; const Bounds: TRectF;</DIV>
<DIV> const Row: Integer; const Value: TValue; const State:
TGridDrawStates);</DIV>
<DIV>var</DIV>
<DIV>celltxt:string;</DIV>
<DIV>code1:Char;</DIV>
<DIV>aRowColor: TBrush;</DIV>
<DIV>begin</DIV>
<DIV> </DIV>
<DIV>//it's better to write this line into create</DIV>
<DIV> code1:='1';</DIV>
<DIV> celltxt:=grdURL.Cells[3,Row];</DIV>
<DIV> if(length(celltxt) > 0) then code1:=celltxt[1];</DIV>
<DIV> aRowColor :=
Tbrush.Create(TBrushKind.Solid,TAlphaColors.Alpha);</DIV>
<DIV> //-----</DIV>
<DIV> if cbxShowColor.IsChecked then</DIV>
<DIV> begin</DIV>
<DIV> case code1 of</DIV>
<DIV> '1': aRowColor.Color := TAlphaColors.white;</DIV>
<DIV> '2': aRowColor.Color :=
TAlphaColors.palegreen; //lightgreen;</DIV>
<DIV> '4': aRowColor.Color := TAlphaColors.Salmon;
//Yellow;</DIV>
<DIV> '5': aRowColor.Color := TAlphaColors.Red;</DIV>
<DIV> 'E': aRowColor.Color := TAlphaColors.Red;</DIV>
<DIV> end;</DIV>
<DIV> end else</DIV>
<DIV> begin</DIV>
<DIV> aRowColor.Color := TAlphaColors.white;</DIV>
<DIV> end;</DIV>
<DIV> </DIV>
<DIV> //setting DefaultDraw to true does not seem to turn this code
off</DIV>
<DIV> Canvas.FillRect(Bounds, 0, 0, [], 1, aRowColor);</DIV>
<DIV> Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);</DIV>
<DIV> aRowColor.free;</DIV>
<DIV>end;</DIV>
<DIV> </DIV>
<DIV> </DIV></DIV></DIV></DIV></BODY></HTML>