From: Peter T. <pe...@pr...> - 2004-01-31 20:25:53
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4098/run Modified Files: JvListView.pas Log Message: - Added HeaderImages property. Does not resize when image size changes (TODO!) Index: JvListView.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvListView.pas,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** JvListView.pas 29 Jan 2004 12:09:03 -0000 1.19 --- JvListView.pas 31 Jan 2004 20:24:07 -0000 1.20 *************** *** 11,23 **** The Original Code is: JvListView.PAS, released on 2001-02-28. ! The Initial Developer of the Original Code is Sibastien Buysse [sb...@bu...] ! Portions created by Sibastien Buysse are Copyright (C) 2001 Sibastien Buysse. All Rights Reserved. ! Contributor(s): ! Michael Beck [mb...@bi...]. ! Salvatore Meschini [...1270 lines suppressed...] + end; + + procedure TJvListView.WMNCCalcSize(var Message: TWMNCCalcSize); + var R:TRect; + begin + inherited; + // if Message.CalcValidRects and Assigned(HeaderImages) and (ViewStyle = vsReport) and ShowColumnHeaders then + // with Message.CalcSize_Params^.rgrc[0] do + // Top := Top + HeaderImages.Height + 3; + end; + + procedure TJvListView.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); + begin + inherited; + if HandleAllocated then + UpdateHeaderImages(ListView_GetHeader(Handle)); + end; + + end. |