Poslední příspěvky1
Obecné / Nacteni TImageListu v run-time, aby mely .PNG obrazky pruhledne pozadi
« Poslední příspěvek od pf1957 kdy Dnes v 17:36:35 »Ahoj vsichni,
mam tu podezrele chovani, tak se zeptam, jestli nekdo nevi, co je za problem:
1. Popis problemu
a. Kolega v ramci inovace aplikace nahradil pasky glyfu puvodne v .BMP za pasky .PNG
b. Graficka udelala nove pasky s pruhlednym pozadim - nacteno napr. do GIMPu - skutecne jsou pruhledne
c. pasky mame jako resource v .DLL napr.
e. Vysledkem bylo, ze na nekterych pocitacich to bylo pruhledne spravne, na jinych vcetne mem jsem mel pozadi cerne
2. Reseni na prasaka
a. Kdyz jsem se dival, jak jsme to resivali v dobe, kdy zadne pruhledne pozadi u obrazku nebyvalo, tak jsme pouzivali AddMasked
b. Nahradil jsem tedy volani iml.Add(BMP, nil) volanim
c. Vysledkekm bylo, ze nektere image listy se zacaly zobrazovat s pruhlednym pozadim, jine meli pozadi nadale cerne
d. Zjistil jsem, ze u tech, ktere se vykresluji spravne je spravne i hodnota BMP.TansparentColor, u tech ostatnich jsou tam hausnumera, pricemz barva leveho dolniho pixlu je v kazdem pasku transparentni.
e. Nakonec jsem tam dal na prasaka natvrdo cernou a zda se, ze to funguje na vsech pocitacih
Nevi nekdo, co delame spatne nebo co muze byt ve hre a jak to nejakym standardnim zpusobem napravit?
Je to v Delphi 10.2 Tokio v 32-bit rezimu (vcetne radkoveho command line prekladace).
Ď, pf
mam tu podezrele chovani, tak se zeptam, jestli nekdo nevi, co je za problem:
1. Popis problemu
a. Kolega v ramci inovace aplikace nahradil pasky glyfu puvodne v .BMP za pasky .PNG
b. Graficka udelala nove pasky s pruhlednym pozadim - nacteno napr. do GIMPu - skutecne jsou pruhledne
c. pasky mame jako resource v .DLL napr.
Kód: [Vybrat]
MAIN32 RCDATA "DATA\MAIN32.png"d. Co jsem se dival, tak kolega pouzil pro nacteni techniku doporucovanou bezne na webuKód: Delphi [Vybrat]
- PNG := TPngImage.Create;
- try
- png.LoadFromResourceNAme(hRes, ResName);
- BMP := TBitmap.Create;
- try
- BMP.Assign(PNG);
- IML.Clear;
- IML.Height := BMP.Height;
- if Count = 0 then
- IML.Width := BMP.Height
- else
- IML.Width := BMP.Width div Count;
- iml.DrawingStyle := dsTransparent;
- iml.ColorDepth := cd32Bit ;
- iml.Add(BMP, nil);
- finally
- BMP.Free;
- end;
- finally
- PNG.Free;
- end;
2. Reseni na prasaka
a. Kdyz jsem se dival, jak jsme to resivali v dobe, kdy zadne pruhledne pozadi u obrazku nebyvalo, tak jsme pouzivali AddMasked
b. Nahradil jsem tedy volani iml.Add(BMP, nil) volanim
Kód: Delphi [Vybrat]
- iml.AddMasked(BMP, BMP.TransparentColor)
d. Zjistil jsem, ze u tech, ktere se vykresluji spravne je spravne i hodnota BMP.TansparentColor, u tech ostatnich jsou tam hausnumera, pricemz barva leveho dolniho pixlu je v kazdem pasku transparentni.
e. Nakonec jsem tam dal na prasaka natvrdo cernou a zda se, ze to funguje na vsech pocitacih
Kód: Delphi [Vybrat]
- iml.AddMasked(BMP, 0)
Nevi nekdo, co delame spatne nebo co muze byt ve hre a jak to nejakym standardnim zpusobem napravit?
Je to v Delphi 10.2 Tokio v 32-bit rezimu (vcetne radkoveho command line prekladace).
Ď, pf
Polepším se pro příště. 
Sjednoceni nazvu metod do jednoho jazyka v knihovne vsak zpusobi destabilizaci ABI za coz bych(om) nejspis sklidil(i) kritiku.