File: f_getpbcolor.srf
Size: 3157
Date: Sun, 03 Feb 2019 04:28:38 +0100
$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