ctrls2.pas

来自「themeengine6源码」· PAS 代码 · 共 48 行

unit ctrls2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  te_controls, ExtCtrls;

type
  TfrmControls2 = class(TForm)
    KsBlendPanel1: TTePanel;
    KsBlendPanel2: TTePanel;
    SeSkinForm1: TTeForm;
    TabControl: TTeTabControl;
    PageControl: TTeTabControl;
    TTeTabSheet1: TTeTabSheet;
    TTeTabSheet2: TTeTabSheet;
    TTeTabSheet3: TTeTabSheet;
    TTeTabSheet4: TTeTabSheet;
    KsBlendCheckBox2: TTeCheckBox;
    SeSkinButton1: TTeButton;
    SeSkinCheckBox1: TTeCheckBox;
    SeSkinSpeedButton1: TTeSpeedButton;
    procedure KsBlendCheckBox2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmControls2: TfrmControls2;

implementation

uses Main;

{$R *.DFM}

procedure TfrmControls2.KsBlendCheckBox2Click(Sender: TObject);
begin
  TabControl.MultiLine := KsBlendCheckBox2.Checked;
  PageControl.MultiLine := KsBlendCheckBox2.Checked;
  PageControl.Realign;
end;

end.