paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 04:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Conversion settings UI tweaking.

Browse Source 
git-svn-id: trunk@23800 -
This commit is contained in:
juha 2010-02-27 08:30:21 +00:00
parent 2e04a02ac4
commit 611903515a
2 changed files with 21 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
converter/convertsettings.lfm
View File

@ -1,5 +1,5 @@
object ConvertSettingsForm: TConvertSettingsForm
Left = 209
Left = 283
Height = 400
Top = 111
Width = 581
@ -73,37 +73,24 @@ object ConvertSettingsForm: TConvertSettingsForm
object BackupCheckBox: TCheckBox
Left = 291
Height = 23
Top = 11
Top = 27
Width = 189
Caption = 'Make backup of changed files'
Checked = True
State = cbChecked
TabOrder = 0
end
object DelphiCompatibleCheckBox: TCheckBox
AnchorSideTop.Control = BackupCheckBox
Left = 347
Height = 23
Top = 107
Width = 215
Anchors = [akLeft]
BorderSpacing.Top = 29
Caption = 'Try to keep files Delphi compatible'
OnChange = DelphiCompatibleCheckBoxChange
TabOrder = 1
Visible = False
end
object FormFileRenameCheckBox: TCheckBox
AnchorSideTop.Control = BackupCheckBox
Left = 291
Height = 23
Top = 40
Top = 56
Width = 185
BorderSpacing.Top = 29
Caption = 'Rename form file .dfm to .lfm'
Checked = True
State = cbChecked
TabOrder = 2
TabOrder = 1
end
object TargetRadioGroup: TRadioGroup
Left = 3
@ -128,7 +115,8 @@ object ConvertSettingsForm: TConvertSettingsForm
'Lazarus/LCL for Windows only'
'Both Lazarus/LCL and Delphi'
)
TabOrder = 3
OnClick = TargetRadioGroupClick
TabOrder = 2
end
end
object BtnPanel: TPanel
@ -207,14 +195,14 @@ object ConvertSettingsForm: TConvertSettingsForm
EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = MainPathEdit
EditLabel.AnchorSideBottom.Control = MainPathEdit
EditLabel.Left = 25
EditLabel.Left = 15
EditLabel.Height = 16
EditLabel.Top = 15
EditLabel.Width = 55
EditLabel.Caption = 'Main Path'
EditLabel.Width = 58
EditLabel.Caption = 'Main Path:'
EditLabel.ParentColor = False
LabelPosition = lpLeft
LabelSpacing = 0
LabelSpacing = 7
ReadOnly = True
TabOrder = 3
end

23
converter/convertsettings.pas
View File

@ -98,7 +98,6 @@ type
btnCancel: TBitBtn;
btnOK: TBitBtn;
BtnPanel: TPanel;
DelphiCompatibleCheckBox: TCheckBox;
HelpButton: TBitBtn;
SettingsGroupBox: TGroupBox;
MissingStuffGroupBox: TGroupBox;
@ -106,10 +105,10 @@ type
MissingComponentCheckBox: TCheckBox;
MissingPropertyCheckBox: TCheckBox;
procedure btnOKClick(Sender: TObject);
procedure DelphiCompatibleCheckBoxChange(Sender: TObject);
procedure ReplacementCompsButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TargetRadioGroupClick(Sender: TObject);
private
public
@ -270,20 +269,15 @@ begin
;
end;
procedure TConvertSettingsForm.btnOKClick(Sender: TObject);
begin
ModalResult:=mrOk;
end;
procedure TConvertSettingsForm.DelphiCompatibleCheckBoxChange(Sender: TObject);
procedure TConvertSettingsForm.TargetRadioGroupClick(Sender: TObject);
// Delphi compatibility doesn't allow renaming the form file.
var
b: Boolean;
Trg: TConvertTarget;
begin
b:=(Sender as TCheckBox).Checked;
if b then
Trg:=TConvertTarget((Sender as TRadioGroup).ItemIndex);
if Trg=ctLazarusAndDelphi then
FormFileRenameCheckBox.Checked:=false;
FormFileRenameCheckBox.Enabled:=not b;
FormFileRenameCheckBox.Enabled:=Trg<>ctLazarusAndDelphi;
end;
procedure TConvertSettingsForm.ReplacementCompsButtonClick(Sender: TObject);
@ -291,6 +285,11 @@ begin
ShowMessage('Sorry, not implemented yet!');
end;
procedure TConvertSettingsForm.btnOKClick(Sender: TObject);
begin
ModalResult:=mrOk;
end;
end.