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

* more lhelp state settings

Browse Source 
git-svn-id: trunk@26917 -
This commit is contained in:
andrew 2010-07-30 23:06:40 +00:00
parent c56eea9bf0
commit b3d3fb2050
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -170,7 +170,6 @@ end;
procedure THelpForm.FileMenuOpenItemClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
if OpenURL('file://'+OpenDialog1.FileName) = Ord(srSuccess) then
@ -309,10 +308,13 @@ procedure THelpForm.SavePreferences(AIPCName: String);
var
i: Integer;
begin
fConfig.SetValue('Position/Left/Value', Left);
fConfig.SetValue('Position/Top/Value', Top);
fConfig.SetValue('Position/Width/Value', Width);
fConfig.SetValue('Position/Height/Value', Height);
if not (WindowState = wsMaximized) then
begin
fConfig.SetValue('Position/Left/Value', Left);
fConfig.SetValue('Position/Top/Value', Top);
fConfig.SetValue('Position/Width/Value', Width);
fConfig.SetValue('Position/Height/Value', Height);
end;
fConfig.SetValue('LastFileOpen/Value', OpenDialog1.FileName);
@ -356,8 +358,8 @@ end;
procedure THelpForm.ContentTitleChange(sender: TObject);
begin
//if ActivePage = nil then
// Exit;
if ActivePage = nil then
Exit;
Caption := 'LHelp - ' + ActivePage.fContentProvider.Title;
end;