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

Converter: add used unit replacements for database units.

Browse Source 
git-svn-id: trunk@37272 -
This commit is contained in:
juha 2012-05-13 19:36:35 +00:00
parent 426c1d5525
commit 292f804353
2 changed files with 48 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
converter/convertsettings.lfm
View File

@ -12,12 +12,12 @@ object ConvertSettingsForm: TConvertSettingsForm
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.31' LCLVersion = '1.1'
object ProjectPathEdit: TLabeledEdit object ProjectPathEdit: TLabeledEdit
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideRight.Control = UnitReplaceDivider AnchorSideRight.Control = UnitReplaceDivider
Left = 9 Left = 9
Height = 19 Height = 20
Hint = 'Directory where project''s main file must be' Hint = 'Directory where project''s main file must be'
Top = 32 Top = 32
Width = 295 Width = 295
@ -27,14 +27,14 @@ object ConvertSettingsForm: TConvertSettingsForm
BorderStyle = bsNone BorderStyle = bsNone
Color = clBtnFace Color = clBtnFace
EditLabel.AnchorSideLeft.Control = ProjectPathEdit EditLabel.AnchorSideLeft.Control = ProjectPathEdit
EditLabel.AnchorSideTop.Control = ProjectPathEdit
EditLabel.AnchorSideTop.Side = asrCenter EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = ProjectPathEdit EditLabel.AnchorSideRight.Control = ProjectPathEdit
EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = ProjectPathEdit EditLabel.AnchorSideBottom.Control = ProjectPathEdit
EditLabel.Left = 9 EditLabel.Left = 9
EditLabel.Height = 16 EditLabel.Height = 15
EditLabel.Top = 9 EditLabel.Top = 10
EditLabel.Width = 81 EditLabel.Width = 295
EditLabel.Caption = 'Project Path:' EditLabel.Caption = 'Project Path:'
EditLabel.ParentColor = False EditLabel.ParentColor = False
LabelSpacing = 7 LabelSpacing = 7
@ -48,10 +48,10 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = TargetGroupBox AnchorSideTop.Control = TargetGroupBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 26 Height = 20
Hint = 'Creates a Backup directory under project directory' Hint = 'Creates a Backup directory under project directory'
Top = 193 Top = 194
Width = 215 Width = 170
BorderSpacing.Left = 3 BorderSpacing.Left = 3
BorderSpacing.Top = 9 BorderSpacing.Top = 9
Caption = 'Make backup of changed files' Caption = 'Make backup of changed files'
@ -63,14 +63,18 @@ object ConvertSettingsForm: TConvertSettingsForm
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 34 Height = 41
Top = 301 Top = 294
Width = 552 Width = 552
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False CloseButton.Enabled = False
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 2 TabOrder = 2
ShowButtons = [pbOK, pbCancel, pbHelp] ShowButtons = [pbOK, pbCancel, pbHelp]
end end
@ -79,10 +83,10 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = BackupCheckBox AnchorSideTop.Control = BackupCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 26 Height = 20
Hint = 'Separate form files allow different properties' Hint = 'Separate form files allow different properties'
Top = 224 Top = 219
Width = 246 Width = 197
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'Keep converted files open in editor' Caption = 'Keep converted files open in editor'
ParentShowHint = False ParentShowHint = False
@ -254,11 +258,11 @@ object ConvertSettingsForm: TConvertSettingsForm
Left = 9 Left = 9
Height = 122 Height = 122
Hint = 'xxx' Hint = 'xxx'
Top = 62 Top = 63
Width = 255 Width = 255
BorderSpacing.Top = 11 BorderSpacing.Top = 11
Caption = 'Target' Caption = 'Target'
ClientHeight = 105 ClientHeight = 104
ClientWidth = 251 ClientWidth = 251
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -268,9 +272,9 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = MultiPlatformCheckBox AnchorSideTop.Control = MultiPlatformCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 26 Height = 20
Top = 35 Top = 29
Width = 121 Width = 98
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'Support Delphi' Caption = 'Support Delphi'
OnChange = SupportDelphiCheckBoxChange OnChange = SupportDelphiCheckBoxChange
@ -283,9 +287,9 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = SupportDelphiCheckBox AnchorSideTop.Control = SupportDelphiCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 26 Height = 20
Top = 66 Top = 54
Width = 199 Width = 163
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'Use the same DFM form file' Caption = 'Use the same DFM form file'
OnChange = SameDfmCheckBoxChange OnChange = SameDfmCheckBoxChange
@ -296,9 +300,9 @@ object ConvertSettingsForm: TConvertSettingsForm
object MultiPlatformCheckBox: TCheckBox object MultiPlatformCheckBox: TCheckBox
AnchorSideTop.Control = TargetGroupBox AnchorSideTop.Control = TargetGroupBox
Left = 10 Left = 10
Height = 26 Height = 20
Top = 4 Top = 4
Width = 113 Width = 99
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Multi-Platform' Caption = 'Multi-Platform'
ParentShowHint = False ParentShowHint = False
@ -312,7 +316,7 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = UnitReplaceButton AnchorSideTop.Control = UnitReplaceButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 412 Left = 412
Height = 25 Height = 24
Top = 27 Top = 27
Width = 136 Width = 136
BorderSpacing.Left = 23 BorderSpacing.Left = 23
@ -325,7 +329,7 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = UnknownPropsDivider AnchorSideTop.Control = UnknownPropsDivider
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 412 Left = 412
Height = 25 Height = 24
Top = 84 Top = 84
Width = 136 Width = 136
BorderSpacing.Top = 2 BorderSpacing.Top = 2
@ -339,7 +343,7 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = FuncReplaceButton AnchorSideTop.Control = FuncReplaceButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 412 Left = 412
Height = 25 Height = 24
Top = 195 Top = 195
Width = 136 Width = 136
BorderSpacing.Left = 23 BorderSpacing.Left = 23
@ -353,7 +357,7 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = CoordOffsButton AnchorSideTop.Control = CoordOffsButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 412 Left = 412
Height = 25 Height = 24
Top = 251 Top = 251
Width = 136 Width = 136
BorderSpacing.Left = 23 BorderSpacing.Left = 23
@ -367,7 +371,7 @@ object ConvertSettingsForm: TConvertSettingsForm
AnchorSideTop.Control = TypeReplaceButton AnchorSideTop.Control = TypeReplaceButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 412 Left = 412
Height = 25 Height = 24
Top = 139 Top = 139
Width = 136 Width = 136
BorderSpacing.Left = 23 BorderSpacing.Left = 23

