Even terug naar het eerste project waarbij ik wel code gebruik.
Ik plaats de componenten op een ScaledLayout, zodat deze componenten zich aanpassen aan het display dat gebruik wordt.
Dit lijkt voor alles wat ik tot nu toe gebruikt heb te werken, maar niet voor een TWebBrowser.
Als ik namelijk een TMemo plaats met de afmetingen 533x320 wordt deze netjes getoond, maar bij een TWebBrowser wordt deze bij dezelfde afmetingen smaller vertoond.
Code:
procedure TForm1.FormActivate(Sender: TObject);
begin
//Form1
Form1.ClientHeight:= 320; //Scherm hoogte
Form1.ClientWidth:= 533; //Scherm Breedte
//ScaledLayout
ScaledLayout1.OriginalHeight := 320;
ScaledLayout1.OriginalWidth := 533;
ScaledLayout1.Align := TAlignLayout.Client; //Scherm aanpassen aan display grote
end;
View staat op: Master
Bookmarks