Hi Fang
This is a very quick hack you should make it better
- Select Row
- Select Rating
# 1:
Code: Select all
#HDF_IMAGE = 2048
#HDI_IMAGE = 32
Global oldproc,Header,Header_1, header_h , ILwnd ,Icwnd
UsePNGImageDecoder()
Procedure InsertImg(row,img)
var.lv_item
Var\mask = #LVIF_IMAGE
Var\iItem = row
Var\iSubItem = 0
Var\iImage = Img ;Index of image in the list
SendMessage_(GadgetID(1), #LVM_SETITEM, 0, @Var)
EndProcedure
Procedure Hheight(hwnd, msg, wParam, lParam)
Select msg
Case #HDM_LAYOUT
result = CallWindowProc_(oldproc, hwnd, msg, wParam, lParam)
*hdlayout.HD_LAYOUT = lParam
If *hdlayout\prc <> 0
*rect.RECT = *hdlayout\prc
*rect\top = header_h
EndIf
If *hdlayout\pwpos <> 0
*windowpos.WINDOWPOS = *hdlayout\pwpos
*windowpos\cy = header_h
EndIf
Default
result = CallWindowProc_(oldproc, hWnd, Msg, wParam, lParam)
EndSelect
ProcedureReturn result
EndProcedure
Procedure CreateIcon()
iinf.ICONINFO
iinf\hbmMask = ImageID(10)
iinf\hbmColor = ImageID(10)
Icwnd = CreateIconIndirect_(iinf)
ImageList_AddIcon_(ILwnd,Icwnd)
DestroyIcon_(Icwnd)
EndProcedure
rHeight = 24 ;16,24,32,48,64
LoadFont(0,"Broadway",16)
OpenWindow(0,0,0,800,600, "Test", #PB_Window_ScreenCentered |#PB_Window_SystemMenu)
ContainerGadget(100,10,10,780,540,#PB_Container_Flat)
ListIconGadget(0,0,0,600,540,"Column 0",145,#PB_ListIcon_MultiSelect| #PB_ListIcon_FullRowSelect | #PB_ListIcon_GridLines)
Header = SendMessage_(GadgetID(0), #LVM_GETHEADER, 0, 0)
SetGadgetFont(0,FontID(0))
SetWindowLongPtr_(GadgetID(0),#GWL_EXSTYLE,0)
SetWindowPos_(GadgetID(0),0,0,0,600,540,#SWP_FRAMECHANGED)
ListIconGadget(1,600,0,195,540,"Rating",195,#PB_ListIcon_GridLines)
Header_1 = SendMessage_(GadgetID(1), #LVM_GETHEADER, 0, 0)
SetGadgetFont(1,FontID(0))
SetWindowLongPtr_(GadgetID(1),#GWL_EXSTYLE,0)
SetWindowPos_(GadgetID(1),0,600,0,200,540,#SWP_FRAMECHANGED)
CloseGadgetList()
SetGadgetFont(0,FontID(0))
AddGadgetColumn(0, 1, "Column 1",150)
AddGadgetColumn(0, 2, "Column 2",150)
AddGadgetColumn(0, 3, "Column 3",150)
SendMessage_(GadgetID(1), #LVM_SETEXTENDEDLISTVIEWSTYLE , #LVS_EX_SUBITEMIMAGES, #LVS_EX_SUBITEMIMAGES)
imgWidth = 6*rHeight
ILwnd = ImageList_Create_(imgWidth,rHeight,#ILC_COLOR32, 0, 6)
CatchImage(0,?gray,?endgray-?gray)
CatchImage(1,?gold,?endgold-?gold)
CreateImage(10,imgWidth,rHeight,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(0),4,2)
DrawAlphaImage(ImageID(0),20,2)
DrawAlphaImage(ImageID(0),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(0),20,2)
DrawAlphaImage(ImageID(0),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(0),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(1),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(1),36,2)
DrawAlphaImage(ImageID(1),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(1),36,2)
DrawAlphaImage(ImageID(1),52,2)
DrawAlphaImage(ImageID(1),68,2)
StopDrawing()
CreateIcon()
FreeImage(10)
For i = 0 To 5
AddGadgetItem(0, -1, "000"+Chr(10)+" 111"+Chr(10)+ " 222"+Chr(10)+" 333")
Next
For i = 0 To 5
AddGadgetItem(1, -1, "")
Next
SendMessage_(GadgetID(1), #LVM_SETIMAGELIST, #LVSIL_SMALL, ILwnd)
ButtonGadget(3,10,570,60,24,"Rating 0")
ButtonGadget(4,80,570,60,24,"Rating 1")
ButtonGadget(5,150,570,60,24,"Rating 2")
ButtonGadget(6,220,570,60,24,"Rating 3")
ButtonGadget(7,290,570,60,24,"Rating 4")
ButtonGadget(8,360,570,60,24,"Rating 5")
oldproc = SetWindowLongPtr_(Header, #GWL_WNDPROC, @Hheight())
oldproc = SetWindowLongPtr_(Header_1, #GWL_WNDPROC, @Hheight())
header_h = 40
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Case 1
SetActiveGadget(0)
Case 3 To 8
row = GetGadgetState(0)
InsertImg(row,EventGadget()-3)
EndSelect
EndSelect
Until Quit = 1
End
DataSection
gray:
Data.b $89, $50, $4E, $47, $0D, $0A, $1A, $0A, $00, $00, $00, $0D, $49, $48, $44, $52
Data.b $00, $00, $00, $10, $00, $00, $00, $10, $08, $06, $00, $00, $00, $1F, $F3, $FF
Data.b $61, $00, $00, $00, $06, $62, $4B, $47, $44, $00, $FF, $00, $FF, $00, $FF, $A0
Data.b $BD, $A7, $93, $00, $00, $00, $09, $70, $48, $59, $73, $00, $00, $0B, $13, $00
Data.b $00, $0B, $13, $01, $00, $9A, $9C, $18, $00, $00, $00, $07, $74, $49, $4D, $45
Data.b $07, $E0, $01, $09, $16, $32, $07, $F1, $47, $C9, $08, $00, $00, $02, $14, $49
Data.b $44, $41, $54, $38, $CB, $95, $93, $4F, $4B, $1B, $51, $14, $C5, $7F, $33, $26
Data.b $44, $A6, $58, $C2, $68, $34, $B8, $50, $DB, $B4, $AE, $82, $16, $0A, $A2, $4B
Data.b $41, $BA, $14, $EC, $52, $21, $DB, $2E, $06, $12, $F2, $05, $04, $BF, $81, $E3
Data.b $40, $92, $6D, $BB, $CB, $07, $70, $D3, $55, $F6, $52, $B0, $81, $80, $92, $90
Data.b $92, $3F, $64, $53, $99, $48, $04, $C3, $24, $BE, $FB, $BA, $31, $A5, $29, $1D
Data.b $A9, $07, $2E, $EF, $F1, $EE, $BD, $87, $CB, $39, $F7, $A1, $B5, $26, $0C, $C5
Data.b $62, $F1, $53, $B1, $58, $74, $C3, $F2, $5A, $6B, $22, $3C, $81, $B5, $B5, $B5
Data.b $82, $52, $CA, $04, $72, $61, $35, $66, $58, $C2, $F3, $BC, $93, $54, $2A, $65
Data.b $AE, $AF, $AF, $E3, $79, $DE, $C9, $B3, $08, $0A, $85, $82, $65, $59, $D6, $B1
Data.b $6D, $DB, $D8, $B6, $8D, $65, $59, $C7, $CF, $22, $78, $78, $78, $28, $A5, $D3
Data.b $69, $DA, $ED, $36, $ED, $76, $9B, $74, $3A, $8D, $E7, $79, $9F, $FF, $55, $1B
Data.b $01, $28, $95, $4A, $5F, $94, $52, $1B, $22, $B2, $29, $22, $44, $A3, $51, $6C
Data.b $DB, $A6, $D7, $EB, $01, $B0, $BC, $BC, $4C, $24, $12, $C9, $9C, $9D, $9D, $65
Data.b $0C, $C3, $60, $66, $66, $E6, $BB, $69, $9A, $55, $20, $13, $01, $10, $91, $8F
Data.b $3B, $3B, $3B, $2F, $56, $57, $57, $51, $4A, $11, $8B, $C5, $B8, $BA, $BA, $42
Data.b $29, $05, $80, $EF, $FB, $1C, $1E, $1E, $12, $04, $01, $22, $42, $A3, $D1, $D8
Data.b $AC, $56, $AB, $6F, $80, $8C, $A1, $B5, $C6, $30, $8C, $77, $AE, $EB, $7E, $5D
Data.b $59, $59, $49, $CC, $CD, $CD, $31, $B1, $D6, $30, $8C, $DF, $76, $01, $98, $A6
Data.b $C9, $60, $30, $A0, $D3, $E9, $FC, $CC, $66, $B3, $1F, $B4, $D6, $97, $13, $0D
Data.b $2E, $73, $B9, $DC, $5E, $AD, $56, $3B, $BF, $BB, $BB, $23, $1E, $8F, $23, $22
Data.b $53, $11, $8F, $C7, $E9, $F7, $FB, $D4, $6A, $B5, $F3, $6C, $36, $BB, $07, $5C
Data.b $02, $4C, $26, $00, $20, $1A, $8D, $BE, $2A, $97, $CB, $CD, $54, $2A, $45, $AF
Data.b $D7, $9B, $9A, $20, $99, $4C, $52, $AF, $D7, $39, $3A, $3A, $7A, $3D, $1E, $8F
Data.b $7F, $4C, $DE, $A7, $5C, $38, $3D, $3D, $DD, $4E, $24, $12, $DC, $DC, $DC, $20
Data.b $22, $68, $AD, $D1, $5A, $23, $22, $F4, $FB, $7D, $16, $16, $16, $70, $5D, $77
Data.b $3B, $D4, $C6, $F1, $78, $BC, $1B, $8B, $C5, $18, $0E, $87, $04, $41, $40, $B7
Data.b $DB, $A5, $DB, $ED, $12, $04, $01, $F7, $F7, $F7, $CC, $CE, $CE, $32, $1C, $0E
Data.b $77, $43, $09, $16, $17, $17, $F7, $6F, $6F, $6F, $F1, $7D, $9F, $56, $AB, $75
Data.b $ED, $38, $CE, $96, $E3, $38, $5B, $AD, $56, $EB, $DA, $F7, $7D, $82, $20, $60
Data.b $7E, $7E, $7E, $3F, $94, $40, $29, $B5, $D4, $6C, $36, $A5, $52, $A9, $38, $F9
Data.b $7C, $FE, $60, $34, $1A, $5D, $8C, $46, $A3, $8B, $7C, $3E, $7F, $50, $A9, $54
Data.b $9C, $46, $A3, $21, $22, $B2, $F4, $67, $CF, $94, $88, $C0, $FB, $C7, $B3, $0E
Data.b $0C, $FE, $5A, $BA, $97, $C0, $DB, $C7, $FB, $B7, $89, $88, $C6, $53, $DF, $F9
Data.b $7F, $F0, $0B, $DB, $C0, $0C, $E4, $92, $AD, $2F, $68, $00, $00, $00, $00, $49
Data.b $45, $4E, $44, $AE, $42, $60, $82
endgray:
gold:
Data.b $89, $50, $4E, $47, $0D, $0A, $1A, $0A, $00, $00, $00, $0D, $49, $48, $44, $52
Data.b $00, $00, $00, $10, $00, $00, $00, $10, $08, $06, $00, $00, $00, $1F, $F3, $FF
Data.b $61, $00, $00, $00, $19, $74, $45, $58, $74, $53, $6F, $66, $74, $77, $61, $72
Data.b $65, $00, $41, $64, $6F, $62, $65, $20, $49, $6D, $61, $67, $65, $52, $65, $61
Data.b $64, $79, $71, $C9, $65, $3C, $00, $00, $02, $05, $49, $44, $41, $54, $78, $DA
Data.b $A4, $53, $CF, $4B, $54, $51, $14, $FE, $EE, $7D, $D3, $73, $1C, $19, $0D, $6C
Data.b $6C, $B0, $A9, $08, $9A, $21, $5D, $64, $31, $69, $83, $42, $20, $49, $B4, $10
Data.b $89, $96, $2D, $86, $08, $86, $7E, $40, $7F, $80, $1B, $A1, $3F, $A1, $5D, $26
Data.b $52, $59, $B4, $68, $D5, $C6, $8D, $2D, $5A, $14, $0C, $24, $81, $63, $52, $54
Data.b $1A, $A1, $92, $4C, $2F, $B5, $86, $99, $A6, $B1, $FB, $CE, $ED, $DC, $E7, $0C
Data.b $A8, $CD, $13, $A2, $0B, $DF, $7B, $DF, $BD, $F7, $3B, $DF, $3D, $F7, $9C, $F7
Data.b $A0, $B5, $86, $DF, $F8, $7A, $BF, $F7, $2A, $E3, $B6, $DF, $BE, $17, $BB, $9B
Data.b $41, $29, $7B, $DD, $2D, $BE, $CC, $E8, $DD, $0C, $A4, $DF, $66, $7E, $3C, $79
Data.b $CB, $8E, $9D, $97, $0D, $87, $07, $3D, $EE, $A7, $93, $F5, $53, $4F, $85, $64
Data.b $63, $EB, $48, $60, $7F, $3B, $0C, $0C, $FF, $27, $03, $57, $A9, $3B, $A1, $CE
Data.b $0B, $A0, $B5, $67, $1E, $0C, $CF, $8F, $9F, $7A, $50, $4F, $1B, $30, $0F, $67
Data.b $A2, $6F, $42, $BB, $EA, $B8, $26, $D5, $05, $72, $79, $35, $08, $3B, $1A, $05
Data.b $FD, $7C, $E3, $89, $EC, $E8, $31, $C0, $0A, $A6, $F3, $63, $27, $D3, $90, $16
Data.b $84, $0C, $E4, $84, $65, $CD, $F2, $56, $DA, $33, $20, $A2, $8B, $2D, $7D, $57
Data.b $9A, $1A, $8E, $24, $C1, $46, $9C, $57, $2B, $68, $E5, $11, $48, $D1, $66, $9A
Data.b $95, $1C, $22, $97, $EE, $B1, $70, $15, $02, $15, $FC, $5A, $78, $DE, $55, $98
Data.b $9E, $3A, $6A, $0C, $84, $A9, $A4, $10, $E2, $C4, $F2, $58, $F7, $D4, $DE, $CE
Data.b $43, $11, $7B, $5F, $0B, $34, $71, $A0, $E6, $DB, $09, $AB, $5A, $6E, $CE, $4A
Data.b $10, $4F, $25, $36, $9C, $02, $7E, $BC, $5D, $74, $0E, $64, $5E, $9D, $E3, $D8
Data.b $99, $5A, $0D, $66, $62, $99, $E9, $81, $F9, $EC, $A7, $49, $23, $90, $8D, $09
Data.b $6E, $91, $CB, $46, $6A, $13, $CC, $65, $28, $81, $CA, $CA, $3A, $E6, $B3, $0B
Data.b $93, $1C, $3C, $60, $62, $76, $16, $71, $F6, $F4, $70, $EE, $26, $FD, $E6, $5B
Data.b $59, $CD, $7C, $28, $6D, $87, $68, $02, $95, $2D, $18, $8D, $D1, $D6, $ED, $C2
Data.b $D2, $68, $77, $6A, $4F, $5B, $1C, $AA, $F0, $8E, $4F, $76, $4D, $75, $3C, $18
Data.b $4E, $C5, $0F, $08, $44, $E2, $58, $BA, $DB, $93, $F2, $6D, $63, $49, $A1, $5F
Data.b $86, $82, $D0, $1B, $0E, $07, $94, $51, $9A, $5B, $F4, $60, $38, $55, $1C, $58
Data.b $61, $1B, $C5, $B2, $EA, $F7, $35, $08, $B7, $C7, $86, $A8, $F8, $19, $95, $E5
Data.b $75, $38, $73, $5F, $DE, $1F, $BC, $FC, $A2, $C7, $C0, $70, $B3, $A6, $D5, $77
Data.b $84, $23, $6D, $43, $7F, $FF, $10, $D5, $B1, $F6, $74, $50, $3B, $0F, $7B, $DD
Data.b $D1, $6B, $89, $1B, $3C, $ED, $D8, $22, $EB, $30, $6B, $DF, $1E, $9F, $71, $57
Data.b $9F, $9C, $D5, $5B, $63, $6B, $6D, $AC, $AD, $25, $AB, $EF, $8F, $8C, $C2, $8E
Data.b $8F, $AE, $99, $11, $AF, $F2, $D7, $DB, $0C, $FE, $67, $FC, $11, $60, $00, $31
Data.b $FF, $02, $B9, $6F, $7D, $8E, $AD, $00, $00, $00, $00, $49, $45, $4E, $44, $AE
Data.b $42, $60, $82
endgold:
EndDataSection
# 2:
Code: Select all
#HDF_IMAGE = 2048
#HDI_IMAGE = 32
Global oldproc,oldCallback,Header,Header_1, header_h , ILwnd ,Icwnd
UsePNGImageDecoder()
Procedure InsertImg(row,img)
var.lv_item
Var\mask = #LVIF_IMAGE
Var\iItem = row
Var\iSubItem = 0
Var\iImage = Img ;Index of image in the list
SendMessage_(GadgetID(1), #LVM_SETITEM, 0, @Var)
EndProcedure
Procedure Hheight(hwnd, msg, wParam, lParam)
Select msg
Case #HDM_LAYOUT
result = CallWindowProc_(oldproc, hwnd, msg, wParam, lParam)
*hdlayout.HD_LAYOUT = lParam
If *hdlayout\prc <> 0
*rect.RECT = *hdlayout\prc
*rect\top = header_h
EndIf
If *hdlayout\pwpos <> 0
*windowpos.WINDOWPOS = *hdlayout\pwpos
*windowpos\cy = header_h
EndIf
Default
result = CallWindowProc_(oldproc, hWnd, Msg, wParam, lParam)
EndSelect
ProcedureReturn result
EndProcedure
Procedure CreateIcon()
iinf.ICONINFO
iinf\hbmMask = ImageID(10)
iinf\hbmColor = ImageID(10)
Icwnd = CreateIconIndirect_(iinf)
ImageList_AddIcon_(ILwnd,Icwnd)
DestroyIcon_(Icwnd)
EndProcedure
Procedure LVcallback(hWnd, uMsg, wParam, lParam)
result = CallWindowProc_(oldCallback, hWnd, uMsg, wParam, lParam)
Select uMsg
Case #WM_VSCROLL,#WM_MOUSEWHEEL
If hwnd = GadgetID(1)
Item_Sp = SendMessage_(GadgetID(1), #LVM_GETITEMSPACING, 1, 0) >> 16
SelItem = GetScrollPos_(GadgetID(1),#SB_VERT) - GetScrollPos_(GadgetID(0),#SB_VERT)
SendMessage_(GadgetID(0), #LVM_SCROLL, 0, SelItem * Item_Sp)
ElseIf hwnd = GadgetID(0)
Item_Sp = SendMessage_(GadgetID(0), #LVM_GETITEMSPACING, 1, 0) >> 16
SelItem = GetScrollPos_(GadgetID(0),#SB_VERT) - GetScrollPos_(GadgetID(1),#SB_VERT)
SendMessage_(GadgetID(1), #LVM_SCROLL, 0, SelItem * Item_Sp)
EndIf
Case #WM_HSCROLL
If hwnd = GadgetID(1)
SelItem = GetScrollPos_(GadgetID(1),#SB_HORZ) - GetScrollPos_(GadgetID(0),#SB_HORZ)
SendMessage_(GadgetID(0), #LVM_SCROLL, SelItem , 0)
ElseIf hwnd = GadgetID(0)
SelItem = GetScrollPos_(GadgetID(0),#SB_HORZ) - GetScrollPos_(GadgetID(1),#SB_HORZ)
SendMessage_(GadgetID(1), #LVM_SCROLL, SelItem , 0)
EndIf
Case #WM_KEYDOWN ,#WM_MENUSELECT
If wParam=#VK_UP Or wParam=#VK_DOWN
If hwnd = GadgetID(1)
Item_Sp = SendMessage_(GadgetID(1), #LVM_GETITEMSPACING, 1, 0) >> 16
SelItem = GetScrollPos_(GadgetID(1),#SB_VERT) - GetScrollPos_(GadgetID(0),#SB_VERT)
SendMessage_(GadgetID(0), #LVM_SCROLL, 0, SelItem * Item_Sp)
ElseIf hwnd = GadgetID(0)
Item_Sp = SendMessage_(GadgetID(0), #LVM_GETITEMSPACING, 1, 0) >> 16
SelItem = GetScrollPos_(GadgetID(0),#SB_VERT) - GetScrollPos_(GadgetID(1),#SB_VERT)
SendMessage_(GadgetID(1), #LVM_SCROLL, 0, SelItem * Item_Sp)
EndIf
ElseIf wParam=#VK_LEFT Or wParam=#VK_RIGHT
If hwnd = GadgetID(1)
SelItem = GetScrollPos_(GadgetID(1),#SB_HORZ) - GetScrollPos_(GadgetID(0),#SB_HORZ)
SendMessage_(GadgetID(0), #LVM_SCROLL, SelItem , 0)
ElseIf hwnd = GadgetID(0)
SelItem = GetScrollPos_(GadgetID(0),#SB_HORZ) - GetScrollPos_(GadgetID(1),#SB_HORZ)
SendMessage_(GadgetID(1), #LVM_SCROLL, SelItem , 0)
EndIf
EndIf
EndSelect
ProcedureReturn result
EndProcedure
rHeight = 24 ;16,24,32,48,64
LoadFont(0,"Broadway",16)
OpenWindow(0,0,0,800,600, "Test", #PB_Window_ScreenCentered |#PB_Window_SystemMenu)
ContainerGadget(100,10,10,780,540,#PB_Container_Flat)
ListIconGadget(0,0,0,0,0,"Column 0",145,#PB_ListIcon_MultiSelect| #PB_ListIcon_FullRowSelect | #PB_ListIcon_GridLines)
Header = SendMessage_(GadgetID(0), #LVM_GETHEADER, 0, 0)
SetGadgetFont(0,FontID(0))
SetWindowLongPtr_(GadgetID(0),#GWL_EXSTYLE,0)
SetWindowPos_(GadgetID(0),0,0,0,600,540,#SWP_FRAMECHANGED)
ListIconGadget(1,0,0,0,0,"Rating",190,#PB_ListIcon_GridLines)
Header_1 = SendMessage_(GadgetID(1), #LVM_GETHEADER, 0, 0)
SetGadgetFont(1,FontID(0))
SetWindowLongPtr_(GadgetID(1),#GWL_EXSTYLE,0)
SetWindowPos_(GadgetID(1),0,600,0,210,540,#SWP_FRAMECHANGED)
CloseGadgetList()
SetGadgetFont(0,FontID(0))
AddGadgetColumn(0, 1, "Column 1",140)
AddGadgetColumn(0, 2, "Column 2",145)
AddGadgetColumn(0, 3, "Column 3",145)
SendMessage_(GadgetID(1), #LVM_SETEXTENDEDLISTVIEWSTYLE , #LVS_EX_SUBITEMIMAGES, #LVS_EX_SUBITEMIMAGES)
imgWidth = 6*rHeight
ILwnd = ImageList_Create_(imgWidth,rHeight,#ILC_COLOR32, 0, 6)
CatchImage(0,?gray,?endgray-?gray)
CatchImage(1,?gold,?endgold-?gold)
CreateImage(10,imgWidth,rHeight,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(0),4,2)
DrawAlphaImage(ImageID(0),20,2)
DrawAlphaImage(ImageID(0),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(0),20,2)
DrawAlphaImage(ImageID(0),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(0),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(1),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(1),36,2)
DrawAlphaImage(ImageID(1),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(1),36,2)
DrawAlphaImage(ImageID(1),52,2)
DrawAlphaImage(ImageID(1),68,2)
StopDrawing()
CreateIcon()
FreeImage(10)
For i = 0 To 25
AddGadgetItem(0, -1, Str(i) + Chr(10)+" 111"+Chr(10)+ " 222"+Chr(10)+" 333")
Next
For i = 0 To 25
AddGadgetItem(1, -1, "")
Next
SendMessage_(GadgetID(1), #LVM_SETIMAGELIST, #LVSIL_SMALL, ILwnd)
ButtonGadget(3,10,570,60,24,"Rating 0")
ButtonGadget(4,80,570,60,24,"Rating 1")
ButtonGadget(5,150,570,60,24,"Rating 2")
ButtonGadget(6,220,570,60,24,"Rating 3")
ButtonGadget(7,290,570,60,24,"Rating 4")
ButtonGadget(8,360,570,60,24,"Rating 5")
oldproc = SetWindowLongPtr_(Header, #GWL_WNDPROC, @Hheight())
oldproc = SetWindowLongPtr_(Header_1, #GWL_WNDPROC, @Hheight())
oldCallback = SetWindowLongPtr_(GadgetID(0), #GWL_WNDPROC, @LVcallback())
oldCallback = SetWindowLongPtr_(GadgetID(1), #GWL_WNDPROC, @LVcallback())
header_h = 40
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Case 1
SetActiveGadget(-1)
Case 3 To 8
row = GetGadgetState(0)
InsertImg(row,EventGadget()-3)
EndSelect
EndSelect
Until Quit = 1
End
DataSection
gray:
Data.b $89, $50, $4E, $47, $0D, $0A, $1A, $0A, $00, $00, $00, $0D, $49, $48, $44, $52
Data.b $00, $00, $00, $10, $00, $00, $00, $10, $08, $06, $00, $00, $00, $1F, $F3, $FF
Data.b $61, $00, $00, $00, $06, $62, $4B, $47, $44, $00, $FF, $00, $FF, $00, $FF, $A0
Data.b $BD, $A7, $93, $00, $00, $00, $09, $70, $48, $59, $73, $00, $00, $0B, $13, $00
Data.b $00, $0B, $13, $01, $00, $9A, $9C, $18, $00, $00, $00, $07, $74, $49, $4D, $45
Data.b $07, $E0, $01, $09, $16, $32, $07, $F1, $47, $C9, $08, $00, $00, $02, $14, $49
Data.b $44, $41, $54, $38, $CB, $95, $93, $4F, $4B, $1B, $51, $14, $C5, $7F, $33, $26
Data.b $44, $A6, $58, $C2, $68, $34, $B8, $50, $DB, $B4, $AE, $82, $16, $0A, $A2, $4B
Data.b $41, $BA, $14, $EC, $52, $21, $DB, $2E, $06, $12, $F2, $05, $04, $BF, $81, $E3
Data.b $40, $92, $6D, $BB, $CB, $07, $70, $D3, $55, $F6, $52, $B0, $81, $80, $92, $90
Data.b $92, $3F, $64, $53, $99, $48, $04, $C3, $24, $BE, $FB, $BA, $31, $A5, $29, $1D
Data.b $A9, $07, $2E, $EF, $F1, $EE, $BD, $87, $CB, $39, $F7, $A1, $B5, $26, $0C, $C5
Data.b $62, $F1, $53, $B1, $58, $74, $C3, $F2, $5A, $6B, $22, $3C, $81, $B5, $B5, $B5
Data.b $82, $52, $CA, $04, $72, $61, $35, $66, $58, $C2, $F3, $BC, $93, $54, $2A, $65
Data.b $AE, $AF, $AF, $E3, $79, $DE, $C9, $B3, $08, $0A, $85, $82, $65, $59, $D6, $B1
Data.b $6D, $DB, $D8, $B6, $8D, $65, $59, $C7, $CF, $22, $78, $78, $78, $28, $A5, $D3
Data.b $69, $DA, $ED, $36, $ED, $76, $9B, $74, $3A, $8D, $E7, $79, $9F, $FF, $55, $1B
Data.b $01, $28, $95, $4A, $5F, $94, $52, $1B, $22, $B2, $29, $22, $44, $A3, $51, $6C
Data.b $DB, $A6, $D7, $EB, $01, $B0, $BC, $BC, $4C, $24, $12, $C9, $9C, $9D, $9D, $65
Data.b $0C, $C3, $60, $66, $66, $E6, $BB, $69, $9A, $55, $20, $13, $01, $10, $91, $8F
Data.b $3B, $3B, $3B, $2F, $56, $57, $57, $51, $4A, $11, $8B, $C5, $B8, $BA, $BA, $42
Data.b $29, $05, $80, $EF, $FB, $1C, $1E, $1E, $12, $04, $01, $22, $42, $A3, $D1, $D8
Data.b $AC, $56, $AB, $6F, $80, $8C, $A1, $B5, $C6, $30, $8C, $77, $AE, $EB, $7E, $5D
Data.b $59, $59, $49, $CC, $CD, $CD, $31, $B1, $D6, $30, $8C, $DF, $76, $01, $98, $A6
Data.b $C9, $60, $30, $A0, $D3, $E9, $FC, $CC, $66, $B3, $1F, $B4, $D6, $97, $13, $0D
Data.b $2E, $73, $B9, $DC, $5E, $AD, $56, $3B, $BF, $BB, $BB, $23, $1E, $8F, $23, $22
Data.b $53, $11, $8F, $C7, $E9, $F7, $FB, $D4, $6A, $B5, $F3, $6C, $36, $BB, $07, $5C
Data.b $02, $4C, $26, $00, $20, $1A, $8D, $BE, $2A, $97, $CB, $CD, $54, $2A, $45, $AF
Data.b $D7, $9B, $9A, $20, $99, $4C, $52, $AF, $D7, $39, $3A, $3A, $7A, $3D, $1E, $8F
Data.b $7F, $4C, $DE, $A7, $5C, $38, $3D, $3D, $DD, $4E, $24, $12, $DC, $DC, $DC, $20
Data.b $22, $68, $AD, $D1, $5A, $23, $22, $F4, $FB, $7D, $16, $16, $16, $70, $5D, $77
Data.b $3B, $D4, $C6, $F1, $78, $BC, $1B, $8B, $C5, $18, $0E, $87, $04, $41, $40, $B7
Data.b $DB, $A5, $DB, $ED, $12, $04, $01, $F7, $F7, $F7, $CC, $CE, $CE, $32, $1C, $0E
Data.b $77, $43, $09, $16, $17, $17, $F7, $6F, $6F, $6F, $F1, $7D, $9F, $56, $AB, $75
Data.b $ED, $38, $CE, $96, $E3, $38, $5B, $AD, $56, $EB, $DA, $F7, $7D, $82, $20, $60
Data.b $7E, $7E, $7E, $3F, $94, $40, $29, $B5, $D4, $6C, $36, $A5, $52, $A9, $38, $F9
Data.b $7C, $FE, $60, $34, $1A, $5D, $8C, $46, $A3, $8B, $7C, $3E, $7F, $50, $A9, $54
Data.b $9C, $46, $A3, $21, $22, $B2, $F4, $67, $CF, $94, $88, $C0, $FB, $C7, $B3, $0E
Data.b $0C, $FE, $5A, $BA, $97, $C0, $DB, $C7, $FB, $B7, $89, $88, $C6, $53, $DF, $F9
Data.b $7F, $F0, $0B, $DB, $C0, $0C, $E4, $92, $AD, $2F, $68, $00, $00, $00, $00, $49
Data.b $45, $4E, $44, $AE, $42, $60, $82
endgray:
gold:
Data.b $89, $50, $4E, $47, $0D, $0A, $1A, $0A, $00, $00, $00, $0D, $49, $48, $44, $52
Data.b $00, $00, $00, $10, $00, $00, $00, $10, $08, $06, $00, $00, $00, $1F, $F3, $FF
Data.b $61, $00, $00, $00, $19, $74, $45, $58, $74, $53, $6F, $66, $74, $77, $61, $72
Data.b $65, $00, $41, $64, $6F, $62, $65, $20, $49, $6D, $61, $67, $65, $52, $65, $61
Data.b $64, $79, $71, $C9, $65, $3C, $00, $00, $02, $05, $49, $44, $41, $54, $78, $DA
Data.b $A4, $53, $CF, $4B, $54, $51, $14, $FE, $EE, $7D, $D3, $73, $1C, $19, $0D, $6C
Data.b $6C, $B0, $A9, $08, $9A, $21, $5D, $64, $31, $69, $83, $42, $20, $49, $B4, $10
Data.b $89, $96, $2D, $86, $08, $86, $7E, $40, $7F, $80, $1B, $A1, $3F, $A1, $5D, $26
Data.b $52, $59, $B4, $68, $D5, $C6, $8D, $2D, $5A, $14, $0C, $24, $81, $63, $52, $54
Data.b $1A, $A1, $92, $4C, $2F, $B5, $86, $99, $A6, $B1, $FB, $CE, $ED, $DC, $E7, $0C
Data.b $A8, $CD, $13, $A2, $0B, $DF, $7B, $DF, $BD, $F7, $3B, $DF, $3D, $F7, $9C, $F7
Data.b $A0, $B5, $86, $DF, $F8, $7A, $BF, $F7, $2A, $E3, $B6, $DF, $BE, $17, $BB, $9B
Data.b $41, $29, $7B, $DD, $2D, $BE, $CC, $E8, $DD, $0C, $A4, $DF, $66, $7E, $3C, $79
Data.b $CB, $8E, $9D, $97, $0D, $87, $07, $3D, $EE, $A7, $93, $F5, $53, $4F, $85, $64
Data.b $63, $EB, $48, $60, $7F, $3B, $0C, $0C, $FF, $27, $03, $57, $A9, $3B, $A1, $CE
Data.b $0B, $A0, $B5, $67, $1E, $0C, $CF, $8F, $9F, $7A, $50, $4F, $1B, $30, $0F, $67
Data.b $A2, $6F, $42, $BB, $EA, $B8, $26, $D5, $05, $72, $79, $35, $08, $3B, $1A, $05
Data.b $FD, $7C, $E3, $89, $EC, $E8, $31, $C0, $0A, $A6, $F3, $63, $27, $D3, $90, $16
Data.b $84, $0C, $E4, $84, $65, $CD, $F2, $56, $DA, $33, $20, $A2, $8B, $2D, $7D, $57
Data.b $9A, $1A, $8E, $24, $C1, $46, $9C, $57, $2B, $68, $E5, $11, $48, $D1, $66, $9A
Data.b $95, $1C, $22, $97, $EE, $B1, $70, $15, $02, $15, $FC, $5A, $78, $DE, $55, $98
Data.b $9E, $3A, $6A, $0C, $84, $A9, $A4, $10, $E2, $C4, $F2, $58, $F7, $D4, $DE, $CE
Data.b $43, $11, $7B, $5F, $0B, $34, $71, $A0, $E6, $DB, $09, $AB, $5A, $6E, $CE, $4A
Data.b $10, $4F, $25, $36, $9C, $02, $7E, $BC, $5D, $74, $0E, $64, $5E, $9D, $E3, $D8
Data.b $99, $5A, $0D, $66, $62, $99, $E9, $81, $F9, $EC, $A7, $49, $23, $90, $8D, $09
Data.b $6E, $91, $CB, $46, $6A, $13, $CC, $65, $28, $81, $CA, $CA, $3A, $E6, $B3, $0B
Data.b $93, $1C, $3C, $60, $62, $76, $16, $71, $F6, $F4, $70, $EE, $26, $FD, $E6, $5B
Data.b $59, $CD, $7C, $28, $6D, $87, $68, $02, $95, $2D, $18, $8D, $D1, $D6, $ED, $C2
Data.b $D2, $68, $77, $6A, $4F, $5B, $1C, $AA, $F0, $8E, $4F, $76, $4D, $75, $3C, $18
Data.b $4E, $C5, $0F, $08, $44, $E2, $58, $BA, $DB, $93, $F2, $6D, $63, $49, $A1, $5F
Data.b $86, $82, $D0, $1B, $0E, $07, $94, $51, $9A, $5B, $F4, $60, $38, $55, $1C, $58
Data.b $61, $1B, $C5, $B2, $EA, $F7, $35, $08, $B7, $C7, $86, $A8, $F8, $19, $95, $E5
Data.b $75, $38, $73, $5F, $DE, $1F, $BC, $FC, $A2, $C7, $C0, $70, $B3, $A6, $D5, $77
Data.b $84, $23, $6D, $43, $7F, $FF, $10, $D5, $B1, $F6, $74, $50, $3B, $0F, $7B, $DD
Data.b $D1, $6B, $89, $1B, $3C, $ED, $D8, $22, $EB, $30, $6B, $DF, $1E, $9F, $71, $57
Data.b $9F, $9C, $D5, $5B, $63, $6B, $6D, $AC, $AD, $25, $AB, $EF, $8F, $8C, $C2, $8E
Data.b $8F, $AE, $99, $11, $AF, $F2, $D7, $DB, $0C, $FE, $67, $FC, $11, $60, $00, $31
Data.b $FF, $02, $B9, $6F, $7D, $8E, $AD, $00, $00, $00, $00, $49, $45, $4E, $44, $AE
Data.b $42, $60, $82
endgold:
EndDataSection
# 3:
Code: Select all
#HDF_IMAGE = 2048
#HDI_IMAGE = 32
Global oldproc,Header,header_h , ILwnd ,Icwnd
UsePNGImageDecoder()
Procedure InsertImg(row,img)
var.lv_item
Var\mask = #LVIF_IMAGE
Var\iItem = row
Var\iSubItem = 5
Var\iImage = Img ;Index of image in the list
SendMessage_(GadgetID(0), #LVM_SETITEM, 0, @Var)
EndProcedure
Procedure Hheight(hwnd, msg, wParam, lParam)
Select msg
Case #HDM_LAYOUT
result = CallWindowProc_(oldproc, hwnd, msg, wParam, lParam)
*hdlayout.HD_LAYOUT = lParam
If *hdlayout\prc <> 0
*rect.RECT = *hdlayout\prc
*rect\top = header_h
EndIf
If *hdlayout\pwpos <> 0
*windowpos.WINDOWPOS = *hdlayout\pwpos
*windowpos\cy = header_h
EndIf
Default
result = CallWindowProc_(oldproc, hWnd, Msg, wParam, lParam)
EndSelect
ProcedureReturn result
EndProcedure
Procedure CreateIcon()
iinf.ICONINFO
iinf\hbmMask = ImageID(10)
iinf\hbmColor = ImageID(10)
Icwnd = CreateIconIndirect_(iinf)
ImageList_AddIcon_(ILwnd,Icwnd)
DestroyIcon_(Icwnd)
EndProcedure
Procedure WinCallback(hWnd, uMsg, wParam, lParam)
result = #PB_ProcessPureBasicEvents
Select uMsg
Case #WM_NOTIFY
*NMHDR.NMHDR = lParam
If *NMHDR\hWndFrom = GetWindow_(GadgetID(0),#GW_CHILD)
*phdn.NMHEADER = lParam
If *phdn\iItem = 0 ; Column 0 fixed
ProcedureReturn 1
EndIf
EndIf
EndSelect
ProcedureReturn result
EndProcedure
rHeight = 24 ;16,24,32,48,64
LoadFont(0,"Broadway",16)
OpenWindow(0,0,0,800,600, "Test", #PB_Window_ScreenCentered |#PB_Window_SystemMenu)
ListIconGadget(0,10,10,780,540,"",0,#PB_ListIcon_MultiSelect |#PB_ListIcon_FullRowSelect|#PB_ListIcon_GridLines)
Header = SendMessage_(GadgetID(0), #LVM_GETHEADER, 0, 0)
SetGadgetFont(0,FontID(0))
SetGadgetFont(0,FontID(0))
AddGadgetColumn(0, 1, "Column 1",140)
AddGadgetColumn(0, 2, "Column 2",145)
AddGadgetColumn(0, 3, "Column 3",145)
AddGadgetColumn(0, 4, "Column 3",145)
AddGadgetColumn(0, 5, "Rating",190)
SendMessage_(GadgetID(0), #LVM_SETEXTENDEDLISTVIEWSTYLE , #LVS_EX_SUBITEMIMAGES, #LVS_EX_SUBITEMIMAGES)
imgWidth = 5*16+8 ;No.of stars * 16 + (Row height - 16)
ILwnd = ImageList_Create_(imgWidth,rHeight,#ILC_COLOR32, 0, 6)
CatchImage(0,?gray,?endgray-?gray)
CatchImage(1,?gold,?endgold-?gold)
CreateImage(10,imgWidth,rHeight,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(0),4,2)
DrawAlphaImage(ImageID(0),20,2)
DrawAlphaImage(ImageID(0),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(0),20,2)
DrawAlphaImage(ImageID(0),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(0),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(1),36,2)
DrawAlphaImage(ImageID(0),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(1),36,2)
DrawAlphaImage(ImageID(1),52,2)
DrawAlphaImage(ImageID(0),68,2)
StopDrawing()
CreateIcon()
StartDrawing(ImageOutput(10))
DrawAlphaImage(ImageID(1),4,2)
DrawAlphaImage(ImageID(1),20,2)
DrawAlphaImage(ImageID(1),36,2)
DrawAlphaImage(ImageID(1),52,2)
DrawAlphaImage(ImageID(1),68,2)
StopDrawing()
CreateIcon()
FreeImage(10)
For i = 0 To 25
AddGadgetItem(0, -1, Str(i) + Chr(10)+" 111"+Chr(10)+ " 222"+Chr(10)+" 333")
Next
SendMessage_(GadgetID(0), #LVM_SETIMAGELIST, #LVSIL_SMALL, ILwnd)
ButtonGadget(3,10,570,60,24,"Rating 0")
ButtonGadget(4,80,570,60,24,"Rating 1")
ButtonGadget(5,150,570,60,24,"Rating 2")
ButtonGadget(6,220,570,60,24,"Rating 3")
ButtonGadget(7,290,570,60,24,"Rating 4")
ButtonGadget(8,360,570,60,24,"Rating 5")
oldproc = SetWindowLongPtr_(Header, #GWL_WNDPROC, @Hheight())
header_h = 40
SetWindowCallback(@WinCallback())
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 0
;row = GetGadgetState(0)
Case 3 To 8
row = GetGadgetState(0)
InsertImg(row,EventGadget()-3)
SetActiveGadget(-1)
EndSelect
EndSelect
Until Quit = 1
End
DataSection
gray:
Data.b $89, $50, $4E, $47, $0D, $0A, $1A, $0A, $00, $00, $00, $0D, $49, $48, $44, $52
Data.b $00, $00, $00, $10, $00, $00, $00, $10, $08, $06, $00, $00, $00, $1F, $F3, $FF
Data.b $61, $00, $00, $00, $06, $62, $4B, $47, $44, $00, $FF, $00, $FF, $00, $FF, $A0
Data.b $BD, $A7, $93, $00, $00, $00, $09, $70, $48, $59, $73, $00, $00, $0B, $13, $00
Data.b $00, $0B, $13, $01, $00, $9A, $9C, $18, $00, $00, $00, $07, $74, $49, $4D, $45
Data.b $07, $E0, $01, $09, $16, $32, $07, $F1, $47, $C9, $08, $00, $00, $02, $14, $49
Data.b $44, $41, $54, $38, $CB, $95, $93, $4F, $4B, $1B, $51, $14, $C5, $7F, $33, $26
Data.b $44, $A6, $58, $C2, $68, $34, $B8, $50, $DB, $B4, $AE, $82, $16, $0A, $A2, $4B
Data.b $41, $BA, $14, $EC, $52, $21, $DB, $2E, $06, $12, $F2, $05, $04, $BF, $81, $E3
Data.b $40, $92, $6D, $BB, $CB, $07, $70, $D3, $55, $F6, $52, $B0, $81, $80, $92, $90
Data.b $92, $3F, $64, $53, $99, $48, $04, $C3, $24, $BE, $FB, $BA, $31, $A5, $29, $1D
Data.b $A9, $07, $2E, $EF, $F1, $EE, $BD, $87, $CB, $39, $F7, $A1, $B5, $26, $0C, $C5
Data.b $62, $F1, $53, $B1, $58, $74, $C3, $F2, $5A, $6B, $22, $3C, $81, $B5, $B5, $B5
Data.b $82, $52, $CA, $04, $72, $61, $35, $66, $58, $C2, $F3, $BC, $93, $54, $2A, $65
Data.b $AE, $AF, $AF, $E3, $79, $DE, $C9, $B3, $08, $0A, $85, $82, $65, $59, $D6, $B1
Data.b $6D, $DB, $D8, $B6, $8D, $65, $59, $C7, $CF, $22, $78, $78, $78, $28, $A5, $D3
Data.b $69, $DA, $ED, $36, $ED, $76, $9B, $74, $3A, $8D, $E7, $79, $9F, $FF, $55, $1B
Data.b $01, $28, $95, $4A, $5F, $94, $52, $1B, $22, $B2, $29, $22, $44, $A3, $51, $6C
Data.b $DB, $A6, $D7, $EB, $01, $B0, $BC, $BC, $4C, $24, $12, $C9, $9C, $9D, $9D, $65
Data.b $0C, $C3, $60, $66, $66, $E6, $BB, $69, $9A, $55, $20, $13, $01, $10, $91, $8F
Data.b $3B, $3B, $3B, $2F, $56, $57, $57, $51, $4A, $11, $8B, $C5, $B8, $BA, $BA, $42
Data.b $29, $05, $80, $EF, $FB, $1C, $1E, $1E, $12, $04, $01, $22, $42, $A3, $D1, $D8
Data.b $AC, $56, $AB, $6F, $80, $8C, $A1, $B5, $C6, $30, $8C, $77, $AE, $EB, $7E, $5D
Data.b $59, $59, $49, $CC, $CD, $CD, $31, $B1, $D6, $30, $8C, $DF, $76, $01, $98, $A6
Data.b $C9, $60, $30, $A0, $D3, $E9, $FC, $CC, $66, $B3, $1F, $B4, $D6, $97, $13, $0D
Data.b $2E, $73, $B9, $DC, $5E, $AD, $56, $3B, $BF, $BB, $BB, $23, $1E, $8F, $23, $22
Data.b $53, $11, $8F, $C7, $E9, $F7, $FB, $D4, $6A, $B5, $F3, $6C, $36, $BB, $07, $5C
Data.b $02, $4C, $26, $00, $20, $1A, $8D, $BE, $2A, $97, $CB, $CD, $54, $2A, $45, $AF
Data.b $D7, $9B, $9A, $20, $99, $4C, $52, $AF, $D7, $39, $3A, $3A, $7A, $3D, $1E, $8F
Data.b $7F, $4C, $DE, $A7, $5C, $38, $3D, $3D, $DD, $4E, $24, $12, $DC, $DC, $DC, $20
Data.b $22, $68, $AD, $D1, $5A, $23, $22, $F4, $FB, $7D, $16, $16, $16, $70, $5D, $77
Data.b $3B, $D4, $C6, $F1, $78, $BC, $1B, $8B, $C5, $18, $0E, $87, $04, $41, $40, $B7
Data.b $DB, $A5, $DB, $ED, $12, $04, $01, $F7, $F7, $F7, $CC, $CE, $CE, $32, $1C, $0E
Data.b $77, $43, $09, $16, $17, $17, $F7, $6F, $6F, $6F, $F1, $7D, $9F, $56, $AB, $75
Data.b $ED, $38, $CE, $96, $E3, $38, $5B, $AD, $56, $EB, $DA, $F7, $7D, $82, $20, $60
Data.b $7E, $7E, $7E, $3F, $94, $40, $29, $B5, $D4, $6C, $36, $A5, $52, $A9, $38, $F9
Data.b $7C, $FE, $60, $34, $1A, $5D, $8C, $46, $A3, $8B, $7C, $3E, $7F, $50, $A9, $54
Data.b $9C, $46, $A3, $21, $22, $B2, $F4, $67, $CF, $94, $88, $C0, $FB, $C7, $B3, $0E
Data.b $0C, $FE, $5A, $BA, $97, $C0, $DB, $C7, $FB, $B7, $89, $88, $C6, $53, $DF, $F9
Data.b $7F, $F0, $0B, $DB, $C0, $0C, $E4, $92, $AD, $2F, $68, $00, $00, $00, $00, $49
Data.b $45, $4E, $44, $AE, $42, $60, $82
endgray:
gold:
Data.b $89, $50, $4E, $47, $0D, $0A, $1A, $0A, $00, $00, $00, $0D, $49, $48, $44, $52
Data.b $00, $00, $00, $10, $00, $00, $00, $10, $08, $06, $00, $00, $00, $1F, $F3, $FF
Data.b $61, $00, $00, $00, $19, $74, $45, $58, $74, $53, $6F, $66, $74, $77, $61, $72
Data.b $65, $00, $41, $64, $6F, $62, $65, $20, $49, $6D, $61, $67, $65, $52, $65, $61
Data.b $64, $79, $71, $C9, $65, $3C, $00, $00, $02, $05, $49, $44, $41, $54, $78, $DA
Data.b $A4, $53, $CF, $4B, $54, $51, $14, $FE, $EE, $7D, $D3, $73, $1C, $19, $0D, $6C
Data.b $6C, $B0, $A9, $08, $9A, $21, $5D, $64, $31, $69, $83, $42, $20, $49, $B4, $10
Data.b $89, $96, $2D, $86, $08, $86, $7E, $40, $7F, $80, $1B, $A1, $3F, $A1, $5D, $26
Data.b $52, $59, $B4, $68, $D5, $C6, $8D, $2D, $5A, $14, $0C, $24, $81, $63, $52, $54
Data.b $1A, $A1, $92, $4C, $2F, $B5, $86, $99, $A6, $B1, $FB, $CE, $ED, $DC, $E7, $0C
Data.b $A8, $CD, $13, $A2, $0B, $DF, $7B, $DF, $BD, $F7, $3B, $DF, $3D, $F7, $9C, $F7
Data.b $A0, $B5, $86, $DF, $F8, $7A, $BF, $F7, $2A, $E3, $B6, $DF, $BE, $17, $BB, $9B
Data.b $41, $29, $7B, $DD, $2D, $BE, $CC, $E8, $DD, $0C, $A4, $DF, $66, $7E, $3C, $79
Data.b $CB, $8E, $9D, $97, $0D, $87, $07, $3D, $EE, $A7, $93, $F5, $53, $4F, $85, $64
Data.b $63, $EB, $48, $60, $7F, $3B, $0C, $0C, $FF, $27, $03, $57, $A9, $3B, $A1, $CE
Data.b $0B, $A0, $B5, $67, $1E, $0C, $CF, $8F, $9F, $7A, $50, $4F, $1B, $30, $0F, $67
Data.b $A2, $6F, $42, $BB, $EA, $B8, $26, $D5, $05, $72, $79, $35, $08, $3B, $1A, $05
Data.b $FD, $7C, $E3, $89, $EC, $E8, $31, $C0, $0A, $A6, $F3, $63, $27, $D3, $90, $16
Data.b $84, $0C, $E4, $84, $65, $CD, $F2, $56, $DA, $33, $20, $A2, $8B, $2D, $7D, $57
Data.b $9A, $1A, $8E, $24, $C1, $46, $9C, $57, $2B, $68, $E5, $11, $48, $D1, $66, $9A
Data.b $95, $1C, $22, $97, $EE, $B1, $70, $15, $02, $15, $FC, $5A, $78, $DE, $55, $98
Data.b $9E, $3A, $6A, $0C, $84, $A9, $A4, $10, $E2, $C4, $F2, $58, $F7, $D4, $DE, $CE
Data.b $43, $11, $7B, $5F, $0B, $34, $71, $A0, $E6, $DB, $09, $AB, $5A, $6E, $CE, $4A
Data.b $10, $4F, $25, $36, $9C, $02, $7E, $BC, $5D, $74, $0E, $64, $5E, $9D, $E3, $D8
Data.b $99, $5A, $0D, $66, $62, $99, $E9, $81, $F9, $EC, $A7, $49, $23, $90, $8D, $09
Data.b $6E, $91, $CB, $46, $6A, $13, $CC, $65, $28, $81, $CA, $CA, $3A, $E6, $B3, $0B
Data.b $93, $1C, $3C, $60, $62, $76, $16, $71, $F6, $F4, $70, $EE, $26, $FD, $E6, $5B
Data.b $59, $CD, $7C, $28, $6D, $87, $68, $02, $95, $2D, $18, $8D, $D1, $D6, $ED, $C2
Data.b $D2, $68, $77, $6A, $4F, $5B, $1C, $AA, $F0, $8E, $4F, $76, $4D, $75, $3C, $18
Data.b $4E, $C5, $0F, $08, $44, $E2, $58, $BA, $DB, $93, $F2, $6D, $63, $49, $A1, $5F
Data.b $86, $82, $D0, $1B, $0E, $07, $94, $51, $9A, $5B, $F4, $60, $38, $55, $1C, $58
Data.b $61, $1B, $C5, $B2, $EA, $F7, $35, $08, $B7, $C7, $86, $A8, $F8, $19, $95, $E5
Data.b $75, $38, $73, $5F, $DE, $1F, $BC, $FC, $A2, $C7, $C0, $70, $B3, $A6, $D5, $77
Data.b $84, $23, $6D, $43, $7F, $FF, $10, $D5, $B1, $F6, $74, $50, $3B, $0F, $7B, $DD
Data.b $D1, $6B, $89, $1B, $3C, $ED, $D8, $22, $EB, $30, $6B, $DF, $1E, $9F, $71, $57
Data.b $9F, $9C, $D5, $5B, $63, $6B, $6D, $AC, $AD, $25, $AB, $EF, $8F, $8C, $C2, $8E
Data.b $8F, $AE, $99, $11, $AF, $F2, $D7, $DB, $0C, $FE, $67, $FC, $11, $60, $00, $31
Data.b $FF, $02, $B9, $6F, $7D, $8E, $AD, $00, $00, $00, $00, $49, $45, $4E, $44, $AE
Data.b $42, $60, $82
endgold:
EndDataSection
Edit : Enough