Hello, I want to change certain cells in StringGrid. Here is an example, but it changes all cells. Any idea where is wrong?

procedure TForm1.StringGrid1Click(Sender: TObject);
var
 i, j: integer;
begin
 for i := 1 to 4 do
 for j := 1 to 4 do Begin

if i=j

 then StringGrid1.Font.Style := [fsBold]
 else StringGrid1.Font.Style := [];
 StringGrid1.Cells[i,j] := 'StrTest';
 end;
end;

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20130707/bb0db621/attachment.html>

That's wrong. You're changing TStringGrid.Font. If you want to change font of one (few) cells only then you should use OnDrawCell or something similar where you can change canvas.Font per cell.

z.

Try this:
?
procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
 aState: TGridDrawState);
begin
? if aCol = aRow then (Sender as TStringGrid).Canvas.Font.Style := [fsBold];
end;
?
Vojt?ch?
______________________________________________________________

Hello, I want to change certain cells in StringGrid.?

----------

That did it, thank you both!

-------- ?????????? ????? --------
??: Vojt?ch ?ih?k
???????: Re: [Lazarus] StringGrid
??: Lazarus mailing list
????????? ??: ??????, 2013, ??? 7 13:32:50 EEST

Try this:

 procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
 aState: TGridDrawState);
begin
 if aCol = aRow then (Sender as TStringGrid).Canvas.Font.Style := [fsBold];
end;

Vojt?ch

______________________________________________________________

Hello, I want to change certain cells in StringGrid.

----------