Tworzenie okna dialogu > MonEdit - polecenie

| Drukuj

MonEdit - polecenie symp

Polecenie umieszcza w oknie dialogowym pole edycyjne kwot pieniędzy. Wartość pola może być przekazywana w trakcie obsługi okna dialogowego do i z pola edycyjnego daty przy pomocy poleceń Load i Save.

 

Składnia

Int MonEdit String nazwa, String zmienna, Int x0, Int y0, Int dx, Int dy [,  test [, String msg]]

 

Argumenty

Typ

Nazwa

Opis

String

nazwa

Nazwa umieszczana z lewej strony pola edycyjnego kwot pieniędzy. Możliwe jest wymuszone łamanie tekstu przez umieszczenie w miejscu łamania symbolu \n.

String

zmienna

Nazwa zmiennej, z/do której zostanie pobrana/przekazana wartość pola edycyjnego kwot pieniędzy. Zmienna zawiera kwotę w formacie jako ciąg znaków z kropką oddzielającą część ułamkową. Przycisk drop na końcu pola otwiera kalkulator, w którym można wprowadzić kwotę.

Int

x0

Odległość lewej krawędzi pola edycyjnego kwot pieniędzy od lewej krawędzi okna dialogowego, liczona w pikselach.

Int

y0

Odległość górnej krawędzi pola edycyjnego kwot pieniędzy od górnej krawędzi okna dialogowego, liczona w pikselach.

Int

dx

Szerokość pola edycyjnego kwot pieniędzy, liczona w pikselach.

Int

dy

Wysokość pola edycyjnego kwot pieniędzy, liczona w pikselach.

test

Dowolne wyrażenie, wykonywane dopiero przy próbie zamknięcia okna lub podczas wywołania funkcji Valid, którego wartość niezerowa informuje o prawidłowej zawartości pola edycyjnego kwot pieniędzy. Aktualna zawartość pola jest dostępna poprzez zmienną Buf. Wyrażenie to może nie być podane, wówczas nie będzie przeprowadzana kontrola poprawności wprowadzonych danych.

String

msg

Komunikat wyświetlany w przypadku, gdy zawartość pola jest niewłaściwa. Ten parametr może nie być podany, wówczas wyświetlany jest standardowy komunikat "wartość pola jest niewłaściwa".

 

Wartość zwracana

Identyfikator pola edycyjnego.

 

Przykład

Int id1, id2
String twz="33.00", kw = "33.33"
//Zdefiniowanie podprogramu OnCommand z poleceniami Save i Valid
Int Sub OnCommand(int id, int msg)
If id == id1 Then Valid
//Zapisanie do zmiennej zawartości pola edycyjnego daty
If id == id2 Then Save
EndSub
//Wyświetlenie dialogu z prezentacją działania poleceń
Form "Zastosowanie polecenia MonEdit", 380, 230
MonEdit "Pole kwoty", kw, 150, 20, 190, 24, kw==twz, "Zmienna powinna zawierać 33.00"
//Przycisk uruchamiający zapisanie do zmiennej zawartości pola edycyjnego
id2 = Button "&Zapisz zawartość pola edycyjnego do zmiennej", 40, 50, 300, 24, 1
//Przycisk uruchamiający porównanie zawartości zmiennej z tekstem wzorcowym
id1 = Button "&Porównaj zawartość zmiennej z wzorcem", 40, 80, 300, 24, 1
Button "&Anuluj", 220, 140, 100, 24, -1
Button "O&K", 60, 140, 100, 24, 2
ExecForm OnCommand
Error ""