怎么将go image包的Image转换成vcl.IGraphic实例？

[skyqvn]

怎么将go image包的Image转换成vcl.IGraphic实例？

[skyqvn]

不是说把Image以Png Decode到内存流，再从内存流Load到vcl。 vcl.IGraphic有没有类似于At、Set之类的方法读取、更改。

[skyqvn]

我现在需要做一个库，在Canvas上绘制图片，我已经用go Image写了一个旋转图片的代码，现在怎么在转换到vcl.IGraphic。每秒20帧，所以效率要求很高。

[skyqvn]

顺便问一句，作者你是怎么上Github的？我这里特别不稳定，都要被逼疯了

[ying32]

vcl/bitmap包里面有，另外有几个draw开头的例子，里面有相关用法。至于github……经常访问不了呗，还能怎么办，只能说习惯了这种无奈感…

[skyqvn]

这是我封装的Bitmap，实现了go Image接口，还没写完，你看能不能用

[skyqvn]

package rotate

import (
    "github.com/ying32/govcl/vcl"
    "github.com/ying32/govcl/vcl/types"
    "image"
    "image/color"
    "unsafe"
)

type rgba struct {
    B, G, R, A uint8
}

type GoBitmap32 struct {
    bmp   *vcl.TBitmap
    cache []uintptr
}

func (b *GoBitmap32) ColorModel() color.Model {
    return color.RGBAModel
}

func (b *GoBitmap32) Bounds() image.Rectangle {
    return image.Rectangle{
        Min: image.Point{
            X: 0,
            Y: 0,
        },
        Max: image.Point{
            X: int(b.bmp.Width()),
            Y: int(b.bmp.Height()),
        },
    }
}

func (b *GoBitmap32) At(x, y int) color.Color {
    var l uintptr
    if b.cache[y] == 0 {
        l = b.bmp.ScanLine(int32(y))
        b.cache[y] = l
    } else {
        l = b.cache[y]
    }
    p := *(*rgba)(unsafe.Pointer(l + uintptr(x*4)))
    rgbaC := color.RGBA{
        R: p.R,
        G: p.G,
        B: p.B,
        A: 255 - p.A,
    }
    return rgbaC
}

func (b *GoBitmap32) Set(x, y int, c color.Color) {
    b.bmp.BeginUpdate(false)
    defer b.bmp.EndUpdate(false)
    var l uintptr
    if b.cache[y] == 0 {
        l = b.bmp.ScanLine(int32(y))
        b.cache[y] = l
    } else {
        l = b.cache[y]
    }
    cp := (*rgba)(unsafe.Pointer(l + uintptr(x*4)))
    c1 := color.RGBAModel.Convert(c).(color.RGBA)
    cp.R = c1.R
    cp.G = c1.G
    cp.B = c1.B
    cp.A = 255 - c1.A
}

func (b *GoBitmap32) Bitmap() *vcl.TBitmap {
    return b.bmp
}

//Free can free the vcl.TBitmap object.
//You can also use 'bmp.Bitmap().Free()' to free the vcl.TBitmap object.
func (b *GoBitmap32) Free() {
    b.bmp.Free()
}

func NewGoBitmap32(bmp *vcl.TBitmap) (goBmp32 *GoBitmap32) {
    goBmp32 = new(GoBitmap32)

    if bmp.PixelFormat() != types.Pf32bit {
        panic("not 32 bit bitmap")
    }
    bmp.SetHandleType(types.BmDIB)

    goBmp32.bmp = bmp
    goBmp32.cache = make([]uintptr, bmp.Height())
    return
}

[skyqvn]

问一下，Bitmap的A通道是透明度还是不透明度？为什么我一张Bitmap全部像素的A都是255？ GO好像是255为不透明，但VCL的Bitmap好像255是透明。

[ying32]

你那个写的我也不知道……只能你自己试试了。至于bmp透明必须要32位的，有一位是透明度，255就是不透明，0就是透明

[skyqvn]

哦，但我一张好好的位图怎么A通道全是0？导致转换出来的图片是透明的。我改成255 - A之后就好了。

[skyqvn]

简化代码：

l = b.ScanLine(int32(y))
p := *(*rgba)(unsafe.Pointer(l + uintptr(x*4)))
rgbaC := color.RGBA{
    R: p.R,
    G: p.G,
    B: p.B,
    A: p.A,
}
return rgbaC

这样得到的不透明部分的A是0，改成

rgbaC := color.RGBA{
    R: p.R,
    G: p.G,
    B: p.B,
    A: 255-p.A,
}

之后就好了 Set也是一样的问题

[skyqvn]

是我错了，不透明的确是255，但bmp.LoadFromFile("test.bmp")的结果A通道总是0，这是什么问题？ 它其他通道颜色正常，只有A通道为0，这导致我认为要用255减A通道，是不是我bmp文件的问题？

[skyqvn]

请问怎么在画布上绘制部分透明的位图？

[skyqvn]

SetTransparent SetTransparentMode 怎么使用

[skyqvn]

TransparentMode如果为TmAuto，就根据透明度确定是否要透明是吗？

[ying32]

你的图片是透明的绘制出来就是的，一般不需要设置什么