TSCARBitmap.Clone

Definition

Member of TSCARBitmap.

function TSCARBitmap.Clone: TSCARBitmap;

Availability

SCAR Divi 3.35 > Current

Description

Creates a new object with the exact same bitmap image as the original. The bitmaps are not linked, so changes to one of them will not affect the other.

Example

var
  Bmp, Bmp2: TSCARBitmap;
  
begin
  Bmp := TSCARBitmap.Create('deNrtkttOg0AYhPsa+v7P0JhQEFhOCxQQdjmVQ' +
    'qHVG2M93zuRxDv/psKFF02+TCazw2QJXC+uFln9dOGf44SN6RYj8BPXDCdP5CH' +
    'KBij8xDXdluu09+MWCj9x7dYSQdI5QY1B+L+NMF5pLBvh0dbiJfQnwelZa0G6V' +
    '80Ub4cR2690WwDDkfDIcXru9fy7QdETb90oejzCvAIJcuIpsfmVIMVgbPFiZWA' +
    'qh0dC9L85EuAmN2pouhIKT5eBbE4QYFALoSebIN8+z0jRvhBk9SPjpWalUHi6D' +
    'KqOAp/A8qTNc+YKeLoM6t0rgWompiuWiqexBJ4ug03/RmD7JXYUPVwZETxdBs3' +
    'wTlC2R/y0mILC02XQ7uekO3zMyO7+c0b6hzn5Ao/jnYI='); 
  Bmp2 := Bmp.Clone; 
  try
    Bmp.Clear(clBlack);
    DebugBitmap(Bmp2);  
  finally
    Bmp.Free;
    Bmp2.Free;
  end;
end.

See Also

• TSCARBitmap.Create