Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Looking for a scrolling list control, or how to create/simulate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg98828] Re: Looking for a scrolling list control, or how to create/simulate
  • From: meitnik <meitnik at gmail.com>
  • Date: Mon, 20 Apr 2009 01:32:49 -0400 (EDT)
  • References: <gsbvrt$5gh$1@smc.vnet.net>

OK, here is what I have come up with so far. Any corrections or
improvements? And how do I reuse my custom control outside of the
current notebook cell? That is how do I "install" it for use in other
notebook cells? Thanks.

ListField[wd_, tz_, ls_] :=
 DynamicModule[{x},
  ld = Length[ls];
  Framed[
    Pane[
     Column[
      Table[
       With[
        {i = i}
        ,
        Button[Style[ls[[i]], FontSize -> tz], Dynamic[x = ls[[i]]]
         , Appearance -> "None"
         , ImageSize -> {wd, tz + 2}
         , ImageMargins -> 0
         , Alignment -> Left]
        ], {i, lt}
       ], Spacings -> 0
      ]
     , ImageSize -> {wd, Round[(ld*tz/2) + (ld*2) - 4]}
     , ImageMargins -> {{1, 0}, {0, 0}}
     , Scrollbars -> {False, True}
     , AppearanceElements -> None
     ]
    , FrameMargins -> {{1, 0}, {0, -1}}
    ] Dynamic[x]
  ]

mm = {"yes", "no", "Andrew Merit", "Marvin Honks", "Pam Bakes",
   "Marie loves", "Anne jo Ann"};
ListField[120, 14, mm]


  • Prev by Date: Re: Load .m file from a web server
  • Next by Date: Plot Axis Unit Conversions
  • Previous by thread: Re: Looking for a scrolling list control, or how to create/simulate
  • Next by thread: Re: Re: Looking for a scrolling list control, or how to