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

Project options: Place name and description edits directly on application page. Issue #30977.

Browse Source 
git-svn-id: trunk@54254 -
This commit is contained in:
juha 2017-02-22 23:07:28 +00:00
parent 7eaa1abf9f
commit e7bdd7191a
3 changed files with 158 additions and 129 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

229
ide/frames/project_application_options.lfm
View File

@ -1,32 +1,32 @@
object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
Left = 0 Left = 0
Height = 492 Height = 516
Top = 0 Top = 0
Width = 487 Width = 487
ClientHeight = 492 ClientHeight = 516
ClientWidth = 487 ClientWidth = 487
TabOrder = 0 TabOrder = 0
DesignLeft = 437 DesignLeft = 437
DesignTop = 182 DesignTop = 182
object AppSettingsGroupBox: TGroupBox object AppSettingsGroupBox: TGroupBox
Left = 0 Left = 0
Height = 456 Height = 506
Top = 0 Top = 0
Width = 487 Width = 487
Align = alTop Align = alTop
Anchors = []
AutoSize = True AutoSize = True
Caption = 'AppSettingsGroupBox' Caption = 'AppSettingsGroupBox'
ClientHeight = 436 ClientHeight = 487
ClientWidth = 483 ClientWidth = 483
TabOrder = 0 TabOrder = 0
object TitleLabel: TLabel object TitleLabel: TLabel
AnchorSideLeft.Control = AppSettingsGroupBox
AnchorSideTop.Control = TitleEdit AnchorSideTop.Control = TitleEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 15 Height = 14
Top = 10 Top = 13
Width = 51 Width = 59
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'TitleLabel' Caption = 'TitleLabel'
ParentColor = False ParentColor = False
@ -35,9 +35,9 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideLeft.Control = TitleLabel AnchorSideLeft.Control = TitleLabel
AnchorSideTop.Control = IconPanel AnchorSideTop.Control = IconPanel
Left = 6 Left = 6
Height = 15 Height = 14
Top = 35 Top = 40
Width = 51 Width = 58
Caption = 'IconLabel' Caption = 'IconLabel'
ParentColor = False ParentColor = False
end end
@ -47,16 +47,17 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IconTrack AnchorSideRight.Control = IconTrack
Left = 240 Left = 240
Height = 15 Height = 14
Top = 159 Top = 163
Width = 79 Width = 89
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'IconTrackLabel' Caption = 'IconTrackLabel'
ParentColor = False ParentColor = False
end end
object TitleEdit: TEdit object TitleEdit: TEdit
AnchorSideRight.Side = asrBottom
Left = 106 Left = 106
Height = 23 Height = 28
Top = 6 Top = 6
Width = 371 Width = 371
Align = alTop Align = alTop
@ -66,25 +67,25 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
Text = 'TitleEdit' Text = 'TitleEdit'
end end
object UseAppBundleCheckBox: TCheckBox object UseAppBundleCheckBox: TCheckBox
AnchorSideLeft.Control = UseXPManifestCheckBox AnchorSideLeft.Control = TitleLabel
AnchorSideTop.Control = DarwinDividerBevel AnchorSideTop.Control = DarwinDividerBevel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 20
Top = 380 Top = 430
Width = 150 Width = 176
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'UseAppBundleCheckBox' Caption = 'UseAppBundleCheckBox'
TabOrder = 13 TabOrder = 12
end end
object UseXPManifestCheckBox: TCheckBox object UseXPManifestCheckBox: TCheckBox
AnchorSideLeft.Control = TitleLabel AnchorSideLeft.Control = TitleLabel
AnchorSideTop.Control = WindowsDividerBevel AnchorSideTop.Control = WindowsDividerBevel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 20
Top = 235 Top = 240
Width = 151 Width = 177
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'UseXPManifestCheckBox' Caption = 'UseXPManifestCheckBox'
OnChange = UseXPManifestCheckBoxChange OnChange = UseXPManifestCheckBoxChange
@ -96,7 +97,7 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 106 Left = 106
Height = 128 Height = 128
Top = 35 Top = 40
Width = 128 Width = 128
BorderSpacing.Left = 106 BorderSpacing.Left = 106
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -125,8 +126,8 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 240 Left = 240
Height = 25 Height = 25
Top = 35 Top = 40
Width = 111 Width = 109
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'LoadIconButton' Caption = 'LoadIconButton'
@ -139,7 +140,7 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 240 Left = 240
Height = 25 Height = 25
Top = 97 Top = 101
Width = 109 Width = 109
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -153,8 +154,8 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 240 Left = 240
Height = 25 Height = 25
Top = 128 Top = 132
Width = 112 Width = 111
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'ClearIconButton' Caption = 'ClearIconButton'
@ -169,7 +170,7 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 106 Left = 106
Height = 29 Height = 29
Top = 163 Top = 168
Width = 128 Width = 128
Max = 0 Max = 0
OnChange = IconTrackChange OnChange = IconTrackChange
@ -183,9 +184,9 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideTop.Control = ExecutionLevelComboBox AnchorSideTop.Control = ExecutionLevelComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 27 Left = 27
Height = 19 Height = 20
Top = 309 Top = 325
Width = 119 Width = 142
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'UIAccessCheckBox' Caption = 'UIAccessCheckBox'
TabOrder = 11 TabOrder = 11
@ -196,13 +197,13 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DpiAwareComboBox AnchorSideRight.Control = DpiAwareComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 163 Left = 181
Height = 23 Height = 28
Top = 283 Top = 294
Width = 314 Width = 296
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
ItemHeight = 15 ItemHeight = 14
Style = csDropDownList Style = csDropDownList
TabOrder = 10 TabOrder = 10
end end
@ -211,9 +212,9 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideTop.Control = ExecutionLevelComboBox AnchorSideTop.Control = ExecutionLevelComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 27 Left = 27
Height = 15 Height = 14
Top = 287 Top = 301
Width = 106 Width = 124
Caption = 'ExecutionLevelLabel' Caption = 'ExecutionLevelLabel'
ParentColor = False ParentColor = False
end end
@ -222,8 +223,8 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideTop.Control = LoadIconButton AnchorSideTop.Control = LoadIconButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 240 Left = 240
Height = 25 Height = 24
Top = 66 Top = 71
Width = 123 Width = 123
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -232,14 +233,12 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
TabOrder = 4 TabOrder = 4
end end
object WindowsDividerBevel: TDividerBevel object WindowsDividerBevel: TDividerBevel
AnchorSideLeft.Control = AppSettingsGroupBox
AnchorSideTop.Control = UseLCLScalingCheckBox AnchorSideTop.Control = UseLCLScalingCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AppSettingsGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 3 Left = 3
Height = 15 Height = 14
Top = 217 Top = 223
Width = 477 Width = 477
Caption = 'For Windows' Caption = 'For Windows'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -249,48 +248,30 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object DarwinDividerBevel: TDividerBevel
AnchorSideLeft.Control = AppSettingsGroupBox
AnchorSideTop.Control = TextFieldButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AppSettingsGroupBox
AnchorSideRight.Side = asrBottom
Left = 3
Height = 15
Top = 362
Width = 477
Caption = 'For macOS (Darwin)'
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 3
BorderSpacing.Top = 6
BorderSpacing.Right = 3
Font.Style = [fsBold]
ParentFont = False
end
object CreateAppBundleButton: TBitBtn object CreateAppBundleButton: TBitBtn
AnchorSideLeft.Control = UseAppBundleCheckBox AnchorSideLeft.Control = UseAppBundleCheckBox
AnchorSideTop.Control = UseAppBundleCheckBox AnchorSideTop.Control = UseAppBundleCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 27 Left = 27
Height = 25 Height = 25
Top = 405 Top = 456
Width = 155 Width = 160
AutoSize = True AutoSize = True
BorderSpacing.Left = 21 BorderSpacing.Left = 21
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'CreateAppBundleButton' Caption = 'CreateAppBundleButton'
OnClick = CreateAppBundleButtonClick OnClick = CreateAppBundleButtonClick
TabOrder = 14 TabOrder = 13
end end
object DpiAwareLabel: TLabel object DpiAwareLabel: TLabel
AnchorSideLeft.Control = UseXPManifestCheckBox AnchorSideLeft.Control = UseXPManifestCheckBox
AnchorSideTop.Control = DpiAwareComboBox AnchorSideTop.Control = DpiAwareComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 27 Left = 27
Height = 15 Height = 14
Top = 261 Top = 270
Width = 79 Width = 91
BorderSpacing.Left = 21 BorderSpacing.Left = 21
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'DpiAwareLabel' Caption = 'DpiAwareLabel'
@ -303,49 +284,103 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TitleEdit AnchorSideRight.Control = TitleEdit
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 163 Left = 181
Height = 23 Height = 28
Top = 257 Top = 263
Width = 314 Width = 296
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 30 BorderSpacing.Left = 30
BorderSpacing.Top = 3 BorderSpacing.Top = 3
ItemHeight = 15 ItemHeight = 14
Style = csDropDownList Style = csDropDownList
TabOrder = 9 TabOrder = 9
end end
object TextFieldButton: TButton
AnchorSideLeft.Control = DpiAwareLabel
AnchorSideTop.Control = UIAccessCheckBox
AnchorSideTop.Side = asrBottom
Left = 27
Height = 25
Top = 331
Width = 109
AutoSize = True
BorderSpacing.Top = 3
Caption = 'TextFieldButton'
OnClick = TextFieldButtonClick
TabOrder = 12
end
object UseLCLScalingCheckBox: TCheckBox object UseLCLScalingCheckBox: TCheckBox
AnchorSideLeft.Control = TitleLabel AnchorSideLeft.Control = TitleLabel
AnchorSideTop.Control = IconTrack AnchorSideTop.Control = IconTrack
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 20
Top = 192 Top = 197
Width = 149 Width = 176
Caption = 'UseLCLScalingCheckBox' Caption = 'UseLCLScalingCheckBox'
TabOrder = 7 TabOrder = 7
end end
object DarwinDividerBevel: TDividerBevel
AnchorSideTop.Control = DescriptionEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 3
Height = 14
Top = 413
Width = 474
Caption = 'For macOS (Darwin)'
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 3
BorderSpacing.Top = 6
BorderSpacing.Right = 3
Font.Style = [fsBold]
ParentFont = False
end
object NameLabel: TLabel
AnchorSideLeft.Control = DpiAwareLabel
AnchorSideTop.Control = NameEdit
AnchorSideTop.Side = asrCenter
Left = 27
Height = 14
Top = 355
Width = 68
Caption = 'NameLabel'
ParentColor = False
end
object DescriptionLabel: TLabel
AnchorSideLeft.Control = DpiAwareLabel
AnchorSideTop.Control = DescriptionEdit
AnchorSideTop.Side = asrCenter
Left = 27
Height = 14
Top = 386
Width = 101
Caption = 'DescriptionLabel'
ParentColor = False
end
object NameEdit: TEdit
AnchorSideLeft.Control = DpiAwareComboBox
AnchorSideTop.Control = UIAccessCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DpiAwareComboBox
AnchorSideRight.Side = asrBottom
Left = 181
Height = 28
Top = 348
Width = 296
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
TabOrder = 14
Text = 'NameEdit'
end
object DescriptionEdit: TEdit
AnchorSideLeft.Control = DpiAwareComboBox
AnchorSideTop.Control = NameEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DpiAwareComboBox
AnchorSideRight.Side = asrBottom
Left = 181
Height = 28
Top = 379
Width = 296
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
TabOrder = 15
Text = 'DescriptionEdit'
end
end end
object OpenPictureDialog1: TOpenPictureDialog object OpenPictureDialog1: TOpenPictureDialog
Left = 385 left = 385
Top = 190 top = 190
end end
object SavePictureDialog1: TSavePictureDialog object SavePictureDialog1: TSavePictureDialog
Left = 385 left = 385
Top = 249 top = 249
end end
end end

