Browse Source

# revisions: 39793,39850,39852,39910,40020,40021,40022,40024,40096

git-svn-id: branches/fixes_3_2@40097 -
marco 6 years ago
parent
commit
e1d32d0fef

+ 3 - 5
packages/chm/src/chmsitemap.pas

@@ -253,10 +253,8 @@ begin
            begin
            begin
             if (FLevel > 0 ) then 
             if (FLevel > 0 ) then 
              begin
              begin
-
-              if LowerCase(GetTagName(AActualTag)) = 'param' then begin
-
-                TagAttributeName := GetVal(AActualTag, 'name');
+                if LowerCase(GetTagName(AActualTag)) = 'param' then begin
+                  TagAttributeName := GetVal(AActualTag, 'name');
                 TagAttributeValue := GetVal(AActualTag, 'value');
                 TagAttributeValue := GetVal(AActualTag, 'value');
                 //writeln('name,value',tagattributename, ' ',tagattributevalue);
                 //writeln('name,value',tagattributename, ' ',tagattributevalue);
                 if TagAttributeName <> '' then begin
                 if TagAttributeName <> '' then begin
@@ -424,7 +422,7 @@ var
       WriteString('<LI> <OBJECT type="text/sitemap">');
       WriteString('<LI> <OBJECT type="text/sitemap">');
       Inc(Indent, 8);
       Inc(Indent, 8);
 
 
-      if (SiteMapType = stIndex) and (Item.Children.Count > 0) then
+      if (SiteMapType = stIndex) and ((Item.Children.Count > 0) or (item.seealso<>'')) then
          WriteParam('Keyword', Item.Text);
          WriteParam('Keyword', Item.Text);
       //if Item.KeyWord <> '' then WriteParam('Keyword', Item.KeyWord);
       //if Item.KeyWord <> '' then WriteParam('Keyword', Item.KeyWord);
       if Item.Text <> '' then WriteParam('Name', Item.Text);
       if Item.Text <> '' then WriteParam('Name', Item.Text);

+ 2 - 0
packages/fcl-base/src/base64.pp

@@ -456,6 +456,8 @@ var
   Outstream : TStringStream;
   Outstream : TStringStream;
   Encoder   : TBase64EncodingStream;
   Encoder   : TBase64EncodingStream;
 begin
 begin
+  if Length(s)=0 then 
+    Exit('');
   Outstream:=TStringStream.Create('');
   Outstream:=TStringStream.Create('');
   try
   try
     Encoder:=TBase64EncodingStream.create(outstream);
     Encoder:=TBase64EncodingStream.create(outstream);

+ 4 - 1
packages/numlib/src/typ.pas

@@ -43,13 +43,16 @@ unit typ;
 {$I DIRECT.INC}                 {Contains "global" compilerswitches which
 {$I DIRECT.INC}                 {Contains "global" compilerswitches which
                                   are imported into every unit of the library }
                                   are imported into every unit of the library }
 
 
-{$DEFINE ArbExtended}
 
 
 interface
 interface
 
 
 uses
 uses
   Math;
   Math;
 
 
+{$if sizeof(extended)=10}
+{$DEFINE ArbExtended}
+{$endif}
+
 
 
 CONST numlib_version=2;         {used to detect version conflicts between
 CONST numlib_version=2;         {used to detect version conflicts between
                                   header unit and dll}
                                   header unit and dll}

+ 1 - 1
packages/rtl-objpas/src/inc/dateutil.inc

@@ -2616,7 +2616,7 @@ begin
                 matchchar(ptrn[pind]);
                 matchchar(ptrn[pind]);
             end;
             end;
      end;
      end;
