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

lhelp: fixed invalid recent item path in config, added build modes default,debug

Browse Source 
git-svn-id: trunk@37811 -
This commit is contained in:
mattias 2012-06-28 08:36:35 +00:00
parent 8961260644
commit f834ac76ce
2 changed files with 46 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
components/chmhelp/lhelp/lhelp.lpi
View File

@ -12,8 +12,49 @@
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<BuildModes Count="2">
<Item1 Name="default" Default="True"/>
<Item2 Name="debug">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lhelp"/>
</Target>
<SearchPaths>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</Item2>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
@ -113,6 +154,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<DebugInfoType Value="dsStabs"/>
</Debugging>
<Options>

15
components/chmhelp/lhelp/lhelpcore.pas
View File

@ -1,4 +1,4 @@
{ Copyright (C) <2005> <Andrew Haines> lhelpcore.pas
{ Copyright (C) 2005 Andrew Haines
This source is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
@ -37,8 +37,6 @@ uses
type
{ TContentTab }
TContentTab = class(TTabSheet)
@ -88,7 +86,6 @@ type
procedure PageControlChange(Sender: TObject);
procedure PageControlEnter(Sender: TObject);
procedure ViewMenuContentsClick(Sender: TObject);
private
{ private declarations }
fServerName: String;
@ -137,7 +134,6 @@ type
URL: String;
end;
{ THelpForm }
@ -300,7 +296,7 @@ begin
RecentCount:= fConfig.GetValue('Recent/ItemCount/Value', 0);
for i := RecentCount-1 downto 0 do // downto since oldest are knocked off the list
AddRecentFile(fConfig.GetValue('Recent/Item/'+IntToStr(i)+'/Value',''));
AddRecentFile(fConfig.GetValue('Recent/Item'+IntToStr(i)+'/Value',''));
end;
procedure THelpForm.SavePreferences(AIPCName: String);
@ -319,8 +315,7 @@ begin
fConfig.SetValue('Recent/ItemCount/Value', FileMenuOpenRecentItem.Count);
for i := 0 to FileMenuOpenRecentItem.Count-1 do // downto since oldest are knocked off the list
fConfig.SetValue('Recent/Item/'+IntToStr(i)+'/Value', TRecentMenuItem(FileMenuOpenRecentItem.Items[I]).URL);
fConfig.SetValue('Recent/Item'+IntToStr(i)+'/Value', TRecentMenuItem(FileMenuOpenRecentItem.Items[I]).URL);
fConfig.Flush;
fConfig.Free;
@ -388,8 +383,6 @@ begin
FreeAndNil(fOutputIPC);
end;
procedure THelpForm.ServerMessage(Sender: TObject);
var
UrlReq: TUrlRequest;
@ -441,8 +434,6 @@ begin
end;
end;
procedure THelpForm.ReadCommandLineOptions;
var
X: Integer;