A couple of items in response:
1) Is this what you are recommending for ChangeScale:
Code: Select all
{$IFNDEF FMX}
procedure TCustomTeePanel.ChangeScale(M, D: Integer{$IFDEF D24}; isDpiChange: Boolean{$ENDIF});
begin
inherited;
// if M <> D then
// begin
// Canvas.FontZoom:=FView3DOptions.FontZoom*M/D;
// FView3DOptions.FontZoom:=Round(Canvas.FontZoom);
// end;
end;
{$ENDIF}
2) Can you send attach a demo so I can test?
Much appreciated.
Ed Dressel