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

Fixed enabling subitems button

Browse Source 
git-svn-id: trunk@5590 -
This commit is contained in:
marc 2004-06-20 16:40:50 +00:00
parent 5f696cfe82
commit 2b47924f07
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ideintf/listviewpropedit.pp
View File

@ -59,14 +59,13 @@ Type
edtLabel : TEdit;
edtIndex : TEdit;
TV : TTreeView;
btnSub : TButton;
fBuild : Boolean;
Panel1: TPanel;
OkButton: TBitBtn;
CancelButton: TBitBtn;
LeftGroupBox: TGroupBox;
NewButton: TButton;
AddButton: TButton;
SubButton: TButton;
DeleteButton: TButton;
RightGroupBox: TGroupBox;
CaptionLabel: TLabel;
@ -314,9 +313,9 @@ begin
OnClick:=@btnAddOnClick;
end;
AddButton:=TButton.Create(self);
With AddButton do begin
Name:='AddButton';
SubButton:=TButton.Create(self);
With SubButton do begin
Name:='SubButton';
Parent :=LeftGroupBox;
Enabled:=False;
Left :=NewButton.Left;
@ -333,7 +332,7 @@ begin
Parent :=LeftGroupBox;
Left :=NewButton.Left;
Width :=NewButton.Width;
Top :=AddButton.Top+AddButton.Height+30;
Top :=SubButton.Top+SubButton.Height+30;
Caption:=sccsLvEdtBtnDel;
OnClick:=@btnDelOnClick;
end;
@ -434,13 +433,13 @@ begin
edtIndex.Text:=IntToStr(TN.ImageIndex);
edtLabel.Enabled:=True;
edtIndex.Enabled:=True;
btnSub.Enabled :=True;
SubButton.Enabled :=True;
end
else
begin
EdtLabel.Text:='';
EdtIndex.Text:='';
btnSub.Enabled:=False;
SubButton.Enabled:=False;
edtLabel.Enabled:=False;
edtIndex.Enabled:=False;
end;
@ -458,7 +457,7 @@ begin
Top :=22;
end;
With AddButton do begin
With SubButton do begin
Left :=NewButton.Left;
Width :=NewButton.Width;
Top :=NewButton.Top+NewButton.Height+30;
@ -467,7 +466,7 @@ begin
With DeleteButton do begin
Left :=NewButton.Left;
Width :=NewButton.Width;
Top :=AddButton.Top+AddButton.Height+30;
Top :=SubButton.Top+SubButton.Height+30;
end;
With TV do