Blase

BAR$BLASE (RPGLE)



  X * BLASE BEGSR BAR$BLASE 168  
  X * BLASEROW1 BEGSR BAR$BLASE 14  
  X * BLASEROW1X BEGSR BAR$BLASE 8  
  X * BLASEROW2 BEGSR BAR$BLASE 14  
  X * BLASEROW2X BEGSR BAR$BLASE 8  
  X * BLASEROW3 BEGSR BAR$BLASE 14  
  X * BLASEROW3X BEGSR BAR$BLASE 8  
  X * BLASESRC BEGSR BAR$BLASE 9  
  X * BLASESRC2 BEGSR BAR$BLASE 7  
  X  
  X * NATYPNAV EXSR BAR$NAV    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * TEXTSMILYS2 EXSR BAR$TEXT    
  X  
C     BLASE BEGSR                
C     *IN84 IFEQ *OFF              
C *     --------------------------------------
C *     Text in Blase darstellen
C *     --------------------------------------
C       CLEAR   BLASENUM            
C       MOVEL(P) TYPBLASEN NATYP            
C       EXSR NATYPNAV              
C          
C *     --------------------------------------
C *     Blase öffnen
C *     --------------------------------------
C     *BLANKS IFEQ BLASEBUF1              
C       EVAL BLASEBUF1 = '<table border=0 +
C          cellspacing=0 +
C          cellpadding=0 +
C              summary=""'+
C         NOROUNDSTYLE+'>'
C *     --------------------------------------
C *     Obere Reihe
C *     --------------------------------------
C       EXSR BLASEROW1              
C       EXSR BLASESRC              
C       EVAL BLASEBUF1     =
C       BLASEBUF1     +          '<td style="'+
C       BLASEIMAGE    + SRC +
C       BLASEIMAGEX   +'; '+
C       BLASEPOSITION +'left   top;    '+
C       BLASEREPEAT   +'no-repeat;   '+
C       BLASECOLOR    +'transparent; '+
C       BLASEWIDTH    +'auto">'+
C       BLASEIMAGE2   + SRC +
C       BLASEIMAGE2X  +'</td>'
C       EXSR BLASESRC              
C       EVAL BLASEBUF1     =
C       BLASEBUF1     + NL  +'    <td style="'+
C       BLASEIMAGE    + SRC +
C       BLASEIMAGEX   +'; '+
C       BLASEPOSITION +'center top;    '+
C       BLASEREPEAT   +'   repeat-x; '+
C       BLASECOLOR    +'#ffffff;     '+
C       BLASEWIDTH    +'100%">'+
C       BLASEIMAGE2   + SRC +
C       BLASEIMAGE2X  +'</td>'
C       EXSR BLASESRC              
C       EVAL BLASEBUF1     =
C       BLASEBUF1     + NL  +'    <td style="'+
C       BLASEIMAGE    + SRC +
C       BLASEIMAGEX   +'; '+
C       BLASEPOSITION +'right  top;    '+
C       BLASEREPEAT   +'no-repeat;   '+
C       BLASECOLOR    +'transparent; '+
C       BLASEWIDTH    +'auto">'+
C       BLASEIMAGE2   + SRC +
C       BLASEIMAGE2X  +'</td>'
C       EXSR BLASEROW1X              
C *     --------------------------------------
C *     Text-Reihe öffnen
C *     --------------------------------------
C       EXSR BLASEROW2              
C       EXSR BLASESRC              
C       EVAL BLASEBUF1     =
C       BLASEBUF1     +          '<td style="'+
C       BLASEIMAGE    + SRC +
C       BLASEIMAGEX   +'; '+
C       BLASEPOSITION +'left   center; '+
C       BLASEREPEAT   +'   repeat-y; '+
C       BLASECOLOR    +'#ffffff;     '+
C       BLASEWIDTH    +'auto">'+
C       BLASEIMAGE2   + SRC +
C       BLASEIMAGE2X  +'</td>'
C       EXSR BLASESRC              
C       EVAL BLASEBUF1     =
C       BLASEBUF1     + NL  +'    <td style="'+
C       BLASEIMAGE    + SRC +
C       BLASEIMAGEX   +'; '+
C       BLASEPOSITION +'center center; '+
C       BLASEREPEAT   +'   repeat;   '+
C       BLASECOLOR    +'#ffffff;     '+
C       BLASEWIDTH    +'100%">'
C       ENDIF                
C     *BLANKS IFEQ BLASEBUF2              
C       EVAL BLASEBUF2     ='</td>'
C *     --------------------------------------
C *     Text-Reihe schließen
C *     --------------------------------------
C       EXSR BLASESRC              
C       EVAL BLASEBUF2     =
C       BLASEBUF2     + NL  +'    <td style="'+
C       BLASEIMAGE    + SRC +
C       BLASEIMAGEX   +'; '+
C       BLASEPOSITION +'right  center; '+
C       BLASEREPEAT   +'   repeat-y; '+
C       BLASECOLOR    +'#ffffff;     '+
C       BLASEWIDTH    +'auto">'+
C       BLASEIMAGE2   + SRC +
C       BLASEIMAGE2X  +'</td>'
C       EXSR BLASEROW2X              
C *     --------------------------------------
C *     Untere Reihe
C *     --------------------------------------
C       EXSR BLASEROW3              
C       EXSR BLASESRC              
C       EVAL BLASEBUF2     =
C       BLASEBUF2     +          '<td style="'+
C       BLASEIMAGE    + SRC +
C       BLASEIMAGEX   +'; '+
C       BLASEPOSITION +'left   bottom; '+
C       BLASEREPEAT   +'no-repeat;   '+
C       BLASECOLOR    +'transparent; '+
C       BLASEWIDTH    +'auto">'+
C       BLASEIMAGE2   + SRC +
C       BLASEIMAGE2X  +'</td>'
C       EXSR BLASESRC              
C       EVAL BLASEBUF2     =
C       BLASEBUF2     + NL  +'    <td style="'+
C       BLASEIMAGE    + SRC +
C       BLASEIMAGEX   +'; '+
C       BLASEPOSITION +'center bottom; '+
C       BLASEREPEAT   +'   repeat-x; '+
C       BLASECOLOR    +'#ffffff;     '+
C       BLASEWIDTH    +'100%">'+
C       BLASEIMAGE2   + SRC +
C       BLASEIMAGE2X  +'</td>'
C       EXSR BLASESRC              
C       EVAL BLASEBUF2     =
C       BLASEBUF2     + NL  +'    <td style="'+
C       BLASEIMAGE    + SRC +
C       BLASEIMAGEX   +'; '+
C       BLASEPOSITION +'right  bottom; '+
C       BLASEREPEAT   +'no-repeat;   '+
C       BLASECOLOR    +'transparent; '+
C       BLASEWIDTH    +'auto">'+
C       BLASEIMAGE2   + SRC +
C       BLASEIMAGE2X  +'</td>'
C       EXSR BLASEROW3X              
C *     --------------------------------------
C *     Blase schließen (mit Smily)
C *     --------------------------------------
C       EXSR BLASESRC2              
C       EVAL BLASEBUF2     =
C       BLASEBUF2     +'<tr><td +
C           align="center">'+
C       BLASEIMAGE2   + SRC +
C       BLASEIMAGE2X  +'</td></tr>+
C           </table>'
C       ENDIF                
C *     --------------------------------------
C *     Text zentriert darstellen
C *     --------------------------------------
C   N89   EVAL BUFV =  '<center>'+
C       BUFV + '</center>'
C          
C *     --------------------------------------
C *     Text in Blase darstellen
C *     --------------------------------------
C       EVAL BUFV =   BLASEBUF1 +
C       BUFV +   BLASEBUF2
C       ELSE                
C *     --------------------------------------
C *     Text in Klammern darstellen
C *     --------------------------------------
C       EVAL BUFV = %TRIM(FONT)+'('+
C              %TRIM(FONTX)+
C       BUFV + %TRIM(FONT)+')'+
C              %TRIM(FONTX)
C       ENDIF                
C       ENDSR                
C          
  X * BLASE EXSR BAR$BLASE    
  X  
