Virtual Gadget example

11 posts / 0 new
Last post
walkero
walkero's picture
Offline
Last seen: 1 month 1 day ago
Joined: 2009-05-03 16:54
Virtual Gadget example
Hello to all. I am trying to create a list of thumbs in my program, and I would like this list to have a scrollbar. So I tried to use a virtual gadget with a vertical layout in it. Here is what I wrote:
  1. // Thumbs list
  2. LAYOUT_AddChild, objects[OID_LAYOUT_THUMBS_WRAPPER] = IIntuition->NewObject(NULL, "layout.gadget",
  3. LAYOUT_Orientation, LAYOUT_ORIENT_VERT,
  4. LAYOUT_SpaceOuter, TRUE,
  5. LAYOUT_BevelStyle, BVS_GROUP,
  6. LAYOUT_Label, " THUMBS ",
  7.  
  8. LAYOUT_AddChild, objects[OID_VIRT_THUMBS] = IIntuition->NewObject(NULL, "virtual.gadget",
  9. VIRTUALA_Contents, objects[OID_LAYOUT_THUMBS] = IIntuition->NewObject(NULL, "layout.gadget",
  10. LAYOUT_Orientation, LAYOUT_ORIENT_VERT,
  11. LAYOUT_SpaceOuter, FALSE,
  12. TAG_DONE),
  13. CHILD_WeightedWidth, 0,
  14. TAG_DONE),
  15.  
  16. TAG_DONE),
  17. CHILD_WeightedWidth, 35,
The problem is that other times it works just fine, but other times the program crashes before it even starts to show up. Is there anything stupid I did there? Should I add something else too?
jabirulo
jabirulo's picture
Offline
Last seen: 1 day 2 hours ago
Joined: 2013-05-30 00:53
Hi, maybe you can take a look
Hi, maybe you can take a look at AISSview (gui.c) it uses virtual.gadget to show icons and can help you a little with your thumbs programm. http://www.os4depot.net/share/graphics/aiss/aissviewer-src.lha
  1. ...
  2. OBJ(OBJ_TOP_LAYOUT) = VLayoutObject,
  3. LAYOUT_TopSpacing, 10,
  4. LAYOUT_AddChild, OBJ(OBJ_CLEAR_ALL),
  5. End; // VLayout
  6.  
  7. ...
  8.  
  9. LAYOUT_AddChild, VLayoutObject,
  10. LAYOUT_BevelStyle, BVS_GROUP,
  11. LAYOUT_Label, " Image Buttons ",
  12. LAYOUT_AddChild, OBJ(OBJ_VIRTUAL) = VirtualObject,
  13.  
  14. VIRTUALA_Contents, VLayoutObject,
  15. LAYOUT_AddChild, OBJ(OBJ_TOP_LAYOUT),
  16. CHILD_WeightedHeight, 0,
  17. End, // VIRTUALA_Contents, VLayoutObject
  18.  
  19. VirtualEnd,
  20. ...
AOS4.1/SAM460ex/PPC460EX-1155MHZ/2048MB/RadeonHD6570/SSD120GB/DVDRW :-P
broadblues
broadblues's picture
Offline
Last seen: 2 years 3 months ago
Joined: 2012-05-02 21:48
Is there anything stupid I
Is there anything stupid I did there?
Unless I'm reading it wrong you appear to have a CHILD_WeightedWidth,0, just after your thumbs layout, nad *inside* your Virtual gadgets tags, which is proably not what you want!
broadblues
broadblues's picture
Offline
Last seen: 2 years 3 months ago
Joined: 2012-05-02 21:48
BTW a listbrowser is a better
BTW a listbrowser is a better choice for a list of thumbs.
walkero
walkero's picture
Offline
Last seen: 1 month 1 day ago
Joined: 2009-05-03 16:54
@jabirulo Thanks. I will
@jabirulo Thanks. I will check this out @broadblues How can I dynamically show images inside a listbrowser? Is there a good example I could check? This solution could help me more, in case it works. Thank you guys for your help and time.
jabirulo
jabirulo's picture
Offline
Last seen: 1 day 2 hours ago
Joined: 2013-05-30 00:53
...n =
  1. ...
  2. n = IListBrowser->AllocListBrowserNode(TOTALCOLUMNS,
  3. LBNA_Column,0, LBNCA_CopyText,TRUE,
  4. LBNCA_Text,dat->Name,
  5. LBNA_Column,1, LBNCA_Image,imageP,
  6. //LBNA_Column,2, LBNCA_CopyText, TRUE,
  7. // LBNCA_Text, KM_desc1,
  8. //LBNA_Column,2, LBNCA_CopyInteger, TRUE,
  9. // LBNCA_Integer, &KM_cs,
  10. TAG_DONE);
  11.  
  12. IExec->AddTail(&listbrowser_list, n);
  13. ...
