TableView: change the height of items at creation

FMX TMS FMX UI Pack
1

Hi,

I have a tableview where I want to add the first item with a larger height (e.g. 150) as I want to display a larger image at the left side next to regular caption text. All other item which are added afterwards should be regular size.

Can anyone give me an idea how I can achieve this? If it is a style thing: I am rather new to it and would need somewhat detailed guidance.

Thanks in advance
Gernot

2

Hi, 


You can change the default height of an item through the OnItemCustomize event:

procedure TForm1.TMSFMXTableView1ItemCustomize(Sender: TObject;
  AItem: TTMSFMXTableViewItem; AItemShape: TTMSFMXTableViewItemShape;
  AItemControlShape: TControl);
begin
  AItemShape.Height := 150;
end;

Kind Regards, 
Pieter

3

Hi,

and thanks for the quick reply. In my code I do the following

//this is the one where I want the larger image
item := tv.Items.add;
item.bitmap.Assign(MyImage);  <------------ where should I call the customize event?
item.Caption := ' My Image';
//now I want the regular items added
item := tv.Items.add;
item. Caption := 'ABCD';

and so on.

Where do I need to put the onCustomize call?

Thanks in advance
Gernot

4

The OnCustomize event is automatically called, its an event that you can implement when selecting the TMSFMXTableView and navigating to events in the object inspector. Each item from the items collection is passed as a parameter, so the item with the bitmap can be identified with the index or with a tag property as explained in the sample below:


procedure TForm47.FormCreate(Sender: TObject);
begin
  TMSFMXTableView1
  item := tv.Items.add;
  item.bitmap.Assign(MyImage);
  item.Caption := ' My Image';
  item.tag := 1;
  //now I want the regular items added
  item := tv.Items.add;
  item. Caption := 'ABCD';
end;

procedure TForm47.TMSFMXTableView1ItemCustomize(Sender: TObject;
  AItem: TTMSFMXTableViewItem; AItemShape: TTMSFMXTableViewItemShape;
  AItemControlShape: TControl);
begin
  if AItem.Tag = 1 then
  begin
    AItemShape.Height := 150;
    //access bitmap shape
    AItemShape.ShapeLeftRectangleImage
  end;
end;

You can also directly access the image shape where the bitmap will be assigned to.

Kind Regards, 
Pieter

5

Nearly there,

I use
procedure TfrmMain.tvMediaDetailItemCustomize(Sender: TObject;
  AItem: TTMSFMXTableViewItem; AItemShape: TTMSFMXTableViewItemShape;
  AItemControlShape: TControl);
begin
if AItem.DataString = 'BILD' then
  begin
    AItem.Shape.Height := 110;
    AItem.ShapeLeftRectangleImage.Bitmap := bit.Bitmap;
  end;
end;

but get an access violation after assigning the bitmap. bit is defined as a TTMSFMXBitmap

Kind regards

6

please verify if ShapeLeftRectangleImage is not nil and verify if you have enabled ioLeftRectangle in TMSFMXTableView1.ItemOptions


Kind Regards, 
Pieter
7

Thanks Pieter,

I had checked for nil but forgot the option

Kind regards
gernot

8

Pieter,

is there any way to get the image larger. I always get a rather small image regardless of the height of the item

Kind regards
Gernot

9

The ShapeLeftRectangleImage is aligned client inside the ShapeLeftRectangle, which is aligned mostLeft. It only automatically changes the height based on the item height, so if you wish to have a larger image, you can simply change the width with the following code:


  AItem.ShapeLeftRectangle.Width := 

The Image itself is drawn with aspect ratio by default.

Kind Regards, 
Pieter

Pieter Scheldeman2014-08-12 10:09:21
10

Got it: I need to set

AItem.ShapeLeftRectangle.Width

to be wider and get a larger image

Thanks for your patience
Gernot