C     BLASEROW1 BEGSR                
C *     --------------------------------------
C *     Obere Reihe öffnen
C *     --------------------------------------
C       EVAL BLASEBUF1 =
C       BLASEBUF1 + '<tr><td>+
C                    <table border=0 +
C          cellspacing=0 +
C          cellpadding=0 +
C              summary="" +
C                width="100%"'+
C         NOROUNDSTYLE+'>'+
C                NL+NL+'<tr>'
C       ENDSR                
C          
  X * BLASE EXSR BAR$BLASE    
  X  
C     BLASEROW1X BEGSR                
C *     --------------------------------------
C *     Obere Reihe schließen
C *     --------------------------------------
C       EVAL BLASEBUF1 =
C       BLASEBUF1 + '</tr></table>+
C               </td></tr>'
C       ENDSR                
C          
  X * BLASE EXSR BAR$BLASE    
  X  
C     BLASEROW2 BEGSR                
C *     --------------------------------------
C *     Text-Reihe öffnen
C *     --------------------------------------
C       EVAL BLASEBUF1 =
C       BLASEBUF1 + '<tr><td>+
C                    <table border=0 +
C          cellspacing=0 +
C          cellpadding=0 +
C              summary="" +
C                width="100%"'+
C         NOROUNDSTYLE+'>'+
C                   NL+'<tr>'
C       ENDSR                
C          
  X * BLASE EXSR BAR$BLASE    
  X  
