ZoomValue
The following lines of code are all you need to add a textsize menu to
your application, similar to the one in Internet Explorer.
Create 5 Menuitems: Smallest, Small, Medium, Larger, Largest.
Set Medium.Checked to True;
Set the Tag-value for the Menuitems from 0 (smallest) to 4 (largest).
Connect the 5 OnClick-events to the same function:
procedure
TForm1.Smallest1Click(Sender: TObject);
begin
Smallest1.Checked:=False;
Small1.Checked:=False;
Medium1.Checked:=False;
Larger1.Checked:=False;
largest1.checked:=False;
EmbeddedWb1.Zoom((Sender as TMenuitem).Tag);
(Sender as Tmenuitem).checked:=True;
end;
|