SETBKIMAGE don't work

Article View: borland.public.delphi.nativeapi

Article #13

Back to borland.public.delphi.nativeapi Previous Next

#13

From: benthon
Date: Tue, 03 Aug 2004 18:15

20 lines
1348 bytes

I am unable to put a background image on a Listview in Delphi 7

Here is a piece of my program, but it does not work

procedure TForm1.LVBGImage;
var
  BKimg : TLVBKIMAGE;
begin
  FillChar(BKimg, SizeOf(BKimg), 0);
  BKimg.ulFlags := LVBKIF_SOURCE_URL  or LVBKIF_STYLE_TILE;
  BKimg.pszImage := PChar('c:\\ben.bmp');
  BKimg.xOffsetPercent := 0;
  BKimg.yOffsetPercent := 0;
  CoInitialize(nil);
  SendMessage(ListView1.Handle, LVM_SETTEXTBKCOLOR, 0, integer(CLR_NONE));
  SendMessage(ListView1.Handle, LVM_SETBKIMAGE, 0, integer(@BKimg));
  CoUninitialize;
end;

Thanks for help

Technical Details

Message-ID: <fcd0092c.0408031015.3569d72f@posting.google.com>

Path: arc1-ca.pugleaf.net!g2news1.google.com!postnews2.google.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: f94dd,2bca1feca28582eb,start
X-Google-Attributes: gidf94dd,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!postnews2.google.com!not-for-mail
From: benoit.thonnart@wanadoo.fr (benthon)
Newsgroups: borland.public.delphi.nativeapi
Subject: SETBKIMAGE don't work
Date: 3 Aug 2004 11:15:52 -0700
Organization: http://groups.google.com
Lines: 20
Message-ID: <fcd0092c.0408031015.3569d72f@posting.google.com>
NNTP-Posting-Host: 81.51.40.141
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: posting.google.com 1091556953 18984 127.0.0.1 (3 Aug 2004 18:15:53 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Tue, 3 Aug 2004 18:15:53 +0000 (UTC)