Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Как рвскрыть начальную форму на весь экран  [new]
Scorpio_md
Member

Откуда: Тирасполь
Сообщений: 451
Здравствуйте. Подскажите, написал программу, вначале есть PRG файл, который осуществляет подключение к БД, затем запускает меню, вопрос, как ему объяснить, что этот белая форма с меню открывалась на весь экран, а то когда компелю экзэшник, ее нужно принудительно открывать на весь экран.
1 фев 07, 09:43    [3723333]     Ответить | Цитировать Сообщить модератору
 Re: Как рвскрыть начальную форму на весь экран  [new]
-=AlexiS=-
Member

Откуда: Одесса
Сообщений: 712
_Screen.WindowState=2
1 фев 07, 10:47    [3723838]     Ответить | Цитировать Сообщить модератору
 Re: Как рвскрыть начальную форму на весь экран  [new]
Scorpio_md
Member

Откуда: Тирасполь
Сообщений: 451
Спасибо.

а как заставить REPORT - отчет раскрыться на вю форму автоматически ???
1 фев 07, 10:57    [3723919]     Ответить | Цитировать Сообщить модератору
 Re: Как рвскрыть начальную форму на весь экран  [new]
-=AlexiS=-
Member

Откуда: Одесса
Сообщений: 712
Чесно говоря , таким не занимался.
У меня set resorces on , поэтому пользователь после первого запуска сам устанавливает удобный для него размер .
Но окно репорта - это обычное окно , поэтому его WindowState тоже можно рулить.
Поиши на фокс клубе и тут - мне кажеться было обсуждение.
Вот наткнулся у себя на какието остатки от старых обсуждений в FIDO.
Может поможет

* Report в отдельном окне
Lparameters tcReportName,tcStringFolr,start_page,end_page
Flush
Set sysmenu Off
*on erro    =MESSAGEBOX('Внимание ! Проверьте принтер ! Принтер не готов .',16,'Сообщение')
_Screen.Show
Defi Wind my_prev From 0,0 To Wrow(),Wcol() Syst Clos Titl 'Предварительный просмотр' Font 'arial',_Screen.FontSize
If empty(tcStringFor)
  If empty(start_page).And.Empt(end_page)
    Report Form &tcReportName Preview Wind my_prev Nocon
  Else
    Repo Form &tcReportName ;
      range start_page,end_page ;
      preview Wind my_prev Nocon
  Endif
Else
  If empty(start_page).And.Empt(end_page)
    Report Form &tcReportName Preview Wind my_prev Nocon For &tcStringFor
  Else
    Report Form &tcReportName ;
      range start_page,end_page ;
      preview Wind my_prev Nocon For &tcStringFor
  Endif
Endif
release windows my_prev
On Erro
_Screen.Hide
Set sysmenu On
1 фев 07, 11:22    [3724131]     Ответить | Цитировать Сообщить модератору
 Re: Как рвскрыть начальную форму на весь экран  [new]
sergej_57
Member

Откуда:
Сообщений: 72
Если тебе надо открывать на весь экран главное окно твоей проги, то создай на нее ярлык, а в свойствах ярлыка установи нужный режим.
1 фев 07, 11:38    [3724296]     Ответить | Цитировать Сообщить модератору
 Re: Как рвскрыть начальную форму на весь экран  [new]
Jura.K
Member

Откуда: г.Кокшетау
Сообщений: 153
В REPORTE
в DataEnvironment в событии INIT напиши
KEYBOARD '{CTRL+F10}'
и Report будет раскрываться на весь экран
1 фев 07, 15:50    [3726557]     Ответить | Цитировать Сообщить модератору
 Re: Как рвскрыть начальную форму на весь экран  [new]
Мысль
Guest
Я так делаю:

Declare Integer GetSystemMetrics In Win32Api Integer
Local  oWnd
oWnd = Createobject("MyPreviewWind")
Report Form mdata Preview Wind ( oWnd.Name ) Noconsole
Release oWnd

Define Class MyPreviewWind As Form
   ShowWindow = 1
   Visible = .T.
   Name = "Отчет"
   Procedure Init
      Local   lnX, lnY
      With This
         .Width  = GetSystemMetrics( SM_CXSCREEN )
         .Height = GetSystemMetrics( SM_CYSCREEN )
      Endwith
   Endproc
Enddefine
1 фев 07, 16:52    [3727072]     Ответить | Цитировать Сообщить модератору
 Re: Как рвскрыть начальную форму на весь экран  [new]
novik_one
Member

Откуда:
Сообщений: 24
Эээээээ а sysmetric в какой версии появилась?
1 фев 07, 18:50    [3727871]     Ответить | Цитировать Сообщить модератору
 Re: Как рвскрыть начальную форму на весь экран  [new]
Мысль
Guest
novik_one, я не помню, поэтому и заменил родную sysmetriс, на универсальную Win32Api, чтобы вопросов не возникало.
1 фев 07, 19:21    [3727982]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить