是的,我有幻灯片2x2 3x2 4x4等的默认dcl,这只是添加更多行和列的情况。在下面的示例中,每个图像都有一个键ID,如“33sq1”,图像以列表形式提供(“slide1”“slide2”…)通过lisp使用33sq+x,其中x从1开始,重复填充图像。这是作为库例程完成的,因此可以与任何程序一起工作,为拾取的正方形返回一些值。我将尝试找到正确的代码来在家中调用dcl its。
- // DD3x3 dialogue. Used by DD3x3.lsp.
- // By Alan H 1990.
- dd3x3 : dialog {
- label = "Please choose item";
- : column {
- : row {
- : image_button {
- key = "33sq1";
- width = 10;
- aspect_ratio = 1.0;
- color = 0;
- allow_accept = true;
- }
- : image_button {
- key = "33sq2";
- width = 10;
- aspect_ratio = 1.0;
- color = 0;
- allow_accept = true;
- }
- : image_button {
- key = "33sq3";
- width = 10;
- aspect_ratio = 1.0;
- color = 0;
- allow_accept = true;
- }
- }
- : row {
- : image_button {
- key = "33sq4";
- width = 10;
- aspect_ratio = 1.0;
- color = 0;
- allow_accept = true;
- }
- : image_button {
- key = "33sq5";
- width = 10;
- aspect_ratio = 1.0;
- color = 0;
- allow_accept = true;
- }
- : image_button {
- key = "33sq6";
- width = 10;
- aspect_ratio = 1.0;
- color = 0;
- allow_accept = true;
- }
- }
- : row {
- : image_button {
- key = "33sq7";
- width = 10;
- aspect_ratio = 1.0;
- color = 0;
- allow_accept = true;
- }
- : image_button {
- key = "33sq8";
- width = 10;
- aspect_ratio = 1.0;
- color = 0;
- allow_accept = true;
- }
- : image_button {
- key = "33sq9";
- width = 10;
- aspect_ratio = 1.0;
- color = 0;
- allow_accept = true;
- }
- }
- }
- ok_cancel;
- }
|