Unit unit1;
Interface
Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls, Comctrls, CommCtrl, Imglist;
type TForm1 = class (TForm) ListView1: TListView; ImageList1: TImageList; procedure ListView1CustomDraw (Sender: TCustomListView; const ARect: TRect; var DefaultDraw: Boolean); procedure FormCreate (Sender: TObject); procedure FormDestroy (Sender: TObject); procedure ListView1Resize (Sender: TOBJECT); private {private declarations}
Var Form1: TFORM1; Bitmap1: Tbitmap; Implementation
{$ R * .dfm}
procedure TForm1.ListView1CustomDraw (Sender: TCustomListView; const ARect: TRect; var DefaultDraw: Boolean); var x, y: LongInt; begin x: = self.Width - bitmap1.Width; y: = self.Height - bitmap1.Height; self.Caption: = inttostr (form1.Width) ',' inttostr (x); listview1.Canvas.Draw (x, y, bitmap1); SetBkMode (listview1.Canvas.Handle, TRANSPARENT); ListView_SetTextBKColor (listview1.Handle , CLR_NONE); END;
procedure TForm1.FormCreate (Sender: TObject); begin Bitmap1: = TBitmap.Create; Bitmap1.LoadFromFile ( 'backgray.bmp'); listview1.Align: = alclient; listview1.DoubleBuffered: = true; ShowScrollBar (listview1.Handle, SB_BOTH , False; END;
Procedure TFORM1.FORMDESTROY (Sender: TOBJECT); Begin Bitmap1.free;
Procedure TFORM1.ListView1Resize (Sender: TOBJECT); Begin ListView1.INVALIDATE;
End.
