Commit 5a44c62b authored by Martin Schreiber's avatar Martin Schreiber

* Adjust checkbox size by fso_flat.

parent 386008d2
......@@ -1510,6 +1510,10 @@ begin
widthextend:= menucheckboxwidth;
if info.checkboxframe <> nil then begin
with info.checkboxframe do begin
if fso_flat in optionsskin then begin
dec(int1,2);
dec(widthextend,2);
end;
size1:= innerframedim;
widthextend:= widthextend + frameo_left + frameo_right + size1.cx;
int1:= int1 + size1.cy + frameo_top + frameo_bottom;
......
......@@ -408,6 +408,10 @@ begin
checkboxheight:= menucheckboxheight;
if checkboxframetemplate <> nil then begin
with checkboxframetemplate do begin
if fso_flat in optionsskin then begin
dec(checkboxwidth,2);
dec(checkboxheight,2);
end;
size1:= innerframedim();
size1.cx:= size1.cx + frameo_left + frameo_right;
size1.cy:= size1.cy + frameo_top + frameo_bottom;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment