幻灯片图像未占用

kilari_venkates · 发表于 2022-7-5 20:07:49

正如您在对话框底部的附件中所看到的，一个矩形的粉红色框没有占据全白色图像。请建议。。。

：行{
：图像{
键=“im”；
高度=2.15； //0.9495
宽度=10； //1.00
固定宽度=true//固定宽度
固定高度=真//固定高度
}
：段落{
：text\u部分{
label=“设计和创建”；
}
：text\u部分{
标签=“XYZ”；
}
}
}

______________________________Lisp程序_____________________________
（setq w（dimx_tile“im”）
h（dimy_tile“im”）
) ;_ setq结束
（启动图像“im”）
;（fill_图像0 0 w h 1）
（幻灯片图像0 0 w h“图案填充”）
（end_图像）

hmsilva · 发表于 2022-7-5 22:00:10

你好，kilari_venkatesh，

我很长时间没有和DCL打交道了，但是，让我们看看我是否可以帮助。。。

一个简单的解决方案是，将背景颜色设置为-15，对话框颜色，它不会修改图像大小，但你不会看到白色。。。
例如

copy

: row {
: image {
key = "im" ;
height = 2.15 ; //0.9495
width = 10 ; //1.00
color = -15 ; //the dialog color
fixed_width = true; //fix the width
fixed_height = true; //fix the height
}
: paragraph {
: text_part {
label = "Designed and Created";
}
: text_part {
label = "XYZ";
}
}
}

要使图像适合平铺，必须更改图像大小，并更改图像偏移。
例如

copy

(setq w (dimx_tile "im")
     h (dimy_tile "im")
) ;_ end of setq
(start_image "im")
(fill_image 0 0 w h 1);;comment after you set the correct img size and offset
(slide_image -25 -5 (* w 2) (* h 2) "hatch")
(end_image)

希望有帮助
亨里克

[编程交流] 幻灯片图像未占用

发表回复

精选推荐