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

IDE: diff dlg for build modes, bug #17781

Browse Source 
git-svn-id: trunk@28039 -
This commit is contained in:
mattias 2010-11-02 13:51:24 +00:00
parent b9f5c98980
commit 2bf1c89884
2 changed files with 29 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ide/buildmodediffdlg.lfm
View File

@ -11,8 +11,8 @@ object BuildModeDiffDialog: TBuildModeDiffDialog
LCLVersion = '0.9.29'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 30
Top = 280
Height = 40
Top = 270
Width = 481
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
@ -33,9 +33,9 @@ object BuildModeDiffDialog: TBuildModeDiffDialog
AnchorSideTop.Control = ModeComboBox
AnchorSideTop.Side = asrCenter
Left = 10
Height = 17
Top = 12
Width = 69
Height = 18
Top = 14
Width = 78
BorderSpacing.Left = 10
Caption = 'ModeLabel'
ParentColor = False
@ -46,13 +46,14 @@ object BuildModeDiffDialog: TBuildModeDiffDialog
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 89
Height = 21
Left = 98
Height = 27
Top = 10
Width = 394
Width = 385
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 10
ItemHeight = 0
OnChange = ModeComboBoxChange
TabOrder = 1
Text = 'ModeComboBox'
end
@ -60,8 +61,8 @@ object BuildModeDiffDialog: TBuildModeDiffDialog
AnchorSideTop.Control = ModeComboBox
AnchorSideTop.Side = asrBottom
Left = 10
Height = 233
Top = 41
Height = 217
Top = 47
Width = 473
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
@ -69,16 +70,16 @@ object BuildModeDiffDialog: TBuildModeDiffDialog
BorderSpacing.Right = 4
BorderSpacing.Around = 6
Caption = 'DiffsGroupBox'
ClientHeight = 211
ClientHeight = 196
ClientWidth = 465
TabOrder = 2
object DiffTreeView: TTreeView
Left = 0
Height = 211
Height = 196
Top = 0
Width = 465
Align = alClient
DefaultItemHeight = 18
DefaultItemHeight = 19
TabOrder = 0
end
end

15
ide/buildmodediffdlg.pas
View File

@ -44,6 +44,7 @@ type
ModeComboBox: TComboBox;
ModeLabel: TLabel;
procedure FormCreate(Sender: TObject);
procedure ModeComboBoxChange(Sender: TObject);
private
FBaseMode: TProjectBuildMode;
fProject: TProject;
@ -86,6 +87,20 @@ begin
DiffsGroupBox.Caption:='Differences to other build modes';
end;
procedure TBuildModeDiffDialog.ModeComboBoxChange(Sender: TObject);
var
i: Integer;
begin
if fProject<>nil then
for i:=0 to fProject.BuildModes.Count-1 do
if SysUtils.AnsiCompareText(fProject.BuildModes[i].GetCaption,ModeComboBox.Text)=0
then begin
fBaseMode:=fProject.BuildModes[i];
FillDiffTreeView;
break;
end;
end;
procedure TBuildModeDiffDialog.FillModeComboBox;
var
sl: TStringList;