A single developer license allows 1 developer to use the components for development, obtain free updates & support for a full version cycle of the product. The license is not transferable.
A single developer license allows 1 developer to use the components for development, obtain free updates & support for 1 year. The license is not transferable.
A single developer license allows 1 developer to use the components for development, obtain free updates & support for 2 years. The license is not transferable.
A small team license allows 2 developers within the company to use the components for development, obtain free updates & support for a full version cycle of the product. The license is not transferable.
A small team license allows 2 developers within the company to use the components for development, obtain free updates & support for 1 year. The license is not transferable.
A small team license allows 2 developers within the company to use the components for development, obtain free updates & support for 2 years. The license is not transferable.
A site license allows an unlimited number of developers within the company to use the components for development, obtain free updates & support for a full version cycle of the product. Developers can be added at any time during the full version cycle.
A site license allows an unlimited number of developers within the company to use the components for development, obtain free updates & support for 1 year. Developers can be added at any time during the 1 year period.
A site license allows an unlimited number of developers within the company to use the components for development, obtain free updates & support for 2 years. Developers can be added at any time during the 2 year period.
TAdvStringGrid
Example 88 : Persist column state in an INI file and allow column selection via a column picker
Drop a TAdvStringGrid and TAdvGridColumnPicker on the form and add following code:
procedure TForm4.FormCreate(Sender: TObject);
var
s: string;
ini: TINIFile;
begin
AdvStringGrid1.LinearFill(true);
AdvStringGrid1.SetColumnOrder;
AdvStringGrid1.Options := AdvStringGrid1.Options + [goColMoving, goColSizing];
AdvGridColumnPicker1.Grid := AdvStringGrid1;
ini := TINIFile.Create('.\gridsettings.ini');
s := ini.ReadString('GRID','SETTINGS', '');
ini.Free;
if s <> '' then
begin
AdvStringGrid1.StringToColumnStates(s);
AdvGridColumnPicker1.Init;
end;
end;
In the form constructor, we are reloading the persisted settings for column with, position, visibility from the INI file
and initializing grid and column picker with these settings.
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
var
s: string;
ini: TINIFile;
begin
s := AdvStringGrid1.ColumnStatesToString;
ini := TINIFile.Create('.\gridsettings.ini');
ini.WriteString('GRID','SETTINGS', s);
ini.Free;
end;