(write-line "spacer ;" fo)
(write-line " : icon_image { " fo)
(write-line (strcat " width =" (rtos siz 2 0) " ;") fo)
(write-line " aspect_ratio = 1.0 ;" fo)
(write-line (strcat "key = " (chr 34) "Ah_img" (chr 34) " ;") fo)
(write-line " }" fo)
: icon_image { (strcat " width =" (rtos siz 2 0) " ;aspect_ratio = 1.0 ;(strcat "key = " (chr 34) "Ah_img" (chr 34);write-line }
PARTICULARLY I LIKED THIS PART, BUT I WOULD NOT KNOW IT ADEQUATELY TOGETHER, MY DCL IS SIMPLE, AND ANOTHER QUESTION WHICH WOULD BE THE EXTENSION OF THIS IMAGE JPG, PNG ...
SINCE THANKS FOR THE AVAILABILITY
FORMATO_LINHA : dialog
{label = "STANDARD©2021";
:row{
: boxed_column{ label="[ FORMATOS ABNT ]";
: button {label = " A0 - 1189X841 MM" ; key = "BT-A0";fixed_width=true;width=5;alignment=centered;is_default=true;}
: button {label = " A1 - 841X594 MM" ; key = "BT-A1" ;fixed_width=true;width=5;alignment=centered;is_default=true;}
: button {label = " A2 - 594X420 MM" ; key = "BT-A2" ;fixed_width=true;width=5;alignment=centered;is_default=true;}
: button {label = " A3 - 420X297 MM" ; key = "BT-A3" ;fixed_width=true;width=5;alignment=centered;is_default=true;}
: button {label = " A3r - 297X420 MM" ; key = "BT-A3r";fixed_width=true;width=5;alignment=centered;is_default=true;}
: button {label = " A4 - 210X297 MM" ; key = "BT-A4" ;fixed_width=true;width=5;alignment=centered;is_default=true;}
: button {label = " A4r - 297X210 MM" ; key = "BT-A4r"
: icon_image { (strcat " width =" (rtos siz 2 0) " ;aspect_ratio = 1.0 ;(strcat "key = " (chr 34) "Ah_img" (chr 34);write-line } <<<<<THIS FORM? Ah_img.JPG? Ah_img.PNG? EXTENSION???
;fixed_width=true;width=5;alignment=centered;is_default=true;}
: button {label = " SAIR " ; key = "BT-SAIR" ;fixed_width=true;width=15;alignment=centered;is_default=true;}
}
}
}
////////////////////////////////////////////////////////////////////////////////////////////////////////
