[Lazarus] TFont.Assign not complete

[Alexey]

Not sure it is ok, why not to a) copy Size, b) copy PixelsPerInch. why 
such strange logic.


           if TFont(Source).PixelsPerInch <> FPixelsPerInch then
             // use size to convert source height pixels to current 
resolution
             Size := TFont(Source).Size
           else
             // use height which users could have changed directly
             Height := TFont(Source).Height;

Also good to copy PixelsPerInch to do good copy

-- 
Regards,
Alexey