paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 06:17:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

lhelp: some formatting changes

Browse Source 
git-svn-id: trunk@59318 -
This commit is contained in:
wp 2018-10-18 11:22:47 +00:00
parent b0a2ee83dc
commit 858369838e
2 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/chmhelp/lhelp/lhelpcore.lfm
View File

@ -51,7 +51,7 @@ object HelpForm: THelpForm
OnKeyUp = FormKeyUp
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
Visible = True
object PageControl: TPageControl
Left = 0

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

@ -415,13 +415,12 @@ end;
procedure THelpForm.ApplyLayoutPreferencesOnce;
begin
if not(assigned(fConfig)) then exit;
if (not(fHide)) and
(not(fLayoutApplied)) then
if not Assigned(fConfig) then exit;
if (not fHide) and (not fLayoutApplied) then
begin
if (fConfig.GetValue('Position/Maximized', false)=true) then
if fConfig.GetValue('Position/Maximized', false) then
begin
Windowstate:=wsMaximized
Windowstate := wsMaximized
end
else
begin
@ -507,9 +506,10 @@ procedure THelpForm.SavePreferences;
var
i: Integer;
begin
if not(assigned(fConfig)) then
if not Assigned(fConfig) then
exit; //silently abort
if not (WindowState = wsMaximized) then
if (WindowState <> wsMaximized) then
begin
fConfig.SetValue('Position/Maximized', false);
fConfig.SetValue('Position/Left/Value', Left);
@ -734,8 +734,8 @@ var
Filename: String;
begin
FillChar(IsHandled{%H-}, 51, 0);
X:=1;
while X<=ParamCount do
X := 1;
while X <= ParamCount do
begin
if LowerCase(ParamStrUTF8(X)) = '--ipcname' then
begin
@ -768,7 +768,7 @@ begin
end
else
begin
IsHandled[X]:=copy(ParamStrUTF8(X),1,1)='-'; // ignore other parameters
IsHandled[X] := copy(ParamStrUTF8(X),1,1)='-'; // ignore other parameters
inc(X);
end;
end;
@ -778,14 +778,15 @@ begin
if not IsHandled[X] then
begin
//DoOpenChm(ParamStrUTF8(X));
URL:=ParamStrUTF8(X);
URL := ParamStrUTF8(X);
if Pos('://', URL) = 0 then
URL := 'file://'+URL;
Filename:=URL;
if copy(Filename,1,length('file://'))='file://' then
// if copy(Filename,1,length('file://'))='file://' then
if pos('file://', FileName) = 1 then
begin
System.Delete(Filename,1,length('file://'));
Filename:=SetDirSeparators(Filename);
Filename := SetDirSeparators(Filename);
if not FileExistsUTF8(Filename) then
begin
debugln(['THelpForm.ReadCommandLineOptions file not found "',Filename,'"']);