nDataStrAlign := AL_RIGHT
Is it possible to change alignment on the fly?
Thanks in advance
Otto
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xBrowser: Is it possible to change alignment on the fly?
Otto,
Have you tried to change it and refresh the browse ?
Thank you. Yes I tried with refresh().
Here is my code:
func f_DataStrAlign(r,c,f,o)
oBrw:nRowDividerStyle := 0 // I put this to proof that refresh is working
oBrw:aCols[ o:nPos ]:nDataStrAlign := AL_RIGHT
oBrw:refresh()
return nil
The text does not move.
Regards,
Otto
Otto,
Try it this way:
oCol = oBrw:aCols[ o:nPos ]
oCol:nDataStrAlign := AL_RIGHT
oCol:nDataStyle := oCol:DefStyle( oCol:nDataStrAlign, ( oCol:oBrw:nDataLines == 1 ) )
Alignment changes but Al_right is not displayed well.
See screen:
See screen:
Try to RTrim() the column data.
EMG
Working perfectly
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
METHOD DataAlign( nAlign ) CLASS TXBrwColumn
if ! ( ::nDataStrAlign == nAlign ) // tolerate nil param
::nDataStrAlign := AL_RIGHT
::nDataStyle := ::DefStyle( ::nDataStrAlign, ( ::oBrw:nDataLines == 1 ) )
endif
RETURN ::nDataStrAlignRegards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Thank you Enrico.
I changed it in METHOD PaintData:
if ::bStrData != nil
cData := RTRIM( Eval( ::bStrData, Self ))
else
cData := ""
endif
I changed it in METHOD PaintData:
if ::bStrData != nil
cData := RTRIM( Eval( ::bStrData, Self ))
else
cData := ""
endif
To nageswaragunupudi:
If I insert the method DataAlign I get all centered.
Regaqrds,
Otto
Mr Otto
Obviously the values should be rtimmed for right justification. My proposed method is only for changing justification on the fly.
If you change the paint method you may like to cover the cases of left, center and riight justifcations and all other possibilities. For non left justified painting probably alltrim(,,,) may be better, We should also keep in mind multiple line painting. Paint is a very generic method. Should we change this paint method or specify bStrData appropriately?
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
It is most common to right justify numbers and left justify text in tables. Numbers need to be right justified to make the decimals aline. I can't think of a good reason to right justify text.
James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Hello James,
to learn to use xBrowser I created a little tool xBTool to build a xBrowser visually.
There I want to click on the header and select if the column should be right aligned or left.
Doing this I saw that text fields do not align accurately. Therefore I pointed this problem out.
Regards,
Otto