NavigationBar color

Targets iOS
1

Hi,

With the help from Jim Mckay. Changing the color of the NavigationBar.


Private Function UIColor(c as Color) As Ptr
  // returns a Ptr to a new Uicolor Created from a Xojo Color
  declare function colorFromRGBA lib UIKit selector "colorWithRed:green:blue:alpha:" (id as Ptr, red as Single, green as Single, blue as Single, alpha as Single) as Ptr
  dim r as single = c.red/255
  dim g as single = c.Green/255
  dim b as single = c.Blue/255
  dim a as single = (255 - c.Alpha) / 255
  
  return colorFromRGBA(NSClassFromString ("UIColor"), r, g, b, a)
End Function

  declare function NSClassFromString      lib "Foundation" (classname as CFStringRef) as ptr
  declare function keyWindow              lib "UIKit" selector "keyWindow"  (obj_ref as ptr) as ptr
  declare function sharedApplication      lib "UIKit" selector "sharedApplication"  (obj_ref as ptr) as ptr
  declare function rootViewController      lib "UIKit" selector "rootViewController"  (obj_ref as ptr) as ptr
  declare function navigationBar          lib "UIKit" selector "navigationBar"  (obj_ref as ptr) as ptr
  
  dim sApp as ptr=sharedApplication(NSClassFromString("UIApplication"))
  dim currentWindow as ptr=keyWindow(sApp)
  dim navController as ptr=rootViewController(currentWindow)
  dim navBar as ptr= navigationBar(navController)
    
  Declare Sub setBarTintColor lib UIKit selector "setBarTintColor:" (id as ptr, UIColor as Ptr)
  setBarTintColor navBar, UIColor(&cFF0000)
  
  declare Sub setTintColor lib UIKit selector "setTintColor:" (id as ptr, UIColor as Ptr)
  setTintColor navBar, UIColor(&cFF7700)
  
  declare sub setTranslucent lib UIKit selector "setTranslucent:" (id as ptr)
  setTranslucent navBar

You can set it to translucent or solid by excluding setTranslucent.

For changing the text color for the top text. I’m still trying to figure out.

let titleDict: NSDictionary = [NSForegroundColorAttributeName: UIColor.whiteColor()]
self.navigationController.navigationBar.titleTextAttributes = titleDict

or
[self.navigationController.navigationBar setTitleTextAttributes:@{NSForegroundColorAttributeName : [UIColor whiteColor]}];
2

Richard,

Michel has created a GitHub repository which contains various functions for this new target. Maybe you could pass this on to him for inclusion?

3

I probably missed this. Any link for this?

4
5

I have added this methods, and the one that changes the view backcolor, to the wrapper project.

6

Fantastic! I need this. Any chance we could also change the color of the TabBar…? :slight_smile:

7

[quote=151734:@Richard Berglund]For changing the text color for the top text. I’m still trying to figure out.

let titleDict: NSDictionary = [NSForegroundColorAttributeName: UIColor.whiteColor()]
self.navigationController.navigationBar.titleTextAttributes = titleDict

or
[self.navigationController.navigationBar setTitleTextAttributes:@{NSForegroundColorAttributeName : [UIColor whiteColor]}];

[/quote]
I put together a function for this. Demo project:
https://www.dropbox.com/s/9gl2td2jondsxyg/setTitleBarTextColor%20.xojo_binary_project?dl=0

8

Thanks for cleaning that up Jason :slight_smile:

9

You’re welcome.