Home GuiCOBOL 010 ENTRY FIELD - proprietà

010 ENTRY FIELD - proprietà PDF Stampa E-mail
I tools opensource di OpenCOBOL
Scritto da Administrator   
Domenica 26 Febbraio 2012 14:03

text legge o setta il valore dell'entry field

77 your-country usage object reference.

procedure division.

invoke mk-form "createtext" using your-contry line 10 position 20

move "Italy"  to "text"  of your-country

 

77 edit-value  pic x(20).

move "text" of edit to edi-value.

 

max legge o setta il massimo numero di caratteri accettati nel campo // 0.1.2 version

move 10 to "max" of edit

 

if "max" of edit  = 10

invoke self  "warning" using  " this field accept al least 0 to 10 characters !"


key legge il tasto premuto

key example // 0.1.1 version

002120  identification division.
002130  program-id. pressed.
002140  data division.

002150  working-storage section.
002160  01 edit                 usage pointer external.
002190  01 valore               pic zzzzzz9.
002200  78 GTK-ESCAPE VALUE 27.
002200      copy "global".
001880 linkage section.
001890 01 gtk-window           usage pointer.
001900 01 gtk-data             usage pointer.
001910
001920 procedure division using by value gtk-window by value gtk-data.

move "key" of gtk-data to valore.
move valore     to "TEXT" of edit2.


001920 procedure division using by value gtk-window by value gtk-data.

if "key" of gtk-data = GTK-ESCAPE
DISPLAY "you pressed ESC".


002310
002320        exit program.
002330  end program pressed.

 

width Legge o setta la larghezza dell'oggetto

move 800 to "width" of gtk-form

77 width-value  pic s9(5) comp-5.

move "width" of gtk-form to width-value


height Legge o setta la l'altezza dell'oggetto

move 600 to "height" of gtk-form

77 height-value  pic s9(5) comp-5.

move "height" of gtk-form to height-value


forecolor Setta il colore di foreground dell'oggetto

move "red" to "forecolor"of label

 

backcolor Setta il colore di background dell'oggetto

move "blue" to "backcolor"of label

move "123,333,232" to "backcolor" of label


forecolor-text Setta il colore di foreground di testo dell'oggetto // 0.1.1 version

move "red" to "forecolor-text " of edit

 

backcolor-text Setta il colore di background di testo dell'oggetto// 0.1.1 version

move "blue" to "backcolor-text" of edit


name Legge o setta il nome dell'oggetto // 0.1.1 version

move "surname" to "name" of edit1

 

parent legge il genitore dell'oggetto // 0.1.1 version

move "parent" of  edit  to parent

 

tooltip legge o setta il testo di tooltip per l'oggetto// 0.1.1 version

move "enter the surname" to "tooltip" of edit1

 

visible legge o setta il valore boolean per rendere l'oggetto visible/invisibile  // 0.1.1 version

move gtk-true to "visible" of radio

IF "visible" of radio = gtk-true .......(or gtk-on ...)

 

font setta il font per l'oggetto// 0.1.1 version

 

move "arial italic 18" to "font" of static1

move "arial bold 10" to "font" of static2

 

enabled legge o setta il valore booleano  per rendere l'oggetto attivo/inattivo// 0.1.2 version

move gtk-true to "enabled" of radio

IF "enabled" of radio = gtk-true .......(or gtk-on ...)

Ultimo aggiornamento Domenica 26 Febbraio 2012 17:06
 

Aggiungi commento


Codice di sicurezza
Aggiorna

Accessi dal mondo