paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 04:39:24 +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 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 = (

8
ide/imexportcompileropts.pas
View File

@ -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;