Cubism example for Delphi
procedure TForm1.CubismClick(Sender: TObject); begin LEADImage1.Cubism( 10, 20, 50, 4500, RGB(255,0,0), CUB_COLOR Or CUB_RECT Or CUB_RAND ); end;