Code: Select all
w = 300
h = 200
CreateImage(0,w,h,24,$FFFFFF)
StartDrawing(ImageOutput(0))
For x=5 To w-11 Step 5
For y=5 To h-11 Step 5
Plot(x,y,0)
Next
Next
StopDrawing()
OpenWindow(0,0,0,400,220,"Color Pan", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
PanelGadget(0, 10, 10, w,h)
AddGadgetItem(0, -1, "Pan #1")
ImageGadget(3,0,0, w,h, ImageID(0))
DisableGadget(3,1)
ListIconGadget(4, 15, 15,260,140,"TEST",50 ,#PB_ListIcon_CheckBoxes|#PB_ListIcon_FullRowSelect| #PB_ListIcon_GridLines)
AddGadgetColumn(4,1,"Name",150)
AddGadgetColumn(4,2,"",55)
AddGadgetItem(4,0,"Test"+Chr(10)+"Name")
SetWindowLongPtr_(GadgetID(3), #GWL_STYLE, GetWindowLongPtr_(GadgetID(3), #GWL_STYLE) | #WS_CLIPSIBLINGS)
SetWindowPos_(GadgetID(3), #HWND_BOTTOM, -1, -1, -1, -1, #SWP_NOSIZE | #SWP_NOMOVE)
AddGadgetItem(0, -1, "Pan #2")
ImageGadget(5, 0,0,w,h, ImageID(0))
DisableGadget(5,1)
ButtonGadget(6, 10, 15, 80, 24,"Button 1")
ButtonGadget(7, 95, 15, 80, 24,"Button 2")
EditorGadget(8, 10, 100, 150, 50)
SetGadgetText(8, "Hit Enter a few times...")
SetWindowLongPtr_(GadgetID(5), #GWL_STYLE, GetWindowLongPtr_(GadgetID(5), #GWL_STYLE) | #WS_CLIPSIBLINGS)
SetWindowPos_(GadgetID(5), #HWND_BOTTOM, -1, -1, -1, -1, #SWP_NOSIZE | #SWP_NOMOVE)
CloseGadgetList()
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
If EventGadget()=8 And EventType()=#PB_EventType_Change
InvalidateRect_(GadgetID(8),0,1) ; Also doesn't help.
EndIf
EndSelect
Until Quit = 1