Column Autosize in TStringGrid?

[egsuh]

Recently I installed Lazarus 2.2.6. Are there any way that I can set auto column size in TStringGrid? I think I did this in the past, but cannot find the method any more.

[Handoko]

I just tested TStringGrid.AutoSizeColumn(aCol) on my Lazarus 2.2.6 Linux, it worked:

https://lazarus-ccr.sourceforge.io/docs/lcl/grids/tcustomstringgrid.autosizecolumn.html

[egsuh]

Thank you Handoko.
It means I should run the program whenever I change something, doesn't it?

[rvk]

TCustomGrid.AutoFillColumns then?
https://lazarus-ccr.sourceforge.io/docs/lcl/grids/tcustomgrid.autofillcolumns.html

That property should do it automatically after changes.

[Handoko]

I just tested AutoFillColumns, it behaved very similar to AutoSizeColumn:
- AutoFillColumns will resize the width of all columns
- AutoSizeColumn will only resize the width of the column supplied in the parameter
- Both AutoFillColumns and AutoSizeColumn won't autoresize if the data changed

If the data of the related column has been changed, we need to call the function again, they won't automatically resize it for you.

Tested only on Linux, not sure how will they behave on other OSes.

[rvk]

- Both AutoFillColumns and AutoSizeColumn won't autoresize if the data changed

Ha, that's strange and not according to documentation.
AutoFillColumns should do that.

Note that TGridColumn instances in Columns are initially created with SizePriority set to 1. For TDbGrid, which automatically populates Columns, this means the user will not be able to resize these columns using the mouse (since they are auto-sized).

AutoFillColumns is a property to set once and not a function to call every time.
You can't set it to true twice (you can but that shouldn't have any effect).

[Handoko]

I retested AutoFillColumns again using this code:

Code: Pascal  [Select][+][-]

1. unit Unit1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. interface
6.  
7. uses
8.   Classes, SysUtils, Forms, Controls, Grids, StdCtrls;
9.  
10. type
11.  
12.   { TForm1 }
13.  
14.   TForm1 = class(TForm)
15.     Button1: TButton;
16.     StringGrid1: TStringGrid;
17.     procedure Button1Click(Sender: TObject);
18.     procedure FormCreate(Sender: TObject);
19.   private
20.   end;
21.  
22. var
23.   Form1: TForm1;
24.  
25. implementation
26.  
27. {$R *.lfm}
28.  
29. { TForm1 }
30.  
31. procedure TForm1.FormCreate(Sender: TObject);
32. begin
33.   StringGrid1.Options := StringGrid1.Options + [goEditing];
34. end;
35.  
36. procedure TForm1.Button1Click(Sender: TObject);
37. begin
38.   StringGrid1.AutoFillColumns := True;
39. end;
40.  
41. end.

It seemed buggy on my test, or I just don't understand how it works? See the attached screenshot below, the columns weren't resize properly.

[rvk]

I retested AutoFillColumns again using this code:

Woops, sorry, I was wrong 

AutoFillColumns is for autofilling the columns to the size of the grid so there is no whitespace next to the last column.
It will also hold this setting when the grid is resized (because of a right anker).

So calling StringGrid1.AutoSizeColumns after each change is the only way.

But I don't see an OnChange event.

[egsuh]

AutoFillColumns divide column sizes evenly to all columns. No?

With TDBGrid, I could set both column autosize and autofillcolumns by setting size priorityhy of the last column to 2.

[Zvoni]

But I don't see an OnChange event.

OnEditingDone?

[rvk]

But I don't see an OnChange event.

OnEditingDone?

I meant something that would also trigger if you change cells in code.

You could use some idle event but that would use a lot of resources.
I guess it should also just be done in code then.

[Zvoni]

But I don't see an OnChange event.

OnEditingDone?

I meant something that would also trigger if you change cells in code.

In that case you ARE already within "running" code. Fire off an AutoSizeColumn, and you're good.
OnEditingDone was more for if you change something in the Grid itself
The only other Event catching my eye is OnDrawCell or OnPaint