Gambas ONE

Doctor Watson wrote: ↑Thursday 25th February 2021 10:13am Hi.
There has been written a lot on this forum on setting or customizing control borders, but it’s all about the GridView control.
I just have taken up programming again – new computer Gambas 3.14.3 installed, and something feels wrong.
Whichever control I want to set a border for, it only results in something thin faint greyish. Whether I choose Plain, Sunken, Raised or Etched, it all looks the same.
Is this a bug?
But what’s more important for my project : is it at all possible to assign some ‘style’ to Gambas controls other than GridView? Such as width or thickness or colour…

Doctor Watson wrote: ↑Friday 26th February 2021 7:07am Hi Cogier and Bruce
Bruce : I’ve tried that ‘trick’ already, but it makes building a GUI rather complicated. It would just be nice if there are ways to define control borders using more options than the 4 provided. Also provided those work in the first place – unless I’m doing something wrong.
Cogier : I will build post one or more screenshots ASAP.

Greetings

Doctor Watson wrote: ↑Friday 26th February 2021 8:28am ...I hope this will shed a light on what’s going wrong....

Doctor Watson wrote: ↑Friday 26th February 2021 7:07am ...Bruce : I’ve tried that ‘trick’ already, but it makes building a GUI rather complicated....

Public Sub Form_Open()

    BorderMe(Label1, panel1, Color.DarkGray)
    BorderMe(Label4, panel2, Color.Red)

End


Public Function BorderMe(thisControl As Control, thisPanel As Control, shadowColour As Integer)

  With thisControl
    .Background = Color.LightBackground
    thisPanel.top = .Top - 1
    thisPanel.Left = .Left - 1
    thisPanel.Width = .Width + 4
    thisPanel.Height = .Height + 4
    thisPanel.Background = shadowColour
    thisPanel.Lower()
  End With

End

Doctor Watson wrote: ↑Saturday 27th February 2021 8:59am ...I have never used any [themes], just satisfied with the ‘default’ one gets when installing Ubuntu, whatever it’s called.
I’m rather surprised to see that one would have to install a particular Ubuntu theme for Gambas controls to work / show properly.

...But only users who have installed a compatible Theme would see it as it should …..

...This looks like a clear bug to me...

… it’s just feels not right, doesn't it?

Const PLAIN_BORDER As Integer = 0
Const RAISED_BORDER As Integer = 1
Const SUNKEN_BORDER As Integer = 2

Public Sub Form_Open()

    BorderMe(Label5, panel1, Color.DarkGray, SUNKEN_BORDER)
    BorderMe(Label6, panel2, Color.Black, RAISED_BORDER)
    BorderMe(textbox6, panel3, Color.DarkBlue, SUNKEN_BORDER)
    BorderMe(Button4, panel4, Color.Red, RAISED_BORDER)

End


Public Function BorderMe(thisControl As Control, thisPanel As Control, shadowColour As Integer, iStyle As Integer)
Dim iOffsetTL As Integer
Dim iOffsetWH As Integer

  Select Case iStyle
    Case RAISED_BORDER
      iOffsetTL = 1
      iOffsetWH = 4
      
    Case SUNKEN_BORDER
      iOffsetTL = 4
      iOffsetWH = 5
      
    Default
      iOffsetTL = 0
      iOffsetWH = 0
      
  End Select
  
  With thisControl
    .Background = Color.Background
    thisPanel.top = .Top - iOffsetTL
    thisPanel.Left = .Left - iOffsetTL
    thisPanel.Width = .Width + iOffsetWH
    thisPanel.Height = .Height + iOffsetWH
    thisPanel.Background = shadowColour
    thisPanel.Lower()
  End With

End