OberonCore
https://forum.oberoncore.ru/

Автоизменение размеров элементов формы в ББ
https://forum.oberoncore.ru/viewtopic.php?f=103&t=4385
Страница 1 из 1

Автор:  adva [ Пятница, 14 Июнь, 2013 12:24 ]
Заголовок сообщения:  Автоизменение размеров элементов формы в ББ

Чтобы было удобнее искать тему (сжатие/растяжение элементов)

Здесь выложена ссылка на видео

viewtopic.php?p=80763#p80763

Продублирую
http://youtu.be/tONH3MwO0MI

Про элемент SternResizeWrap

Спасибо, Ивану Кузьмицкому

Автор:  adva [ Пятница, 14 Июнь, 2013 12:35 ]
Заголовок сообщения:  Re: Автоизменение размеров элементов формы в ББ

Иван, а не подскажете, где найти указанный Вами компонент?

Автор:  Иван Кузьмицкий [ Пятница, 14 Июнь, 2013 12:53 ]
Заголовок сообщения:  Re: Автоизменение размеров элементов формы в ББ

Забрать можно с помощью Mercurial:
Код:
hg clone https://bitbucket.org/akastargazer/bb.open

Автор:  Иван Кузьмицкий [ Пятница, 14 Июнь, 2013 13:35 ]
Заголовок сообщения:  Re: Автоизменение размеров элементов формы в ББ

Код:
MODULE PrivResizeWrap;

   IMPORT Log := StdLog, ypkHostCmds, ypkHostWindows, ypkHostWin;

   CONST
      path = 'Priv/Rsrc/ResizeWrap2';
      title =  'Проба ресайза обернутой формы';

   PROCEDURE Do*;
      VAR  w: ypkHostWindows.Window;
   BEGIN
      w := ypkHostCmds.OpenWin(ypkHostCmds.ThisMask(path), title, NIL, '', NIL, {ypkHostWindows.isAux, ypkHostWindows.neverDirty, ypkHostWindows.noVScroll, ypkHostWindows.noHScroll});
   END Do;

   PROCEDURE WindowNotifier* (op, from, to: INTEGER);
   BEGIN
      CASE op OF ypkHostWin.resize:
         Log.String('PrivResizeWrap: resize'); Log.Ln;
      ELSE
      END
   END WindowNotifier;

END PrivResizeWrap.

PrivResizeWrap.Do


P.S. На форму бросается якорь ypkHostWin.Deposit

Страница 1 из 1 Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/