Re: Looking for a scrolling list control, or how to create/simulate
- To: mathgroup at smc.vnet.net
- Subject: [mg98882] Re: Looking for a scrolling list control, or how to create/simulate
- From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
- Date: Mon, 20 Apr 2009 19:13:36 -0400 (EDT)
- References: <gsbvrt$5gh$1@smc.vnet.net> <gsh1al$ri$1@smc.vnet.net>
I'd give x a starting value and the ld in the beginning should be lt
ListField[wd_, tz_, ls_] :=
DynamicModule[{x, lt}, x = ls[[1]]; lt = 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]
Cheers -- Sjoerd