unit UnitScaleFont;
{redimensionne les tailles des polices entre les differentes plateformes;
conditions d'utilisation: l'interface doit etre faite sous windows;
la police de chaque form ne doit pas avoir d'attribus speciaux et doit etre "default";
la police de chaque controle est soit parenfont, soit la police "default" avec eventuellement
leseul attribut fsbold}
{$mode objfpc}{$H+}

interface
uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  Menus, ExtCtrls, StdCtrls, Spin, Buttons, ComCtrls,LCLType;

const
  ma_jolie_chaine='Ma jolie chaîne pour faire l''amélioration.';
taille_ma_jolie_chaine:array[0..200] of integer=
(189,35,35,35,63,65,100,100,130,130,164,164,177,189,213,213,231,235,284,284,284,297,335,335,359,376,392,392,401,426,462,462,462,475,511,511,532,545,567,567,581,604,636,636,636,648,689,689,706,728,742,742,763,779,795,795,816,838,867,867,881,881,917,917,942,945,977,977,988,1011,1037,1037,1064,1064,1099,1099,1111,1139,1145,1145,1172,1176,1218,1218,1239,1239,1271,1271,1291,1309,1321,1321,1338,1367,1395,1395,1395,1412,1456,1456,1470,1483,1502,1502,1523,1540,1574,1574,1574,1590,1622,1622,1643,1649,1686,1686,1700,1712,1755,1755,1755,1765,1805,1805,1821,1821,1857,1857,1875,1885,1916,1916,1924,1944,1983,1983,1993,1993,2028,2028,2055,2072,2088,2088,2102,2117,2154,2154,2176,2176,2217,2217,2221,2250,2260,2260,2274,2298,2332,2332,2332,2348,2385,2385,2406,2417,2443,2443,2455,2474,2505,2505,2505,2534,2560,2560,2580,2600,2618,2618,2633,2651,2696,2696,2696,2704,2733,2733,2762,2762,2791,2791,2809,2831,2848,2848,2863,2886,2924,2924,2936);

taille_ma_jolie_chaine_gras:array[0..200] of integer=
(226,44,44,44,65,77,132,132,137,137,202,202,202,226,244,244,258,271,331,331,331,345,387,387,409,423,450,450,472,482,532,532,532,547,595,595,612,628,651,651,672,687,736,736,736,752,791,791,818,831,854,854,884,889,921,921,932,955,992,992,1021,1021,1058,1058,1081,1094,1122,1122,1139,1158,1198,1198,1223,1223,1262,1262,1276,1301,1327,1327,1344,1361,1403,1403,1426,1426,1464,1464,1483,1502,1531,1531,1544,1565,1609,1609,1609,1623,1671,1671,1684,1705,1726,1726,1744,1769,1811,1811,1811,1828,1875,1875,1891,1910,1935,1935,1948,1969,2010,2010,2010,2029,2075,2075,2095,2095,2139,2139,2152,2168,2203,2203,2216,2232,2284,2284,2297,2297,2345,2345,2356,2374,2407,2407,2418,2438,2480,2480,2501,2501,2544,2544,2563,2574,2611,2611,2628,2639,2680,2680,2680,2706,2748,2748,2765,2782,2807,2807,2827,2847,2891,2891,2891,2909,2945,2945,2965,2985,3011,3011,3029,3048,3093,3093,3093,3111,3151,3151,3173,3173,3218,3218,3234,3250,3274,3274,3292,3318,3359,3359,3372);

var taille_ma_jolie_chaine_dans_ce_systeme,taille_ma_jolie_chaine_dans_ce_systeme_gras:array[0..200] of integer;
tableau_correspondance_tailles_polices,tableau_correspondance_tailles_polices_gras:array[0..200] of integer;
 taille_dans_ce_systeme_qui_correspond_a_0_sous_windows,taille_dans_ce_systeme_qui_correspond_a_0_sous_windows_gras:integer;
  procedure ScaleFont(AFenetre : TForm);


implementation


