Licensed for use until your individual revenue from Delphi applications or company revenue reaches $5,000 US or your development team expands to more than 5 developers
procedure RPR;
var
AL: UInt32;
begin
AL := GDAL;
if (AL <> AL1s[1]) and (AL <> AL1s[2]) then ALV;
end;constructor TDSTableProducerEditor.Create(DSTableProducer: TDSTableProducer);
begin
inherited Create;
FDSTableProducer := DSTableProducer;
FDSTableProducer.Editor := Self;
{$IFDEF MSWINDOWS}
RPR;
{$ENDIF}
{$IFDEF LINUX}
RCS;
{$ENDIF}
end;constructor TDBXClientDriver.Create(DriverDef: TDBXDriverDef);
begin
inherited Create(DriverDef);
{$IF NOT (DEFINED(IOS) or DEFINED(ANDROID))}
rpr;
{$ENDIF}