[Windows] Coloful menubar : Code snippets .. Art photo print
Posted: Sat Jul 06, 2013 7:47 pm
Coloful menubar : Code snippets ... Art photo print
Original binary
( Japanese font embeded for retired photographer as my father )
but you should try this Pro LAB like Print System. hehehe.
http://www.vector.co.jp/soft/winnt/art/se491932.html
Original binary
( Japanese font embeded for retired photographer as my father )
but you should try this Pro LAB like Print System. hehehe.
http://www.vector.co.jp/soft/winnt/art/se491932.html
I am fine, Do you like your father or mother ?
I present this software to my father for filial piety.
Code: Select all
Procedure Open_Window_VArt()
Protected hMenu.l, I.b
If OpenWindow(#Window_VArt, 216, 0, 616, 340, WinT, #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
SetWindowCallback(@myWindowCallback())
If CreateStatusBar(#StatusBar_Vart, WindowID(#Window_VArt))
AddStatusBarField(616)
EndIf
Global Dim menuItems.myMenuItem(4, 7)
If J_P
hMenu = CreateMenu(#Menu_Mode, WindowID(#Window_VArt))
If hMenu
MenuTitle("Operation")
MenuItem(#Menu_Normal, "Normal_1")
MenuItem(#Menu_FreeAdjust, "Normal_2")
MenuItem(#Menu_Space1,"............")
MenuItem(#Menu_MyPicture, "Normal_3")
MenuTitle("Pro Mode")
MenuItem(#Menu_Custmize, "Setting Pro")
MenuItem(#Menu_Rotation, "Rotation")
MenuItem(#Menu_Triming, "Triming")
MenuTitle("Result")
MenuItem(#Menu_Save1, "Save"+Space(1)+"JPEG")
MenuItem(#Menu_Save2, "Save"+Space(1)+"(Flame)"+Space(1)+"JPEG")
MenuItem(#Menu_Save3, "Save"+Space(1)+"TIFF")
MenuItem(#Menu_Save4, "Save"+Space(1)+"(Flame)"+Space(1)+"TIFF")
MenuItem(#Menu_Save5, "Save"+Space(1)+"PNG")
MenuItem(#Menu_Save6, "Save"+Space(1)+"(Flame)"+Space(1)+"PNG")
MenuItem(#Menu_Save7, "Rendering")
If RecentSave Or RecentPrint
MenuTitle("History Save")
If RecentPrint
MenuItem(#Menu_Memo1, "Print history")
EndIf
If RecentSave
MenuItem(#Menu_Memo2, "Photo save history")
EndIf
MenuItem(#Menu_Memo3, "History in date")
EndIf
MenuTitle("About")
MenuItem(#Menu_Soft, "Open install folder")
MenuItem(#Menu_Web, "Visit distribution website")
MenuItem(#Menu_Help, "Intro Duction")
;
menuItems(0, 0)\text = GetMenuTitleText(#Menu_Mode, 0)
menuItems(0, 0)\hFont = FontIDM ; Operation
menuItems(0, 1)\text = GetMenuItemText(#Menu_Mode, #Menu_Normal)
menuItems(0, 1)\hFont = FontIDM
menuItems(0, 2)\text = GetMenuItemText(#Menu_Mode, #Menu_FreeAdjust)
menuItems(0, 2)\hFont = FontIDM
menuItems(0, 3)\text = GetMenuItemText(#Menu_Mode, #Menu_Space1)
menuItems(0, 3)\hFont = FontIDM
menuItems(0, 4)\text = GetMenuItemText(#Menu_Mode, #Menu_MyPicture)
menuItems(0, 4)\hFont = FontIDM
;
menuItems(1, 0)\text = GetMenuTitleText(#Menu_Mode, 1)
menuItems(1, 0)\hFont = FontIDM ; Pro Mode
menuItems(1, 1)\text = GetMenuItemText(#Menu_Mode, #Menu_Custmize)
menuItems(1, 1)\hFont = FontIDM
menuItems(1, 2)\text = GetMenuItemText(#Menu_Mode, #Menu_Rotation)
menuItems(1, 2)\hFont = FontIDM
menuItems(1, 3)\text = GetMenuItemText(#Menu_Mode, #Menu_Triming)
menuItems(1, 3)\hFont = FontIDM
;
menuItems(2, 0)\text = GetMenuTitleText(#Menu_Mode, 2)
menuItems(2, 0)\hFont = FontIDM ; Result
menuItems(2, 1)\text = GetMenuItemText(#Menu_Mode, #Menu_Save1)
menuItems(2, 1)\hFont = FontIDM
menuItems(2, 2)\text = GetMenuItemText(#Menu_Mode, #Menu_Save2)
menuItems(2, 2)\hFont = FontIDM
menuItems(2, 3)\text = GetMenuItemText(#Menu_Mode, #Menu_Save3)
menuItems(2, 3)\hFont = FontIDM
menuItems(2, 4)\text = GetMenuItemText(#Menu_Mode, #Menu_Save4)
menuItems(2, 4)\hFont = FontIDM
menuItems(2, 5)\text = GetMenuItemText(#Menu_Mode, #Menu_Save5)
menuItems(2, 5)\hFont = FontIDM
menuItems(2, 6)\text = GetMenuItemText(#Menu_Mode, #Menu_Save6)
menuItems(2, 6)\hFont = FontIDM
menuItems(2, 7)\text = GetMenuItemText(#Menu_Mode, #Menu_Save7)
menuItems(2, 7)\hFont = FontIDM
;
If RecentSave Or RecentPrint
menuItems(3, 0)\text = GetMenuTitleText(#Menu_Mode, 3)
menuItems(3, 0)\hFont = FontIDM ; History save
If RecentPrint
menuItems(3, 1)\text = GetMenuItemText(#Menu_Mode, #Menu_Memo1)
menuItems(3, 1)\hFont = FontIDM
EndIf
If RecentSave
menuItems(3, 2)\text = GetMenuItemText(#Menu_Mode, #Menu_Memo2)
menuItems(3, 2)\hFont = FontIDM
EndIf
menuItems(3, 3)\text = GetMenuItemText(#Menu_Mode, #Menu_Memo3)
menuItems(3, 3)\hFont = FontIDM
menuItems(4, 0)\text = GetMenuTitleText(#Menu_Mode, 4)
menuItems(4, 0)\hFont = FontIDM ; About
Else
menuItems(4, 0)\text = GetMenuTitleText(#Menu_Mode, 3)
menuItems(4, 0)\hFont = FontIDM ; About
EndIf
;
menuItems(4, 1)\text = GetMenuItemText(#Menu_Mode, #Menu_Soft)
menuItems(4, 1)\hFont = FontIDM
menuItems(4, 2)\text = GetMenuItemText(#Menu_Mode, #Menu_Web)
menuItems(4, 2)\hFont = FontIDM
menuItems(4, 3)\text = GetMenuItemText(#Menu_Mode, #Menu_Help)
menuItems(4, 3)\hFont = FontIDM
ModifyMenu_(hMenu, 0, #MF_BYPOSITION | #MF_OWNERDRAW, 0, menuItems(0 ,0))
ModifyMenu_(hMenu, 1, #MF_BYPOSITION | #MF_OWNERDRAW, 1, menuItems(1 ,0))
ModifyMenu_(hMenu, 2, #MF_BYPOSITION | #MF_OWNERDRAW, 2, menuItems(2 ,0))
If RecentSave Or RecentPrint
ModifyMenu_(hMenu, 3, #MF_BYPOSITION | #MF_OWNERDRAW, 3, menuItems(3 ,0))
ModifyMenu_(hMenu, 4, #MF_BYPOSITION | #MF_OWNERDRAW, 4, menuItems(4 ,0))
Else
ModifyMenu_(hMenu, 3, #MF_BYPOSITION | #MF_OWNERDRAW, 3, menuItems(4 ,0))
EndIf
ModifyMenu_(GetSubMenu_(hMenu, 0), 0, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Normal, menuItems(0, 1))
ModifyMenu_(GetSubMenu_(hMenu, 0), 1, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_FreeAdjust, menuItems(0, 2))
ModifyMenu_(GetSubMenu_(hMenu, 0), 2, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Space1, menuItems(0, 3))
ModifyMenu_(GetSubMenu_(hMenu, 0), 3, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_MyPicture, menuItems(0, 4))
;
ModifyMenu_(GetSubMenu_(hMenu, 1), 0, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Custmize, menuItems(1, 1))
ModifyMenu_(GetSubMenu_(hMenu, 1), 1, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Rotation, menuItems(1, 2))
ModifyMenu_(GetSubMenu_(hMenu, 1), 2, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Triming, menuItems(1, 3))
;
ModifyMenu_(GetSubMenu_(hMenu, 2), 0, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Save1, menuItems(2, 1))
ModifyMenu_(GetSubMenu_(hMenu, 2), 1, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Save2, menuItems(2, 2))
ModifyMenu_(GetSubMenu_(hMenu, 2), 2, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Save3, menuItems(2, 3))
ModifyMenu_(GetSubMenu_(hMenu, 2), 3, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Save4, menuItems(2, 4))
ModifyMenu_(GetSubMenu_(hMenu, 2), 4, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Save5, menuItems(2, 5))
ModifyMenu_(GetSubMenu_(hMenu, 2), 5, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Save6, menuItems(2, 6))
ModifyMenu_(GetSubMenu_(hMenu, 2), 6, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Save7, menuItems(2, 7))
;
If RecentSave Or RecentPrint
If RecentPrint And RecentSave
ModifyMenu_(GetSubMenu_(hMenu, 3), 0, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Memo1, menuItems(3, 1))
ModifyMenu_(GetSubMenu_(hMenu, 3), 1, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Memo2, menuItems(3, 2))
ModifyMenu_(GetSubMenu_(hMenu, 3), 2, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Memo3, menuItems(3, 3))
ElseIf RecentPrint
ModifyMenu_(GetSubMenu_(hMenu, 3), 0, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Memo1, menuItems(3, 1))
ModifyMenu_(GetSubMenu_(hMenu, 3), 1, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Memo3, menuItems(3, 3))
ElseIf RecentSave
ModifyMenu_(GetSubMenu_(hMenu, 3), 0, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Memo2, menuItems(3, 2))
ModifyMenu_(GetSubMenu_(hMenu, 3), 1, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Memo3, menuItems(3, 3))
EndIf
ModifyMenu_(GetSubMenu_(hMenu, 4), 0, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Soft, menuItems(4, 1))
ModifyMenu_(GetSubMenu_(hMenu, 4), 1, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Web, menuItems(4, 2))
ModifyMenu_(GetSubMenu_(hMenu, 4), 2, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Help, menuItems(4, 3))
Else
ModifyMenu_(GetSubMenu_(hMenu, 3), 0, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Soft, menuItems(4, 1))
ModifyMenu_(GetSubMenu_(hMenu, 3), 1, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Web, menuItems(4, 2))
ModifyMenu_(GetSubMenu_(hMenu, 3), 2, #MF_BYPOSITION | #MF_OWNERDRAW, #Menu_Help, menuItems(4, 3))
EndIf
;
DrawMenuBar_(WindowID(#Window_VArt))
EndIf
EndIf
EndIf
EndProcedure