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

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus

Reply via email to