| |
| |
Grid Color je Zeile- #16880 in section [738871] |
| Sec: |
(51) MS-Visual FoxPro 9.0 |
| Von: |
Bernd Köhl |
| An: |
Wolfgang Pasler |
| Am/Um: |
26.05.2015 12:12:21 gelesen |
Hallo Wolfgang,
das habe ich schon versucht, ohne erfolg.
Hier mein Code:
*!* tclfnr1=lv_zergeb.lfd_nr **local view!
*!* tcLfNr2=lv_zergeb.lfd_nr
*!* wechseln1=.t.
*!* wechseln2=.f.
*!* DO WHILE ! EOF()
*!* IF lv_zergeb.lfd_nr=tclfnr1 AND wechseln1
*!* FOR I=1 TO oGrd.columnCount
*!* oGrd.columns(i).DynamicForecolor= "RGB(128, 128,128)"
*!* oGrd.columns(i).DynamicBackColor= "RGB(255,0,0)"
*!* ENDFOR
*!* ELSE
*!* tclfnr2=lv_zergeb.lfd_nr
*!* wechseln1=.f.
*!* wechseln2=.t.
*!* ENDIF
*!* IF lv_zergeb.lfd_nr=tcLfNr2 AND wechseln2
*!* FOR I=1 TO oGrd.ColumnCount
*!* oGrd.columns(i).DynamicForecolor= "RGB(255,255,255)"
*!* oGrd.columns(i).DynamicBackColor= "RGB(0, 0, 255)"
*!* ENDFOR
*!* ELSE
*!* tclfnr1=lv_zergeb.lfd_nr
*!* wechseln1=.t.
*!* wechseln2=.f.
*!* ENDIF
*!* SKIP
*!* ENDDO
oGrd.refresh
Angezeigt wird dann Schrift weiß,Hintergrund blau.
Gruß
Gruß, Bernd
|
|
|
|
