CreateSizingBtnsGroup

function CreateSizingBtnsGroup(targetLayer: TLayer32; style: TSizingStyle; buttonColor: TColor32; buttonSize: integer; buttonOptions: TButtonOptions; buttonLayerClass: TButtonDesignerLayer32Class = nil): Boolean;


Creates a group of button design layers based on the function parameters. These button will be topmost of current layers, so once these buttons have been created, the last button in the group will be targetLayer.owner.TopLayer.

From Examples/Layers

procedure TForm1.AddButtons(layer: TLayer32);
begin
  activeLayer := layer;
  CreateSizingBtnsGroup(layer, ssEdgesAndCorners, clBlue32, DPI(8), []);
  activeLayer.CursorId := crSizeAll;
end;
    

See Also

TButtonOptions, TSizingStyle