GDI画矩形，画圆形，画直线。的问题= =

jiesansi

.版本 2

.子程序 _画板1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.判断开始 (鼠标状态 ＝ 1)
    .判断开始 (画图类型 ＝ 1)

        id ＝ LoadCursorFromFile (“pen.cur”)
        指针 ＝ SetClassLong (画板1.取窗口句柄 (), -12, id)
        内存图形.画直线 (画笔, 坐标.x, 坐标.y, 横向位置, 纵向位置)
        内存图形.置平滑模式 (#平滑模式_抗锯齿)
        内存图形.置平滑模式 (#平滑模式_最佳质量)
        ' 本源码来自易语言zy网(www.eyuyan.la)

        .判断开始 (横向位置 ＞ 10000)
            ' ===============还有一种笨办法就是下面这段每次画线增加一点==============================
            .判断开始 (组合框1.现行选中项 ＝ 0)
                坐标.x ＝ 横向位置
                坐标.y ＝ 纵向位置

            .默认

                .判断开始 (坐标.x ＜ 横向位置)
                    坐标.x ＝ 横向位置 － 1
                .判断 (坐标.x ＞ 横向位置)
                    坐标.x ＝ 横向位置 ＋ 1
                .默认

                    坐标.x ＝ 横向位置
                .判断结束

                .判断开始 (坐标.y ＜ 纵向位置)
                    坐标.y ＝ 纵向位置 － 1
                .判断 (坐标.y ＞ 纵向位置)
                    坐标.y ＝ 纵向位置 ＋ 1
                .默认

                    坐标.y ＝ 纵向位置
                .判断结束
                ' 本源码来自易语言zy网(www.eyuyan.la)
            .判断结束
            ' ===============================================
        .默认

        .判断结束


        坐标.x ＝ 横向位置
        坐标.y ＝ 纵向位置


        内存图形.复制 (内存图形.获取mdc (), cj, 0, 0, 0, 0, 画板1.宽度, 画板1.高度, #光栅运算_复制)
    .判断 (画图类型 ＝ 2)
        内存图形.画直线 (画笔2, 坐标.x, 坐标.y, 横向位置, 纵向位置)
        内存图形.置平滑模式 (#平滑模式_抗锯齿)
        内存图形.置平滑模式 (#平滑模式_最佳质量)
        坐标.x ＝ 横向位置
        坐标.y ＝ 纵向位置
        内存图形.复制 (内存图形.获取mdc (), cj, 0, 0, 0, 0, 画板1.宽度, 画板1.高度, #光栅运算_复制)

        ' 橡皮没有写自己加
    .判断 (画图类型 ＝ 3)

    .判断 (画图类型 ＝ 4)

    .判断 (画图类型 ＝ 5)

    .默认

    .判断结束

.默认

.判断结束
SetClassLong (画板1.取窗口句柄 (), -12, 指针)

.子程序 _画板1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.判断开始 (画图类型 ＝ 4)
    内存图形.画矩形 (画笔, 坐标.x, 坐标.y, 取鼠标水平位置 (), 取鼠标垂直位置 ())
    坐标.x ＝ 横向位置
    坐标.y ＝ 纵向位置
    内存图形.复制 (内存图形.获取mdc (), cj, 0, 0, 0, 0, 画板1.宽度, 画板1.高度, #光栅运算_复制)
.默认

.判断结束

鼠标状态 ＝ 0


使用gdi画矩形的时候，矩形总是会偏移。而且是在松开鼠标之后显示出来。我把命令放到鼠标移动里面，就会出现很多。
直线、圆形。我成功的被坐标搞懵了。。。求解吧。

我最终想要达到的目的是画矩形的时候，能在鼠标移动的时候，看到矩形的大小变化，鼠标松开之后，矩形固定，并且只有一个矩形。直线和圆形。也是这样。。。。

futiem

内容这么多，我看了下，没啥问题

S777

5646456456789789789kjghjgvhjgv

jiesansi

wang981942 发表于 2021-10-23 15:08
#在这里快速回复#动画框画板

这个也有锯齿啊

wang981942

#在这里快速回复#动画框画板

sunny5546

感谢楼主分享

jiesansi

这就沉了么。。。

jiesansi

lifeqiuzhi5201 发表于 2020-4-10 10:33
这个功能在看雪平台上面有，你可以去看看

木有找到。。。。能给个连接不。。。

lifeqiuzhi5201

这个功能在看雪平台上面有，你可以去看看

jiesansi

尝试了另外一种办法。给终点坐标也赋值。但是如图一样。同样是鼠标单击一次。越往右下角圆越大，越往左上角圆越小。并且生成的圆和鼠标位置有偏移。是往右下角偏