Procedure Applique_A_Tous_LesControles( Aparent : TWinControl);
Var
 AWinControl: TWinControl;

  I : Integer;
Begin
  with AParent do
    for i := 0 to ControlCount - 1 do begin

  {on change la taille si parentfont est false}
 if not(TButton(controls[i]).parentfont) then begin
      if   Controls[i].Font.height=0 then  
	  begin
	  if (fsbold in Controls[i].Font.style) then begin
	  Controls[i].Font.height:=taille_dans_ce_systeme_qui_correspond_a_0_sous_windows_gras;
   //application.messagebox(pchar(inttostr(Controls[i].font.height)),
    //   pchar(inttostr(taille_dans_ce_systeme_qui_correspond_a_0_sous_windows_gras)),mb_ok);
    end else
	  Controls[i].Font.height:=taille_dans_ce_systeme_qui_correspond_a_0_sous_windows;
	  end else begin
	  if (fsbold in Controls[i].Font.style) then begin
         Controls[i].font.height:=tableau_correspondance_tailles_polices_gras[abs(Controls[i].font.height)];
      // application.messagebox(pchar(inttostr(Controls[i].font.height)),
      // pchar(inttostr(tableau_correspondance_tailles_polices_gras[abs(Controls[i].font.height)])),mb_ok);
          end else
		 Controls[i].font.height:=tableau_correspondance_tailles_polices[abs(Controls[i].font.height)];
		 end;
          end;

       {et on applique aux enfants si c'est un twincontrol}
    if Controls[i] is TWinControl then begin
        AWinControl := TWinControl(Controls[i]);
        if AWinControl.ControlCount > 0 then
          Applique_A_Tous_LesControles(AWinControl);
                end;

    end;
    end;


    procedure ScaleFont(AFenetre : TForm);
   
var i,j:integer;
s_i:tspeedbutton;
begin
s_i:=tspeedbutton.create(afenetre);
s_i.Parent:=afenetre;
                    s_i.visible:=false;


for i:=0 to 200 do
begin

s_i.canvas.font.height:=i;
taille_ma_jolie_chaine_dans_ce_systeme[i]:=
 s_i.Canvas.TextWidth(ma_jolie_chaine);
end;
for i:=0 to 200 do
begin

s_i.canvas.font.height:=i;
s_i.canvas.font.style:=[fsbold];
taille_ma_jolie_chaine_dans_ce_systeme_gras[i]:=
 s_i.Canvas.TextWidth(ma_jolie_chaine);
end;
s_i.Destroy;

AFenetre.Font.height:=abs(AFenetre.Font.height);





for i:=1 to 200 do begin
j:=1;
{on cherche l'indice des tailles encadrantes}
while ((j<200) and   (taille_ma_jolie_chaine_dans_ce_systeme[j]<taille_ma_jolie_chaine[i]))
do inc(j);
 tableau_correspondance_tailles_polices[i]:=j;
                                              end;
											  
											  for i:=1 to 200 do begin
j:=1;
{on cherche l'indice des tailles encadrantes}
while ((j<200) and   (taille_ma_jolie_chaine_dans_ce_systeme_gras[j]<taille_ma_jolie_chaine_gras[i]))
do inc(j);
 tableau_correspondance_tailles_polices_gras[i]:=j;
                                              end;
											  
											  

taille_dans_ce_systeme_qui_correspond_a_0_sous_windows:= tableau_correspondance_tailles_polices[13];
taille_dans_ce_systeme_qui_correspond_a_0_sous_windows_gras:= tableau_correspondance_tailles_polices_gras[13];
if AFenetre.Font.height=0 then begin
AFenetre.Font.height:=taille_dans_ce_systeme_qui_correspond_a_0_sous_windows;
end
else  begin
 {tout ce qui est en taille i doit passer en taille  tableau_correspondance_tailles_polices[i]}
 afenetre.font.height:=tableau_correspondance_tailles_polices[abs(afenetre.font.height)];
end;
Applique_A_Tous_LesControles(AFenetre);



end;

end.

