FMX - list box z obrazkami ?

[dee]

Zdar,

Este jadna hadam uz posledna otazocka k FMX

Potreboval by som v FireMonkey aplikácii ListBox prípadne iný komponent ktory by umoznoval nieco take



teda ze v ramci itemu mame obrazok a text. Konkretne by slo o to ze mam DataSet (image a varchar + nejake to ID)ktory by som chcel takto nabindovat na listbox. Ten dvojriadkovy text (ako vo vzore) nieje potrebny ... v podstate v mojom pripade dataset obsahuje len obrazok a popis.

Za odpovede dakujem 

[martinnr]

v podpise vidim XE5, ale narychlo v najnovsom Berline 10.1 trebars:
var
  Item: TListBoxItem;
begin
  // create custom item
  Item := TListBoxItem.Create(nil);
  Item.Parent := ListBox1;
  Item.StyleLookup := 'CustomItem';
  Item.Text := 'item ' + IntToStr(Item.Index); // set filename
  if Odd(Item.Index) then
    Item.ItemData.Bitmap := Image1.Bitmap // set thumbnail
  else
    Item.ItemData.Bitmap := Image2.Bitmap; // set thumbnail
  Item.StylesData['resolution'] := '1024x768 px'; // set size
  Item.StylesData['depth'] := '32 bit';
  Item.StylesData['visible'] := true; // set Checkbox value
  Item.StylesData['visible.OnChange'] := TValue.From<TNotifyEvent>(DoVisibleChange); // set OnChange value
  Item.StylesData['info.OnClick'] := TValue.From<TNotifyEvent>(DoInfoClick); // set OnClick value
end;

je to priamo demo v tom delphi - Samples\Object Pascal\Multi-Device Samples\User Interface\CustomListBox\

[dee]

ano, to riesi cca tu prvu cast otazky teda ako vytvorit taky list box item
nakoniec som o tom nasiel aj tento clanok
http://stackoverflow.com/questions/25349858/custom-tlistbox-style-firemonkey


Ale kedze ten ListBox item vytvaram az za behu programu tak neviem vyuzit Live Binding na namapovanie BLOBu z obrazkom z DB.

[dee]

Teoreticky by sa mal dat obrazok priradit k ListBox item cez
ListBoxItem.ItemData.Bitmap....
no skusil som k jednej iteme priradit obrazok priamo natvrdo cez obiect inspector ...no napriek tomu sa v aplikacii nezobrazuje ?

dalsia zrada v firemonkey ?   

[martinnr]

pre ten Item musis nastavit prislusny StyleLookup. Nie vsetky zobrazia ten bitmap.
Pre teba asi najlepsie "listboxitemnodetail", ale skus vsetky pripadne.

[dee]

Dakujem ! - Vyriešené  ten "listboxitemnodetail" je OK

[dee]

To dynamicke vytvaranie ListBox Itemov by bolo teda vyiesene, zobrazenie obrazku tiez no mam este problem ako zabezpecit dotiahnutie obrazku z databazy



.asVariant a podobne nepomaha a .AsImage neexistuje 

[Stanislav Hruška]

Do kelu, dávaj sem priamo kód a nie je nejaké snímky
A čo takéto pretypovanie TBitmap(FDSP1.FieldByname('img').Value)

[mjseven]

Předpokládám, že obrázky máš v db uložený v binárním podobě.
Pak je potřeba obsah toho pole uložit do streamu a z něj teprve do bitmapy.

Mrkni na tohle: http://stackoverflow.com/questions/27207049/loading-a-blob-field-into-a-listbox

[dee]

dik, zaujimave riesenie


 nakoniec som vypatral este jedno, priamo funkcia na prevod 

[dee]

Pokusam sa o opacny postup teda poslat obrázok (blob) ako parameter pre FDStoredProc, no tu to zjavne take jednoduche nieje.
Na zvyraznenom riadku to skonci na AccessViolation



Co robim blbo ? 

[dee]

dokonca nepomaha ani toto 

[Radek Červinka]

Pokusam sa o opacny postup teda poslat obrázok (blob) ako parameter pre FDStoredProc, no tu to zjavne take jednoduche nieje.
Na zvyraznenom riadku to skonci na AccessViolation


Co robim blbo ? 

a) postujes sem obrazky misto pouzit tagu code (ber to jako napomenuti)
b) http://forum.delphi.cz/index.php/topic,13206.msg84323.html#msg84323

[dee]

a. skusim sa polepsit 
b. Dik ale bohuzial to asi neviem spravne pouzit. 

Kód: Delphi [Vybrat]

1.   (FDStoredProc1.ParamByName('@img1') as TBlobField).LoadFromStream(ms);
2. //[dcc32 Error] unewoperation.pas(103): E2010 Incompatible types: 'TFDParam' and 'TBlobField'
3.  
4.   (FDStoredProc1.ParamByName('@img1').value as TBlobField).LoadFromStream(ms);
5. //[dcc32 Error] unewoperation.pas(103): E2015 Operator not applicable to this operand type
6.  
7.