Hi Martin,

I have TImageList filled with font awesome at runtime. I would like to
assign icon from that list into TMainForm.Icon. This code:

procedure tmainfo.afterconstruction;
begin
  inherited afterconstruction;
  IconMng.imlstDyn16.getimage(iICO16_MAIN, Self.icon);
  .....

... results with artifacts as in attached screen (mse_icon.png). Icon
already exists and is valid. Also tried this solution:

procedure tmainfo.afterconstruction;
var b: tmaskedbitmap;
begin
  inherited afterconstruction;
  b := tmaskedbitmap.create(bmk_rgb);
  IconMng.imlstDyn16.getimage(iICO16_MAIN, b);
  Self.icon.assign(b);
  b.Free;
  .....

It is better, I almost see icon but background still has artifacts
(mse_icon1.png)
------------------------------------------------------------------------------
Find and fix application performance issues faster with Applications Manager
Applications Manager provides deep performance insights into multiple tiers of
your business applications. It resolves application problems quickly and
reduces your MTTR. Get your free trial!
https://ad.doubleclick.net/ddm/clk/302982198;130105516;z
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Reply via email to