AnnPushFixedState example for Delphi

// This example temporarily disables the"fixed" property of all objects in the container.
// This is useful when fixed objects need to be temporarly painted larger or smaller than
//  the fixed size.  For an example using the magnifying glass, see the source code
// for the main COM annotation demo.
Procedure TForm1.ExampleAnnPushFixedState ( hContainer: HANNOBJECT );
begin
   LEADAnn1.AnnFlags:= ANNFLAG_RECURSE + ANNFLAG_NOINVALIDATE;
   LEADAnn1.AnnPushFixedState (hContainer);
end;