Mega Code Archive

 

Categories / Delphi / Printing

 

To print the TTreeView and TListView

Title: to print the TTreeView and TListView Standard TTreeView and TListView allow to print the contents to any canvas (bitmap or printer etc). All what you need is to send the WM_PRINT message. The code below demonstrate how you may print to bitmap file: - to print listview var bmp: TBitmap; begin bmp := TBitmap.Create; try bmp.Width := ListView1.Width; bmp.Height := ListView1.Height; bmp.Canvas.Lock; try ListView1.Perform(WM_PRINT, bmp.Canvas.Handle, PRF_CHILDREN or PRF_CLIENT or PRF_NONCLIENT); finally bmp.Canvas.UnLock; bmp.SaveToFile('d: ree.bmp') end; finally bmp.Free end; end; - to print treeview var bmp: TBitmap; begin bmp := TBitmap.Create; try bmp.Width := TreeView1.Width; bmp.Height := TreeView1.Height; bmp.Canvas.Lock; try TreeView1.Perform(WM_PRINT, bmp.Canvas.Handle, PRF_CHILDREN or PRF_CLIENT or PRF_NONCLIENT); finally bmp.Canvas.UnLock; bmp.SaveToFile('d: ree.bmp') end; finally bmp.Free end; end; As you see all what you need is to create a bitmap with desired sizes and send the WM_PRINT message with handle of canvas as parameter. But note that only visible part of control will be printed and control will print the current state as is. For example, if some nodes are collapsed, you'll receive same "snapshot" on canvas.