КС
procedure TSkUniFltGrid.DefineProperties(Filer: TFiler);
begin
end;
Size: a a a
КС
procedure TSkUniFltGrid.DefineProperties(Filer: TFiler);
begin
end;
ПП
КС
procedure TUniCustomDBGrid.DefineProperties(Filer: TFiler);
var
StoreIt : Boolean;
vState : TUniDBGridColumnsState;
O1, O2 : TComponent;
begin
if csSubComponent in ComponentStyle then
StoreIt := False
else
begin
if Filer.Ancestor = nil then
StoreIt := ColumnsCustomized
else
begin
// Note: To be fixed AV at design time when child is open and you change a property in a parent column
// Error reading TVCLDBColumn.Editor: Access violation at address 5017A312 in module 'rtl180.bpl'. Read of address 00000008.
// workaround: open parent only when working with columns
vState := Columns.State;
if vState <> TUniCustomDBGrid(Filer.Ancestor).Columns.State then
StoreIt := True
else
begin
O1 := Self.OwnerForm;
O2 := TUniCustomDBGrid(Filer.Ancestor);
if Assigned(O2) then O2 := TUniCustomDBGrid(O2).OwnerForm;
StoreIt := (vState = csCustomized) and
(not CollectionsEqual(Columns, TUniCustomDBGrid(Filer.Ancestor).Columns, O1, O2));
end;
end;
end;
Filer.DefineProperty('Columns', ReadColumns, WriteColumns, StoreIt);
end;
ПП
ПП
КС
ПП
IP
RS
RS
IP
RS
IP
RS
IP
RS
IP
RS