RS
Size: a a a
RS
RS
VA
AK
VA
SB
SB
VA
AK
VA
AK
VA
SB
Н
TMasonryCell = recordРаботает. Я все таки не понял тонкости...
private
FItem: TMasonryItem;
FRangeX: integer;
FRangeY: integer;
FFRangeX: integer;
FFRangeY: integer;
FisBusy: boolean;
public
constructor SetItem(AItem: TMasonryItem);
property RangeX: integer read FRangeX write FRangeX;
property RangeY: integer read FRangeY write FRangeY;
property IsBusy: boolean read FisBusy write FisBusy;
end;
SB
VA
SB
VA
SB
SB