Ok, here's what I have up to this point. I'd say this is 99% flicker free for me on WinXP with PB4 Beta9. I still have some more clean-up/optimizing to do, so I'll post the completed code later this week(end). Let me know if you see any room for improvement.
Code: Select all
Global oldCallback, hWinBrush, hLvBrush, imgW, imgH, hBmp
UseJPEGImageDecoder()
UsePNGImageDecoder()
#Window_Main = 1
#ListView_1 = 1
#Image_BG = 1
Procedure.l ImageSizer(imageIs.l, imgW.f, imgH.f)
mainWidth.f = ImageWidth(imageIs)
mainHeight.f = ImageHeight(imageIs)
percentageW.f = mainWidth / imgW
percentageH.f = mainHeight /imgH
If percentageW > percentageH Or percentageW = percentageH
percentageWH.f = percentageW
ElseIf percentageH > percentageW
percentageWH.f = percentageH
EndIf
newWidth = mainWidth / percentageWH
newHeight = mainHeight / percentageWH
newImage = ResizeImage(imageIs, newWidth, newHeight)
ProcedureReturn newImage
EndProcedure
Procedure CreateWindowBrush(img$)
;...Load our selected image for window background
bgImage = LoadImage(#PB_Any, img$)
If bgImage
;...Resize image if it's too small for our use
If ImageWidth(bgImage) > 640 Or ImageHeight(bgImage) > 480
sizedImage = ImageSizer(bgImage, 640, 480)
Else
sizedImage = ImageID(bgImage)
EndIf
;...Create brush for window background
hBrush = CreatePatternBrush_(sizedImage)
imgW = ImageWidth(bgImage)
;...Vars to use for window size
If imgW < 300
imgW = 300
EndIf
imgH = ImageHeight(bgImage)
If imgH < 250
imgH = 250
EndIf
FreeImage(bgImage)
If hBrush
result = hBrush
Else
MessageRequester("Error", "Could not create brush", #MB_ICONERROR)
result = 0
EndIf
Else
MessageRequester("Error", "Could not load image", #MB_ICONERROR)
result = 0
EndIf
ProcedureReturn result
EndProcedure
Procedure GetImageBG()
bgImage$ = OpenFileRequester("Choose Background Image", "c:\Documents And Settings\Owner\My Documents\My Pictures\", "Image Files (BMP, JPG, PNG)|*.BMP;*.jpg;*.png", 0)
If bgImage$
hWinBrush = CreateWindowBrush(bgImage$)
Else
;...No image selected. End
End
EndIf
ProcedureReturn hWinBrush
EndProcedure
Procedure CreateListViewBrush(gad)
result = 0
srcDC = GetDC_(WindowID(#Window_Main))
If srcDC
destDC = CreateCompatibleDC_(srcDC)
If destDC
GetClientRect_(GadgetID(gad), @gadRc.RECT)
clientW = gadRc\right - gadRc\left
clientH = gadRc\bottom - gadRc\top
hBmp = CreateImage(#PB_Any, clientW, clientH)
If hBmp
SelectObject_(destDC, ImageID(hBmp))
BitBlt_(destDC, 0, 0, clientW, clientH, srcDC, GadgetX(gad), GadgetY(gad), #SRCCOPY)
result = CreatePatternBrush_(ImageID(hBmp))
FreeImage(hBmp)
EndIf
DeleteDC_(destDC)
EndIf
ReleaseDC_(WindowID(#Window_Main), srcDC)
EndIf
ProcedureReturn result
EndProcedure
Procedure LVcallback(hwnd, msg, wParam, lParam)
result = CallWindowProc_(oldCallback, hwnd, msg, wParam, lParam)
Select msg
Case #WM_ERASEBKGND
result = 1
Case #WM_PAINT
;...Override #WM_PAINT
;...Get ListView DC
lbDc = GetDC_(hwnd)
;...Get the DC for our background image
bgDc = StartDrawing(ImageOutput(#Image_BG))
;...Eliminate border
GetClientRect_(GadgetID(#ListView_1), @gadRc.RECT)
clientW = gadRc\right - gadRc\left
clientH = gadRc\bottom - gadRc\top
;...Copy our background image onto ListView DC
BitBlt_(lbDc, 0, 0, clientW, clientH, bgDc, 0, 0, #SRCCOPY)
;...Finsihed drawing
StopDrawing()
ReleaseDC_(hwnd, lbDc)
;...Return 0
result = 0
Case #WM_LBUTTONDOWN
RedrawWindow_(hwnd, 0, 0, #RDW_FRAME | #RDW_INVALIDATE | #RDW_UPDATENOW)
Case #WM_VSCROLL
RedrawWindow_(hwnd, 0, 0, #RDW_FRAME | #RDW_INVALIDATE | #RDW_UPDATENOW)
Case #WM_MOUSEWHEEL
RedrawWindow_(hwnd, 0, 0, #RDW_FRAME | #RDW_INVALIDATE | #RDW_UPDATENOW)
Case #WM_MOUSEMOVE
If wParam <> 0
RedrawWindow_(hwnd, 0, 0, #RDW_FRAME | #RDW_INVALIDATE | #RDW_UPDATENOW)
EndIf
EndSelect
ProcedureReturn result
EndProcedure
Procedure.l WinCallback(hwnd, msg, wParam, lParam)
result = #PB_ProcessPureBasicEvents
Select msg
Case #WM_DRAWITEM
;...Grab the DRAWITEMSTRUCT structure
*lpdis.DRAWITEMSTRUCT = lParam
;...Check if this is for a ListViewGadget
Select *lpdis\CtlType
Case #ODT_LISTBOX
;...Get current text for item to draw
Select *lpdis\hwndItem
Case GadgetID(#ListView_1)
lbText$ = GetGadgetItemText(#ListView_1, *lpdis\itemID, 0)
bgBrush = hLvBrush
EndSelect
;...Set DrawText flagd
dtFlags = #DT_LEFT | #DT_VCENTER | #DT_NOCLIP
Select *lpdis\itemState
Case #ODS_SELECTED
;...Set your selected item text color
currentTextColor = RGB(200, 200, 255)
;...Enable/Disablee focus rect to remove the default focus rect
drawFocus = #True
Case #ODS_SELECTED | #ODS_FOCUS
;...Set your selected+focused item text color
currentTextColor = RGB(0, 0, 255)
;...Enable/Disable focus rect to remove the default focus rect
drawFocus = #True
Case 0
;...Set your default item text color
currentTextColor = RGB(255, 0, 0)
;...Enable/Disable focus rect to remove the default focus rect
drawFocus = #False
EndSelect
mydc = StartDrawing(ImageOutput(#Image_BG))
;...Fill rect with our image brush
FillRect_(mydc, *lpdis\rcItem, bgBrush)
;...Move text to the right 5 pixels
*lpdis\rcItem\left + 5
;...Make text background transparent
DrawingMode(#PB_2DDrawing_Transparent)
;...Draw text onto our image background
DrawText(*lpdis\rcItem\left, *lpdis\rcItem\top, lbText$, currentTextColor)
;...Draw focus rect as needed
If drawFocus
;...Return to original left margin
*lpdis\rcItem\left - 5
*lpdis\rcItem\bottom + 1
DrawEdge_(mydc, *lpdis\rcItem, #EDGE_ETCHED, #BF_FLAT | #BF_RECT)
EndIf
StopDrawing()
EndSelect
Case #WM_COMMAND
Select wParam >>16 &$FFFF
;...Redraw on ListView selection change
Case #LBN_SELCHANGE
RedrawWindow_(lParam, 0, 0, #RDW_FRAME | #RDW_INVALIDATE | #RDW_UPDATENOW)
EndSelect
;...May not be necessary, but I'll leave it here for now
Case #WM_CTLCOLORLISTBOX
Select lParam
Case GadgetID(#ListView_1)
result = hLvBrush
EndSelect
EndSelect
ProcedureReturn result
EndProcedure
;...OpenFileRequester to get image to use for window background
hMainBrush = GetImageBG()
If OpenWindow(#Window_Main, 0, 0, imgW, imgH, "Transparent ListViewGadget", #PB_Window_SizeGadget | #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(#Window_Main))
;...Set our window background image
SetClassLong_(WindowID(#Window_Main), #GCL_HBRBACKGROUND, hMainBrush)
SetWindowCallback(@WinCallback())
;...Ownerdraw our ListViewGadget
ListViewGadget(#ListView_1, 20, 20, 200, 250, #LBS_OWNERDRAWFIXED)
;...Optional: Comment next line to keep the
;...ListView border and the set border to = 4
;SetWindowLong_(GadgetID(#ListView_1), #GWL_EXSTYLE, GetWindowLong_(GadgetID(#ListView_1), #GWL_EXSTYLE) & ~#WS_EX_CLIENTEDGE)
;border = 0
border = 4
;...Add some items
For i = 0 To 24
AddGadgetItem (#ListView_1, -1, "Item " + Str(i) + " of the Listview")
Next i
;...Get Item height
itemH = SendMessage_(GadgetID(#ListView_1), #LB_GETITEMHEIGHT, 0, 0)
;...Let's resize to show 15 items
lvHeight = itemH * 15
ResizeGadget(#ListView_1, GadgetX(#ListView_1), GadgetY(#ListView_1), 200, lvHeight + border)
;...Hide ListViewGadget
HideGadget(#ListView_1, 1)
;...Create our background brush
hLvBrush = CreateListViewBrush(#ListView_1)
;...Un-hide ListViewGadget
HideGadget(#ListView_1, 0)
;...Create our background image
CreateImage(#Image_BG, GadgetWidth(#ListView_1), GadgetHeight(#ListView_1))
;...Subclass ListViewGadget to override painting
oldCallback = SetWindowLong_(GadgetID(#ListView_1), #GWL_WNDPROC, @LVcallback())
SetGadgetState(#ListView_1, 1)
Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
;...Clean-up
If hLvBrush
DeleteObject_(hLvBrush)
EndIf
If hMainBrush
DeleteObject_(hWinBrush)
EndIf
EndIf
End
