dcl_settings : default_dcl_settings { audit_level = 3; }
//------------------------------------------------------------------------------
// Program Name: Dcl_Tiles.dcl [Dcl_Tiles R11]
// Created By:   Terry Miller (Email: terrycadd@yahoo.com)
//               (URL: http://web2.airmail.net/terrycad)
// Date Created: 2-26-01
// Function:     Utilities and functions for AutoLISP and DCL dialog control
//               based upon the Dcl_Tiles dialog control method.
// Note:         Dcl_Tiles requires functions inside of GetIcon.lsp.
//------------------------------------------------------------------------------
// Revision History
// Rev  By     Date    Description
//------------------------------------------------------------------------------
// 1   TM    2-26-01   Initial version
// 2   TM    3-5-01    Added ArchReal for entering Architectural numbers.
// 3   TM    10-10-01  Revised ArchReal to accept "" as "0" value.
// 4   TM    4-10-02   Added IsItMM for entering Millimeters.
// 5   TM    7-21-03   Added EditBox for entering string values.
// 6   TM    2-4-04    Added EditArchOrReal to return an Arch or Real number
//                     and EditArchToReal which returns a Real number.
// 7   TM    6-20-04   Added Speed, delay and Progress_Bar function.
// 8   TM    2-20-05   Added Edit_Dialog, List_Dialog, and Misc_Dialog examples.
// 9   TM    3-20-05   Added Tabs_Dialog record examples and Dcl_Renum function.
// 10  TM    1-20-06   Added TitleBar$ variable to customize lists with an Other.
//                     Revised ListArch to return a real number string. Revised
//                     List functions to ignore blanks if included in a list.
// 11   TM   1-1-07    The *_nth list functions were revised for maximum speed.
//------------------------------------------------------------------------------
// Edit_Dialog - Dcl_Tiles Edit Examples
//------------------------------------------------------------------------------
Edit_Dialog : dialog {
  key = "Title";
  label = "";
  initial_focus = "accept";
  spacer;
  : column {//< Edit
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.92;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text101";
            label = "";
            alignment = left;
          }
        }
      }
      : edit_box {
        key = "Edit101";
        edit_width = 8.92;
        fixed_width = true;
      }
    }
  }//>
  : column {//< EditCaps
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.92;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text102";
            label = "";
            alignment = left;
          }
        }
      }
      : edit_box {
        key = "EditCaps102";
        edit_width = 8.92;
        fixed_width = true;
      }
    }
  }//>
  : column {//< EditInt
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.92;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text103";
            label = "";
            alignment = left;
          }
        }
      }
      : edit_box {
        key = "EditInt103";
        edit_width = 8.92;
        fixed_width = true;
      }
    }
  }//>
  : column {//< EditReal
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.92;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text104";
            label = "";
            alignment = left;
          }
        }
      }
      : edit_box {
        key = "EditReal104";
        edit_width = 8.92;
        fixed_width = true;
      }
    }
  }//>
  : column {//< EditArch
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.92;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text105";
            label = "";
            alignment = left;
          }
        }
      }
      : edit_box {
        key = "EditArch105";
        edit_width = 8.92;
        fixed_width = true;
      }
    }
  }//>
  : column {//< EditArchOrReal
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.92;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text106";
            label = "";
            alignment = left;
          }
        }
      }
      : edit_box {
        key = "EditArchOrReal106";
        edit_width = 8.92;
        fixed_width = true;
      }
    }
  }//>
  : column {//< EditArchToReal
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.92;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text107";
            label = "";
            alignment = left;
          }
        }
      }
      : edit_box {
        key = "EditArchToReal107";
        edit_width = 8.92;
        fixed_width = true;
      }
    }
  }//>
  spacer;
  : row {//< Buttons
    width = 37.5;
    fixed_width = true;
    alignment = centered;
    : ok_button {
      width = 11;
    }
    : image {
      key = "Logo";
      width = 10.26;// X = 62
      height = 1.74;// Y = 23
      aspect_ratio = 1;
      color = -15;
    }
    : cancel_button {
      width = 11;
    }
  }//>
}// Edit_Dialog
//------------------------------------------------------------------------------
// List_Dialog - Dcl_Tiles List Examples
//------------------------------------------------------------------------------
List_Dialog : dialog {
  key = "Title";
  label = "";
  initial_focus = "accept";
  spacer;
  : column {//< List
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.76;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text201";
            label = "";
            alignment = left;
          }
        }
      }
      : popup_list {
        key = "List201";
        width = 11.42;
        fixed_width = true;
      }
    }
  }//>
  : column {//< ListInt
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.76;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text202";
            label = "";
            alignment = left;
          }
        }
      }
      : popup_list {
        key = "ListInt202";
        width = 11.42;
        fixed_width = true;
      }
    }
  }//>
  : column {//< ListReal
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.76;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text203";
            label = "";
            alignment = left;
          }
        }
      }
      : popup_list {
        key = "ListReal203";
        width = 11.42;
        fixed_width = true;
      }
    }
  }//>
  : column {//< ListArch
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 24.76;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text204";
            label = "";
            alignment = left;
          }
        }
      }
      : popup_list {
        key = "ListArch204";
        width = 11.42;
        fixed_width = true;
      }
    }
  }//>
  : column {//< MultiList
    width = 37;
    fixed_width = true;
    : spacer { height = 0.12; }
    : row {
      : column {
        width = 24.76;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text205";
            label = "";
            alignment = left;
          }
        }
      }
      : list_box {
        key = "MultiList205";
        height = 6.26;
        fixed_height = true;
        width = 11.42;
        fixed_width = true;
        multiple_select = true;
      }
    }
  }//>
  spacer;
  : row {//< Buttons
    fixed_width = true;
    alignment = centered;
    : button {
      key = "Back";
      label = "< &Back";
      width = 11;
    }
    : button {
      key = "Next";
      is_default = true;
      label = "&Next >";
      width = 11;
    }
    : cancel_button {
      width = 11;
    }
  }//>
}// List_Dialog
//------------------------------------------------------------------------------
// Misc_Dialog - Dcl_Tiles Misc. Examples
//------------------------------------------------------------------------------
Misc_Dialog : dialog {
  key = "Title";
  label = "";
  initial_focus = "accept";
  spacer;
  : image_button {//< ImageButton
    key = "Image301";
    width = 35.92; // for a 216 pixel image width
    height = 1.82; // for a 24 pixel image height
    aspect_ratio = 1;
    color = -15;
    alignment = centered;
  }//>
  : spacer { height = 0.12;}
  : boxed_radio_row {//< Radio
    key = "Radio302";
    label = "Radio";
    width = 34.26;
    fixed_width = true;
    : radio_button {
      key = "One302";
      label = "One";
    }
    : radio_button {
      key = "Two302";
      label = "Two";
    }
    : radio_button {
      key = "Three302";
      label = "Three";
    }
  }//>
  : spacer { height = 0.12;}
  : column {//< Slider
    : row {
      height = 2;
      fixed_height = true;
      : column {
        width = 24.92;
        fixed_width = true;
        spacer_0;
        : column {
          : text {
            key = "Text303";
            label = "";
            alignment = left;
          }
        }
      }
      : slider {
        key = "Slider303";
        is_tab_stop = false;
        min_value = 1;
        max_value = 10;
        small_increment = 1;
        big_increment = 2;
        width = 11;
        fixed_width = true;
      }
    }
  }//>
  : boxed_column {//< Toggle
    label = "Toggle";
    width = 34.26;
    fixed_width = true;
    : row {
      : toggle {
        key = "Toggle304";
        label = "Toggle 1";
      }
      : toggle {
        key = "Toggle305";
        label = "Toggle 2";
      }
    }
    spacer;
  }//>
  spacer;
  : row {//< Buttons
    fixed_width = true;
    alignment = centered;
    : button {
      key = "Back";
      label = "< &Back";
      width = 11;
    }
    : button {
      key = "Next";
      is_default = true;
      label = "&Next >";
      width = 11;
    }
    : cancel_button {
      width = 11;
    }
  }//>
}// Misc_Dialog
//------------------------------------------------------------------------------
// Tabs_Dialog - Dcl_Tiles Tabs Record Examples
//------------------------------------------------------------------------------
Tabs_Dialog : dialog {
  key = "Title";
  label = "";
  initial_focus = "accept";
  spacer;
  : image_button {//< ImageButton
    key = "Image400";
    width = 35.92; // for a 216 pixel image width
    fixed_width = true;
    height = 1.82; // for a 24 pixel image height
    aspect_ratio = 1;
    color = -15;
    alignment = centered;
  }//>
  : spacer { height = 0.2;}
  : column {//< Edit
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 17.92;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text401";
            label = "";
            alignment = left;
          }
        }
      }
      : edit_box {
        key = "Edit401";
        edit_width = 15.92;
        fixed_width = true;
      }
    }
  }//>
  : column {//< List
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 17.76;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text402";
            label = "";
            alignment = left;
          }
        }
      }
      : popup_list {
        key = "List402";
        width = 18.42;
        fixed_width = true;
      }
    }
  }//>
  : column {//< Edit
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 17.92;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text403";
            label = "";
            alignment = left;
          }
        }
      }
      : edit_box {
        key = "Edit403";
        edit_width = 15.92;
        fixed_width = true;
      }
    }
  }//>
  : column {//< List
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 17.76;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text404";
            label = "";
            alignment = left;
          }
        }
      }
      : popup_list {
        key = "List404";
        width = 18.42;
        fixed_width = true;
      }
    }
  }//>
  : column {//< Edit
    width = 37;
    fixed_width = true;
    : row {
      : column {
        width = 17.92;
        fixed_width = true;
        spacer;
        : column {
          : text {
            key = "Text405";
            label = "";
            alignment = left;
          }
        }
      }
      : edit_box {
        key = "Edit405";
        edit_width = 15.92;
        fixed_width = true;
      }
    }
  }//>
  : spacer { height = 0.58;}
  : row {//< Buttons
    fixed_width = true;
    alignment = centered;
    : button {
      key = "Back";
      label = "< &Back";
      width = 11;
    }
    : ok_button {
      width = 11;
    }
    : cancel_button {
      width = 11;
    }
  }//>
}// Tabs_Dialog
//------------------------------------------------------------------------------
// Progress_Bar - Progress Bar
//------------------------------------------------------------------------------
Progress_Bar : dialog {
  label = "";
  key = "Title";
  spacer;
  : text {
    key = "Msg";
    label = "";
    width = 46.59;
    fixed_width = true;
  }
  : row {
    : column {
      : spacer { height = 0.12; fixed_height = true;}
      : image {
        key = "Progress_Bar";
        width = 34.26;
        height = 1.59;
        fixed_width = true;
        fixed_height = true;
        aspect_ratio = 1;
        color = -15;
        vertical_margin = none;
      }
      spacer;
    }
    : cancel_button {
    }
  }
}// Progress_Bar
//------------------------------------------------------------------------------