paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 22:38:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: designer: change class dlg: disable ok button

Browse Source 
git-svn-id: trunk@40037 -
This commit is contained in:
mattias 2013-01-30 01:43:13 +00:00
parent aec7fa72d7
commit b33abc827c
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
designer/changeclassdialog.pas
View File

@ -372,10 +372,14 @@ begin
end;
end;
FillAncestorListBox(NewClass,NewAncestorsListBox);
if NewClass<>nil then
NewClassComboBox.Text:=NewClass.ClassName
else
if NewClass<>nil then begin
NewClassComboBox.Text:=NewClass.ClassName;
BtnPanel.OKButton.Enabled:=true;
end
else begin
NewClassComboBox.Text:='';
BtnPanel.OKButton.Enabled:=false;
end;
end;
procedure TChangeClassDlg.FillAncestorListBox(AClass: TClass; AListBox: TListBox);