also ich versthe dich nicht, was ist nun dein Problem ? das zeichnen oder wie du rausfindest, ob du das scan setzten mußt?
Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with Sender as TStringGrid do
begin
canvas.Font.Size:=font.size;
canvas.TextOut(rect.Left+2,rect.Top+2,cells[acol,arow]);
//Scan zeichnen
if (acol=1) and ((arow mod 2 )=1) then
begin
canvas.Font.Size:=8;
canvas.Font.Color:=clwhite;
canvas.brush.Color := clblack;
canvas.TextOut(rect.Right-canvas.TextWidth('SCAN')-1,
rect.bottom-canvas.Textheight('SCAN')-1,
'SCAN' );
end;
end;
end;
mal wie in deinem bild unter rechts "Scan" mit weißer schrift auf schwarzen grund in jede zweite Zeile.
Irgendwie mußt du doch die werte auch ins grid übertragen, dann weißt du doch, bei welchen du "scan" zeichnen mußt oder nicht.
oder du verwendest wie sharky die Objects (kannst pro Zelle ein Objekt hinterlegen, geht genauso wie bei der cells-Eigenschaft) um diese Zusatzinfo mit zu hinterlegen.