ListBox ItemData.Bitmap zrada v XE10.1 Berlin

[dee]

Zdar

Testujem trial XE 10.1 Berlin a bohuzial mi u Firemonkey aplikacie prestala fungovat vec ktora v XE7 ide


Mam ListBox ktoremu vytvaram priamo za behu itemy z obrazkom

Kód: Delphi [Vybrat]

1. var
2.   Item: TListBoxItem;
3.  
4. begin
5.       Item := TListBoxItem.Create(nil);
6.       Item.Parent := ListBoxPol;
7.       Item.StyleLookup := 'listboxitemnodetail';
8.       Item.Height:=50;
9.       Item.WordWrap:=true;
10.       Item.Text := FDQuery1.FieldByName('tovar').AsString;
11.       LoadBitmapFromBlob(Item.ItemData.Bitmap , TBlobField(FDQuery1.FieldByName('logo')));
12.  

Kod v XE7 fungoval bez najmensej chyby, a problem nieje ani v tych obrazkoch z db.
Ak si v tom ListBoxe vytvorím Item priamo v IDE tak to fungovat bude

Kód: Delphi [Vybrat]

1.       LoadBitmapFromBlob(MojaVytvorenaItem.ItemData.Bitmap , TBlobField(FDQuery1.FieldByName('logo')));
2.  

toto funguje ako ma !

Otazka je kde je zrada ? Predpokladam ze tej Item este treba nastavit nejaky parameter

[pf1957]

Otazka je kde je zrada ?

Tvrzeni od programatora, ze mu jeho kod nefunguje, by se dal povazovat za projev debility... 

Lepe problem popsat neumis?
A Berlin 10.1 nema debugger?
A instanci ItemData sis vytvoril, kdyz po ni hrabes?

[dee]

a co tam mam akoze debugovat ?

obrazok sa z db nacita, dokonca sa priradi aj do tej dynamicky generovanej item.itemdata.bitmap, item sa zobrazi ale bez obrazku len text !

nehadze to ziadnu exception, nic, vsetko zbehne ...

ak si vytvorim item sam v IDEcku a nastavim jej toto v Object Inspectore Item.StyleLookup := 'listboxitemnodetail'  tak sa zobrazi aj s tym obrazkom.

najvacsia zrada je ze ta aplikacia po skompilovani v XE7 funguje ako ma.

Predpokladam ze pri tej dynamicky generovanej item treba okrem StyleLookup este nieco nastavit , otazka je ze co

[Stanislav Hruška]

Ja by som sa pozrel na

A instanci ItemData sis vytvoril, kdyz po ni hrabes?

pf1957 nepíše nezmysly.

[dee]

ItemData by sa mala vytvorit pri Create toho itemu ?
Ved to by potom neslo ani v XE7, nemyslim ze by tam robili az take zasadne zmeny
Naviac by pokus o priradenie obrazku do toho bitmapu skoncil Access Violation ak by ItemData neexistovala

ale aj tak nepomaha
Item.Itemdata.Create(Item);

[pf1957]

a co tam mam akoze debugovat ?
Predpokladam ze pri tej dynamicky generovanej item treba okrem StyleLookup este nieco nastavit , otazka je ze co

No vidis, ze to umis lip pospat, akorat me uz to nebavi a asi to prestanu sledovat.
Co debugovat? Treba se podivat, v cem se lisi ta polozka v XE7 a XE10.1...

[pf1957]

nemyslim ze by tam robili az take zasadne zmeny

U vas se nerika, ze "myslet znamena hovno vedet"? Od toho je debugger a ev. zdrojovky

[dee]

bohuzial sa mi na to nedari prist, vyzera to rovnako.
inak problem je aj pod androidom aj pod win

[< z >]

ListView.Repaint taky nepomaha?

[Daniel_Andrascik]

FMX sa medzi uvolnovanymi verziami studia dost vyvija. Ako povedal pf, musis hladat rozdiel v praci s tym ListBoxom. Ale kedze mas trial, tak nemas zdrojak a nevies si to odkrokovat. Ale ked ti to vytvorene v designtime cez IDE ide a v runtime nie, tak proste v tych design a runtime instanciach budes asi mat rozdiel. Patraj po tom...

[dee]

ListView.Repaint taky nepomaha?

bohuzial nie   

[pf1957]

bohuzial sa mi na to nedari prist, vyzera to rovnako.

