Tworzenie okna dialogu > MEdit - polecenie

Drukuj

MEdit - polecenie symp

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

 

Składnia

Int MEdit 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. 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.

Int

x0

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

Int

y0

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

Int

dx

Szerokość pola edycyjnego, liczona w pikselach.

Int

dy

Wysokość pola edycyjnego, 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 okna edycyjnego. Aktualna zawartość okna edycyjnego 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 tekst="Tekst", twz="Tekst wzorcowy"
//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
If id == id2 Then Save
EndSub
//Wyświetlenie dialogu z prezentacją działania poleceń
Form "Zastosowanie polecenia MEdit", 380, 230
MEdit "Pole edycyjne", tekst, 130, 20, 210, 60, tekst==twz, "Zmienna powinna zawierać Tekst wzorcowy"
//Przycisk uruchamiający zapisanie do zmiennej zawartości pola edycyjnego
id2 = Button "&Zapisz zawartość pola edycyjnego do zmiennej", 40, 90, 300, 24, 1
//Przycisk uruchamiający porównanie zawartości zmiennej z tekstem wzorcowym
id1 = Button "&Porównaj zawartość zmiennej z wzorcem", 40, 120, 300, 24, 1
Button "&Anuluj", 220, 160, 100, 24, -1
Button "O&K", 60, 160, 100, 24, 2
ExecForm OnCommand
Error ""