Z przyciskiem w gui

[DarHor]

A więc tak.. Próbowałem sobie zrobić jakiś fajny wygląd programu no i wyszło mi coś takiego.

 

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\adam\projekty\soundiver\soundiver v 3.kxf
$Form1 = GUICreate("Form", 422, 321, 225, 172, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_GROUP,$WS_POPUP))
GUISetFont(12, 400, 0, "Segoe UI Light")
GUISetBkColor(0x3C4649)
$Label6 = GUICtrlCreateLabel("   NazwaProgramu", 0, 0, 421, 42, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 16, 800, 0, "Segoe UI Semibold")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x2D2F31)
$Label1 = GUICtrlCreateLabel("X", 408, 0, 14, 25, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 12, 800, 0, "Segoe UI")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xA82323)
$Label2 = GUICtrlCreateLabel("X", 168, 112, 14, 25, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 12, 800, 0, "Segoe UI")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xA82323)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Label1
			MouseMove(1,1)
		Case $Label2
			MouseMove(1,1)

	EndSwitch
WEnd

 

Niestety jest mały problem. Przycisk znajdujący się w prawym górnym rogu nie działa. Wynika to z tego że leży on na innym label'u. I tu jest pytanie czy da się coś zrobić aby działał normalnie? Czy muszę jakoś inaczej zrobić tą "belkę"? I tak przy okazji mam jeszcze jedno pytanie, da się zrobić tak aby po kliknięciu tel ciemnej "belki" na górze było można normalnie przesuwać program po ekranie?

[Phoenix_PL]

Musisz "dezaktywować" labela na którym jest położony drugi label.

Dodaj po stworzeniu $Label6 tą linijkę:

 

GUICtrlSetState(-1, $GUI_DISABLE)

 

Powinno działać.

 

 

 

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
 
Opt("GuiOnEventMode", 1)
 
$Form1 = GUICreate("Form", 422, 321, 225, 172, $WS_POPUP)
GUISetFont(12, 400, 0, "Segoe UI Light")
GUISetBkColor(0x3C4649)
$Label6 = GUICtrlCreateLabel("   NazwaProgramu", 0, 0, 421, 42, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 16, 800, 0, "Segoe UI Semibold")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x2D2F31)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("X", 408, 0, 14, 25, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 12, 800, 0, "Segoe UI")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xA82323)
$Label2 = GUICtrlCreateLabel("X", 168, 112, 14, 25, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 12, 800, 0, "Segoe UI")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xA82323)
GUICtrlSetOnEvent($Label1, "_knc")
GUICtrlSetOnEvent($Label2, "test")
GUISetState(@SW_SHOW)
 
Func _knc()
Exit
EndFunc
 
Func test()
MsgBox(0, "Test", "OK")
EndFunc
 
While 1
Sleep(100)
WEnd

[DarHor]

@Up dzięki, zaraz sprawdzę. Gdzieś kiedyś pisałeś że ogarniasz ten język w 90%. Stwierdzam że seria tak jest. ;P

@edit. A wiesz może jak zrobić aby można było przesuwać te okno?

[Phoenix_PL]

Musisz ustawić styl odpowiedni, popup nie może być. Albo kombinować z wiadomościami z okna i pisać swoją funkcję ruszania oknem.

To C++ co prawda, ale zasada ta sama:

http://forums.devshed.com/c-programming-42/wm-popup-and-moving-a-window-271243.html

[DarHor]

uhuhu.. Tylko że z c++ nic nie ogarniam. Ale zobaczę. Dzięki.

[Lobod12]

do poruszania oknem masz winMove()...

ale jeśli chcesz myszką to mousedrag czy coś takiego

[Phoenix_PL]

@up jemu nie chodzi o symulację, tylko wychwytywanie draga w oknie.