OberonCore

MODULE PrivBenchmark;

   IMPORT
      Services, StdLog, StdCmds, Dialog, Ports, Strings, Controls, Views,FormModels, FormViews;

   VAR
      global*: RECORD
         drop*: ARRAY 10 OF Dialog.List;
      END;

   PROCEDURE InitProp (VAR p: Controls.Prop);
   BEGIN
      NEW(p);
      p.link := ""; 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
   END InitProp;

   PROCEDURE NewDrop (i: INTEGER): Views.View;
      VAR prop: Controls.Prop; s: ARRAY 10 OF CHAR;
   BEGIN
      InitProp(prop);
      Strings.IntToString(i, s);
      prop.link := 'PrivBenchmark.global.drop['+s+']';
      RETURN Controls.dir.NewListBox(prop)
   END NewDrop;

   (* Проверка скорости работы Dialog.UpdateList; *)
   PROCEDURE Do1*;
      VAR m: FormModels.Model; i, j, x, y: INTEGER; ticks: LONGINT;
   BEGIN
      m := FormModels.dir.New();
      FOR i := 0 TO 9 DO
         FOR j := 0 TO 30 DO
            global.drop[i].SetItem(j, 'Есть только миг')
         END;
         x := 0;
         y := i * 6*Ports.mm;
         m.Insert(NewDrop(i), x, y, x + 50*Ports.mm, y + 6*Ports.mm);
      END;
      ticks := Services.Ticks();
      Views.OpenView(FormViews.dir.New(m));
      StdLog.String('Форма с дропами открылась за ');
      StdLog.Int((Services.Ticks()-ticks));
      StdLog.String(' миллисекунд');
      StdLog.Ln;
      ticks := Services.Ticks();
      FOR i := 0 TO 9 DO
         Dialog.UpdateList(global.drop[i])
      END;
      StdLog.String('Дропы обновились за ');
      StdLog.Int((Services.Ticks()-ticks));
      StdLog.String(' миллисекунд');
      StdCmds.SetMaskMode;
      StdLog.Ln;
   END Do1;

END PrivBenchmark.

PrivBenchmark.Do1;

компилируется "PrivBenchmark"
  новый символьный файл   680   320
Форма с дропами открылась за  96 миллисекунд
Дропы обновились за  21 миллисекунд
Форма с дропами открылась за  98 миллисекунд
Дропы обновились за  43 миллисекунд
Форма с дропами открылась за  98 миллисекунд
Дропы обновились за  57 миллисекунд

   PROCEDURE (f: ListBox) UpdateList;
      VAR res, i: INTEGER; s: Dialog.String;
   BEGIN
      (*
      IF f.i.dropDown THEN
         res := WinApi.SendMessageW(f.i.ctrl, WinApi.CB_RESETCONTENT, 0, 0);
         i := 0; f.GetName(f, i, s);
         Dialog.MapString(s, s); ConvertFromUnicode(s);
         WHILE s # "" DO
            res := WinApi.SendMessageW(f.i.ctrl, WinApi.CB_ADDSTRING, 0, SYSTEM.ADR(s));
            res := WinApi.SendMessageW(f.i.ctrl, WinApi.CB_SETITEMDATA, res, i);
            INC(i); f.GetName(f, i, s); Dialog.MapString(s, s); ConvertFromUnicode(s);
         END;
         Adapt(f, f.i)
      ELSE
         res := WinApi.SendMessageW(f.i.ctrl, WinApi.LB_RESETCONTENT, 0, 0);
         i := 0; f.GetName(f, i, s);
         Dialog.MapString(s, s); ConvertFromUnicode(s);
         WHILE s # "" DO
            res := WinApi.SendMessageW(f.i.ctrl, WinApi.LB_ADDSTRING, 0, SYSTEM.ADR(s));
            res := WinApi.SendMessageW(f.i.ctrl, WinApi.LB_SETITEMDATA, res, i);
            INC(i); f.GetName(f, i, s); Dialog.MapString(s, s); ConvertFromUnicode(s);
         END
      END;
      *)
      f.Update
   END UpdateList;