{"id":120,"date":"2007-05-12T14:35:28","date_gmt":"2007-05-12T12:35:28","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/small-fonts-large-fonts\/"},"modified":"2007-05-12T14:35:30","modified_gmt":"2007-05-12T12:35:30","slug":"small-fonts-large-fonts","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/small-fonts-large-fonts\/","title":{"rendered":"Small Fonts \/ Large Fonts…"},"content":{"rendered":"

>I have a Delphi program written on a computer with small fonts installed.
\n>When this is run on a computer with identical properties except for the fact
\n>that large fonts are being used all the controls on the forms seem to have
\n>expanded in size leading to scrollbars appearing on all the forms. The forms
\n>themselves seem to remain at the correct size.
\n>
\n>How can I resolve this so that it will work correctly on a system with
\n>either font size?
\n<\/em>
\n
\nA1:<\/b>
\nI’m wondering if you have maximum size form constrains ?
\nThis could be preventing Delphi from resizing the form as
\nwell as all the controls. Add code like what follows to
\ndetect and address the problem.<\/p>\n

on create event<\/p>\n

[code lang=”delphi”]var
\n Ratio: double;
\nbegin
\n Ratio := Self.PixelsPerInch \/ 96;
\n Self.Contraints.MaxWidth := Self.Contraints.MaxWidth * Ratio;
\n Self.Contraints.MaxHeight := Self.Contraints.MaxHeight * Ratio;
\n Self.Width := Self.Width * Ratio;
\n Self.Height := Self.Height * Ratio;
\nend;
\n[\/code]<\/p>\n

A2:<\/b>
\na simple solution see “large fonts” on
\nhttp:\/\/www.inner-smile.com\/delphifaq.htm , it says :<\/p>\n

Design on large fonts, use only truetype fonts, set the forms Scaled
\nproperty to false. That works pretty well on smallfont systems. You
\njust have to make sure that your form does not become larger than the
\nusers screen size. This can be handled by a simple check in the forms
\nOnCreate procedure, call<\/p>\n

SystemparametersInfo( SPI_GETWORKAREA, 0, @aRect, 0 );<\/p>\n

Check if your forms width or height exceed the dimensions of aRect, if
\nso you set your forms Boundsrect := aRect; and the forms AutoScroll
\nproperty to true. It then gets scrollbars but that is better than
\nhaving parts of the form not accessible by the user.<\/p>\n

A3:<\/b>
\nYou can design in small fonts. Just set Scaled to false, and use a
\nTrueType font (rather than MS Sans Serif). Also, don’t anchor things to
\nthe bottom or right–Delphi has a bug with that if Scaled is false.<\/p>\n

A4:<\/b>
\nPeople who switch to ‘large fonts’ do this because they find the small
\nfonts hard to read. So everything should grow with large fonts. This
\nmeans your ‘fixed-size’ (not scrollable) forms must expand in size.<\/p>\n

Set the form’s Scaled property to True, and the AutoScroll property to
\nFalse.<\/p>\n

[tags]Delphi, Forms[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

>I have a Delphi program written on a computer with small fonts installed. >When this is run on a computer with identical properties…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,100],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1W","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/120"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=120"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/120\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=120"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=120"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=120"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}