paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 06:59:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Improve project->version info. Issue #32899, patch from Lutz Mändle.

Browse Source 
git-svn-id: trunk@64790 -
This commit is contained in:
juha 2021-03-12 10:08:59 +00:00
parent 05b9887d74
commit d4abf907f2
2 changed files with 28 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/frames/project_versioninfo_options.lfm
View File

@ -93,6 +93,7 @@ object ProjectVersionInfoOptionsFrame: TProjectVersionInfoOptionsFrame
Top = 24
Width = 70
MaxValue = 65535
OnChange = VersionSpinEditChange
TabOrder = 0
end
object MinorVersionSpinEdit: TSpinEdit
@ -104,6 +105,7 @@ object ProjectVersionInfoOptionsFrame: TProjectVersionInfoOptionsFrame
Top = 24
Width = 70
MaxValue = 65535
OnChange = VersionSpinEditChange
TabOrder = 1
end
object RevisionSpinEdit: TSpinEdit
@ -115,6 +117,7 @@ object ProjectVersionInfoOptionsFrame: TProjectVersionInfoOptionsFrame
Top = 24
Width = 70
MaxValue = 65535
OnChange = VersionSpinEditChange
TabOrder = 2
end
object AutomaticallyIncreaseBuildCheckBox: TCheckBox
@ -141,6 +144,7 @@ object ProjectVersionInfoOptionsFrame: TProjectVersionInfoOptionsFrame
Top = 24
Width = 70
MaxValue = 65535
OnChange = VersionSpinEditChange
TabOrder = 3
end
end

30
ide/frames/project_versioninfo_options.pas
View File

@ -41,6 +41,7 @@ type
MajorVersionLabel: TLabel;
MajorVersionSpinEdit: TSpinEdit;
procedure clbAttributesClickCheck(Sender: TObject);
procedure VersionSpinEditChange(Sender: TObject);
procedure UseVersionInfoCheckBoxChange(Sender: TObject);
private
FVersionInfo: TProjectVersionInfo;
@ -95,13 +96,30 @@ end;
procedure TProjectVersionInfoOptionsFrame.clbAttributesClickCheck(Sender: TObject);
begin
if clbAttributes.Checked[Ord(pvaPrivateBuild)] then
DeleteKey('PrivateBuild')
AddKey('PrivateBuild')
else
AddKey('PrivateBuild');
DeleteKey('PrivateBuild');
if clbAttributes.Checked[Ord(pvaSpecialBuild)] then
DeleteKey('SpecialBuild')
AddKey('SpecialBuild')
else
AddKey('SpecialBuild');
DeleteKey('SpecialBuild');
end;
procedure TProjectVersionInfoOptionsFrame.VersionSpinEditChange(
Sender: TObject);
var
I: Integer;
begin
for I := 0 to StringInfo.RowCount - 1 do
if UTF8LowerCase(StringInfo.Cells[0, I]) = UTF8LowerCase('FileVersion') then
begin
StringInfo.Cells[1, I] :=
IntToStr(MajorVersionSpinEdit.Value) + '.' +
IntToStr(MinorVersionSpinEdit.Value) + '.' +
IntToStr(RevisionSpinEdit.Value) + '.' +
IntToStr(BuildSpinEdit.Value);
Exit;
end;
end;
procedure TProjectVersionInfoOptionsFrame.EnableVersionInfo(UseVersionInfo: boolean);
@ -112,7 +130,7 @@ begin
AttributesGroupBox.Enabled := UseVersionInfo;
end;
procedure TProjectVersionInfoOptionsFrame.AddKey(AKey: String);
procedure TProjectVersionInfoOptionsFrame.DeleteKey(AKey: String);
var
I: Integer;
begin
@ -121,7 +139,7 @@ begin
StringInfo.DeleteRow(I);
end;
procedure TProjectVersionInfoOptionsFrame.DeleteKey(AKey: String);
procedure TProjectVersionInfoOptionsFrame.AddKey(AKey: String);
var
I: Integer;
begin