Sub build_control_palete
Log("control palete")
Dim Window As JFXtrasWindow
Window.Initialize("Window", True)
Window.AddMinimizeIcon(False, "Window")
Window.AddCloseIcon(False)
'Window.AddIcon1(True, "Icon1")
'Window.AddIcon2(True, "Icon2")
Dim apane As AnchorPane
apane.Initialize("")
Window.ContentPane = apane
Window.Title = "Controls palete"
scrol_bmp.Initialize("scrol_bmp")
Window.ContentPane.AddNode(scrol_bmp, 0, 0, 245, 300)
Dim p As Pane = scrol_bmp.InnerNode
Dim img(6) As ImageView
For i=0 To 5
img(i).Initialize("bmp")
p.AddNode(img(i),0,i*50dip,50dip,50dip)
Dim bmpx As Image
bmpx.InitializeSample(File.DirAssets,i&".png",50dip,50dip)
img(i).SetImage(bmpx)
img(i).Tag=i
Next
MainForm.RootPane.AddNode(Window, 50, 50, 250, 350)
End Sub