C     BLASEROW2X BEGSR                
C *     --------------------------------------
C *     Text-Reihe schließen
C *     --------------------------------------
C       EVAL BLASEBUF2 =
C       BLASEBUF2 + '</tr></table>+
C               </td></tr>'
C       ENDSR                
C          
  X * BLASE EXSR BAR$BLASE    
  X  
C     BLASEROW3 BEGSR                
C *     --------------------------------------
C *     Untere Reihe öffnen
C *     --------------------------------------
C       EVAL BLASEBUF2 =
C       BLASEBUF2 + '<tr><td>+
C                    <table border=0 +
C          cellspacing=0 +
C          cellpadding=0 +
C              summary="" +
C                width="100%"'+
C         NOROUNDSTYLE+'>'+
C                   NL+'<tr>'
C       ENDSR                
C          
  X * BLASE EXSR BAR$BLASE    
  X  
C     BLASEROW3X BEGSR                
C *     --------------------------------------
C *     Untere Reihe schließen
C *     --------------------------------------
C       EVAL BLASEBUF2 =
C       BLASEBUF2 + '</tr></table>+
C               </td></tr>'
C       ENDSR                
C          
  X * BLASE EXSR BAR$BLASE    
  X * BLASE EXSR BAR$BLASE    
  X * BLASE EXSR BAR$BLASE    
  X * BLASE EXSR BAR$BLASE    
  X * BLASE EXSR BAR$BLASE    
  X * BLASE EXSR BAR$BLASE    
  X * BLASE EXSR BAR$BLASE    
  X * BLASE EXSR BAR$BLASE    
  X * BLASE EXSR BAR$BLASE    
  X  
C     BLASESRC BEGSR                
C       ADD 1 BLASENUM            
C *     --------------------------------------
C *     Blasen-Teil
C *     --------------------------------------
C       EVAL SRC = %TRIM(PFADREL) +
C             %TRIM(NANAV)   +'/blase'+
C             %CHAR(BLASENUM)+'.gif'
C       ENDSR                
C          
  X * BLASE EXSR BAR$BLASE    
  X  
C     BLASESRC2 BEGSR                
C *     --------------------------------------
C *     Smily
C *     --------------------------------------
C       EVAL SRC = %TRIM(PFADREL) +
C             %TRIM(NANAV)   +'/denk.gif'
C       ENDSR                

300 ms | Kontakt | Information | Aibo-Bar © 2005-2024