Difference between revisions of "TSCARBitmap.Clone"

From SCAR Divi Manual
Jump to: navigation, search
(Created page with "==Definition== Member of TSCARBitmap.<source lang="scar" lines="false"> function TSCARBitmap.Clone: TSCARBitmap; </source> ==Availability== SCAR Divi 3.35 > Current ==De...")
 
(No difference)

Latest revision as of 03:05, 4 November 2012

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