unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, fpspreadsheetgrid;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
sWorksheetGrid1: TsWorksheetGrid;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
const
Button2Caption: array[false..true] of string = ('DisableFixedColRow', 'EnableFixedColRow');
procedure TForm1.FormCreate(Sender: TObject);
const
strings: array[1..3] of string = ('String 1', 'String 2', 'String 3');
var
i: Integer;
begin
for i := low(strings) to high(strings) do
sWorksheetGrid1.Cells[i, 1] := strings[i];
sWorksheetGrid1.Options := sWorksheetGrid1.Options + [goColSizing, goDblClickAutoSize, goFixedColSizing];
sWorksheetGrid1.DisplayFixedColRow := true;
Button1.Autosize := true;
Button2.Autosize := true;
Button3.AutoSize := true;
Button1.Caption := 'Autosize All';
Button2.Caption := Button2Caption[not sWorksheetGrid1.DisplayFixedColRow];
Button3.Caption := 'Autosize Col 0';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
sWorksheetGrid1.AutoAdjustColumns;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button2.Caption := Button2Caption[sWorksheetGrid1.DisplayFixedColRow];
sWorksheetGrid1.DisplayFixedColRow := not sWorksheetGrid1.DisplayFixedColRow;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
sWorksheetGrid1.AutoColWidth(0);
end;
end.