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;
Bookmarks