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

fixed lazdoc options loading/saving

Browse Source 
git-svn-id: trunk@7736 -
This commit is contained in:
mattias 2005-09-18 23:00:33 +00:00
parent 6a2d38bc49
commit 3b3c877682
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/environmentopts.pp
View File

@ -1146,7 +1146,9 @@ begin
LoadPascalFileExt(Path+''); LoadPascalFileExt(Path+'');
//lazdoc //lazdoc
FLazDocPathList.Text := XMLConfig.GetValue(Path+'LazDoc/Paths', FLazDocPathList.Text); if FLazDocPathList<>nil then
FLazDocPathList.Text :=
XMLConfig.GetValue(Path+'LazDoc/Paths', FLazDocPathList.Text);
if FileVersion>=103 then begin if FileVersion>=103 then begin
fCharcaseFileAction:=CharCaseFileActionNameToType(XMLConfig.GetValue( fCharcaseFileAction:=CharCaseFileActionNameToType(XMLConfig.GetValue(
@ -1359,6 +1361,7 @@ begin
AmbiguousFileActionNames[afaAsk]); AmbiguousFileActionNames[afaAsk]);
//lazdoc //lazdoc
if FLazDocPathList<>nil then
XMLConfig.SetValue(Path+'LazDoc/Paths', FLazDocPathList.Text); XMLConfig.SetValue(Path+'LazDoc/Paths', FLazDocPathList.Text);
// object inspector // object inspector