GUI форма (full screen)

[serzzz]

Здрасте,

Такой вопрос. Можно сделать форму:
1. размер которой был бы всегда full screen
2. чтобы не было стандартных кнопок Minimize, RestoreDown, Close. Как во всех Win окнах.

 

[CreatoR]

Re: GUI full screen

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Как правильно называть темы

"GUI full screen" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Администратор форума.

и ещё

{MultplQuestionWarn.Admin}

 

[joiner]

Re: GUI full screen

наверное так
делал такую шутку.

 

[serzzz]

Re: GUI форма (full screen) и кнопки с картинками

Спасибо Александр.

Делается окно с картинкой на весь экран. это мне пригодится, програмку сделаем покрасивее
Мешает только:
- Окно можно двигать, это плохо.
- Полоску с наванием окна тоже можно отключить?

А вооще можно в кнопку вставить картинку?

 

[aleratorio]

- Окно можно двигать, это плохо.
- Полоску с наванием окна тоже можно отключить?

Сделай вот так:

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

GUICreate("Вот такие пироги.", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP)
;GUICtrlCreatePic(@WindowsDir & "\ex.gif",0, 0,@DesktopWidth, @DesktopHeight)
GUISetState()


While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

А вооще можно в кнопку вставить картинку?

$Button = GUICtrlCreateButton("Button", 185, 147, 75, 66, $BS_BITMAP)
GUICtrlSetImage(-1, "C:\Scripts\test\image.bmp", -1)

 

[madmasles]

serzzz
Немного переделанный пример к функции _WinAPI_GetWorkArea() из Расширение стандартной AutoIt библиотеки WinAPI.au3.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPIEx.au3>
#include <GuiButton.au3>
#include <GuiImageList.au3>

Opt('MustDeclareVars', 1)
Opt('GUICloseOnESC', 0)

Global $hForm, $tRECT, $X, $Y, $Width, $Height, $time = True, _
		$hImage, $nButton, $nMsg, $nPic

HotKeySet('^{F12}', '_Exit') ;Ctrl+F12 выход

$hImage = _GUIImageList_Create(16, 16, 5, 1)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 131)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 165)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 168)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 137)
_GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 146)

$tRECT = _WinAPI_GetWorkArea()
$Width = DllStructGetData($tRECT, 'Right') - DllStructGetData($tRECT, 'Left')
$Height = DllStructGetData($tRECT, 'Bottom') - DllStructGetData($tRECT, 'Top')
$X = DllStructGetData($tRECT, 'Left')
$Y = DllStructGetData($tRECT, 'Top')
$hForm = GUICreate('MyGUI', $Width, $Height, $X, $Y, $WS_POPUP, $WS_EX_TOPMOST)
$nPic = GUICtrlCreatePic(@WindowsDir & '\Web\Wallpaper\Wallpaper 10.jpg', 0, 0, $Width, $Height)
GUICtrlSetState(-1, $GUI_DISABLE)
;GUISetBkColor(0x87CEFA, $hForm)
$nButton = GUICtrlCreateButton('Click', $Width / 2 - 40, $Height / 2 - 16, 80, 32)
GUICtrlSetFont(-1, 12, 600)
_GUICtrlButton_SetImageList(-1, $hImage)
WinSetTrans($hForm, '', 220)
GUISetState()

_WinAPI_EmptyWorkingSet()

While $time
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $nButton
			If MsgBox(262180, 'Test', 'Выходим?') = 6 Then
				_Exit()
			EndIf
	EndSwitch
WEnd

Func _Exit()
	$time = False
EndFunc   ;==>_Exit

 

[dronet]

Вот так не двигаетса, может поможет... :whistle:

$GUI_EVENT_CLOSE = -3
$WS_POPUP = 0x80000000
$WS_EX_LAYERED = 0x00080000


$Form1 = GUICreate("Form1", 452, 449, -1, -1, $WS_POPUP)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Form1
		Case $Form1
		Case $Form1
		Case $Form1
	EndSwitch
WEnd

Добавлено:

Сообщение автоматически объединено: 4 Фев 2011

Смотри в справке про стили, или в онлайн справке - тут: http://www.autoitscript.com/autoit3/docs/appendix/GUIStyles.htm

 

[kaster]

serzzz

Предупреждение

добавление слова "форма" не сильно способствовало обретению названия осмысленного содержания.

 

[dronet]

Может не подвижное окно, во весь экран? Как пример... :whistle:

 

[Sniper]

Это делается так:

#include <windowsconstants.au3>
#include <guiconstants.au3>
$gui = GUICreate("TEST", 100, 100, -1, -1, $WS_POPUP + $WS_MAXIMIZE)
GUISetState()
While 1
	Switch GUIGetMsg()
		Case $gui_event_close
			Exit
	EndSwitch
WEnd