Now for the second part, I jumped the gun a bit... You can draw whatever you want on the canvas. You could fill each cell with a hundred colours if you like. HTH,
Chris > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Friday, 20 September 2002 3:08 p.m. > To: Multiple recipients of list delphi > Subject: [DUG]: OnDrawCell > > > Hi folks, > I'm trying to write a handler to get TStringGrid to vary colours for > certain cells. From my reading, I should just have to hook OnDrawCell > and do something like this below, but if I do this, there is no sign > of my event doing a thing (though a breakpoint shows it IS called). > > Could someone let me know what I'm missing? (I have tried changing > the DefaultDraw property, makes no difference to this scenario except > that False means even the underlying/original appearance and cell > data is not drawn. Also inspected the TStringGrid source -- nothing > obvious leaps out!). > > procedure TmyForm.sgrdDrawCell(Sender: TObject; ACol, > ARow: Integer; Rect: TRect; State: TGridDrawState); > begin > inherited; > with Canvas do > begin > font.color := clRed; > Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, 'RED HERE'); > end; > end; > > And if you have a solution to that, can anyone advise if there is a > clever way to draw DIFFERENT colours within the cell, viz (something > like): > > with Canvas do > begin > font.color := clRed; > Canvas.TextOut(Rect.Left+2, Rect.Top+2, 'RED'); > font.color := clBlue; > Canvas.TextOut(Rect.Left+2+PenPos.X, > Rect.Top+2+PenPos.Y, 'BLUE'); > end; > > Since I can't even get to first base, needless to say the above > doesn't work for me <g>. > > cheers, > peter > > =========================================== > Peter Hyde, SPIS Ltd, Christchurch, New Zealand > * TCompress/TCompLHA component sets for Delphi/Kylix/C++ > * TurboNote+: http://TurboPress.com/tbnote.htm > -- top-rated onscreen sticky notes > * Web automation for online periodicals: http://TurboPress.com > Find all the above and MORE at http://spis.co.nz > > > -------------------------------------------------------------- > ------------- > New Zealand Delphi Users group - Delphi List - > [EMAIL PROTECTED] > Website: http://www.delphi.org.nz > To UnSub, send email to: [EMAIL PROTECTED] > with body of "unsubscribe delphi" > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ > --------------------------------------------------------------------------- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