being imageP:
  1. ...
  2. dd->fiso[2].tta.tta_Name = font->ta_Name;
  3. dd->fiso[2].tta.tta_YSize = font->ta_YSize;
  4. dd->fiso[2].tta.tta_Style = font->ta_Style | FSF_TAGGED;
  5. dd->fiso[2].tta.tta_Flags = font->ta_Flags;
  6. dd->fiso[2].tta.tta_Tags = dd->fiso[1].ti;
  7. dd->fiso[2].ti[0].ti_Tag = TA_CharSet;
  8. dd->fiso[2].ti[0].ti_Data = 5; // 5=ISO_8859-2
  9. dd->fiso[2].ti[1].ti_Tag = TAG_DONE;
  10. ...
  11. imageP = IIntuition->NewObject(LabelClass, NULL,
  12. IA_Font,&dd->fiso[2].tta,
  13. LABEL_DisposeImage,TRUE, LABEL_Underscore,0,
  14. LABEL_Text,KM_desc2, TAG_END);
I use it to show string/languages in its native/local charset.
AOS4.1/SAM460ex/PPC460EX-1155MHZ/2048MB/RadeonHD6570/SSD120GB/DVDRW :-P
walkero
walkero's picture
Offline
Last seen: 1 month 1 day ago
Joined: 2009-05-03 16:54
@jabirulo But where do you
@jabirulo But where do you set the image at your example? It should be loaded as a file or using datatypes. Where do you give to the listbrowser where it can find the image?
broadblues
broadblues's picture
Offline
Last seen: 2 years 3 months ago
Joined: 2012-05-02 21:48
@walkero jabiluro's example
@walkero jabiluro's example is using a label image but you can just as well use a bitmap image. adds the image to a coulmn in the node LBNA_Column,1, LBNCA_Image,imageP, code to load an image as bitmap: imageP = IIntuition->NewObject(BitmapClass, NULL, BITMAP_SelectSourceFile, path_s, BITMAP_DisabledSourceFile, path_g, BITMAP_Screen, scr, BITMAP_Masking, TRUE, , TAG_END);
walkero
walkero's picture
Offline
Last seen: 1 month 1 day ago
Joined: 2009-05-03 16:54
@broadblues Thanks for the
@broadblues Thanks for the code... it worked like charm. I have two more questions: 1. Is there a way to have a column of a listbrowser hidden? Checked the autodocs where you set the columninfo and didn't find anything useful. Rigo says that it is feasible at the following post (http://www.amigans.net/modules/xforum/viewtopic.php?post_id=80893). Any clue? 2. When I load a lot of images in the list the gfx memory fills. Is there a way to free the image from memory, but remain in the list? It also isn't cleared from memory when I close the app. It seems that when you dispose a win doesn't free it's resources. Thank you all for your help and time.
broadblues
broadblues's picture
Offline
Last seen: 2 years 3 months ago
Joined: 2012-05-02 21:48
How many is a lot of
How many is a lot of images? You need to dispose of those bitmaps images at program exit, they wont be disposed of by disposing of the listbroswer, same goes for the listnode in fact.
trixie
trixie's picture
Offline
Last seen: 1 week 2 days ago
Joined: 2011-02-03 13:58
@walkero Is there a way to
@walkero
Is there a way to have a column of a listbrowser hidden? Checked the autodocs where you set the columninfo and didn't find anything useful. Rigo says that it is feasible
ADRipper uses column hiding when switching between the Compilation and the Normal mode, but looking at the code it merely modifies the ColumnInfo structure, setting ci_Width = 0 and ci_Title = "" for the particular column. A rather ugly kludge if you ask me but whether there's another way I don't know.
AmigaOne X5000-020 / 2GB RAM / Sapphire Pulse Radeon RX 560 / AmigaOS 4.1 Final Edition Update 2
Log in or register to post comments