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

IDE: improve compiler options import/export dialog.

Browse Source 
git-svn-id: trunk@46333 -
This commit is contained in:
juha 2014-09-25 22:03:00 +00:00
parent 53450e2ef9
commit 8703b01c2b
2 changed files with 28 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ide/imexportcompileropts.lfm
View File

@ -1,10 +1,10 @@
object ImExportCompOptsDlg: TImExportCompOptsDlg
Left = 416
Height = 127
Height = 129
Top = 208
Width = 746
Caption = 'ImExportCompOptsDlg'
ClientHeight = 127
ClientHeight = 129
ClientWidth = 746
Constraints.MinHeight = 113
Constraints.MinWidth = 300
@ -13,8 +13,8 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
LCLVersion = '1.3'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 41
Top = 80
Height = 38
Top = 85
Width = 734
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
@ -28,24 +28,25 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object HistoryLabel: TLabel
AnchorSideTop.Control = HistoryButton
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 16
Width = 44
Height = 20
Top = 8
Width = 47
Caption = 'History'
ParentColor = False
end
object HistoryButton: TButton
AnchorSideLeft.Control = HistoryLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = HistoryLabel
AnchorSideTop.Side = asrCenter
Left = 66
AnchorSideTop.Control = Owner
Left = 69
Height = 25
Hint = 'Recent files'
Top = 11
Top = 6
Width = 35
BorderSpacing.Left = 6
BorderSpacing.Around = 6
Caption = '>>'
OnClick = HistoryButtonClick
ParentShowHint = False
@ -58,10 +59,10 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
AnchorSideTop.Control = HistoryLabel
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 46
Width = 20
BorderSpacing.Top = 15
Height = 20
Top = 41
Width = 23
BorderSpacing.Top = 13
Caption = 'File'
ParentColor = False
end
@ -70,9 +71,9 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FileLabel
AnchorSideTop.Side = asrCenter
Left = 42
Height = 25
Top = 41
Left = 45
Height = 28
Top = 37
Width = 431
DialogOptions = [ofExtensionDifferent, ofEnableSizing, ofViewDetail]
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
AnchorSideLeft.Control = FileNameEdit
AnchorSideLeft.Side = asrBottom
Left = 488
Height = 62
Left = 491
Height = 69
Top = 6
Width = 185
AutoFill = True
@ -103,7 +104,7 @@ object ImExportCompOptsDlg: TImExportCompOptsDlg
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 43
ClientHeight = 44
ClientWidth = 181
ItemIndex = 0
Items.Strings = (

8
ide/imexportcompileropts.pas
View File

@ -56,7 +56,7 @@ type
procedure OpenButtonCLICK(Sender: TObject);
procedure PopupClick(Sender: TObject);
procedure HistoryButtonClick(Sender: TObject);
procedure RecentSaveButton1Click(Sender: TObject);
//procedure RecentSaveButton1Click(Sender: TObject);
procedure SaveButtonCLICK(Sender: TObject);
private
FFilename: string;
@ -329,12 +329,12 @@ procedure TImExportCompOptsDlg.HistoryButtonClick(Sender: TObject);
begin
RecentPopupMenu.PopUp;
end;
{
procedure TImExportCompOptsDlg.RecentSaveButton1Click(Sender: TObject);
begin
RecentPopupMenu.PopUp;
end;
}
procedure TImExportCompOptsDlg.SaveButtonCLICK(Sender: TObject);
begin
DoSaveFile(CleanAndExpandFilename(FileNameEdit.FileName));
@ -361,6 +361,8 @@ begin
mi.OnClick:=@PopupClick;
RecentPopupMenu.Items.Add(mi);
end;
HistoryLabel.Visible := sl.Count > 0;
HistoryButton.Visible := HistoryLabel.Visible;
finally
sl.Free;
end;