Alignment and sizing issues

VCL TMS VCL UI Pack
1

Hi I have just updated a project that did work fin up to XE7 and TMS  v8.0.2.0.

I have a grid that get;s it alignment option from a preference set by

procedure TForm1.AdvStringGrid1GetAlignment(Sender: TObject; ARow,
  ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
  if (ARow > (sender as TAdvStringGrid).FixedRows - 1)
    and (ACol > (sender as TAdvStringGrid).FixedCols - 1) then
    HAlign := taCenter; {normally a variable here)
end;

I then add text - sometimes I use a <br> to make it wrap the text better - it then ignores the alignment ad puts it left.

the second thing that has gone funny is where I put a image in using

AdvStringGrid1.CreateFilePicture(1, 2, true, noStretch, 20, AdvGrid.haLeft,  AdvGrid.vaTop).filename := Test;

Now
  AdvStringGrid1.AutoSizeCells(True,5,5);
Dose not work

but
  AdvStringGrid1.AutoSizeColumns(True,5);
  AdvStringGrid1.AutoSizeRows(True,5);
does.

Any ideas?

Richard










2
  1. Alignment in HTML formatted cells is controlled by the <P align="..."> tag. 
    2) We have fixed the issue with AutoSizeCells(). Next update will address this.