$PBExportHeader$f_getpbcolor.srf global type f_getpbcolor from function_object end type forward prototypes global function long f_getpbcolor (string as_name) end prototypes global function long f_getpbcolor (string as_name);// Return the number for a named PowerBuilder color Long ll_color Choose Case Upper(as_name) // Standard PB Colors Case 'BLACK' ll_color = 0 Case 'WHITE' ll_color = 16777215 Case 'RED' ll_color = 255 Case 'FUCHSIA', 'MAGENTA' ll_color = 16711935 Case 'LIME' ll_color = 65280 Case 'YELLOW' ll_color = 65535 Case 'BLUE' ll_color = 16711680 Case 'AQUA', 'CYAN' ll_color = 16776960 Case 'MAROON' ll_color = 128 Case 'PURPLE' ll_color = 8388736 Case 'GREEN' ll_color = 32768 Case 'OLIVE' ll_color = 32896 Case 'NAVY' ll_color = 8388608 Case 'TEAL' ll_color = 8421376 Case 'GRAY' ll_color = 8421504 Case 'SILVER' ll_color = 12632256 Case 'MINT' ll_color = 12639424 Case 'SKY' ll_color = 15780518 Case 'CREAM' ll_color = 15793151 Case 'MEDIUM GRAY' ll_color = 10789024 // Other Common Colors Case 'BROWN' ll_color = 2763429 Case 'ORANGE' ll_color = 42495 // Windows Elements Case "WINDOW BACKGROUND", "WINDOWBACKGROUND" ll_color = 1073741824 Case "WINDOW TEXT", "WINDOWTEXT" ll_color = 33554432 Case "APPLICATION WORKSPACE", "APPLICATIONWORKSPACE" ll_color = 268435456 Case "BUTTON FACE", "BUTTONFACE" ll_color = 67108864 Case "SCROLL BAR", "SCROLLBAR" ll_color = 134217728 Case "DESKTOP" ll_color = 134217729 Case "ACTIVE TITLE BAR", "ACTIVETITLEBAR" ll_color = 134217730 Case "INACTIVE TITLE BAR", "INACTIVETITLEBAR" ll_color = 134217731 Case "MENU BAR", "MENUBAR" ll_color = 134217732 Case "WINDOW FRAME", "WINDOWFRAME" ll_color = 134217734 Case "MENU TEXT", "MENUTEXT" ll_color = 134217735 Case "ACTIVE TITLE BAR TEXT", "ACTIVETITLEBARTEXT" ll_color = 134217737 Case "ACTIVE BORDER", "ACTIVEBORDER" ll_color = 134217738 Case "INACTIVE BORDER", "INACTIVEBORDER" ll_color = 134217739 Case "HIGHLIGHT" ll_color = 134217741 Case "HIGHLIGHT TEXT", "HIGHLIGHTTEXT" ll_color = 134217742 Case "BUTTON SHADOW", "BUTTONSHADOW" ll_color = 134217744 Case "DISABLED TEXT", "DISABLEDTEXT" ll_color = 134217745 Case "BUTTON TEXT", "BUTTONTEXT" ll_color = 134217746 Case "INACTIVE TITLE BAR TEXT", "INACTIVETITLEBARTEXT" ll_color = 134217747 Case "BUTTON HIGHLIGHT", "BUTTONHIGHLIGHT" ll_color = 134217748 Case "BUTTON DARK SHADOW", "BUTTONDARKSHADOW" ll_color = 134217749 Case "BUTTON LIGHT SHADOW", "BUTTONLIGHTSHADOW" ll_color = 134217750 Case "TOOLTIP TEXT", "TOOLTIPTEXT" ll_color = 134217751 Case "TOOLTIP" ll_color = 134217752 Case "LINK" ll_color = 134217856 Case "LINK HOVER", "LINKHOVER" ll_color = 134217857 Case "LINK ACTIVE", "LINKACTIVE" ll_color = 134217858 Case "LINK VISITED", "LINKVISITED" ll_color = 134217859 Case "TRANSPARENT" ll_color = 536870912 // Default to Black Case Else ll_color = 0 End Choose Return ll_color end function
File: f_getpbcolor.srf
Size: 3157
Date: Sun, 03 Feb 2019 04:28:38 +0100
Size: 3157
Date: Sun, 03 Feb 2019 04:28:38 +0100
- function_object f_getpbcolor(srf)