> -- Евгений Темиргалеев писал(а):
> Имел ввиду несколько другое...
так ? (в простейшем случае вьюшку с рисунком вставляем на форму первой)
## Код:
```
MODULE testbmp2;
   IMPORT   Views, Files,Containers;
   
VAR  
      was:BOOLEAN;
PROCEDURE Do2*;
(** focus the first control whose label is "magic name" **)
VAR c: Containers.Controller;
      name:Files.Name;
      v,nv:Views.View;
      loc:Files.Locator;
      m:Containers.Model;
BEGIN
   c := Containers.Focus();
   IF c # NIL THEN
      c.GetFirstView(Containers.any, v);

      IF v # NIL THEN
         c.SetFocus(v);
         m:=c.ThisView().ThisModel();
         IF  was  THEN
            name:='2.bmp'
         ELSE
            name:='3.bmp'
         END;
         was:=~was;
         
         loc:=Files.dir.This('E:\');         
         nv := Views.OldView(loc, name);
         m.ReplaceView(v,nv)
      END
   END
END Do2;

BEGIN
   was:=FALSE;   
END testbmp2.
```
