Вниз
Скачать: CL | DM;

Stream не хочет сохранять полноцветные значки   Найти похожие ветки 

← →
msoftware ©   (2003-03-09 05:37) [0]

В ниже преведенном коде, значок из TImageList транслируется в TImage, но не в полном цвете, а только в 16 цветов, Почему????

var MStream: TMemoryStream;
Icon: TIcon;
begin
Icon:=TIcon.Create;
try
MStream:=TMemoryStream.Create;
try
Imagelist1.GetIcon(0,Icon);
Icon.SaveToStream(MStream);
MStream.Position:=0;
Image1.Picture.Icon.LoadFromStream(MStream);
finally
MStream.Free;
end;
finally
Icon.Free;
end;
end;


← →
msoftware ©   (2003-03-10 02:57) [1]

помогите пожалуйста


← →
msoftware ©   (2003-03-10 04:56) [2]

ПЫМЫХИТЕЕЕЕ!!!!


← →
ЮЮ ©   (2003-03-11 07:58) [3]

Note: TIcon can be used to display the value of a multi-resolution (>16 color) icon. However, it can not support the creation of multi-resolution icons, nor the resizing of the image after it is loaded from a file or stream.


← →
ЮЮ ©   (2003-03-11 08:21) [4]

И дело здесь не в Stream. при TIcon.SaveToFile тоже получается 16-цветная иконка. Сл-но дело в реализации методов TIcon.SaveToXXX


← →
msoftware ©   (2003-03-11 08:50) [5]

Дак чтож теперь, безвыходное положение что-ли???


← →
msoftware ©   (2003-03-11 09:51) [6]

ПЫМЫХИТЕЕЕЕ!!!!


← →
hooch ©   (2003-03-11 10:00) [7]

ImageList.GetBitmap


← →
_landy   (2003-03-11 10:01) [8]

Попробуй выдергивать иконку в TBitmap или в TImage и сохранять так. Битмапы в потоке сохраняются полноцветные.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c
14-64366
Evgen_Iam
2003-03-04 11:58
2003.03.20
Как добавить полосу прокрутки в окошко Help?


1-64202
Intell
2003-03-08 15:27
2003.03.20
Как заставить выпасть меню FilterComboBox...?


14-64305
Officeman
2003-03-03 21:10
2003.03.20
СРОЧНО! НУЖНО ВОССТАНОВИТЬ РАНЕЕ УДАЛЕННЫЙ ФАЙЛЫ


3-63959
galexis
2003-02-27 13:17
2003.03.20
Как создать базу данных в коде


3-64018
digester
2003-03-01 12:56
2003.03.20
Проблема с запуском моей проги с DB paradox на другой машине




   Наверх