paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 02:58:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fpdoceditor: create button: show error message instead of disabling

Browse Source 
git-svn-id: trunk@49620 -
This commit is contained in:
mattias 2015-08-08 10:37:14 +00:00
parent 95646ee93f
commit 0d54b4a4f4
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/fpdoceditwindow.pas
View File

@ -277,7 +277,6 @@ begin
ShortLabel.Caption:=lisShort;
LinkLabel.Caption:=lisLink;
CreateButton.Caption := lisCodeHelpCreateButton;
CreateButton.Enabled:=false;
OpenXMLButton.Caption:=lisOpenXML;
OpenXMLButton.Enabled:=false;
SaveButton.Caption := '';
@ -875,8 +874,8 @@ begin
try
EnabledState := (Element<>nil) and (Element.ElementNode<>nil);
CreateButton.Enabled := (Element<>nil) and (Element.ElementNode=nil)
and (Element.ElementName<>'');
//CreateButton.Enabled := (Element<>nil) and (Element.ElementNode=nil)
// and (Element.ElementName<>'');
if EnabledState then
begin
@ -1168,7 +1167,7 @@ begin
FOldVisualValues[i]:='';
Modified := False;
CreateButton.Enabled:=false;
//CreateButton.Enabled:=false;
OpenXMLButton.Enabled:=false;
finally
Exclude(FFlags,fpdefReading);
@ -1614,7 +1613,12 @@ end;
procedure TFPDocEditor.CreateButtonClick(Sender: TObject);
begin
if (fChain=nil) or (fChain.Count=0) then exit;
if ((fChain=nil) or (fChain.Count=0))
or (TCodeHelpElement(fChain[0]).ElementName='') then begin
IDEMessageDialog('Invalid Declaration','Please place the editor caret on an identifier. If this is a new unit, please save the file first.',
mtError,[mbOK]);
exit;
end;
CreateElement(fChain[0]);
end;