XProfan

Proc Lvsetcolumnalign

    Parameters Lv&,Column&,I%
    Declare Lvitem#
    Clear Lvitem#
    Long Lvitem#,0=$0011
    Long Lvitem#,4=I%     0=Linksbündig / 1=rechtsbündig / 2=zentriert
    Sendmessage(Lv&,4122,Column&,Lvitem#)&LVM_SETCOLUMN
    Dispose Lvitem#
    Repaint

Endproc

Long Lvitem#,0=%0100