Tlistview Проясните ситуацию

← →
hrs (2004-04-30 07:11) [0]

столько вопросов вижу по tlistview
как поставить фоновый рисунок и неодного нормального ответа
может кто-нить всетаки даст рабочий код как это сделать?

← →
hrs (2004-04-30 07:24) [1]

вот накопал вроде visual basik ноя его не шарю может переведете в делфи очень нужно
Option Explicit Private Const NOERROR = &H0& Private Const S_OK = &H0& Private Const S_FALSE = &H1& Private Const LVM_FIRST = &H1000 Private Const LVM_SETBKIMAGE = (LVM_FIRST + 68) Private Const LVM_SETTEXTBKCOLOR = (LVM_FIRST + 38) Private Const LVBKIF_SOURCE_URL = &H2 Private Const LVBKIF_STYLE_TILE = &H10 Private Const CLR_NONE = &HFFFFFFFF " Bitmaps in list views! Private Type LVBKIMAGE ulFlags As Long hbm As Long pszImage As String cchImageMax As Long xOffsetPercent As Long yOffsetPercent As Long End Type Private Declare Sub CoUninitialize Lib "OLE32.DLL" () Private Declare Function CoInitialize Lib "OLE32.DLL" (ByVal pvReserved As Long) As Long Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub SetBackground() Dim sI As String Dim lHDC As Long " Set a background image: sI = "BACK.GIF" If (Len(sI) > 0) Then If (InStr(sI, "")) = 0 Then sI = App.Path & "" & sI End If On Error Resume Next If (Dir(sI) <> "") Then If (Err.Number = 0) Then " Set the background: Dim tLBI As LVBKIMAGE tLBI.pszImage = sI & Chr$(0) tLBI.cchImageMax = Len(sI) + 1 tLBI.ulFlags = LVBKIF_SOURCE_URL Or LVBKIF_STYLE_TILE SendMessage lvwTest.hwnd, LVM_SETBKIMAGE, 0, tLBI " Set the background colour of the ListView to &HFFFFFFFF (-1) " so it will be transparent! SendMessageLong lvwTest.hwnd, LVM_SETTEXTBKCOLOR, 0, CLR_NONE Else MsgBox "Error with File "" & sI & "" :" & Err.Description & ".", vbExclamation End If Else MsgBox "File "" & sI & "" not found.", vbExclamation End If End If End Sub Private Sub Form_Load() Dim i As Byte Dim itmX As ListItem Dim lR As Long With lvwTest "// required for using bitmaps lR = CoInitialize(0) Debug.Print lR If (lR <> NOERROR) And (lR <> S_FALSE) Then Debug.Print "CoInitialize failed" End If .ColumnHeaders.Add , "H1", "Col1" .ColumnHeaders.Add , "H2", "Col2" .ColumnHeaders.Add , "H3", "Col3" .ColumnHeaders.Add , "H4", "Col4" Randomize For i = 1 To 20 " Add text Set itmX = .ListItems.Add(, "C" & i, "Test Item " & i) " Col2= Col2 + Item itmX.SubItems(1) = "Col2 " & i " Col3= Item Number itmX.SubItems(2) = i Next i SetBackground End With End Sub

← →
Романов Р.В. © (2004-04-30 08:40) [2]

ListView_SetTextBkColor(ListView1.Handle,CLR_NONE);
ListView_SetBkColor(ListView1.Handle,CLR_NONE);
ListView1.Brush.Bitmap :=Image1.Picture.Bitmap;

← →
ZDDR © (2004-04-30 08:51) [3]

не работают функции:
ListView_SetTextBkColor(ListView1.Handle,CLR_NONE);
ListView_SetBkColor(ListView1.Handle,CLR_NONE);

← →
hrs (2004-04-30 08:54) [4]

да у меня тоже не работает

← →
Романов Р.В. © (2004-04-30 08:56) [5]

Нужно что то написать в uses. Поиск в файлах поможет.

PS: Как дети... блин :)

← →
hrs (2004-04-30 09:05) [6]

не помог может всетаки напишите?

← →
[lamer]Barmaglot © (2004-04-30 09:09) [7]

Uses
commctrl;

← →
DVM © (2004-04-30 09:14) [8]

> не работают функции:
> ListView_SetTextBkColor(ListView1.Handle,CLR_NONE);
> ListView_SetBkColor(ListView1.Handle,CLR_NONE);

все работает.

LVM_SETBKIMAGE не будет работать с ListView на VCL. На Api-шном без проблем почему-то. Я так и не понял.

А вообще используйте WM_ERASEBKGND.

← →
hrs (2004-04-30 09:17) [9]

да вы пример дайте как его использовать
нифига понять не могу

А тут ничего понимать не надо. Вырезал - вставил.
Есть 2 подводных камня.
1. В некоторых случаях необходимо перерисовать ListView
2. В Image1 должен быть загружен bmp файл.

> да вы пример дайте как его использовать
> нифига понять не могу

А что яндекс не работает?
http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=7879

Tlistview Проясните ситуацию Найти похожие ветки