|
|
Регистрация | << Правила форума >> | 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 не отрисовывает с прозрачностью. Этот код я с самого начала писал но увы без прозрачности
|