unit1.pas

来自「左界面滚动界面制作实例,需要flatstyle平面控件」· PAS 代码 · 共 224 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, ComCtrls, ToolWin, Buttons, WinSkinData,
  SkinCaption, TFlatButtonUnit, TFlatPanelUnit, TFlatCheckBoxUnit,
  TFlatSpeedButtonUnit, StdCtrls, TFlatEditUnit, TFlatProgressBarUnit,
  TFlatSoundUnit, ImgList, TFlatHintUnit, TFlatSplitterUnit,
  TFlatScrollbarUnit, TFlatSpinEditUnit, TFlatColorComboBoxUnit,
  TFlatComboBoxUnit, TFlatAnimWndUnit;

type
  TForm1 = class(TForm)
    tlb1: TToolBar;
    btn1: TToolButton;
    btn2: TToolButton;
    btn3: TToolButton;
    mm1: TMainMenu;
    kl1: TMenuItem;
    kj1: TMenuItem;
    jk1: TMenuItem;
    pnl_left: TPanel;
    pnl1: TPanel;
    pnl2: TPanel;
    pnl3: TPanel;
    pnl4: TPanel;
    pgc1: TPageControl;
    ts1: TTabSheet;
    ts2: TTabSheet;
    ts3: TTabSheet;
    SkinData1: TSkinData;
    pnl5: TPanel;
    ts4: TTabSheet;
    SkinCaption1: TSkinCaption;
    Flbtn1: TFlatSpeedButton;
    il_tools: TImageList;
    btn6: TToolButton;
    btn7: TToolButton;
    btn8: TToolButton;
    btn9: TToolButton;
    btnSb_explorer_sell: TSpeedButton;
    Flbtn2: TFlatSpeedButton;
    Flbtn3: TFlatSpeedButton;
    Flbtn4: TFlatSpeedButton;
    Flbtn5: TFlatSpeedButton;
    stat1: TStatusBar;
    FlatHint: TFlatHint;
    btn5: TToolButton;
    btn10: TToolButton;
    btn11: TToolButton;
    btn4: TSpeedButton;
    btn12: TSpeedButton;
    FlatSplitter1: TFlatSplitter;
    FlatComboBox1: TFlatComboBox;
    FlatAnimWnd1: TFlatAnimWnd;
    procedure FormShow(Sender: TObject);
    procedure pnl1Resize(Sender: TObject);
    procedure Flbtn1Click(Sender: TObject);
    procedure pnl5Resize(Sender: TObject);
    procedure Flbtn2Click(Sender: TObject);
    procedure pnl3Resize(Sender: TObject);
    procedure pnl2Resize(Sender: TObject);
    procedure pnl4Resize(Sender: TObject);
    procedure Flbtn5Click(Sender: TObject);
    procedure Flbtn4Click(Sender: TObject);
    procedure Flbtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
if not ts1.Showing then ts1.show;
end;

procedure TForm1.pnl1Resize(Sender: TObject);
var
   I_control:integer;
begin
   for I_control:=0 to (sender as Tpanel).ControlCount -1 do
   begin
      with (sender as Tpanel).Controls[I_control] do
      begin
         left:=0;
         top:=0;
         Width :=(sender as Tpanel).Width ;
      end;
   end;

end;

procedure TForm1.Flbtn1Click(Sender: TObject);
begin
pgc1.ActivePage:=ts1;
pnl2.Align:=alBottom;
pnl3.Align:=alBottom;
pnl5.Align:=alBottom;
end;

procedure TForm1.pnl5Resize(Sender: TObject);

var
   I_control:integer;
begin
   for I_control:=0 to (sender as Tpanel).ControlCount -1 do
   begin
      with (sender as Tpanel).Controls[I_control] do
      begin
         left:=0;
         top:=0;
         Width :=(sender as Tpanel).Width ;
      end;
   end;
end;

procedure TForm1.Flbtn2Click(Sender: TObject);
begin
if pnl5.Align=alBottom then
begin
  pgc1.ActivePage:=ts4;
  pnl5.Align:=alTop;
end else if pnl5.Align=alTop then
begin
  pgc1.ActivePage:=ts4;
  pnl2.Align:=alBottom;
  pnl3.Align:=alBottom;
end;
end;

procedure TForm1.pnl3Resize(Sender: TObject);
var
   I_control:integer;
begin
   for I_control:=0 to (sender as Tpanel).ControlCount -1 do
   begin
      with (sender as Tpanel).Controls[I_control] do
      begin
         left:=0;
         top:=0;
         Width :=(sender as Tpanel).Width ;
      end;
   end;

end;

procedure TForm1.pnl2Resize(Sender: TObject);
var
   I_control:integer;
begin
   for I_control:=0 to (sender as Tpanel).ControlCount -1 do
   begin
      with (sender as Tpanel).Controls[I_control] do
      begin
         left:=0;
         top:=0;
         Width :=(sender as Tpanel).Width ;
      end;
   end;

end;

procedure TForm1.pnl4Resize(Sender: TObject);
var
   I_control:integer;
begin
   for I_control:=0 to (sender as Tpanel).ControlCount -1 do
   begin
      with (sender as Tpanel).Controls[I_control] do
      begin
         left:=0;
         top:=0;
         Width :=(sender as Tpanel).Width ;
      end;
   end;

end;

procedure TForm1.Flbtn5Click(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TForm1.Flbtn4Click(Sender: TObject);
begin
if pnl2.Align=albottom then
begin
  pgc1.ActivePage:=ts2;
  pnl5.Align:=alTop;
  pnl3.Align:=alTop;
  pnl2.Align:=alTop;
end else if pnl2.Align=altop then
begin
  pgc1.ActivePage:=ts2;
  
end;
end;

procedure TForm1.Flbtn3Click(Sender: TObject);
begin
if pnl3.Align=albottom then
begin
  pgc1.ActivePage:=ts3;
  pnl5.Align:=altop;
  pnl3.Align:=alTop;
end else if pnl3.Align=altop then
begin
  pgc1.ActivePage:=ts3;
  pnl2.Align:=alBottom;
end;
end;

end.