15
converter/convertsettings.pas
View File

@ -401,6 +401,21 @@ begin
MapReplacement('TabNotBk', 'ComCtrls'); MapReplacement('TabNotBk', 'ComCtrls');
MapReplacement('OpenGL', 'GL, GLu'); MapReplacement('OpenGL', 'GL, GLu');
MapReplacement('dglOpenGL', 'GL, GLu, GLut'); // ? MapReplacement('dglOpenGL', 'GL, GLu, GLut'); // ?
// Database components
MapReplacement('SqlExpr', 'sqldb');
MapReplacement('DBLocalS', 'sqldb');
MapReplacement('DBLocalB', 'sqldb');
MapReplacement('DBTables', 'sqldb');
MapReplacement('ADODB', 'sqldb');
MapReplacement('IBTable', 'sqldb');
MapReplacement('IBQuery', 'sqldb');
MapReplacement('IBStoredProc', 'sqldb');
MapReplacement('IBDatabase', 'sqldb');
MapReplacement('IBUpdateSQL', 'sqldb');
MapReplacement('IBCustomDataSet', 'sqldb');
MapReplacement('IBSQL', 'sqldb');
MapReplacement('DBLocalI', 'IBConnection');
// Remove these
MapReplacement('ShellApi', ''); MapReplacement('ShellApi', '');
MapReplacement('pngImage', ''); MapReplacement('pngImage', '');
MapReplacement('Jpeg', ''); MapReplacement('Jpeg', '');