Albeiro,
activate the seekbar with a mouseclick on a selected column-header ( index ).
1. Seekbar
WITH OBJECT oBrw1
[color=#0000FF:2vu4q1zb][b:2vu4q1zb] :lSeekBar := .t.
:bClrEdits := { || { CLR_HRED, CLR_YELLOW } }[/b:2vu4q1zb][/color:2vu4q1zb]
...
...
END
2. using SAY
[color=#0040FF:2vu4q1zb][b:2vu4q1zb]@ 250, 220 SAY oBrw2:oSeek PROMPT oBrw2:cSeek SIZE 50, 12 PIXEL BORDER ;
OF oFld1:aDialogs[1] COLOR CLR_BLACK,CLR_YELLOW PICTURE '@!'
oBrw2:oSeek:Setfont( oSFont )[/b:2vu4q1zb][/color:2vu4q1zb]
[img:2vu4q1zb]http://www.pflegeplus.com/IMAGES/Seekbar1.jpg[/img:2vu4q1zb]
regards
Uwe
↧