procedure TForm1.RebuildPanelButtons(AType: byte);
begin
  spSkinPanel1.Visible:= not boolean(AType);
  spSkinPanel2.Visible:= boolean(AType);
  spSkinSplitterEx1.Visible:= boolean(AType);
  case AType of
    0 : begin

         // page control
          btnSelectMode.Parent:=  spSkinPanel1;
          btnSelectMode.Align:= alLeft;
          //spSkinPanel1.Visible:= true;
          Panel4.Height:= 0;
          //spSkinPanel2.Visible:= false;
          //spSkinSplitterEx1.Visible:= false;
        end;
    1 : begin
          // left panel
          btnSelectMode.Parent:=  spSkinPanel3;
          //spSkinPanel1.Visible:= false;
          btnSelectMode.Align:= alClient;
          Panel4.Height:= 58;
          //spSkinPanel2.Visible:= true;
          //spSkinSplitterEx1.Visible:= true;
        end;
  end;
end;