Ja pro takove ucely mam napsany trace dump objektu do logu, takze bych si to zalogoval v obou verzich Delphi a ty logy porovnal nejaky vyspelym toolem, treba Araxis Mergem

[dee]

bohuzial sa mi na to nedari prist, vyzera to rovnako.

Ja pro takove ucely mam napsany trace dump objektu do logu, takze bych si to zalogoval v obou verzich Delphi a ty logy porovnal nejaky vyspelym toolem, treba Araxis Mergem

no jo len som dufal ze tu bude niekto kto to na XE10 pouziva a bude sfleku vediet kde je problem hlavne pokial ide o taku trivialnu vec 

[dee]

dokonca nepomaha ani

Kód: Delphi [Vybrat]

1. Item.ApplyStyleLookup;

[JaroB]

A jak vypadá LoadBitmapFromBlob() ? Protože ji nějak ve zdrojácích nemohu najít...

[dee]

A jak vypadá LoadBitmapFromBlob() ? Protože ji nějak ve zdrojácích nemohu najít...

Kód: Delphi [Vybrat]

1. Procedure LoadBitmapFromBlob(Bitmap: TBitmap; Blob: TBlobField);
2. var
3.   ms, ms2: TMemoryStream;
4. begin
5.   ms := TMemoryStream.Create;
6.   try
7.     Blob.SaveToStream(ms);
8.     ms.Position := 0;
9.     Bitmap.LoadFromStream(ms);
10.   finally
11.     ms.Free;
12.   end;
13. end;
14.  

Ale myslim ze to s tym nesuvisi, lebo ak chcem obrazok natiahnut napriklad do TImage ktory si vytvorim za behu tak to funguje normalne

[JaroB]

Pokud  se to v XE7 ukládá dobře pro

Kód: Delphi [Vybrat]

1. LoadBitmapFromBlob(Item.ItemData.Bitmap , TBlobField(FDQuery1.FieldByName('logo')));

a Item <> nil a Item.ItemData <> nil  tak zbývá jen Item.ItemData.Bitmap, což je property (ale zírám so zdrojáku Seattle, jiné D momentálně teď nemám k dispozici) a to prostě jen nabírá obrázek, viz

Kód: Delphi [Vybrat]

1. FItem.FBitmap.Assign(Bitmap);

Pokud nemáš zdroják, tak to jedině zkusit příkaz rozložit, bitmapu načíst do extra proměnné a přiřadit vně LoadBitmapFromBlob() a to všechno jde určitě odkrokovat.

Buď je obrázek z DB datově špatně, anebo je konstrukce špatně...

[dee]

No ale nemas pravdu lebo:

Kód: Delphi [Vybrat]

1. LoadBitmapFromBlob(Item.ItemData.Bitmap , TBlobField(FDQuery1.FieldByName('logo')));  // moj povodny riadok
2. //doplnim toto
3. Image1.Bitmap:= Item.ItemData.Bitmap;  // do formu som vlozil obycajny TImage a priradim mu Bitmap z Item.Data
4.  

Vysledok:  V tej ListBox Item sa  obrazok nezobrazi ale v Image1 Ano
Teda ten Bitmap nieje nil, je nacitany spravne atd ...

[JaroB]

Takže jen chyba vykreslení?
A co StyleLookup, má jeho změna vliv na vykreslení listboxu? Resp. kde je definován 'listboxitemnodetail' ?

[dee]

Asi ano, no nech tam dam akykolvek StyleLookup vysledok je rovnaky. Ak si tu item vytovrim v IDE a priradim jej ten StyleLookup rucne v object inspectore tak to zrazu funguje.

[JaroB]

Style se přiřadí před vložení bitmapy nebo po?
Ale v Seattle jsem nenašel definici 'listboxitemnodetail'

[dee]

Style se přiřadí před vložení bitmapy nebo po?
Ale v Seattle jsem nenašel definici 'listboxitemnodetail'

Vyriesene ten StyleLookup treba nastavit po nacitani bitmapy !
Zaujimave ze v XE7 to nieje problem ... pre taketo veci sa ma na to clovek chut vykaslat a ist kopat kanaly 
Na toto je aj debugger kratky

[pf1957]

Ale v Seattle jsem nenašel definici 'listboxitemnodetail'

Ono je to jmeno stylu, ktery je v souboru *.style a ja takove styly v adresari Redist/styles/fmx v XE10.0 mam, ale jsou pro Windows...

[JaroB]

No, má chyba hledal jsem kde je to jméno explicitně použito