Как дорисовать вокруг Bitmap'а "рамочку" в 1 пиксе

[areh]

Всем привет!

всвязи с наступившим НГ голова соображает плохо, а яндекс ищет не то что надо..
подскажите пожалуйста, как взяв экземпляр класса Bitmap сделать новый, который будет отличатся от оригинального только наличием "рамочки" шириной 1 пиксел.

пока сделал тупо: создается картинка размером +2 пикселя в оба направления, и по одному пикселу первоначальное изображение копируется в новое (со здвигом) потом дорисовывается рамочка.

работает медленно. так как реализация новогодняя..

а как сделать нормально?

[Nord777]

как то так

Код: Выделить всё

     Dim BmpOriginal As New Bitmap(100, 100)
    Dim BmpWithBorder As New Bitmap(BmpOriginal.Width + 2, BmpOriginal.Height + 2)

    Dim G As Graphics = Graphics.FromImage(BmpWithBorder)
    G.DrawImage(BmpOriginal, 1, 1)

    Dim R As Rectangle = Rectangle.Round(BmpWithBorder.GetBounds(GraphicsUnit.Pixel))
    R.Width -= 1 : R.Height -= 1
    G.FillRectangle(Brushes.AliceBlue, R)
    G.DrawRectangle(Pens.Black, R)
    G.Dispose()

    G = Me.CreateGraphics()
    G.DrawImage(BmpWithBorder, 10, 10)

[areh]

Nord777, большое спасибо!

я правда немного твой код подредактировал, оформил как функцию..

в итоге вот что получилось:

Код: Выделить всё

  Function GenerateBounds(ByVal BmpOriginal As Image, ByVal clr As Color) As Image
    Dim BmpWithBorder As New Bitmap(BmpOriginal.Width + 2, BmpOriginal.Height + 2)

    Dim G As Graphics = Graphics.FromImage(BmpWithBorder)

    Dim R As Rectangle = Rectangle.Round(BmpWithBorder.GetBounds(GraphicsUnit.Pixel))
    R.Width -= 1 : R.Height -= 1

    G.DrawRectangle(New Pen(clr), R)
    G.DrawImage(BmpOriginal, New Rectangle(1, 1, BmpOriginal.Width, BmpOriginal.Height), New Rectangle(0, 0, BmpOriginal.Width, BmpOriginal.Height), GraphicsUnit.Pixel)
    G.Dispose()

    Return BmpWithBorder
  End Function


PS работает примерно в 40 раз быстрее моего способа