Steema Central

Ed Dressel wrote: ↑

Thu Aug 24, 2023 10:17 pm

(And I accidently spelt my last name incorrectly when I logged in and it won't let me fix it).

Ed Dressel wrote: ↑

Fri Aug 25, 2023 4:08 pm

Problem #1: Fonts are the wrong size:

1) Start the app on a monitor with normal DPI. The "Chart #1" tab page should be showing.
2) Without changing pages, drag the application to a monitor with 200% DPI.
3) Switch to the "Chart #2" tab page. You should see that the fonts are at 100%, not 200%
4) Drag the app back to the normal font monitor. You should see the fonts on Chart #2 are way too small.

procedure TCustomTeePanel.ChangeScale(M, D: Integer{$IFDEF D24}; isDpiChange: Boolean{$ENDIF});
//...
  if not (csLoading in ComponentState) and (M <> D) {and Showing <-- remove this} then
     SetAutoFontZoom(MulDiv(FView3DOptions.FontZoom, M, D));
end;

Ed Dressel wrote: ↑

Fri Aug 25, 2023 4:08 pm

Problem #2: Unable to create an image with normal font sizes

I create a copy of the image without scaled fonts for my reports, but it does not always work:

1) Run the app and put it on a monitor with 200% font size. You should see this on the active tab page with large fonts.
2) Click the "Create Image". The code should create an image with unscaled fonts, but the fonts in the BMP are scaled.

Ed Dressel wrote: ↑

Fri Aug 25, 2023 6:01 pm

I found another problem in the demo that I am seeing in my application:

1) Start the app and put it on a monitor with the display set to 200%.
2) Click on the "create image" button
3) Go back to the tab that the image was created on--the fonts are now 400%, not 200%.

class procedure TChartConfig.ConfigChartFontSize(aChart: TChart; aScaleFonts: boolean);
//...
begin
  if aScaleFonts then begin
    aChart.View3DOptions.FontZoom := aChart.PixelsPerInch * 100 div 96;  // <-- add this
    lScale := (aChart.PixelsPerInch / 96) / (aChart.View3DOptions.FontZoom * 0.01);

    lFont12 := Round(lScale * 12);
    lFont10 := Round(lScale * 10);
    lFont9 := Round(lScale * 9);
    lFont8 := Round(lScale * 8);
  end else begin
    aChart.View3DOptions.FontZoom := 100;  // <-- add this
    lFont12 := 12;
    lFont10 := 10;
    lFont9 := 9;
    lFont8 := 8;
  end;
  //...

Yeray wrote: ↑

Mon Sep 04, 2023 1:44 pm

I see removing the Showing condition at TCustomTeePanel.ChangeScale at {VCLTee.}TeeProcs.pas unit fixes it, but I have to check for any collateral damages:

Code: Select all

procedure TCustomTeePanel.ChangeScale(M, D: Integer{$IFDEF D24}; isDpiChange: Boolean{$ENDIF});
//...
  if not (csLoading in ComponentState) and (M <> D) {and Showing <-- remove this} then
     SetAutoFontZoom(MulDiv(FView3DOptions.FontZoom, M, D));
end;