PngComponent - Компоненты Delphi

Volt · 29.01.2009, 15:54

Подскажите как загрузить картинку из компонента PngImageCollection1 в Image.

Kotofff · 29.01.2009, 16:05

Сам компонент дай ...

Volt · 29.01.2009, 16:14

Вот сам компонент

Kotofff · 29.01.2009, 17:44

Примерно что-то так ....
Но прозрачности нету у Image - поэтому результат просто ужасен ...

Код:

......
......
......
var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.BtnClick(Sender: TObject);
begin
  Image1.Picture.Bitmap.Assign(IC.Items[0].PngImage);
end;

IC - это TPngImageCollection на форме лежит ...

P.S.
советую AlphaControls - там полная поддержка PNG и Image есть и ImageList

Volt · 29.01.2009, 18:25

Спасибо Kotofff. Прозрачность есть. Через пару часов проб и ошибок у самого получилось Image1.Picture.Assign(PngImageColle ction1.Items[0].PngImage);

Kotofff · 30.01.2009, 07:28

Да мне-то за что ...
Ты ведь сам все сделал, а я в спешке помочь не узрил этого ...

Код:

Image1.Picture.Assign(PngImageCollection1.Items[0].PngImage);

29.01.2009, 15:54	#1
Volt Форумчанин Регистрация: 07.12.2008 Сообщений: 244	PngComponent Подскажите как загрузить картинку из компонента PngImageCollection1 в Image. \|̲̅̅●̲̅̅\|̲̅̅=̲̅̅\|̲̅̅●̲̅̅]

29.01.2009, 16:05	#2
Kotofff Участник клуба Регистрация: 11.01.2009 Сообщений: 1,917	Сам компонент дай ... "Заряженному танку в дуло не смотрят" @Dekmer in WoT

29.01.2009, 17:44	#4
Kotofff Участник клуба Регистрация: 11.01.2009 Сообщений: 1,917	Примерно что-то так .... Но прозрачности нету у Image - поэтому результат просто ужасен ... Код: `...... ...... ...... var Form1: TForm1; implementation {$R .dfm} procedure TForm1.BtnClick(Sender: TObject); begin Image1.Picture.Bitmap.Assign(IC.Items[0].PngImage); end;` IC - это TPngImageCollection на форме лежит ... P.S. советую AlphaControls - там полная поддержка PNG и Image есть и ImageList "Заряженному танку в дуло не смотрят" @Dekmer in WoT* Последний раз редактировалось Kotofff; 29.01.2009 в 17:54. Причина: Так аккуратнее будет ...

29.01.2009, 18:25	#5
Volt Форумчанин Регистрация: 07.12.2008 Сообщений: 244	Спасибо Kotofff. Прозрачность есть. Через пару часов проб и ошибок у самого получилось Image1.Picture.Assign(PngImageColle ction1.Items[0].PngImage); \|̲̅̅●̲̅̅\|̲̅̅=̲̅̅\|̲̅̅●̲̅̅]

30.01.2009, 07:28	#6
Kotofff Участник клуба Регистрация: 11.01.2009 Сообщений: 1,917	Да мне-то за что ... Ты ведь сам все сделал, а я в спешке помочь не узрил этого ... Код: `Image1.Picture.Assign(PngImageCollection1.Items[0].PngImage);` "Заряженному танку в дуло не смотрят" @Dekmer in WoT