Re: Menu widget i efekt przesuwania ekranu

["Pawel Korczak" <p.korczak@pekaes.com.pl>]

> Czesc.
> Jak wyeliminowac efekt przesuwania ekranu w dol przy korzystaniu z
> "menu" (wersja znakowa). Przyklad - ponizszy kod:
> 
> ---------------------------------------------------------------
> DEF SUB-MENU sm-Odbiorcy  
>   MENU-ITEM mi-Nowy    LABEL "&Nowy"
>   RULE  
>   MENU-ITEM mi-Koniec  LABEL "&Koniec".
> 
> DEF SUB-MENU sm-Pomoc
>   MENU-ITEM mi-Pomoc   LABEL "&Pomoc".
> 
> DEF MENU mbar MENUBAR
>   SUB-MENU sm-odbiorcy LABEL "&Plik"
>   SUB-MENU sm-Pomoc    LABEL "&Pomoc".
> 
> DEF VAR zmienna AS CHAR INIT "Test".
> 
> DEF FRAME ramka1 
>   zmienna
> WITH ROW 1 SIDE-LABELS CENTERED.
> 
> ENABLE ALL WITH FRAMe ramka1.
> PAUSE MESSAGE "Teraz bedzie efekt opuszczania ekranu".
> ASSIGN DEFAULT-WINDOW:MENUBAR = MENU mbar:HANDLE.
> WAIT-FOR CHOOSE OF MENU-ITEM mi-Koniec.
> 
> -----------------------------------------------------------------------
> 
> Nawet po kompilacji ramka "ramka1" przesuwa sie w dol o jeden wiersz.
> Czyzby Progress nie rezerwowal sobie miejsca na "menu"? 
> Na pewno mozna to jakos przeskoczyc - patrz menu np w edytorze procedur.
> Gdzie cos mi umknelo?

Proponuje instrukcje  
 ASSIGN DEFAULT-WINDOW:MENUBAR = MENU mbar:HANDLE.
wykonac przed wyswietleniem ramki.
ENABLE wyswietla ramke ...
_/-----------------------------------------------------
_/
_/   PEKAES AUTO-TRANSPORT 
_/   Siedmiogrodzka 1/3       Tel (+22) 632 22 51 ext 150
_/   01-204 Warszawa          Fax (+22) 632 10 92  
_/   Polska/ Poland           Komertel 3912 34 43 
_/
_/-----------------------------------------------------