Okno dialogowe "edit_box" |
(cd:DCL_StdEditBoxDialog Data Title EditTile Width BtnsWidth BtnsLabel DPos Limit) |
Argumenty: |
Data | [LIST] | lista argumentów (maks. 7) -> (list a b c d e f g)
* STR - dowolny łańcuch
a = 0
b - INT = rodzaje błędów
LIST = rodzaje błędów wraz z komunikatem
c - wartość domyślna
* STR - zgodny z tablicą/wzorcem
a = 1
b - INT = rodzaje błędów
LIST = rodzaje błędów wraz z komunikatem
c - wartość domyślna
d - nazwa tablicy
e - wzorzec
* INT = 2, REAL = 3 - dowolny łańcuch
a = 2,3
b - INT = rodzaje błędów
LIST = rodzaje błędów wraz z komunikatem
c - wartość domyślna
d - wartość minimalna
e - wartość maksymalna
f - jednostki wyjściowe:
nil = domyślne (getvar "LUNITS")
1 = naukowe
2 = dziesiętne
3 = inżynierskie
4 = architektoniczne
5 = ułamkowe
g - INT = liczba miejsc po przecinku
nil = domyślna (getvar "LUPREC")
|
Title | [STR/nil] | tytuł okna |
EditTile | [STR/nil] | tytuł "edit_box" |
Width | [INT] | szerokość |
BtnsWidth | [REAL/INT] | szerokość przycisków |
BtnsLabel | [LIST] | etykiety przycisków |
DPos | [T/nil] | zapamiętanie pozycji okna |
Limit | [INT] | limit znaków |
|
Zwraca: |
Brak |
Przykład: |
Polecenie: (cd:DCL_StdEditBoxDialog (list 0 0 "") "Poziom" "New:" 40 13 (list "&Ok" "&Anuluj") T nil) |
|
Polecenie: (cd:DCL_StdEditBoxDialog (list 1 (list (cons 1 "Wprowadź dane") (cons 2 "Niepoprawna warstwa")
(cons 4 "Warstwa występuje w rysunku") (cons 16 "Warstwa nie pasuje do wzorca") ) "" "LAYER" "??-??" )
"Warstwa" "Nowa warstwa: (format ??-??)" 40 13 (list "&Ok" "&Anuluj") T 5 ) |
|