Wrong scalling of checkbox (Text to near Check-Control) when using TLMDTaskDialog as first Dialog

Quanos Service Solutions GmbH

I've made following changes in ElCheckCtl

var
  IsInit: Boolean;

function TElCheckItem.GetCheckBoxSize: TSize;
begin
  if Assigned(Screen) then
  begin
    if not IsInit then
    begin
      CheckBoxSize := MulDiv(InitCheckBoxSize,Screen.PixelsPerInch, 96);
      IsInit := True;
    end;
  end;

  Result.cx := CheckBoxSize;
  Result.cy := CheckBoxSize;
end;

In my case, the TElCheckItem.ChangeScale isn't called for the first dialog.

Eugene Balabuev (LMD)

Thanks for report. Your code has been incorporated.