mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 07:36:14 +02:00
IDE: improve compiler options import/export dialog.
git-svn-id: trunk@46333 -
This commit is contained in:
parent
53450e2ef9
commit
8703b01c2b
@ -1,10 +1,10 @@
|
|||||||
object ImExportCompOptsDlg: TImExportCompOptsDlg
|
object ImExportCompOptsDlg: TImExportCompOptsDlg
|
||||||
Left = 416
|
Left = 416
|
||||||
Height = 127
|
Height = 129
|
||||||
Top = 208
|
Top = 208
|
||||||
Width = 746
|
Width = 746
|
||||||
Caption = 'ImExportCompOptsDlg'
|
Caption = 'ImExportCompOptsDlg'
|
||||||
ClientHeight = 127
|
ClientHeight = 129
|
||||||
ClientWidth = 746
|
ClientWidth = 746
|
||||||
Constraints.MinHeight = 113
|
Constraints.MinHeight = 113
|
||||||
Constraints.MinWidth = 300
|
Constraints.MinWidth = 300
|
||||||
@ -13,8 +13,8 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
|
|||||||
LCLVersion = '1.3'
|
LCLVersion = '1.3'
|
||||||
object ButtonPanel1: TButtonPanel
|
object ButtonPanel1: TButtonPanel
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 41
|
Height = 38
|
||||||
Top = 80
|
Top = 85
|
||||||
Width = 734
|
Width = 734
|
||||||
OKButton.Name = 'OKButton'
|
OKButton.Name = 'OKButton'
|
||||||
OKButton.DefaultCaption = True
|
OKButton.DefaultCaption = True
|
||||||
@ -28,24 +28,25 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
|
|||||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||||
end
|
end
|
||||||
object HistoryLabel: TLabel
|
object HistoryLabel: TLabel
|
||||||
|
AnchorSideTop.Control = HistoryButton
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
Left = 16
|
Left = 16
|
||||||
Height = 15
|
Height = 20
|
||||||
Top = 16
|
Top = 8
|
||||||
Width = 44
|
Width = 47
|
||||||
Caption = 'History'
|
Caption = 'History'
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object HistoryButton: TButton
|
object HistoryButton: TButton
|
||||||
AnchorSideLeft.Control = HistoryLabel
|
AnchorSideLeft.Control = HistoryLabel
|
||||||
AnchorSideLeft.Side = asrBottom
|
AnchorSideLeft.Side = asrBottom
|
||||||
AnchorSideTop.Control = HistoryLabel
|
AnchorSideTop.Control = Owner
|
||||||
AnchorSideTop.Side = asrCenter
|
Left = 69
|
||||||
Left = 66
|
|
||||||
Height = 25
|
Height = 25
|
||||||
Hint = 'Recent files'
|
Hint = 'Recent files'
|
||||||
Top = 11
|
Top = 6
|
||||||
Width = 35
|
Width = 35
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Around = 6
|
||||||
Caption = '>>'
|
Caption = '>>'
|
||||||
OnClick = HistoryButtonClick
|
OnClick = HistoryButtonClick
|
||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
@ -58,10 +59,10 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
|
|||||||
AnchorSideTop.Control = HistoryLabel
|
AnchorSideTop.Control = HistoryLabel
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 16
|
Left = 16
|
||||||
Height = 15
|
Height = 20
|
||||||
Top = 46
|
Top = 41
|
||||||
Width = 20
|
Width = 23
|
||||||
BorderSpacing.Top = 15
|
BorderSpacing.Top = 13
|
||||||
Caption = 'File'
|
Caption = 'File'
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
@ -70,9 +71,9 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
|
|||||||
AnchorSideLeft.Side = asrBottom
|
AnchorSideLeft.Side = asrBottom
|
||||||
AnchorSideTop.Control = FileLabel
|
AnchorSideTop.Control = FileLabel
|
||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
Left = 42
|
Left = 45
|
||||||
Height = 25
|
Height = 28
|
||||||
Top = 41
|
Top = 37
|
||||||
Width = 431
|
Width = 431
|
||||||
DialogOptions = [ofExtensionDifferent, ofEnableSizing, ofViewDetail]
|
DialogOptions = [ofExtensionDifferent, ofEnableSizing, ofViewDetail]
|
||||||
Filter = 'XML file (*.xml)|*.xml|Project file (*.lpi)|*.lpi|Package file (*.lpk)|*.lpk|Session file (*.lps)|*.lps|All files (*)|*'
|
Filter = 'XML file (*.xml)|*.xml|Project file (*.lpi)|*.lpi|Package file (*.lpk)|*.lpk|Session file (*.lps)|*.lps|All files (*)|*'
|
||||||
@ -89,8 +90,8 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
|
|||||||
object ExportRadioGroup: TRadioGroup
|
object ExportRadioGroup: TRadioGroup
|
||||||
AnchorSideLeft.Control = FileNameEdit
|
AnchorSideLeft.Control = FileNameEdit
|
||||||
AnchorSideLeft.Side = asrBottom
|
AnchorSideLeft.Side = asrBottom
|
||||||
Left = 488
|
Left = 491
|
||||||
Height = 62
|
Height = 69
|
||||||
Top = 6
|
Top = 6
|
||||||
Width = 185
|
Width = 185
|
||||||
AutoFill = True
|
AutoFill = True
|
||||||
@ -103,7 +104,7 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
|
|||||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
ChildSizing.ControlsPerLine = 1
|
ChildSizing.ControlsPerLine = 1
|
||||||
ClientHeight = 43
|
ClientHeight = 44
|
||||||
ClientWidth = 181
|
ClientWidth = 181
|
||||||
ItemIndex = 0
|
ItemIndex = 0
|
||||||
Items.Strings = (
|
Items.Strings = (
|
||||||
|
@ -56,7 +56,7 @@ type
|
|||||||
procedure OpenButtonCLICK(Sender: TObject);
|
procedure OpenButtonCLICK(Sender: TObject);
|
||||||
procedure PopupClick(Sender: TObject);
|
procedure PopupClick(Sender: TObject);
|
||||||
procedure HistoryButtonClick(Sender: TObject);
|
procedure HistoryButtonClick(Sender: TObject);
|
||||||
procedure RecentSaveButton1Click(Sender: TObject);
|
//procedure RecentSaveButton1Click(Sender: TObject);
|
||||||
procedure SaveButtonCLICK(Sender: TObject);
|
procedure SaveButtonCLICK(Sender: TObject);
|
||||||
private
|
private
|
||||||
FFilename: string;
|
FFilename: string;
|
||||||
@ -329,12 +329,12 @@ procedure TImExportCompOptsDlg.HistoryButtonClick(Sender: TObject);
|
|||||||
begin
|
begin
|
||||||
RecentPopupMenu.PopUp;
|
RecentPopupMenu.PopUp;
|
||||||
end;
|
end;
|
||||||
|
{
|
||||||
procedure TImExportCompOptsDlg.RecentSaveButton1Click(Sender: TObject);
|
procedure TImExportCompOptsDlg.RecentSaveButton1Click(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
RecentPopupMenu.PopUp;
|
RecentPopupMenu.PopUp;
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
procedure TImExportCompOptsDlg.SaveButtonCLICK(Sender: TObject);
|
procedure TImExportCompOptsDlg.SaveButtonCLICK(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
DoSaveFile(CleanAndExpandFilename(FileNameEdit.FileName));
|
DoSaveFile(CleanAndExpandFilename(FileNameEdit.FileName));
|
||||||
@ -361,6 +361,8 @@ begin
|
|||||||
mi.OnClick:=@PopupClick;
|
mi.OnClick:=@PopupClick;
|
||||||
RecentPopupMenu.Items.Add(mi);
|
RecentPopupMenu.Items.Add(mi);
|
||||||
end;
|
end;
|
||||||
|
HistoryLabel.Visible := sl.Count > 0;
|
||||||
|
HistoryButton.Visible := HistoryLabel.Visible;
|
||||||
finally
|
finally
|
||||||
sl.Free;
|
sl.Free;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user