| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Image c масштабированием [D7, WinXP]
X-Disa © (2004-05-09 12:44:00)Здравствуйте! Где можно найти TImage с простой возможностью масштабирования? Но если например, масштаб стоит 200 процентов, а я пишу:
Image.Pixels[1,1]:=255, то этот закрашенный пиксел должен вывестись с соответствующием увеличением/уменьшением. TIimage32 из (Graphics32) к сожалению не отвечает этому требованию.
Mihey (2004-05-12 17:33:00) [1]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.
X-Disa (2004-05-12 14:10:00) [2]Да, но как Битмап32 в битма перевести? Так же?
Mihey (2004-05-11 20:34:00) [3]Да есть оно и поддерживает его прекрасно TImage32. Разбирайся в примерах. Почему то там масштабирование идёт идеально, а у тебя нет. Про перевод в битмап - создай простой битмап и на его Canvas.Handle нарисуй через Draw изображение из TBitmap32.
X-Disa (2004-05-11 17:39:00) [4]Спасибо, но я пишу графический редактор, все хорошо, но нет масштабирования. Но Image32 работает с Bitmap32, а как его в обычный Bitmap перевести?
ЮЮ (2004-05-11 06:32:00) [5]>а я пишу: 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
| |
