Delphiturbo
Messages postés68Date d'inscriptionmercredi 31 octobre 2007StatutMembreDernière intervention29 juillet 2008
-
5 juin 2008 à 14:56
Delphiturbo
Messages postés68Date d'inscriptionmercredi 31 octobre 2007StatutMembreDernière intervention29 juillet 2008
-
5 juin 2008 à 18:06
Salut
J ai un Problem avec FormScale et Webbrowser-Content-Scale (zoom)
C' est le le Valuer 1 (100%) il n ya de Probleme
mais je dois donner une Possiblite a User de faire le Programme grand si il a un grand Ecran
alors j'ai
essayé comme ca :
var sWidth: Double;
sHeight: Double;
begin sWidth := Screen.MonitorFromWindow(Handle).Width / Width;
sHeight := Screen.MonitorFromWindow(Handle).Height / Height;
if sWidth < sHeight then
begin
ScaleBy(Round(Screen.MonitorFromWindow(Handle).Width * 1.01), Width);
end
else
begin
ScaleBy(Round(Screen.MonitorFromWindow(Handle).Height * 1.01), Height);
end; WindowState : = wsMaximized;