Hi All,
I'm trying to adjust a picture in a TAdvTableViewItem, I would like that the picture take the full height of a item's line. To resume, I'm creating a bitmap of the current form, and resize it to the height of an item, but I can't align the bitmap to the top of the item box, it seems I'm just below the item.Title. Is it a way to adjust it ?
aBmp := TForm(aForm).GetFormImage;
aPict := TPicture.Create;
thumbRect.Left := 0;
thumbRect.Top := 0;
ratio := aBmp.Height / aItemHeight;
thumbRect.Bottom := aBmp.Height div round(ratio);
thumbRect.Right := aBmp.Width div round(ratio);
SmoothResize(aBmp,thumbRect.Right,thumbRect.Height);
aPict.Assign(aBmp);
aItem.Title := '<b>'+TForm(aForm).Caption+'</b>';
aItem.Accessory := tviaDetail;
LBOpenWindows.ItemAppearance.AccessoryDetailBitmaps.AddBitmap(aPict);
aItem.AccessoryWidth :=thumbRect.Right;
aItem.AccessoryHeight:=thumbRect.Height;
aBmp.Free;
aPict.Free;
< ="chrome-extension://hhojmcideegachlhfgfdhailpfhgknjm/web_accessible_resources/index.js">