Hallo
mit dem Code wird zwar alle Delphi-Obj skaliert aber der Inhalt in
Webbrowser bleibt gleich groß !
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
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;
end;
Wie kann ich den Inhalt von Webbrowser skalieren (aber mit Delphi)
Ich kann auch den Inhalt einfach mit
html-Code skalieren
:
Delphi-Quellcode:
<input type="radio" name="z" onclick="document.body.style.zoom=1.0;this.blur();">100%
<input type="radio" name="z" onclick="document.body.style.zoom=1.5;this.blur();">150%
</p>
Ich muß aber den selben faktor von dem Code oben nehmen !