TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: ziele_o2k on June 28, 2017, 02:17:15 AM

Title: [DCL] display problem
Post by: ziele_o2k on June 28, 2017, 02:17:15 AM
Below, you can find code for problematic DCL dialog.

Code: [Select]
Sett : dialog
{ label = "Quick Settings:";
  width = 50;
  : row {
    : column {
      : text { label = "Rozbic blok:"; }
      : text { label = "Troche dluzszy tekst:"; }
    }
    : column {
      _RADIO1;
      _RADIO2;
    }
  }
  : _POPUP { key = "B_1"; label = "&Czy wstawic punkt w srodku:"; }
  : _POPUP { key = "B_4"; label = "&Separator:"; }
  : _EDITBOX { key = "B_2"; label = "&Wysokosc tekstu:"; edit_limit = 10; }
  : _EDITBOX { key = "B_3"; label = "Odstep &tekstu:"; edit_limit = 10; }
  spacer_1;
  : row {
    alignment = centered;
    fixed_width = true;
    : _BUTTON { key = "OK"; label = "&Ok"; is_default = true; }
    : _BUTTON { key = "CANCEL"; label = "&Anuluj"; is_cancel = true; }
  }
  errtile;
}
_BUTTON : button { width = 13; fixed_width = true; }
_POPUP : popup_list { edit_width = 30; }
_EDITBOX : edit_box { edit_width = 30.8; }
_RADIO1 : row {
  : radio_button {
    key = "op1";
    label = "&Tak";
  }
  : radio_button {
    key = "op2";
    label = "&Nie";
  }
  spacer;
}
_RADIO2 : row {
  : radio_button {
    key = "op3";
    label = "&Wiecej Tak";
  }
  : radio_button {
    key = "op4";
    label = "&Wiecej Nie";
  }
  spacer;
}

This dcl displays different on various machines. To see differences, please check attachments.
Could someone explain to me where the problem is?

EDIT:
Attached images have wrong names :)
wrong is good and good is wrong :D
Title: Re: [DCL] display problem
Post by: kdub_nz on June 28, 2017, 03:31:43 AM
It's a long time since I've done any DCL work, but ...

Perhaps force the width of the RADIO section to be less that the POPUP and EDITBOX

25 seems to work.

Note that this is very similar to the one I posted elsewhere but it may provide a consistent output across various systems.

did you mean for all of those buttons to be unlinked ??
ie not using radio_row or :toggle prototype

BTW: I like your use of custom prototypes.

Code - Auto/Visual Lisp: [Select]
  1. Sett : dialog
  2. { label = "Quick Settings:";
  3.   width = 50;
  4.   : row {
  5.     : column {
  6.       : text { label = "Rozbic blok:"; }
  7.       : text { label = "Troche dluzszy tekst:"; }
  8.     }
  9.     : column {
  10.       width = 25;
  11.       _RADIO1;
  12.       _RADIO2;
  13.     }
  14.   }
  15.   : _POPUP { key = "B_1"; label = "&Czy wstawic punkt w srodku:"; }
  16.   : _POPUP { key = "B_4"; label = "&Separator:"; }
  17.   : _EDITBOX { key = "B_2"; label = "&Wysokosc tekstu:"; edit_limit = 10; }
  18.   : _EDITBOX { key = "B_3"; label = "Odstep &tekstu:"; edit_limit = 10; }
  19.   spacer_1;
  20.   : row {
  21.     alignment = centered;
  22.     fixed_width = true;
  23.     : _BUTTON { key = "OK"; label = "&Ok"; is_default = true; }
  24.     : _BUTTON { key = "CANCEL"; label = "&Anuluj"; is_cancel = true; }
  25.   }
  26.   errtile;
  27. }
  28.  
  29. /// < remainder not shown >
  30.  

(https://i.gyazo.com/4255c97964d591be09d2bf298fb9ed3f.png)

Title: Re: [DCL] display problem
Post by: kdub_nz on June 28, 2017, 04:17:58 AM

Here's another option :)

(https://i.gyazo.com/d0746bf3ed3097895ca16fcd4232d163.png)

Code - DCL: [Select]
  1. Sett : dialog
  2. { label = "Quick Settings:";
  3.   width = 50;
  4.   : row {
  5.         : text { label = "Rozbic blok:"; }
  6.         _RADIO1;
  7.   }
  8.   :row {
  9.     : text { label = "Troche dluzszy tekst:"; }
  10.     _RADIO2;
  11.   }  
  12.  
  13.   : _POPUP { key = "B_1"; label = "&Czy wstawic punkt w srodku:"; }
  14.   : _POPUP { key = "B_4"; label = "&Separator:"; }
  15.   : _EDITBOX { key = "B_2"; label = "&Wysokosc tekstu:"; edit_limit = 10; }
  16.   : _EDITBOX { key = "B_3"; label = "Odstep &tekstu:"; edit_limit = 10; }
  17.   spacer_1;
  18.   : row {
  19.     alignment = centered;
  20.     fixed_width = true;
  21.     : _BUTTON { key = "OK"; label = "&Ok"; is_default = true; }
  22.     : _BUTTON { key = "CANCEL"; label = "&Anuluj"; is_cancel = true; }
  23.   }
  24.   errtile;
  25. }
  26.  
  27. _BUTTON : button { width = 13; fixed_width = true; }
  28.  
  29. _POPUP : popup_list { edit_width = 30; }
  30.  
  31. _EDITBOX : edit_box { edit_width = 30.8; }
  32.  
  33. _RADIO1 : boxed_radio_row {
  34.   width = 20;
  35.   : radio_button {
  36.     key = "op1";
  37.     label = "&Tak";
  38.   }
  39.   : radio_button {
  40.     key = "op2";
  41.     label = "&Nie";
  42.   }
  43.   spacer;
  44. }
  45.  
  46. _RADIO2 : boxed_radio_row {
  47.   width = 20;
  48.   : radio_button {
  49.     key = "op3";
  50.     label = "&Wiecej Tak";
  51.   }
  52.   : radio_button {
  53.     key = "op4";
  54.     label = "&Wiecej Nie";
  55.   }
  56.   spacer;
  57.  
  58.  
  59.  




Title: Re: [DCL] display problem
Post by: dgorsman on June 30, 2017, 02:40:54 PM
If memory serves, DCL dialogs can be sensitive to OS text settings on individual computers (text size, font, and so on).