RxFPC: Visual component for RxSortSQLDB

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2692 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-02-25 17:23:08 +00:00
parent aee597f739
commit a36e138253
4 changed files with 98 additions and 1 deletions

View File

@ -101,5 +101,5 @@ begin
end;
initialization
RegisterRxDBGridSortEngine(TSQLQuerySortEngine, TSQLQuery);
RegisterRxDBGridSortEngine(TSQLQuerySortEngine, 'TSQLQuery');
end.

View File

@ -0,0 +1,44 @@
<?xml version="1.0"?>
<CONFIG>
<Package Version="4">
<Name Value="rx_sort_sqldb"/>
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
</SearchPaths>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Version Major="1"/>
<Files Count="1">
<Item1>
<Filename Value="rxsortsqldb.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="RxSortSqlDB"/>
</Item1>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="3">
<Item1>
<PackageName Value="SQLDBLaz"/>
</Item1>
<Item2>
<PackageName Value="rxnew"/>
</Item2>
<Item3>
<PackageName Value="IDEIntf"/>
</Item3>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
</Package>
</CONFIG>

View File

@ -0,0 +1,21 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit rx_sort_sqldb;
interface
uses
RxSortSqlDB, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('RxSortSqlDB', @RxSortSqlDB.Register);
end;
initialization
RegisterPackage('rx_sort_sqldb', @Register);
end.

View File

@ -0,0 +1,32 @@
unit RxSortSqlDB;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs;
type
TRxSortSqlDB = class(TComponent)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
uses exsortsql;
procedure Register;
begin
RegisterComponents('RX DBAware',[TRxSortSqlDB]);
end;
end.