unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, StdCtrls, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
ScrollBox1: TScrollBox;
ScrollBox2: TScrollBox;
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
end;
var
Form1: TForm1;
implementation
const
Spacing = 20;
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
LabelEdit: TLabeledEdit;
i: Integer;
begin
ScrollBox1.Align := alLeft;
ScrollBox1.BorderStyle := bsNone;
ScrollBox1.BorderSpacing.Around := Spacing;
ScrollBox2.Align := alClient;
ScrollBox2.BorderSpacing.Around := Spacing;
ScrollBox2.BorderStyle := bsNone;
LabelEdit := TLabeledEdit.Create(Self);
LabelEdit.Parent := ScrollBox1;
LabelEdit.Top := 20;
LabelEdit.Left := 8;
LabelEdit.Width := ScrollBox1.Width - 16;
LabelEdit.Anchors := [akLeft, akRight, akTop];
LabelEdit.EditLabel.Caption := 'First Name';
LabelEdit := TLabeledEdit.Create(Self);
LabelEdit.Parent := ScrollBox1;
LabelEdit.Top := 20 +50;
LabelEdit.Left := 8;
LabelEdit.Width := ScrollBox1.Width - 16;
LabelEdit.Anchors := [akLeft, akRight, akTop];
LabelEdit.EditLabel.Caption := 'Last Name';
LabelEdit := TLabeledEdit.Create(Self);
LabelEdit.Parent := ScrollBox1;
LabelEdit.Top := 70 +50;
LabelEdit.Left := 8;
LabelEdit.Width := ScrollBox1.Width - 16;
LabelEdit.Anchors := [akLeft, akRight, akTop];
LabelEdit.EditLabel.Caption := 'Company';
LabelEdit := TLabeledEdit.Create(Self);
LabelEdit.Parent := ScrollBox1;
LabelEdit.Top := 120 +50;
LabelEdit.Left := 8;
LabelEdit.Width := ScrollBox1.Width - 16;
LabelEdit.Anchors := [akLeft, akRight, akTop];
LabelEdit.EditLabel.Caption := 'Street';
LabelEdit := TLabeledEdit.Create(Self);
LabelEdit.Parent := ScrollBox1;
LabelEdit.Top := 170 +50;
LabelEdit.Left := 8;
LabelEdit.Width := ScrollBox1.Width - 16;
LabelEdit.Anchors := [akLeft, akRight, akTop];
LabelEdit.EditLabel.Caption := 'City';
for i := 1 to 7 do
begin
LabelEdit := TLabeledEdit.Create(Self);
LabelEdit.Parent := ScrollBox2;
LabelEdit.Top := -30 + i*50;
LabelEdit.Left := 8;
LabelEdit.Width := ScrollBox2.Width - 16;
LabelEdit.Anchors := [akLeft, akRight, akTop];
LabelEdit.EditLabel.Caption := 'Item' + i.ToString;
end;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
ScrollBox1.Width := (Width - 3*Spacing) div 2;
end;
end.