Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

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

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.

Comments

Sign In or Register to comment.