|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Отрисовать несколько png с прозрачностью delphi 7
Как используя TPngImage можно отрисовать несколько png с прозрачностью в Delphi 7
|
#2
|
||||
|
||||
Наверное
Код:
procedure TForm1.Button1Click(Sender: TObject); var p: TPNGObject; begin p:= TPNGObject.Create; p.LoadFromFile('b.png'); Image1.Picture.Graphic:= p; p.Free; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Я же сказал несколько картинок png с прозрачностью. К примеру 10 или 100
|
#4
|
||||
|
||||
А вы одну значит вывести с прозрачностью всё же можете? Покажите пжлст код
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
||||
|
||||
Код:
var PngImage: array [0..9] of TPngImage; i: Integer; begin (* Init PngImage where *) for i:=0 to 9 do Canvas.Draw(0, 0, PngImage[i]); end; Пишу программы за еду. __________________ |
#6
|
|||
|
|||
Блин с прозрачностью. Draw не отрисовывает с прозрачностью. Этот код я с самого начала писал но увы без прозрачности
|
#7
|
||||
|
||||
Бугул на эту тему что пишет? Мне как-то очень давно попадался рабочий пример для 7-й дельфи, как рисовать пнг с учетом прозрачности.
Специально для жертв репрессий бугла: тема — http://www.delphisources.ru/forum/sh...ad.php?t=22837 ссылка на рабочий пример из ссылки выше — https://stackoverflow.com/questions/...e-on-other-png — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 15.02.2015 в 22:06. |
#8
|
||||
|
||||
Гугель кстати говорит что можно и так делать
Код:
uses pngimage; ... var Img: array [0..9] of TImage; i: Integer; begin for i:=0 to 9 do Img[i].Picture.LoadFromFile(IntToStr(i) + '.png'); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#9
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#10
|
|||
|
|||
Код:
procedure MergePNGLayer(Layer1,Layer2: TPNG; Const aLeft,aTop:Integer); var x, y: Integer; SL1, SL2, SLBlended : pRGBLine; aSL1, aSL2, aSLBlended: PByteArray; blendCoeff: single; blendedPNG, Lay2buff: TPNG; begin blendedPNG:=TPNG.Create; blendedPNG.Assign(Layer1); Lay2buff:=TPNG.Create; Lay2buff.Assign(Layer2); //SetPNGCanvasSize(Layer2,Layer1.Width,Layer1.Height,aLeft,aTop); for y := 0 to Layer1.Height-1 do begin SL1 := Layer1.Scanline[y]; SL2 := Layer2.Scanline[y]; aSL1 := Layer1.AlphaScanline[y]; aSL2 := Layer2.AlphaScanline[y]; SLBlended := blendedPNG.Scanline[y]; aSLBlended := blendedPNG.AlphaScanline[y]; for x := 0 to Layer1.Width-1 do begin blendCoeff:=aSL1[x] * 100/255/100; aSLBlended[x] := round(aSL2[x] + (aSL1[x]-aSL2[x]) * blendCoeff); SLBlended[x].rgbtRed := round(SL2[x].rgbtRed + (SL1[x].rgbtRed-SL2[x].rgbtRed) * blendCoeff); SLBlended[x].rgbtGreen := round(SL2[x].rgbtGreen + (SL1[x].rgbtGreen-SL2[x].rgbtGreen) * blendCoeff); SLBlended[x].rgbtBlue := round(SL2[x].rgbtBlue + (SL1[x].rgbtBlue-SL2[x].rgbtBlue) * blendCoeff); end; end; Layer1.Assign(blendedPNG); Layer2.Assign(Lay2buff); blendedPNG.Free; Lay2buff.Free; end; Вызов Код:
procedure TfrmRCE.RePayntImgMapDoms(IndexDoms, IndexRegion:Integer); begin lblDisplayRegions0.Refresh; MergePNGLayer(MaskPngRegions, PngRegions[IndexDoms, IndexRegion], 0, 0); lblDisplayRegions0.Picture.Assign(MaskPngRegions); end; Отрисовывает только MaskPngRegions почемута |
#11
|
||||
|
||||
Пишу программы за еду. __________________ |