paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 07:00:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: add database connection components as default types to replace

Browse Source 
git-svn-id: trunk@37271 -
This commit is contained in:
juha 2012-05-13 17:33:22 +00:00
parent 141260a23a
commit 426c1d5525
1 changed files with 33 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
converter/convertsettings.pas
View File

@ -435,15 +435,43 @@ begin
MapReplacement('TPNGObject', 'TPortableNetworkGraphic'); MapReplacement('TPNGObject', 'TPortableNetworkGraphic');
MapReplacement('TTabbedNotebook', 'TPageControl'); MapReplacement('TTabbedNotebook', 'TPageControl');
MapReplacement('TTabPage', 'ts$autoinc: TTabSheet'); MapReplacement('TTabPage', 'ts$autoinc: TTabSheet');
// Database components
MapReplacement('TSQLConnection', 'TSQLConnector');
MapReplacement('TSQLClientDataSet', 'TSQLConnector');
MapReplacement('TSQLDataset', 'TSQLQuery');
MapReplacement('TSQLTable', 'TSQLQuery');
MapReplacement('TSQLStoredProc', 'TSQLQuery');
// BDE
MapReplacement('TDatabase', 'TSQLConnector');
MapReplacement('TBDEClientDataSet', 'TSQLConnector');
MapReplacement('TTable', 'TSQLQuery');
MapReplacement('TQuery', 'TSQLQuery'); MapReplacement('TQuery', 'TSQLQuery');
MapReplacement('TUpdateSQL', 'TSQLQuery');
MapReplacement('TStoredProc', 'TSQLQuery');
// ADO
MapReplacement('TADOConnection', 'TSQLConnector');
MapReplacement('TADODataSet', 'TSQLQuery');
MapReplacement('TADOTable', 'TSQLQuery');
MapReplacement('TADOQuery', 'TSQLQuery'); MapReplacement('TADOQuery', 'TSQLQuery');
// DevExpress components. MapReplacement('TADOCommand', 'TSQLQuery');
MapReplacement('TADOStoredProc', 'TSQLQuery');
// Interbase
MapReplacement('TIBDatabase', 'TIBConnection');
MapReplacement('TIBClientDataSet', 'TIBConnection');
MapReplacement('TIBDataSet', 'TSQLQuery');
MapReplacement('TIBTable', 'TSQLQuery');
MapReplacement('TIBQuery', 'TSQLQuery');
MapReplacement('TIBUpdateSQL', 'TSQLQuery');
MapReplacement('TIBSQL', 'TSQLQuery');
MapReplacement('TIBStoredProc', 'TSQLQuery');
MapReplacement('TIBTransaction', 'TSQLTransaction');
// DevExpress components
MapReplacement('TCxEdit', 'TEdit'); MapReplacement('TCxEdit', 'TEdit');
// Tnt* third party components. // Tnt* third party components
MapReplacement('^TTnt(.+)LX$', 'T$1'); MapReplacement('^TTnt(.+)LX$', 'T$1');
MapReplacement('^TTnt(.+[^L][^X])$','T$1'); MapReplacement('^TTnt(.+[^L][^X])$','T$1');
// Coordinate offsets for some visual containers. // Coordinate offsets for some visual containers
with fCoordOffsets do begin with fCoordOffsets do begin
AddVisualOffset('TGroupBox' , 14,2); AddVisualOffset('TGroupBox' , 14,2);
AddVisualOffset('TPanel', 2,2); AddVisualOffset('TPanel', 2,2);
@ -451,7 +479,7 @@ begin
AddVisualOffset('CheckGroup', 14,2); AddVisualOffset('CheckGroup', 14,2);
end; end;
// Map Delphi function names to FCL/LCL functions. // Map Delphi function names to FCL/LCL functions
with fReplaceFuncs do begin with fReplaceFuncs do begin
// File name encoding. // File name encoding.
Categ:='UTF8Names'; Categ:='UTF8Names';
@ -477,7 +505,7 @@ begin
AddFunc(Categ,'CreateDir', 'CreateDirUTF8($1)', 'LCL','FileUtil'); AddFunc(Categ,'CreateDir', 'CreateDirUTF8($1)', 'LCL','FileUtil');
AddFunc(Categ,'RemoveDir', 'RemoveDirUTF8($1)', 'LCL','FileUtil'); AddFunc(Categ,'RemoveDir', 'RemoveDirUTF8($1)', 'LCL','FileUtil');
AddFunc(Categ,'ForceDirectories', 'ForceDirectoriesUTF8($1)', 'LCL','FileUtil'); AddFunc(Categ,'ForceDirectories', 'ForceDirectoriesUTF8($1)', 'LCL','FileUtil');
// File functions using a handle. // File functions using a handle
Categ:='FileHandle'; Categ:='FileHandle';
AddDefaultCategory(Categ); AddDefaultCategory(Categ);
AddFunc(Categ, 'CreateFile', 'FileCreate($1)','','SysUtils'); AddFunc(Categ, 'CreateFile', 'FileCreate($1)','','SysUtils');