I installed the latest update an i have a problem compiling.
There are a few line in the units that don't compile, but I can't understand why they wouldn't. The lines that don't compile are put in comments. When I create a new program with a grid it compiles just fine.
One of the problems is it cannot find (Cell as TTMSFMXRotatedTextGridCell).Angle. I can open the class just fine and find theproperty so it is only a problem when compiling...
procedure TTMSFMXGridData.DoGetCellProperties(ACol,ARow: Integer; Cell: TFMXObject);
var
cp: TCellProperty;
ch: TNotifyEvent;
realc,realr: integer;
allow: boolean;
gn: String;
begin
ch := nil;
realc := DisplToRealColumn(ACol);
realr := DisplToRealRow(ARow);
if (Cell is TTMSFMXRotatedTextGridCell) then
begin
cp := CellProps[realc,realr];
// if Assigned(cp) and (Cell is TTMSFMXRotatedTextGridCell) then
// (Cell as TTMSFMXRotatedTextGridCell).Angle := cp.Angle;
end;
procedure TTMSFMXGrid.SelectCell(Cell: TCell; Shift: TShiftState;
MouseDragging: Boolean);
var
b: Boolean;
begin
if ColumnDescList.Count = 0 then
begin
inherited;
NotifyObserver;
Exit;
end;
// BlockSelectEventHandler := True;
inherited;
// BlockSelectEventHandler := False;
NotifyObserver;
b := True;
if Assigned(OnSelectCell) then
OnSelectCell(Self, Cell.Col, Cell.Row, b);
// if b and Assigned(OnSelectedCell) then
// OnSelectedCell(Self, Cell.Col, Cell.Row);
end;