Tworzenie okna dialogu > ChkBox - polecenie | | Drukuj |
Polecenie tworzy w oknie dialogowym pole wyboru. Wartość stanu pola może być przekazywana w trakcie obsługi okna dialogowego przy pomocy poleceń Load i Save.
Składnia
Int ChkBox String nazwa, Int stan, Int x0, Int y0, Int dx, Int dy
Argumenty
Typ |
Nazwa |
Opis |
nazwa |
Nazwa umieszczona z prawej strony pola wyboru. Umieszczenie w nazwie znaku & powoduje wyświetlenie następnego po nim znaku z podkreśleniem, przez co aktywny staje się klawisz skrótu: Alt + podkreślona litera. |
|
stan |
Stan pola wyboru. Wartość zero oznacza, że pole nie jest zaznaczone, wartość różna od zera oznacza, że pole jest zaznaczone. |
|
x0 |
Odległość lewej krawędzi pola wyboru od lewej krawędzi okna dialogowego, liczona w pikselach. |
|
y0 |
Odległość górnej krawędzi pola wyboru od górnej krawędzi okna dialogowego, liczona w pikselach. |
|
dx |
Szerokość obszaru pola wyboru (pole wraz z nazwą), liczona w pikselach. |
|
dy |
Wysokość obszaru pola wyboru, liczona w pikselach. |
Wartość zwracana
Identyfikator pola wyboru.
Przykład
Int ch1, ch2, id2, id3, id4, id5
//Zdefiniowanie podprogramu OnCommand z poleceniami Save i Load
Int Sub OnCommand(int id, int msg)
//Zapisanie do zmiennych stanu widocznego w dialogu
If id == id4 Then Save
//Ustawienie stanu elementów dialogu zgodnie ze stanem zmiennych
If id == id5 Then Load
EndSub
//Wyświetlenie dialogu z prezentacją działania poleceń
Form "Zastosowanie poleceń Save i Load", 448, 288
//Pola wyboru do pokazu stanu zmiennych
id2 = ChkBox "Pole wyboru nr 1", ch1, 50, 30, 250, 24
id3 = ChkBox "Pole wyboru nr 2", ch2, 50, 60, 250, 24
//Przycisk uruchamiający zapisanie do zmiennych stanu widocznego w dialogu
id4 = Button "&Zapamiętaj stan elementów", 132, 112, 200, 24, 1
//Przycisk uruchamiający ustawienie stanu elementów na podstawie zmiennych
id5 = Button "&Ładuj dane ze zmiennych", 132, 152, 200, 24, 1
Button "&Anuluj", 296, 204, 100, 24, -1
Button "O&K", 72, 204, 100, 24, 2
Int wyjdz = ExecForm OnCommand
//Zakończenie raportu bez prezentowania wyników
If wyjdz != 2 Then Error ""
//Prezentacja wyników do wydruku
If ch1 == 1 then
Print "Pole wyboru nr 1 zostało zaznaczone",LF
Else
Print "Pole wyboru nr 1 nie zostało zaznaczone",LF
EndIf
If ch2 == 1 then
Print "Pole wyboru nr 2 zostało zaznaczone",LF
Else
Print "Pole wyboru nr 2 nie zostało zaznaczone",LF
EndIf