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

IDE: check IsVisible

Browse Source 
git-svn-id: trunk@25616 -
This commit is contained in:
mattias 2010-05-24 17:46:31 +00:00
parent b527e66fb7
commit e447dbc938
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/fpdoceditwindow.pas
View File

@ -1075,7 +1075,7 @@ begin
// save the current changes to documentation
Save(true);
// check if visible
if not Visible then exit;
if not IsVisible then exit;
NewSrcFilename:=CleanAndExpandFilename(SrcFilename);
if (NewSrcFilename=SourceFilename) and (CompareCaret(Caret,CaretXY)=0)
@ -1148,14 +1148,14 @@ begin
if (fChain=nil) or (fChain.Count=0) then begin
if (FCurrentTopic <> '') and (DFile <> nil) then
CodeHelpBoss.SaveFPDocFile(DFile)
else if Visible then
else if IsVisible then
DebugLn(['TFPDocEditor.Save failed: no chain']);
exit;
end;
if not fChain.IsValid then begin
if (FCurrentTopic <> '') and (DFile <> nil) then
CodeHelpBoss.SaveFPDocFile(DFile)
else if Visible then
else if IsVisible then
DebugLn(['TFPDocEditor.Save failed: chain not valid']);
exit;
end;