PageControlPages (Delphi)

Description

This project requires a TPageControl and several TTabPages. To add new pages, right-click the TPageControl and select New Page. During the form creation, the width and height of all tabs on the Page Control become double the largest previous value. So if there are three tabs with captions that are 12, 23, and 19 characters long, the TabWidth would be the number of pixels required to fit 46 characters.

Code

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  with PageControl1 do
  begin
    for i := 0 to PageCount - 1 do
    begin
      if (Canvas.TextWidth(Pages[i].Caption) * 2) > TabWidth then
        TabWidth := Canvas.TextWidth(Pages[i].Caption) * 2;
      if (Canvas.TextHeight(Pages[i].Caption) * 2) > TabHeight then
        TabHeight := Canvas.TextHeight(Pages[i].Caption) * 2;
    end;
  end;
end;

Uses

• Vcl.ComCtrls.TPageControl.Pages ( fr | de | ja )
• Vcl.ComCtrls.TCustomTabControl.TabHeight ( fr | de | ja )
• Vcl.ComCtrls.TCustomTabControl.TabWidth ( fr | de | ja )
• Vcl.Graphics.TCustomCanvas.TextHeight ( fr | de | ja )
• Vcl.Graphics.TCustomCanvas.TextWidth ( fr | de | ja )