RAD 10 新控件 TSearchBox TSplitView

Seattle新控件

1.TSearchBox

Events

OnInvokeSearch published Occurs when the search indicator button is clicked. 

 Properties

ButtonWidth published The width of the search box indicator button.
SearchIndicator published The type of the search box button.

 

 

TLocationSensor

2.TSplitView

 导航，侧边栏，SplitView，SplitView1

if SV.Opened then
SV.Close
else
SV.Open;

可以自动伸缩收起，展开的控件容器，好用！

CloseStyle：svcCollapse（动画收缩至不可见）、svcCompact（直接合并到CompactWidth宽度）

E:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\VCL\SplitView

svcCompact的效果，左侧小图标还在。

里边放到是TCategoryButtons控件列表

svcCollapse效果

 

procedure TSplitViewForm.SVClosed(Sender: TObject);
begin
  // When TSplitView is closed, adjust ButtonOptions and Width
  catMenuItems.ButtonOptions := catMenuItems.ButtonOptions - [boShowCaptions];
  if SV.CloseStyle = svcCompact then
    catMenuItems.Width := SV.CompactWidth;
end;

procedure TSplitViewForm.SVClosing(Sender: TObject);
begin
//
end;

procedure TSplitViewForm.SVOpened(Sender: TObject);
begin
  // When not animating, change size of catMenuItems when TSplitView is opened
  catMenuItems.ButtonOptions := catMenuItems.ButtonOptions + [boShowCaptions];
  catMenuItems.Width := SV.OpenedWidth;
end;

 

 

3.TDockTabSet

停靠，侧边栏

官网例子

Using the TDockTabSet component by Jeremy North

http://edn.embarcadero.com/article/33446

Abstract: Instructions on how to use the TDockTabSet component to make advanced docking user interfaces.

 

另外一个例子

http://community.embarcadero.com/article/technical-articles/145-ui/5501-using-the-tdocktabset-component-by-jeremy-north

 

http://blog.csdn.net/cb168/article/details/25246071

本机下有demo，这是XE6，但是berlin、Tokyo已经没有此demo了，难道是建议升级改用SplitView控件了吗。

D:\Users\Public\Documents\Embarcadero\Studio\14.0\Samples\Object Pascal\VCL\Docking

 

TGridPanel

固定的行，列，每个单元格一个控件，通过里边的控件padding设置边距，可以实现卡片，但是没有滚动条。是个遗憾。

 

TFlowPanel

要是能设边距就好了。也是没有滚动条。

设置每个子panel属性即可。pnl.AlignWithMargins:=true 就有边距了。

TCategoryButtons

Button侧边，只支持win vcl，不支持firemonkey

TCategoryPanelGroup

 

toolbutton控件，DropdownMenu属性，鼠标按下弹出菜单。

 

 

IDE插件

Documentation Insight

XE2继承了，后来又不见了。国人开发。

http://edn.embarcadero.com/article/42394

http://bbs.csdn.net/topics/370172899

 

使用的一些例子

https://community.embarcadero.com/blogs/entry/list-of-free-delphi-libraries-examples-from-winsoft

 

Label控件增加了Layout，居中，局上局下

 

TControlList

http://docwiki.embarcadero.com/RADStudio/Sydney/en/Using_VCL_TControlList_Control

鼠标右键，Bind visuall>Live bindings 就和FMX里的绑定一样了。

 

TImageCollection

http://docwiki.embarcadero.com/RADStudio/Sydney/en/Supporting_high-DPI_images_with_the_Image_Collection_and_Virtual_ImageList_components