примерно так?
## Код:
```
MODULE testbmp;
   IMPORT  Log := StdLog,  Views, Files,StdCmds,Containers, Controls;
   
VAR  v,nv:Views.View;
      loc:Files.Locator;
      m:Containers.Model;
         
PROCEDURE Do* ();
VAR
         name:Files.Name;
         p:Controls.Prop;
BEGIN
   StdCmds.New;
   loc:=Files.dir.This('E:\');
   name:='2.bmp';
   v := Views.OldView(loc, name);
   Views.Deposit(v);
   StdCmds.PasteView;

   NEW(p);
   p.link := "testbmp.R"; p.label := "обновить"; p.guard := ""; p.notifier := "";
   p.level := 0;
   p.opt[0] := FALSE; p.opt[1] := FALSE;
   p.opt[2] := FALSE; p.opt[3] := FALSE;
   p.opt[4] := FALSE;
   Views.Deposit(Controls.dir.NewPushButton(p));   
   StdCmds.PasteView;
   
   
   m:=Containers.Focus().ThisView().ThisModel();
   StdCmds.SetMaskMode;
   
END Do;   
   
PROCEDURE R* ();
VAR   name:Files.Name;
BEGIN
   name:='3.bmp';
   nv := Views.OldView(loc, name);
   m.ReplaceView(v,nv)
END R;   
   
END testbmp.
```
