Howdy, Stranger!
It looks like you're new here. If you want to get involved, click one of these buttons!
Categories
In this Discussion
- Alexander Hramov June 2011
Improve TCustomElToolBar.ChangeScale
Please add following lines to above methode to get better Scaling-Experience
BtnHeight := MulDiv(BtnHeight, M, D);
BtnWidth := MulDiv(BtnWidth, M, D);
LargeBtnWidth := MulDiv(LargeBtnWidth, M, D);
LargeBtnHeight := MulDiv(LargeBtnHeight, M, D);
And please check the line:
Height := Height - MulDiv(BtnHeight, M-D, D);
It doesn't make much sense for me.
BtnHeight := MulDiv(BtnHeight, M, D);
BtnWidth := MulDiv(BtnWidth, M, D);
LargeBtnWidth := MulDiv(LargeBtnWidth, M, D);
LargeBtnHeight := MulDiv(LargeBtnHeight, M, D);
And please check the line:
Height := Height - MulDiv(BtnHeight, M-D, D);
It doesn't make much sense for me.
Tagged:
Comments