Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 15.02.2015, 14:15
Alexandr_17_10 Alexandr_17_10 вне форума
Прохожий
 
Регистрация: 17.06.2014
Сообщения: 27
Версия Delphi: Delphi 7, XE6
Репутация: 10
По умолчанию Отрисовать несколько png с прозрачностью delphi 7

Как используя TPngImage можно отрисовать несколько png с прозрачностью в Delphi 7
Ответить с цитированием
  #2  
Старый 15.02.2015, 14:43
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Наверное
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 p: TPNGObject;
begin
 p:= TPNGObject.Create;
 p.LoadFromFile('b.png');
 Image1.Picture.Graphic:= p;
 p.Free;
end;
Ответить с цитированием
  #3  
Старый 15.02.2015, 19:17
Alexandr_17_10 Alexandr_17_10 вне форума
Прохожий
 
Регистрация: 17.06.2014
Сообщения: 27
Версия Delphi: Delphi 7, XE6
Репутация: 10
По умолчанию

Я же сказал несколько картинок png с прозрачностью. К примеру 10 или 100
Ответить с цитированием
  #4  
Старый 15.02.2015, 19:30
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

А вы одну значит вывести с прозрачностью всё же можете? Покажите пжлст код
Ответить с цитированием
  #5  
Старый 15.02.2015, 19:58
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
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  
Старый 15.02.2015, 21:42
Alexandr_17_10 Alexandr_17_10 вне форума
Прохожий
 
Регистрация: 17.06.2014
Сообщения: 27
Версия Delphi: Delphi 7, XE6
Репутация: 10
По умолчанию

Блин с прозрачностью. Draw не отрисовывает с прозрачностью. Этот код я с самого начала писал но увы без прозрачности
Ответить с цитированием
  #7  
Старый 15.02.2015, 21:55
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Бугул на эту тему что пишет? Мне как-то очень давно попадался рабочий пример для 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  
Старый 15.02.2015, 22:52
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Гугель кстати говорит что можно и так делать
Код:
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  
Старый 16.02.2015, 11:31
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от Alexandr_17_10
Блин с прозрачностью. Draw не отрисовывает с прозрачностью. Этот код я с самого начала писал но увы без прозрачности
Так-то метод Draw у Canvas вызывает метод Draw у Graphic. Поэтому если твой TPngImage умеет рисовать с прозрачностью, то она и будет. Мой TPngImage (Draw) рисует с прозрачностью.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #10  
Старый 16.02.2015, 19:18
Alexandr_17_10 Alexandr_17_10 вне форума
Прохожий
 
Регистрация: 17.06.2014
Сообщения: 27
Версия Delphi: Delphi 7, XE6
Репутация: 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  
Старый 16.02.2015, 20:58
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

https://www.dropbox.com/s/u01qb3klu6...Image.rar?dl=0
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:24.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter