{"id":118,"date":"2007-05-12T14:32:51","date_gmt":"2007-05-12T12:32:51","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/small-fonts-large-fonts-3\/"},"modified":"2007-05-12T14:32:52","modified_gmt":"2007-05-12T12:32:52","slug":"small-fonts-large-fonts-3","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/small-fonts-large-fonts-3\/","title":{"rendered":"Small Fonts \/ Large Fonts (3)"},"content":{"rendered":"

>
\n> Hello,
\n>
\n> I made an application that looks fine when windows is using small fonts, but
\n> if the user is using large fonts, the form looks bad.
\n>
\n> What can I do to solve this problem??..
\n> I think that maybe the solution is to detect if the user is using large
\n> fonts and resize the form and the controls, but I am not sure. that this is
\n> the correct way to do it..
\n>
\n> Thanks,
\n<\/em>
\nHere’s an earlier post on this popular subject…
\n
\n==================================================<\/p>\n

Hi there for who is interested in this subject!<\/p>\n

There were discussions here about problems caused when app is
\ndeveloped on one system settings and then executed on other.
\nI played a little bit with this and found out a satisfactory solution
\nfor me…<\/p>\n

I designed my app in small fonts (96 DPI) with Scaled = false and
\ntried to execute it on large fonts (120 DPI) and results were perfect
\nfor what I put on my forms. I thought someone might benefit from what
\nI have done. <\/p>\n

Special care was taken for alignments and anchoring… please try it
\nyourself. Just call the FixDPI function below after form creation.<\/p>\n

yours,
\ntomi.<\/p>\n

[code lang=”delphi”]procedure FixDPI(f: TForm; DesignDPI: integer);<\/p>\n

(*
\n Small\/Large system font solution
\n Have a TForm’s properties Scaled and AutoScroll set to false
\n and after creating your form call this procedure like:
\n FixDPI (TForm1, 96) \/\/ If you designed in small fonts<\/p>\n

Author: Tomislav Kardas, Zagreb, Croatia, Europe
\n Platform: Delphi 4 C\/S
\n*)<\/p>\n

var
\n ScaleM, ScaleD: integer;<\/p>\n

function Scale(x: longint): longint;
\n begin
\n result := (x*ScaleM + ScaleD div 2) div ScaleD;
\n end;<\/p>\n

procedure FixControl(c: TControl);
\n var
\n x: integer;
\n p: TWinControl;
\n fixheight: boolean;
\n begin
\n p := c.Parent;
\n if c.Align <> alNone then begin
\n \/\/ Fixing width
\n if ((c.Align = alLeft) and (akRight in c.Anchors)) or
\n ((c.Align = alRight) and (akLeft in c.Anchors)) then
\n c.Width := p.ClientWidth – Scale(p.ClientWidth – c.Width)
\n else if (c.Align = alLeft) or (c.Align = alRight) then
\n c.Width := Scale(c.Width);
\n \/\/ Fixing height
\n if ((c.Align = alTop) and (akBottom in c.Anchors)) or
\n ((c.Align = alBottom) and (akTop in c.Anchors)) then
\n c.Height := p.ClientHeight – Scale(p.ClientHeight – c.Height)
\n else if (c.Align = alTop) or (c.Align = alBottom) then
\n c.Height := Scale(c.Height);
\n end
\n else begin
\n \/\/ Fixing width
\n x := p.ClientWidth – c.Width – c.Left;
\n if akLeft in c.Anchors then begin
\n c.Left := Scale(c.Left);
\n if akRight in c.Anchors then
\n c.Width := p.ClientWidth – c.Left – Scale(x)
\n else
\n c.Width := Scale(c.Width);
\n end
\n else if akRight in c.Anchors then begin
\n c.Width := Scale(c.Width);
\n c.Left := p.ClientWidth – c.Width – Scale(x);
\n end
\n else begin
\n c.Left := Scale(c.Left);
\n c.Width := Scale(c.Width);
\n end;
\n \/\/ Fixing height
\n fixheight := true;
\n if (c is TCustomEdit) and not (c is TCustomMemo) then
\n fixheight := false;
\n x := p.ClientHeight – c.Height – c.Top;
\n if akTop in c.Anchors then begin
\n c.Top := Scale(c.Top);
\n if fixheight then begin
\n if akBottom in c.Anchors then
\n c.Height:= p.ClientHeight – c.Top – Scale(x)
\n else
\n c.Height:= Scale(c.Height);<\/p>\n

end;
\n end
\n else if akBottom in c.Anchors then begin
\n if fixheight then
\n c.Height := Scale(c.Height);
\n c.Top := p.ClientHeight – c.Height – Scale(x);
\n end
\n else begin
\n c.Top := Scale(c.Top);
\n if fixheight then
\n c.Height := Scale(c.Height);
\n end;
\n end;
\n end;<\/p>\n

procedure FixControls(c: TWinControl);
\n var
\n i: integer;
\n begin
\n for i := 0 to c.ControlCount – 1 do
\n if c.Controls[i].Owner = f then begin
\n FixControl(c.Controls[i]);
\n if c.Controls[i] is TWinControl then
\n FixControls(TWinControl(c.Controls[i]));
\n end;
\n end;<\/p>\n

begin
\n if DesignDPI <> Screen.PixelsPerInch then begin
\n ScaleM := Screen.PixelsPerInch;
\n ScaleD := DesignDPI;
\n f.ClientWidth := Scale(f.ClientWidth);
\n f.ClientHeight := Scale(f.ClientHeight);
\n FixControls(f);
\n end;
\nend;
\n[\/code]<\/p>\n

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

> > Hello, > > I made an application that looks fine when windows is using small fonts, but > if the user…<\/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-1U","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/118"}],"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=118"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/118\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=118"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=118"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=118"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}