Jump to content

Mark Billig

Members
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

0 Neutral
  1. Mark Billig

    Application Position & Size

    https://github.com/mbillig02/APS
  2. Mark Billig

    Application Position & Size

    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.
  3. Mark Billig

    Application Position & Size

    Thank you.
  4. Mark Billig

    Application Position & Size

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

    Application Position & Size

    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%
  6. Mark Billig

    Application Position & Size

    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.
×