CreateButtonGroup

procedure CreateButtonGroup(layeredImage32: TLayeredImage32; const buttonPts: TArrayOfPointD; buttonColor: TColor32; buttonSize: integer; buttonOptions: TButtonOptions; buttonLayerClass: TButtonDesignerLayer32Class = nil);


Creates a designer button layer for each coordinate in 'buttonPts'. These button will be topmost of current layers, so once these button layers have been created, the last button in the group will be targetLayer.owner.TopLayer.

From Examples/LayersAndTransform

procedure TForm1.ResetSplinePts;
begin
  //remove any existing buttons (layers)
  with layeredImage32 do
    if Count > 3 then DeleteGroup(TopLayer);

  with layeredImage32[1].Image do //master image
    splinePts := MakePathI([0,margin, Width div 2,0, Width,margin]);
  splinePts := OffsetPath(splinePts, margin, margin);

  CreateButtonGroup(layeredImage32,
    splinePts, clGreen32, DefaultButtonSize, []);
end;
    

See Also

TButtonOptions