; PureBasic Visual Designer v3.95 build 1485 (PB4Code) ;- Window Constants ; Enumeration #Window_Blend EndEnumeration ;- Gadget Constants ; Enumeration #BT1 #BT2 #BT3 #BT4 #GRT #BT_OK #BT_Help #BT_Cancel EndEnumeration Procedure Open_Window_Blend() If OpenWindow(#Window_Blend, 271, 185, 280, 199, "Select Textures to Blend", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar ) If CreateGadgetList(WindowID(#Window_Blend)) ButtonGadget(#BT1, 10, 10, 210, 30, "Browse for Texture 1") GadgetToolTip(#BT1, "Filename of Texture 1") ButtonGadget(#BT2, 10, 50, 210, 30, "Browse for Texture 2") GadgetToolTip(#BT2, "Texture 2 also used as Road Sides") ButtonGadget(#BT3, 10, 90, 210, 30, "Browse for Texture 3") GadgetToolTip(#BT3, "Texture 3 also used as road surface") ButtonGadget(#BT4, 10, 130, 210, 30, "Browse for Texture 4") GadgetToolTip(#BT4, "Only blended with Texture 1") CheckBoxGadget(#GRT, 10, 170, 120, 30, "Generate Road Tiles") GadgetToolTip(#GRT, "Use Texture 3 for roads Only") ButtonGadget(#BT_OK, 230, 10, 40, 30, "OK") GadgetToolTip(#BT_OK, "Generate Textures") ButtonGadget(#BT_Help, 230, 50, 40, 30, "Help") GadgetToolTip(#BT_Help, "View HTML Help") ButtonGadget(#BT_Cancel, 230, 90, 40, 30, "Cancel") GadgetToolTip(#BT_Cancel, "Cancel Blending") EndIf EndIf EndProcedure