Mark Billig

Thank you for the guidance.  It appears I should learn how to use Copilot and Chat AI.

12 hours ago, Remy Lebeau said:

Raymond Chen's blog article on Manipulating the positions of desktop icons includes code "to enumerate all the desktop icons and print their names and locations."

Thank you for your post.  My problem is understanding C to convert and fully understand what needs to be done.

I am looking to get a list of desktop icons with their descriptions and positions.  Any help appreciated.

Thank you.  It took me a bit to find it but it seems to fix the issue.

PingChart.View3DOptions.ZoomText := ztNo;

I have a program that uses TeeChart and when recompiled with Delphi 12.1 the font size of the left and bottom axis labels are larger.  Everything else seems fine and I can fix it by adding code to change the font.  Any ideas what has caused this?

Thanks, Mark

https://github.com/mbillig02/APS

I got it figured out.  One of the problems was the WindowReticle was configured CanResize = False.  Thank you again for all of your help.  I need to post my updates to GitHub.

Thank you.

Do you have a recommendation of what I should use in place of Screen.PixelsPerInch?

Thank you that helped.  I tried to adjust the Width & Height of the WindowReticle component but it still does not look like the right size.  Also is there a way to get the DPI variable from a system variable?

procedure TMainForm.AddGetSetFrame;
var
  TmpDPI: Integer;
begin
  TmpDPI := 96;
  SetLength(GetSetFrameA, Length(GetSetFrameA) + 1);
  GetSetFrameA[High(GetSetFrameA)] := TGetSetFrame.Create(FrameScrollBox);
  with GetSetFrameA[High(GetSetFrameA)] do
  begin
    Parent := FrameScrollBox;
    Top := High(GetSetFrameA) * Height + 5;
    Align := alTop;
    Name := 'GetSetFrame_' + IntToStr(High(GetSetFrameA));
    Tag := High(GetSetFrameA);
    PopupMenu := GSFramePopupMenu;

    // Get
    GetSetFrameA[High(GetSetFrameA)].GSGetWindowReticle.Left := MulDiv(GetSetFrameA[High(GetSetFrameA)].GSGetWindowReticle.Left, Screen.PixelsPerInch, TmpDPI);
    GetSetFrameA[High(GetSetFrameA)].GSGetWindowReticle.Top := MulDiv(GetSetFrameA[High(GetSetFrameA)].GSGetWindowReticle.Top, Screen.PixelsPerInch, TmpDPI);
    GetSetFrameA[High(GetSetFrameA)].GSGetWindowReticle.Width := MulDiv(GetSetFrameA[High(GetSetFrameA)].GSGetWindowReticle.Width, Screen.PixelsPerInch, TmpDPI);
    GetSetFrameA[High(GetSetFrameA)].GSGetWindowReticle.Height := MulDiv(GetSetFrameA[High(GetSetFrameA)].GSGetWindowReticle.Height, Screen.PixelsPerInch, TmpDPI);
    GetSetFrameA[High(GetSetFrameA)].GSGetWindowReticle.ScaleForPPI(TmpDPI);

    // Set
    GetSetFrameA[High(GetSetFrameA)].GSSetWindowReticle.Left := MulDiv(GetSetFrameA[High(GetSetFrameA)].GSSetWindowReticle.Left, Screen.PixelsPerInch, TmpDPI);
    GetSetFrameA[High(GetSetFrameA)].GSSetWindowReticle.Top := MulDiv(GetSetFrameA[High(GetSetFrameA)].GSSetWindowReticle.Top, Screen.PixelsPerInch, TmpDPI);
    GetSetFrameA[High(GetSetFrameA)].GSSetWindowReticle.Width := MulDiv(GetSetFrameA[High(GetSetFrameA)].GSSetWindowReticle.Width, Screen.PixelsPerInch, TmpDPI);
    GetSetFrameA[High(GetSetFrameA)].GSSetWindowReticle.Height := MulDiv(GetSetFrameA[High(GetSetFrameA)].GSSetWindowReticle.Height, Screen.PixelsPerInch, TmpDPI);
    GetSetFrameA[High(GetSetFrameA)].GSSetWindowReticle.ScaleForPPI(TmpDPI);
  end;
end;

Computer scale set at 100%

Computer scale set at 150%

I got tired of positioning applications on my remote screen.  With RDP's full bar that appears in the top center nicely covering Outlook's search window.  I decided I needed a tool to make it easier, APS.  To select the application that I want to gather position and size info from or position an application I borrowed a component comp.reticle.  I have it working but it is not scaling properly.  I am trying to modify comp.reticle to handle the changing DPI.

The targets on the left were placed in from the IDE designer.  The targets on the right were added at runtime.  I am trying to figure out why it is different with the same component.