This forum is temporaily read-only. All existing discussions remain available for reference. For new questions, bug reports or support requests, please contact us at mail@lmdsupport.com.
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.
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