Mijn beste wensen voor iedereen.

Het nieuwe jaar heeft mij geluk gebracht (en ook door de steun van Bart B) om een probleem omtrent de "font.size" op te lossen wanneer de form aangepast wordt van 'normal' naar 'maximize' en omgekeerd.

Onderstaande code werkt prima in Windows 10.

Wat ik ook wens is dat het programma werkt in Linux-Mint, via 'Wine'.
Het volledige programma werkt in Mint behalve onderstaande code.
T.t.z. in Mint wordt de (font.size' niet aangepast, het blijft op size 13.
Kan iemand helpen a.u.b.?

Code:
procedure TFMAIN.FormWindowStateChange(Sender: TObject);
var
   i : Integer;
begin
  // *** leo 2021
  If (Self.WindowState) = wsMaximized then
  begin
    DBGrid1.Font.Name:= 'Arial';
    //*** Alle COLUMS   aanpassen aan Font 16.
    for I := 0 to DBGrid1.Columns.Count - 1 do
    DBGrid1.Columns[i].Font.size := 16;
    //****
    DBGrid1.Columns.Items[0].Width := 800;  // NAAM
    DBGrid1.Columns.Items[1].Width := 570;  // ADRES
    DBGrid1.Columns.Items[2].Width := 670;  // PCODE
    DBGrid1.Columns.Items[3].Width := 230;  // HOMETEL
    DBGrid1.Columns.Items[4].Width := 230;  // GSMTEL
    DBGrid1.Columns.Items[5].Width := 500;  // EMAIL
    DBGrid1.Columns.Items[6].Width := 200;  // GDATUM
    DBGrid1.Columns.Items[7].Width := 750;  // INFO
    //***
    Application.ProcessMessages;
  end
  else
  begin
    //*** Alle COLUMS   aanpassen aan Font 13.
    for I := 0 to DBGrid1.Columns.Count - 1 do
    DBGrid1.Columns[i].Font.size := 13;
    //***
    DBGrid1.Columns.Items[0].Width := 700;   // NAAM
    DBGrid1.Columns.Items[1].Width := 480;  // ADRES
    DBGrid1.Columns.Items[2].Width := 600;  // PCODE
    DBGrid1.Columns.Items[3].Width := 230;  // HOMETEL
    DBGrid1.Columns.Items[4].Width := 300;  // GSMTEL
    DBGrid1.Columns.Items[5].Width := 450;  // EMAIL
    DBGrid1.Columns.Items[6].Width := 160;  // GDATUM
    DBGrid1.Columns.Items[7].Width := 650;  // INFO
    //***
    Application.ProcessMessages;
  end
end;