Zitat von
Grotesquery:
Deine procedure kannst du übrigens so verkürzen:
Ein menuItem hat die Eigenschaft Tag vom Typ integer, die der Programmierer nutzen kann wie er will, sie bewirkt also nichts wenn man sie nicht irgendwie nutzt. Setzt du nun diese Eigenschaft deiner Items auf 10,9,8...1 dann kannst du statt der if then else Abfragen einfach schreiben:
Code:
WebBrowser.OleObject.Document.Body.Style.Zoom := (Sender as TMenuItem).Tag / 10;
Ja danke, für Tipps die die Arbeit verkürzen bin ich immer dankbar
. Auch die Idee mit TPoint ist gut, werd ich gleich umsetzen, THX!