From a81d15e01e2a14ba9ecb0b0dd9f72d49d708459a Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 3 Jun 2015 11:06:56 +0200
Subject: [PATCH] proj conf/insp btn enabled only if proj assigned
---
src/ce_projconf.lfm | 2 +-
src/ce_projconf.pas | 5 ++++-
src/ce_projinspect.lfm | 2 +-
src/ce_projinspect.pas | 7 ++-----
4 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/src/ce_projconf.lfm b/src/ce_projconf.lfm
index c74f60e7..f0568962 100644
--- a/src/ce_projconf.lfm
+++ b/src/ce_projconf.lfm
@@ -16,7 +16,7 @@ inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget
Width = 445
ClientHeight = 273
ClientWidth = 445
- object Panel1: TPanel[0]
+ object pnlToolBar: TPanel[0]
Left = 4
Height = 24
Top = 2
diff --git a/src/ce_projconf.pas b/src/ce_projconf.pas
index 2fc44bab..33edede8 100644
--- a/src/ce_projconf.pas
+++ b/src/ce_projconf.pas
@@ -19,7 +19,7 @@ type
imgList: TImageList;
Panel2: TPanel;
selConf: TComboBox;
- Panel1: TPanel;
+ pnlToolBar: TPanel;
btnAddConf: TSpeedButton;
btnDelConf: TSpeedButton;
btnCloneConf: TSpeedButton;
@@ -113,6 +113,7 @@ begin
fProj := aProject;
if Visible then updateImperative;
syncroMode := false;
+ pnlToolBar.Enabled:=true;
end;
procedure TCEProjectConfigurationWidget.projClosing(aProject: TCEProject);
@@ -123,6 +124,7 @@ begin
inspector.ItemIndex := -1;
self.selConf.Clear;
syncroMode := false;
+ pnlToolBar.Enabled:=false;
fProj := nil;
end;
@@ -136,6 +138,7 @@ end;
procedure TCEProjectConfigurationWidget.projFocused(aProject: TCEProject);
begin
fProj := aProject;
+ pnlToolBar.Enabled:=true;
if Visible then updateImperative;
end;
diff --git a/src/ce_projinspect.lfm b/src/ce_projinspect.lfm
index 5a0d56e7..b5fec719 100644
--- a/src/ce_projinspect.lfm
+++ b/src/ce_projinspect.lfm
@@ -48,7 +48,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
20736F7572636573
}
end
- object Panel1: TPanel[1]
+ object pnlToolBar: TPanel[1]
Left = 2
Height = 24
Top = 2
diff --git a/src/ce_projinspect.pas b/src/ce_projinspect.pas
index 61eb590f..4537246f 100644
--- a/src/ce_projinspect.pas
+++ b/src/ce_projinspect.pas
@@ -13,7 +13,7 @@ type
TCEProjectInspectWidget = class(TCEWidget, ICEProjectObserver)
btnRemFold: TSpeedButton;
imgList: TImageList;
- Panel1: TPanel;
+ pnlToolBar: TPanel;
btnAddFile: TSpeedButton;
btnProjOpts: TSpeedButton;
btnAddFold: TSpeedButton;
@@ -388,10 +388,7 @@ begin
fXtraNode.DeleteChildren;
//
hasProj := fProject <> nil;
- btnAddFile.Enabled := hasProj;
- btnRemFile.Enabled := hasProj;
- btnAddFold.Enabled := hasProj;
- btnRemFold.Enabled := hasProj;
+ pnlToolBar.Enabled := hasProj;
if not hasProj then exit;
//
Tree.BeginUpdate;