Image c масштабированием

← →
X-Disa © (2004-05-09 12:44) [0]

Здравствуйте! Где можно найти TImage с простой возможностью масштабирования? Но если например, масштаб стоит 200 процентов, а я пишу: Image.Pixels[1,1]:=255, то этот закрашенный пиксел должен вывестись с соответствующием увеличением/уменьшением. TIimage32 из (Graphics32) к сожалению не отвечает этому требованию.

← →
ЮЮ © (2004-05-11 06:32) [1]

>а я пишу: Image.Pixels[1,1]:=255

Во первых,
Image32.Bitmap.Pixel[1, 1] :=
Во вторых, указывать 32-битный цвет как 255? Дабы текст был читабельным, надо как-нибудь так :)
clBlue32
Color32(clBlue)
Color32(0, 0, 255, 255)
И, наконец, если 200 процентов получать установкой Image32 ScaleMode=smScale и Scale=2, то всё работает, как положено. Только не забудь добавить Image32.Refresh

← →
X-Disa © (2004-05-11 17:39) [2]

Спасибо, но я пишу графический редактор, все хорошо, но нет масштабирования. Но Image32 работает с Bitmap32, а как его в обычный Bitmap перевести?

← →
Mihey © (2004-05-11 20:34) [3]

Да есть оно и поддерживает его прекрасно TImage32. Разбирайся в примерах. Почему то там масштабирование идёт идеально, а у тебя нет. Про перевод в битмап - создай простой битмап и на его Canvas.Handle нарисуй через Draw изображение из TBitmap32.

Да, но как Битмап32 в битма перевести? Так же?

var Bmp: TBitmap32;

Bmp := TBitmap.Create;
Bmp.Width := Bmp32.Width;
Bmp.Height := Bmp32.Height;
Bmp32.Draw(Rect(0, 0, Bmp.Width, Bmp.Height), Rect(0, 0, Bmp.Width, Bmp.Height), Bmp.Canvas.Handle);

и вот оно в Bmp.

Image c масштабированием Найти похожие ветки