Ik heb het gevoel dat scaled fonts niet goed werkt met mijn applicatie. Als test heb ik (via stack overflow) dit stukje code toegepast:
Delphi Code:
dc := GetDC(0);
Memo1.Lines.Add(Format('hor res %d', [GetDeviceCaps(dc, HORZRES)]));
lp := GetDeviceCaps(dc, LOGPIXELSX);
Memo1.Lines.Add(Format('logx %d percents %d%%', [lp, 100 * lp div 96]));
Ik zie wel dat het programma aangeeft dat de scaled font op 120 DPI staat, maar het lijkt alsof alles kleiner wordt dan de rest van de tekst op mijn desktop.
Echter als ik mijn programma nu met scaled font op 100% zet, wordt de berekening van dat stukje code nog steeds op 120% gezet.
Ik zie niet dat mijn applicatie zich aanpast aan de fontgrootte, die in Windows is ingesteld.
In TForm staat de property scaled op true.
Wat moet je nu eigenlijk doen om de juiste scaling van alle componenten te krijgen in mijn programma.
Ik moet er wel bij vertellen dat Delphi wordt opgestart in een Virtuele Windows 10 omgeving met scaled font 100%
Bookmarks