Tips and Frequently Asked Questions
Adding metafiles as block on the toolbar
procedure TForm1.atDiagram1InsertDControl(Sender: TObject; ADControl: TDiagramControl); begin if UpperCase(ADControl.DControlID) = 'MYBLOCK' then begin With ADControl As TDiagramBlock do begin Shape := bsNoShape; Metafile.LoadFromFile('C:\MyMetafile.wmf'); end; end else if UpperCase(ADControl.DControlID) = 'MYOTHERBLOCK' then begin With ADControl As TDiagramBlock do begin Color := clYellow; end; end; end; initialization RegisterDControl(TDiagramBlock, 'MyBlock', 'This is a caption for my block', 'My category'); RegisterDControl(TDiagramBlock, 'MyOtherBlock', 'This is a caption for my other block', 'My category');
atDiagram1.GraphicLib := dglGdiPlus;
Pricing
Single Developer License
Small Team License
Site License
TMS Diagram Studio
€ 135
€
45
yearly renewal
license for 1 developer
MOST POPULAR
BEST VALUE
All prices excl. VAT. Renewal price is subject to change and only valid up to 30 days after license has expired. After renewal period a discount price is offered to renew the license.