Change fonts between columns in a TStringGrid (Views: 706)
Problem/Question/Abstract: How to change fonts between columns in a TStringGrid Answer: You must write the text to the canvas after setting the font. Use Canvas.TextRect for this: procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with Sender as TStringGrid do begin case aCol of 0: canvas.font.name := 'Courier New'; 1..5: canvas.font.name := 'Arial'; end; Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]); end; end; |