RE: Display at

Hi Shaun,

You can try this. In your per file define a field

screen                                                                        
{                                                                             
                     [lbl1                             ]     

}
end                 
attributes
lbl1 = formonly.label1,noentry;  

In your program you can define a variable and assign the string to it.

let l_text = "XYZ"

display l_text to label1

Another way of doing is create a function that will put the text in the field.

FUNCTION lkup_text()                                                       
DEFINE w ui.Window,                                                        
       f ui.Form                                                           
                                                                              
LET w = ui.Window.getCurrent()                                             
LET f = w.getForm()                                                        
CALL f.setElementText("lb1","Press Ok to execute or Cancel to abort.")     
CALL f.setElementText("lb2","Use Tab key or arrow keys to move cursor.")   
END FUNCTION

This is what is in the per file.

database dbase                                                           
layout                                                                   
grid                                                                     
{                                                                        
                                                                         
 [aa0                                   ]                                
 [aa1                                   ]                                
                                                                         
 <t scn_array                      >                                     
  [f]   [f001                     ]                                      
  [f]   [f001                     ]                                      
  [f]   [f001                     ]                                      
  [f]   [f001                     ]                                      
  [f]   [f001                     ]                                      
                                                                         
}                                                                        
end                                                                      
end                                                                      
tables                                                                   
rb0bill                                                                  
attributes                                                               
LABEL aa0:lb1, TEXT="Press ESC to print report, DEL to abort.";          
LABEL aa1:lb2, TEXT="Use F3,F4 or arrows keys to move cursor.";    

I think these examples will help you.

Jean Gidcumb
Programmer/Analyst
Almost Family, Inc
502-891-1459      

-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Shaun Watts
Sent: Tuesday, June 13, 2006 10:05 AM
To: [email protected]
Subject: RE: [fourjs-users] Display at

I am doing this in Genero.  Should I still use this syntax's.

Thanks,
Shaun 

-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of GSO
Sent: Monday, June 12, 2006 5:01 PM
To: [email protected]
Subject: Re: [fourjs-users] Display at

Screen field definition:
{
[X999]
<place it where you want it >
}
X999 = <table or formonly>.<coumn>, noentry, widget="LABEL";

source code:

display "XYZ" to <table or formonly>.<column>

--
Mit freundlichen Grüßen
    best regards
     - GSOmbH -

 Gerhart Neubauer


Am Montag, 12. Juni 2006 22:13 schrieb Shaun Watts:
> I have a lot of code that does display "XYZ" at 1,1.  Someone 
> mentioned that I should use a label and display to that.  This is a 
> great idea, but I don't know the syntax to display information to a 
> label.
>  
> Can anyone help?
>  
> Thanks,
> Shaun Watts
>  
> Programmer/Analyst
> CSI - Computer Systems, Inc.         Phone:  317.913.4160
> 12975 Parkside Drive                          Fax:  317.913.4175
> Fishers, IN  46038                       Toll Free:  800.860.1274
>  
> "To conquer fear is the beginning of wisdom."
> - Bertrand Russell
>