Thanks for everything you've done already and I hope you will have another answer for me. I think I am starting to drive myself crazy with this code so any input you have would be greatly welcomed. What I am wondering now is how does it know what cells to color because I obviously do not have that in there anymore. So then I would loop through each item in the String List to pull out the cell locations (errCol, errRow) that need to be colored. If that StringList has a count greater then 0 then I need to color the cells. I have a StringList called ErrList which gets populated with the cells that have errors. Anyways let me explain what I need to happen or what I am trying to do with this. My code even seems like there is something missing now. Sempre que um evento do mouse ocorre, as informações sobre tal evento são fornecidas ao método de tratamento de evento por meio de um objeto da classe MouseEventArgs (alguns eventos usam EventArgs) e o delegate usado para criar os gerenciadores de eventos do mouse é MouseEventHandler.
Procedure TfrmMain.sgStatusCounterDrawCell(Sender: TObject ACol,ĪRow: Integer Rect: TRect State: TGridDrawState) Ĭanvas.TextRect( Rect, Rect.Left+2, Rect.Top+2, Cells) Įlse if (StrToInt(cells) >= 85) and (StrToInt(cells) 80) and (StrToInt(cells) < 85) thenĮnd RE: TStringGrid and cell colors tamara3776 (Programmer)ĮrrCol := StringReplace(LeftStr(ErrList, 2), ',', '', ) ĮrrRow := StringReplace(RightStr(ErrList, 2), ' ', '', )
0 kommentar(er)