57
ide/frames/project_application_options.pas
View File

@ -16,14 +16,17 @@ type
TProjectApplicationOptionsFrame = class(TAbstractIDEOptionsEditor) TProjectApplicationOptionsFrame = class(TAbstractIDEOptionsEditor)
AppSettingsGroupBox: TGroupBox; AppSettingsGroupBox: TGroupBox;
DarwinDividerBevel: TDividerBevel;
NameEdit: TEdit;
DescriptionEdit: TEdit;
NameLabel: TLabel;
DescriptionLabel: TLabel;
UseLCLScalingCheckBox: TCheckBox; UseLCLScalingCheckBox: TCheckBox;
TextFieldButton: TButton;
CreateAppBundleButton: TBitBtn; CreateAppBundleButton: TBitBtn;
DefaultIconButton: TButton; DefaultIconButton: TButton;
DpiAwareLabel: TLabel; DpiAwareLabel: TLabel;
DpiAwareComboBox: TComboBox; DpiAwareComboBox: TComboBox;
WindowsDividerBevel: TDividerBevel; WindowsDividerBevel: TDividerBevel;
DarwinDividerBevel: TDividerBevel;
UIAccessCheckBox: TCheckBox; UIAccessCheckBox: TCheckBox;
ExecutionLevelComboBox: TComboBox; ExecutionLevelComboBox: TComboBox;
ClearIconButton: TBitBtn; ClearIconButton: TBitBtn;
@ -48,11 +51,11 @@ type
procedure IconTrackChange(Sender: TObject); procedure IconTrackChange(Sender: TObject);
procedure LoadIconButtonClick(Sender: TObject); procedure LoadIconButtonClick(Sender: TObject);
procedure SaveIconButtonClick(Sender: TObject); procedure SaveIconButtonClick(Sender: TObject);
procedure TextFieldButtonClick(Sender: TObject);
procedure UseXPManifestCheckBoxChange(Sender: TObject); procedure UseXPManifestCheckBoxChange(Sender: TObject);
private private
FProject: TProject; FProject: TProject;
fIconChanged: boolean; fIconChanged: boolean;
procedure EnableManifest(aEnable: Boolean);
procedure SetIconFromStream(Value: TStream); procedure SetIconFromStream(Value: TStream);
function GetIconAsStream: TStream; function GetIconAsStream: TStream;
public public
@ -174,30 +177,20 @@ begin
IconImage.Picture.SaveToFile(SavePictureDialog1.FileName); IconImage.Picture.SaveToFile(SavePictureDialog1.FileName);
end; end;
procedure TProjectApplicationOptionsFrame.TextFieldButtonClick(Sender: TObject); procedure TProjectApplicationOptionsFrame.EnableManifest(aEnable: Boolean);
var
Caps, Values: array[0..1] of string;
begin begin
Caps[0] := lisName; DpiAwareLabel.Enabled := aEnable;
Caps[1] := lisCodeHelpDescrTag; DpiAwareComboBox.Enabled := aEnable;
Values[0] := FProject.ProjResources.XPManifest.TextName; ExecutionLevelLabel.Enabled := aEnable;
Values[1] := FProject.ProjResources.XPManifest.TextDesc; ExecutionLevelComboBox.Enabled := aEnable;
UIAccessCheckBox.Enabled := aEnable;
if InputQuery(TextFieldButton.Caption, Caps, Values) then NameEdit.Enabled := aEnable;
begin DescriptionEdit.Enabled := aEnable;
FProject.ProjResources.XPManifest.TextName := Values[0];
FProject.ProjResources.XPManifest.TextDesc := Values[1];
end;
end; end;
procedure TProjectApplicationOptionsFrame.UseXPManifestCheckBoxChange(Sender: TObject); procedure TProjectApplicationOptionsFrame.UseXPManifestCheckBoxChange(Sender: TObject);
begin begin
DpiAwareLabel.Enabled := UseXPManifestCheckBox.Checked; EnableManifest(UseXPManifestCheckBox.Checked);
DpiAwareComboBox.Enabled := UseXPManifestCheckBox.Checked;
ExecutionLevelLabel.Enabled := UseXPManifestCheckBox.Checked;
ExecutionLevelComboBox.Enabled := UseXPManifestCheckBox.Checked;
UIAccessCheckBox.Enabled := UseXPManifestCheckBox.Checked;
TextFieldButton.Enabled := UseXPManifestCheckBox.Checked;
end; end;
procedure TProjectApplicationOptionsFrame.SetIconFromStream(Value: TStream); procedure TProjectApplicationOptionsFrame.SetIconFromStream(Value: TStream);
@ -258,7 +251,8 @@ begin
for DpiLevel in TXPManifestDpiAware do for DpiLevel in TXPManifestDpiAware do
DpiAwareComboBox.Items.Add(DpiLevelNames[DpiLevel] + ' (' + ManifestDpiAwareValues[DpiLevel] + ')'); DpiAwareComboBox.Items.Add(DpiLevelNames[DpiLevel] + ' (' + ManifestDpiAwareValues[DpiLevel] + ')');
UIAccessCheckBox.Caption := dlgPOUIAccess; UIAccessCheckBox.Caption := dlgPOUIAccess;
TextFieldButton.Caption := dlgPOTextFields; NameLabel.Caption := lisName;
DescriptionLabel.Caption := lisCodeHelpDescrTag;
// Darwin specific, Application Bundle // Darwin specific, Application Bundle
DarwinDividerBevel.Caption := lisForMacOSDarwin; DarwinDividerBevel.Caption := lisForMacOSDarwin;
@ -293,26 +287,25 @@ begin
TitleEdit.Text := Title; TitleEdit.Text := Title;
UseLCLScalingCheckBox.Checked := Scaled; UseLCLScalingCheckBox.Checked := Scaled;
UseAppBundleCheckBox.Checked := UseAppBundle; UseAppBundleCheckBox.Checked := UseAppBundle;
// Manifest
with ProjResources.XPManifest do with ProjResources.XPManifest do
begin begin
UseXPManifestCheckBox.Checked := UseManifest; UseXPManifestCheckBox.Checked := UseManifest;
DpiAwareComboBox.ItemIndex := Ord(DpiAware); DpiAwareComboBox.ItemIndex := Ord(DpiAware);
ExecutionLevelComboBox.ItemIndex := Ord(ExecutionLevel); ExecutionLevelComboBox.ItemIndex := Ord(ExecutionLevel);
UIAccessCheckBox.Checked := UIAccess; UIAccessCheckBox.Checked := UIAccess;
NameEdit.Text := TextName;
DescriptionEdit.Text := TextDesc;
end; end;
DpiAwareLabel.Enabled := UseXPManifestCheckBox.Checked; EnableManifest(UseXPManifestCheckBox.Checked);
DpiAwareComboBox.Enabled := UseXPManifestCheckBox.Checked; // Icon
ExecutionLevelLabel.Enabled := UseXPManifestCheckBox.Checked;
ExecutionLevelComboBox.Enabled := UseXPManifestCheckBox.Checked;
UIAccessCheckBox.Enabled := UseXPManifestCheckBox.Checked;
TextFieldButton.Enabled := UseXPManifestCheckBox.Checked;
AStream := TProjectIcon(ProjResources[TProjectIcon]).GetStream; AStream := TProjectIcon(ProjResources[TProjectIcon]).GetStream;
try try
SetIconFromStream(AStream); SetIconFromStream(AStream);
finally finally
AStream.Free; AStream.Free;
end; end;
fIconChanged:=false; fIconChanged := False;
end; end;
end; end;
@ -320,7 +313,7 @@ procedure TProjectApplicationOptionsFrame.WriteSettings(AOptions: TAbstractIDEOp
var var
AStream: TStream; AStream: TStream;
begin begin
with (AOptions as TProjectIDEOptions).Project {AOptions as TProject} do with (AOptions as TProjectIDEOptions).Project do
begin begin
Title := TitleEdit.Text; Title := TitleEdit.Text;
Scaled := UseLCLScalingCheckBox.Checked; Scaled := UseLCLScalingCheckBox.Checked;
@ -340,6 +333,8 @@ begin
DpiAware := TXPManifestDpiAware(DpiAwareComboBox.ItemIndex); DpiAware := TXPManifestDpiAware(DpiAwareComboBox.ItemIndex);
ExecutionLevel := TXPManifestExecutionLevel(ExecutionLevelComboBox.ItemIndex); ExecutionLevel := TXPManifestExecutionLevel(ExecutionLevelComboBox.ItemIndex);
UIAccess := UIAccessCheckBox.Checked; UIAccess := UIAccessCheckBox.Checked;
TextName := NameEdit.Text;
TextDesc := DescriptionEdit.Text;
end; end;
end; end;
end; end;

1
ide/lazarusidestrconsts.pas
View File

@ -2599,7 +2599,6 @@ resourcestring
dlgPODpiAwarenessOldOffNewPerMonitor = 'Vista-8: off, 8.1+: per monitor'; dlgPODpiAwarenessOldOffNewPerMonitor = 'Vista-8: off, 8.1+: per monitor';
dlgPODpiAwarenessOldOnNewPerMonitor = 'Vista-8: on, 8.1+: per monitor'; dlgPODpiAwarenessOldOnNewPerMonitor = 'Vista-8: on, 8.1+: per monitor';
dlgPOUIAccess = 'UI Access (uiAccess)'; dlgPOUIAccess = 'UI Access (uiAccess)';
dlgPOTextFields = 'Text fields';
dlgPOAsInvoker = 'as invoker (asInvoker)'; dlgPOAsInvoker = 'as invoker (asInvoker)';
dlgPOHighestAvailable = 'highest available (highestAvailable)'; dlgPOHighestAvailable = 'highest available (highestAvailable)';
dlgPORequireAdministrator = 'require administrator (requireAdministrator)'; dlgPORequireAdministrator = 'require administrator (requireAdministrator)';