-   if (pind<plen) and (plen>0) and (ptrn[plen-1]<>#9) then  // allow omission of trailing whitespace
+   if (pind<plen) and (plen>0) and not (ptrn[plen-1] in [#9, '"']) then  // allow omission of trailing whitespace
      RaiseException(format(SFullpattern,[poffs+pind+1]));
      RaiseException(format(SFullpattern,[poffs+pind+1]));
 end;
 end;
 
 

+ 5 - 1
packages/winunits-base/src/shellapi.pp

@@ -18,7 +18,11 @@
 {$smartlink on}
 {$smartlink on}
 {$endif}
 {$endif}
 
 
-{$PACKRECORDS C}
+{$ifdef WIN64}
+  {$PACKRECORDS C}
+{$else}
+  {$PACKRECORDS 1}
+{$endif}
 {$calling stdcall}
 {$calling stdcall}
 {$mode objfpc}
 {$mode objfpc}
 
 

+ 1 - 1
packages/winunits-base/src/shlobj.pp

@@ -1018,7 +1018,7 @@ Type
       TCATEGORY_INFO = CATEGORY_INFO;
       TCATEGORY_INFO = CATEGORY_INFO;
       PCATEGORY_INFO = ^CATEGORY_INFO;
       PCATEGORY_INFO = ^CATEGORY_INFO;
 
 
-      LPSHColumnID = SHColumnID;
+      LPSHColumnID = ^SHColumnID;
       TSHColumnid = SHColumnID;
       TSHColumnid = SHColumnID;
       pSHColumnID = LPSHColumnID;
       pSHColumnID = LPSHColumnID;
 
 

+ 30 - 8
rtl/win/wininc/defines.inc

@@ -245,9 +245,18 @@
      SERVICE_CONTINUE_PENDING = 5;
      SERVICE_CONTINUE_PENDING = 5;
      SERVICE_PAUSE_PENDING = 6;
      SERVICE_PAUSE_PENDING = 6;
      SERVICE_PAUSED = 7;
      SERVICE_PAUSED = 7;
-     SERVICE_ACCEPT_STOP = 1;
-     SERVICE_ACCEPT_PAUSE_CONTINUE = 2;
-     SERVICE_ACCEPT_SHUTDOWN = 4;
+     SERVICE_ACCEPT_STOP                    = $01;
+     SERVICE_ACCEPT_PAUSE_CONTINUE          = $02;
+     SERVICE_ACCEPT_SHUTDOWN                = $04;
+     SERVICE_ACCEPT_PARAMCHANGE             = $08;
+     SERVICE_ACCEPT_NETBINDCHANGE           = $10;
+     SERVICE_ACCEPT_HARDWAREPROFILECHANGE   = $20;
+     SERVICE_ACCEPT_POWEREVENT              = $40;
+     SERVICE_ACCEPT_SESSIONCHANGE           = $80;
+     SERVICE_ACCEPT_PRESHUTDOWN             = $100;
+     SERVICE_ACCEPT_TIMECHANGE              = $200;
+     SERVICE_ACCEPT_TRIGGEREVENT            = $400;
+
   { CheckDlgButton  }
   { CheckDlgButton  }
      BST_CHECKED = 1;
      BST_CHECKED = 1;
      BST_INDETERMINATE = 2;
      BST_INDETERMINATE = 2;
@@ -350,11 +359,24 @@
      DBG_TERMINATE_THREAD = $40010003;
      DBG_TERMINATE_THREAD = $40010003;
      DBG_TERMINATE_PROCESS = $40010004;
      DBG_TERMINATE_PROCESS = $40010004;
   { ControlService  }
   { ControlService  }
-     SERVICE_CONTROL_STOP = 1;
-     SERVICE_CONTROL_PAUSE = 2;
-     SERVICE_CONTROL_CONTINUE = 3;
-     SERVICE_CONTROL_INTERROGATE = 4;
-     SERVICE_CONTROL_SHUTDOWN = 5;
+     SERVICE_CONTROL_STOP                   = $1;
+     SERVICE_CONTROL_PAUSE                  = $2;
+     SERVICE_CONTROL_CONTINUE               = $3;
+     SERVICE_CONTROL_INTERROGATE            = $4;
+     SERVICE_CONTROL_SHUTDOWN               = $5;
+     SERVICE_CONTROL_PARAMCHANGE            = $6;
+     SERVICE_CONTROL_NETBINDADD             = $7;
+     SERVICE_CONTROL_NETBINDREMOVE          = $8;
+     SERVICE_CONTROL_NETBINDENABLE          = $9;
+     SERVICE_CONTROL_NETBINDDISABLE         = $A;
+     SERVICE_CONTROL_DEVICEEVENT            = $B;
+     SERVICE_CONTROL_HARDWAREPROFILECHANGE  = $C;
+     SERVICE_CONTROL_POWEREVENT             = $D;
+     SERVICE_CONTROL_SESSIONCHANGE          = $E;
+     SERVICE_CONTROL_PRESHUTDOWN            = $F;
+     SERVICE_CONTROL_TIMECHANGE             = $10;
+     SERVICE_CONTROL_TRIGGEREVENT           = $20;
+
   { CopyImage, LoadImage  }
   { CopyImage, LoadImage  }
      IMAGE_BITMAP = 0;
      IMAGE_BITMAP = 0;
      IMAGE_CURSOR = 2;
      IMAGE_CURSOR = 2;