paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 06:18:23 +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"/> <UseXPManifest Value="True"/>
<Icon Value="0"/> <Icon Value="0"/>
</General> </General>
<BuildModes Count="1"> <BuildModes Count="2">
<Item1 Name="default" Default="True"/> <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> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -113,6 +154,7 @@
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<GenerateDebugInfo Value="False"/>
<DebugInfoType Value="dsStabs"/> <DebugInfoType Value="dsStabs"/>
</Debugging> </Debugging>
<Options> <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 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 the terms of the GNU General Public License as published by the Free
@ -37,8 +37,6 @@ uses
type type
{ TContentTab } { TContentTab }
TContentTab = class(TTabSheet) TContentTab = class(TTabSheet)
@ -88,7 +86,6 @@ type
procedure PageControlChange(Sender: TObject); procedure PageControlChange(Sender: TObject);
procedure PageControlEnter(Sender: TObject); procedure PageControlEnter(Sender: TObject);
procedure ViewMenuContentsClick(Sender: TObject); procedure ViewMenuContentsClick(Sender: TObject);
private private
{ private declarations } { private declarations }
fServerName: String; fServerName: String;
@ -137,7 +134,6 @@ type
URL: String; URL: String;
end; end;
{ THelpForm } { THelpForm }
@ -300,7 +296,7 @@ begin
RecentCount:= fConfig.GetValue('Recent/ItemCount/Value', 0); RecentCount:= fConfig.GetValue('Recent/ItemCount/Value', 0);
for i := RecentCount-1 downto 0 do // downto since oldest are knocked off the list 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; end;
procedure THelpForm.SavePreferences(AIPCName: String); procedure THelpForm.SavePreferences(AIPCName: String);
@ -319,8 +315,7 @@ begin
fConfig.SetValue('Recent/ItemCount/Value', FileMenuOpenRecentItem.Count); fConfig.SetValue('Recent/ItemCount/Value', FileMenuOpenRecentItem.Count);
for i := 0 to FileMenuOpenRecentItem.Count-1 do // downto since oldest are knocked off the list 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.Flush;
fConfig.Free; fConfig.Free;
@ -388,8 +383,6 @@ begin
FreeAndNil(fOutputIPC); FreeAndNil(fOutputIPC);
end; end;
procedure THelpForm.ServerMessage(Sender: TObject); procedure THelpForm.ServerMessage(Sender: TObject);
var var
UrlReq: TUrlRequest; UrlReq: TUrlRequest;
@ -441,8 +434,6 @@ begin
end; end;
end; end;
procedure THelpForm.ReadCommandLineOptions; procedure THelpForm.ReadCommandLineOptions;
var var
X: Integer; X: Integer;