forum.clarionlife.net

Привет всем !

Есть очередной "детский вопрос" ...

Есть окно, на нем SHEET с несколькими TAB.
При открытии окна, по некоторым условиям, нужно сразу установить
какой-нибудь TAB, отличный от первого.

Сейчас это делается Select(?Tab3) - работает, но вызывает заметное
"моргание" окна при переустановке TAB ...

Вопрос: можно ли как-то иначе установить TAB по умолчанию при открытии окна ?
Заранее спасибо.

до открытия окна, у меня стоит в init после Prepare Alert Keys, вроде ничего не моргает
правда вызов немного другой SELECT(?Sheet1,loc_select_tab1)

Ну, я бы для начала после открытия окна сказал 0{Prop:Buffer} = 1, обычно после этого моргание сильно уменьшается

gopstop2007 писал(а): до открытия окна, у меня стоит SELECT(?Sheet1,loc_select_tab1)

Очень интересно ... А что до открытия окна разве можно обращаться к экранным полям ?!
Они вообще имеют значения ... ? Мой вариант Select(?Tab3) так точно не работает ...

Yufil писал(а): Ну, я бы для начала после открытия окна сказал 0{Prop:Buffer} = 1

Спасибо - это интересно попробовать ...

Есть OPEN(Window), и есть Event:OpenWindow. После OPEN(Window) все контролы уже созданы и проинициализированы.

2-й TAB активен:

Код: Выделить всё

  PROGRAM

  MAP
  END

Window                        WINDOW('Caption'),AT(,,373,193),GRAY,FONT('Microsoft Sans Serif',8)
                                SHEET,AT(9,9,350,172),USE(?SHEET1)
                                  TAB('Tab1'),USE(?TAB1)
                                  END
                                  TAB('Tab2'),USE(?TAB2)
                                  END
                                END
                              END
  CODE
  OPEN(Window)
  SELECT(?TAB2)
  ACCEPT
  END

Дед Пахом писал(а): 2-й TAB активен:

У меня именно так сейчас и сделано. Но в окне много всего разного (Несколько LIST, куча кнопок и т.д.)
потому при таком варианте смены TAB оно заметно моргает ....

gopstop2007 писал(а): до открытия окна,

Проверил:

Код: Выделить всё

  Select(?SheetW,2)
  ! Open the window
  SELF.Open(ProgressWindow)                                ! Open window

Ожидаемо - не работает.

Попробуй так (не факт, что моргать не будет):

Код: Выделить всё

	self.FirstField = ?List2

Где-нибудь в Init оконного менеджера, ?List2 - контрол на нужном табе.
У меня используется такая конструкция, вроде жалоб не было. Но опять же не факт, может ещё что влияет.

еще раз проверил, работает

С10 ABC

Игорь Столяров писал(а): У меня именно так сейчас и сделано. Но в окне много всего разного (Несколько LIST, куча кнопок и т.д.)
потому при таком варианте смены TAB оно заметно моргает ....

те. если этот таб открывать по умолчанию первым - все ОК? так может "развести" все таб по разным окнам если столь важно чтоб "не моргало"

gopstop2007 писал(а): еще раз проверил, работает С10 ABC

Только Prepare Alert Keys после открытия окна.

gopstop2007 писал(а): еще раз проверил, работает С10 ABC

Вы же посмотрите код, перед тем как писать ...
Embed [Prepare AlertKey] находится значительно ниже Open(Window) ....
Естественно переключение закладки оператором SELECT() в этом месте прекрасно работает.
Я в вопросе написал, что делаю переключение сразу после открытия окна.

Т.е. сообщение "до открытия окна, у меня стоит в init ..." - неправильно.

В общем, похоже современная наука это не лечит, но есть болеутоляющее ( 0{Prop:Buffer} = 1 ) ....
За наводку об этом - спасибо ! Узнал, что-то новое, попробую прикрутить.

Игорь Столяров писал(а):Т.е. сообщение "до открытия окна, у меня стоит в init ..." - неправильно.

Извините облажался, поторопился

Бес попутал с EVENT:OpenWindow
Но если поставить сразу после SELF.Open(Window) Message('?'), откроется message, а потом окно. То есть, если я правильно понял окно появляться после EVENT:OpenWindow

Можно ещё спрятать окно или задвинуть за край, практически незаметно

Код: Выделить всё

hide(0) ; Select(...) ; unhide(0) 

0{Prop:xpos} = 0{prop:xpos} - 5000; Select(...);  0{Prop:xpos} = 0{prop:xpos} + 5000

Yufil писал(а): Можно ещё спрятать окно или задвинуть за край, практически незаметно

Это уже, что-то из репертуара Дэвида Копперфильда получается ...

forum.clarionlife.net

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию

Установить TAB по умолчанию