[Gambas-user] Explanations about stock icons and dark theme

Gianluigi gradobag at gradobag.it
Tue Feb 21 15:01:40 CET 2023


Il 21/02/23 10:24, Gianluigi ha scritto:
> Il 21/02/23 00:40, Benoit Minisini ha scritto:
>> If you want the button icon to be the same whatever the theme, then 
>> don't use the Stock class or Picture["icon:/..."]!
>>
>> Regards, 
>
>
> Hi Benoit
>
> I thank you very much for the further explanation, now I understand.
>
> But I wish to use the stock icons, the ones from Gambas theme which I 
> find very beautiful!
>
> I suppose the Stock["24/$(mime)" &/ sIcon] trick only works if the 
> Gambas IDE is present, or does it not?
>
> There would be the possibility of copying the component folders, or 
> just the icons of interest
>
> But whichever way is chosen there remains the problem of adapting them 
> to the font format used by the theme. 

Hi Benoit,

scusa se sono noioso, ma come ben sai io di programmazione capisco poco.

Intendevo chiedere questo:

Se io scrivo un progetto con questo codice anche gli altri vedono le 
stesse icone che vedo io?

Vedi immagine allegata.

Oppure funziona solo se si ha installata la IDE?

'---------------------------

' Gambas class file

' For this test, I checked the components: gb.form.stock e gb.util

Public Sub Form_Open()

   Dim hCont As Panel
   Dim hButton As Button
   Dim aIconNames As String[] = ["zoom-in", "user-group", "user", 
"screen", "science", "remove", "scanner", "print", "open", "mail", 
"logout", "last", "language", "important", "info", "indent", "help", 
"game", "folder-home", "floppy", "first", "find", "edit", "download", 
"development", "desktop", "computer", "component", "color", "close", 
"bookmark", "book", "battery", "audio", "archive", "add", "access"]
   Dim sIcon As String

   With Me
     .Arrangement = Arrange.Vertical
     .Margin = True
     .Spacing = True
   End With
   For I As Integer = 0 To 5
     With hCont = New Panel(Me)
       .Name = "Panel" & CStr(I + 1)
       .Height = 35
       .Arrangement = Arrange.Horizontal
       .Spacing = True
     End With
     For C As Integer = 0 To 5
       With hButton = New Button(hCont) As "Button"
         sIcon = aIconNames[aIconNames.Max]
         .Height = 35
         .Width = 35
         .Name = "btn" & string.UCaseFirst(sIcon)
         .Picture = Stock["24/$(mime)" &/ aIconNames.Pop()]
       End With
     Next
   Next

End

Public Sub Button_Click()

   Print Last.Name

End
'----------------------------------------

Best Regards

Gianluigi

-------------- next part --------------
A non-text attachment was scrubbed...
Name: icons.png
Type: image/png
Size: 20661 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20230221/723e1d77/attachment-0001.png>


More information about the User mailing list