Куда делась функция в дизайнере IsBandsSelect
Устал уже каждый раз ее снова вносить
function TfrxDesignerForm.IsBandsSelect(var Value: TfrxComponent): Boolean;
var
i: Integer;
begin
Result := False;
Value := nil;
for i := 0 to SelectedObjects.Count - 1 do
if TObject(SelectedObjects) is TfrxBand then
begin
Value := SelectedObjects;
Result := True;
break;
end;
end;
function TfrxDesignerForm.IsBandsSelect(var Value: TfrxComponent): Boolean;
var
i: Integer;
begin
Result := False;
Value := nil;
for i := 0 to SelectedObjects.Count - 1 do
if TObject(SelectedObjects) is TfrxBand then
begin
Value := SelectedObjects;
Result := True;
break;
end;
end;
Комментарии