added case insesitifor xpm reader

git-svn-id: trunk@5844 -

.gitattributes

@@ -400,6 +400,7 @@ docs/xml/lcl/toolwin.xml svneol=native#text/xml
 docs/xml/lcl/utrace.xml svneol=native#text/xml
 docs/xml/lcl/vclglobals.xml svneol=native#text/xml
 docs/xml/make_all_skel.sh -text svneol=native#application/x-sh
+docs/xml/multi_makeskel.pl -text svneol=native#application/x-perl
 examples/address_book/addrbook.dpr svneol=native#text/pascal
 examples/address_book/addrbook.lpi svneol=native#text/plain
 examples/address_book/addrbook.lpr svneol=native#text/pascal

docs/xml/make_all_skel.sh

@@ -1,5 +1,16 @@
 #!/usr/bin/env bash
 #
+# *****************************************************************************
+# *                                                                           *
+# *  See the file COPYING.modifiedLGPL, included in this distribution,        *
+# *  for details about the copyright.                                         *
+# *                                                                           *
+# *  This program is distributed in the hope that it will be useful,          *
+# *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
+# *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
+# *                                                                           *
+# *****************************************************************************
+#
 # Author: Mattias Gaertner
 #
 # This script calls makeskel on every unit in the current directory and creates
@@ -8,11 +19,15 @@
 set -x
 set -e
 
-MakeSkel=$1
+MakeSkel=$MAKESKEL
 if [ -z $MakeSkel ]; then
   MakeSkel=makeskel
 fi
 
+if [ -z $PackageName ]; then
+
+fi
+
 # create unit list
 UnitList=`echo *.pp *.pas`
 

docs/xml/multi_makeskel.pl

@@ -0,0 +1,102 @@
+#!/usr/bin/env perl
+#
+# *****************************************************************************
+# *                                                                           *
+# *  See the file COPYING.modifiedLGPL, included in this distribution,        *
+# *  for details about the copyright.                                         *
+# *                                                                           *
+# *  This program is distributed in the hope that it will be useful,          *
+# *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
+# *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
+# *                                                                           *
+# *****************************************************************************
+#
+# Author: Mattias Gaertner
+
+use vars qw/ %opt /;
+use Getopt::Std;
+my $opt_string = 'hp:s:o:i:m:x';
+getopts( "$opt_string", \%opt ) or usage();
+usage() if $opt{h};
+
+sub usage(){
+  print STDERR << "EOF";
+
+Create fpdoc sceletons for pascal units
+
+usage: $0 [-hpsoimx]
+
+ -h                    : this (help) message
+ -p <packagename>      : the FPDoc package name to which the units belong
+ -s <source directory> : the source directory with the .pp and .pas files
+ -o <output directory> : the output directory for the xml files
+ 
+ optional:
+ -i <parser options>   : the input options for the parser
+ -m <makeskel>         : alternative path to makeskel
+ -x : do not simulate, execute makeskel and overwrite all existing xml files
+
+examples:
+  multi_makeskel.pl -p lcl -s /path/to/lazarus/lcl -o /path/to/lazarus/docs/xml -i '-Fiinclude'
+
+EOF
+  exit;
+}
+
+($opt{p}) || usage(); # packagename needed
+($opt{s}) || usage(); # source directory needed
+($opt{o}) || usage(); # output directory needed
+
+$PackageName=$opt{p};
+($PackageName=~/^[a-z0-9][a-z0-9_]*$/) || die "invalid packagename $PackageName\n";
+
+$SrcDir=$opt{s};
+(-d $SrcDir) || die "source directory $SrcDir is not a directory\n";
+$SrcDir=~s#//#/#;
+$SrcDir=~s#/$##;
+
+$OutDir=$opt{o};
+(-d $OutDir) || die "output directory $OutDir is not a directory\n";
+$OutDir=~s#//#/#;
+$OutDir=~s#/$##;
+
+$Makeskel="makeskel";
+if($opt{m}){
+  $Makeskel=$opt{m};
+}
+
+$ParserOptions="";
+if($opt{p}){
+  $ParserOptions=$opt{p};
+}
+
+# get pascal unit files
+opendir(DIR, $SrcDir);
+@Files = grep(/\.(pas|pp)$/,readdir(DIR));
+closedir(DIR);
+
+for $SrcFile(@Files){
+  $OutFile=$SrcFile;
+  ($OutFile=~s/\.(pas|pp)$/.xml/);
+  print $SrcFile." -> ".$OutFile."\n";
+  $Input=$SrcDir."/".$SrcFile;
+  if ($opt{i}){
+    $Input.="' ".$opt{i}."'";
+  }
+  $Output=$OutDir."/".$OutFile;
+  $Command="$Makeskel --package=$PackageName --input=$Input --output=$Output";
+  print $Command."\n";
+  if($opt{x}){
+    system($Command);
+    if($?){
+      exit;
+    }
+  }
+}
+
+if(!$opt{x}){
+  print "\nThis was a simulation. To really overwrite the xml files, use the -x option.\n";
+}
+
+# end.
+

ideintf/helpfpdoc.pas

@@ -14,6 +14,10 @@
 
   Abstract:
     Help database for FPDoc.
+    
+  ToDo:
+    - localization. Example: german, LANG=de, uses path unitname/de/ instead
+      of unitname/
 }
 unit HelpFPDoc;
 

ideintf/helpintf.pas

@@ -16,11 +16,9 @@
     This unit defines various base classes for the Help System used by the IDE.
     
   ToDo:
-    - Add Macro Support
+    - localization support.
-    - Add Show help for Classes
-    - Add Show help for (Compiler-) Messages
-    - Standalone help system for LCL applications
     - Add Help Editing functions
+    - Standalone help system for LCL applications
 }
 unit HelpIntf;
 

lcl/intfgraphics.pas

@@ -1972,7 +1972,7 @@ var
   var
     s: String;
   begin
-    s := copy(Src,TextStart,TextEnd-TextStart);
+    s := lowercase(copy(Src,TextStart,TextEnd-TextStart));
     if s = 'transparent' then
       Result := FPImage.colTransparent
     else if s = 'none' then
@@ -1995,23 +1995,25 @@ var
       Result := FPImage.colWhite
     else if s = 'gray' then
       Result := FPImage.colGray
-    else if s = 'ltgray' then
+    else if s = 'lightgray' then
       Result := FPImage.colLtGray
-    else if s = 'dkblue' then
+    else if (s = 'darkgray') or (s='grey') then
+      Result := FPImage.colDKGray
+    else if s = 'darkblue' then
       Result := FPImage.colDkBlue
-    else if s = 'dkgreen' then
+    else if s = 'darkgreen' then
       Result := FPImage.colDkGreen
-    else if s = 'dkcyan' then
+    else if s = 'darkcyan' then
       Result := FPImage.colDkCyan
-    else if s = 'dkred' then
+    else if s = 'darkred' then
       Result := FPImage.colDkRed
-    else if s = 'dkmagenta' then
+    else if s = 'darkmagenta' then
       Result := FPImage.colDkMagenta
-    else if s = 'dkyellow' then
+    else if s = 'darkyellow' then
       Result := FPImage.colDkYellow
     else if s = 'maroon' then
       Result := FPImage.colMaroon
-    else if s = 'ltgreen' then
+    else if s = 'lightgreen' then
       Result := FPImage.colLtGreen
     else if s = 'olive' then
       Result := FPImage.colOlive