From ac4d00db6c24d9f15bff3d3d0125b72f8d87b595 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 10 Mar 2006 16:32:26 +0000
Subject: [PATCH] fixed tpanel.xpm tabs to spaces

git-svn-id: trunk@8910 -
---
 images/components/tpanel.xpm | 11 ++++++-----
 images/components_images.lrs | 18 +++++++++---------
 lcl/intfgraphics.pas         |  8 +++++---
 3 files changed, 20 insertions(+), 17 deletions(-)

diff --git a/images/components/tpanel.xpm b/images/components/tpanel.xpm
index 078c70c9bd..bee0c65872 100644
--- a/images/components/tpanel.xpm
+++ b/images/components/tpanel.xpm
@@ -1,10 +1,10 @@
 /* XPM */
 static char * tpanel_xpm[] = {
 "20 21 4 1",
-" 	c None",
-".	c #808080",
-"+	c #FFFFFF",
-"@	c #C0C0C0",
+"       c None",
+".      c #808080",
+"+      c #FFFFFF",
+"@      c #C0C0C0",
 "................... ",
 ".+++++++++++++++++@+",
 ".+@@@@@@@@@@@@@@@@.+",
@@ -25,4 +25,5 @@ static char * tpanel_xpm[] = {
 ".+@@@@@@@@@@@@@@@@.+",
 ".@.................+",
 " +++++++++++++++++++",
-"    .               "};
+"                    "};
+
diff --git a/images/components_images.lrs b/images/components_images.lrs
index 0b98358a33..f21aa8c0fc 100644
--- a/images/components_images.lrs
+++ b/images/components_images.lrs
@@ -2467,16 +2467,16 @@ LazarusResources.Add('tpairsplitter','XPM',[
   +'....@@@@@......"};'#10
 ]);
 LazarusResources.Add('tpanel','XPM',[
-  '/* XPM */'#10'static char * tpanel_xpm[] = {'#10'"20 21 4 1",'#10'" '#9'c No'
-  +'ne",'#10'".'#9'c #808080",'#10'"+'#9'c #FFFFFF",'#10'"@'#9'c #C0C0C0",'#10
-  +'"................... ",'#10'".+++++++++++++++++@+",'#10'".+@@@@@@@@@@@@@@@@'
-  +'.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@'
-  +'@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'"'
-  +'.+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.'
-  +'+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@'
+  '/* XPM */'#10'static char * tpanel_xpm[] = {'#10'"20 21 4 1",'#10'"       c '
+  +'None",'#10'".      c #808080",'#10'"+      c #FFFFFF",'#10'"@      c #C0C0C'
+  +'0",'#10'"................... ",'#10'".+++++++++++++++++@+",'#10'".+@@@@@@@@'
   +'@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".'
-  +'+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".@.................+'
-  +'",'#10'" +++++++++++++++++++",'#10'"    .               "};'#10
+  +'+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+'
+  +'",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@'
+  +'@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+'
+  +'@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+"'
+  +','#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".@..........'
+  +'.......+",'#10'" +++++++++++++++++++",'#10'"                    "};'#10#10
 ]);
 LazarusResources.Add('tpicture','XPM',[
   '/* XPM */'#10'static char *graphic[] = {'#10'"23 23 61 1",'#10'". c None",'
diff --git a/lcl/intfgraphics.pas b/lcl/intfgraphics.pas
index 29a9559698..15c821222a 100644
--- a/lcl/intfgraphics.pas
+++ b/lcl/intfgraphics.pas
@@ -1912,7 +1912,7 @@ var
             if (Src[SrcPos]='"') and (Src[SrcPos-1]<>'\') then begin
               // string end found
               Line.EndPos:=SrcPos;
-              //DebugLn('  "',copy(Src,Line.StartPos,SrcPos-Line.StartPos),'"');
+              //DebugLn('  ',copy(Src,Line.StartPos-1,Line.EndPos-Line.StartPos+2));
               inc(SrcPos);
               Result:=true;
               exit;
@@ -2084,7 +2084,7 @@ var
     NewEntry: PXPMPixelToColorEntry;
     i: Integer;
   begin
-    {DebugLn('TLazReaderXPM.InternalRead.AddColor A "',PixelString,'"=',
+    {DebugLn('TLazReaderXPM.InternalRead.AddColor A "',DbgStr(copy(Src,PixelStart,FCharsPerPixel)),'"=',
       DbgS(AColor.Red),',',
       DbgS(AColor.Green),',',
       DbgS(AColor.Blue),',',
@@ -2097,6 +2097,7 @@ var
     for i:=0 to FCharsPerPixel-1 do
       IntArray[i]:=ord(Src[PixelStart+i]);
     FPixelToColorTree.SetNode(IntArray,FCharsPerPixel,NewEntry);
+    //if FPixelToColorTree.FindData(IntArray,FCharsPerPixel)<>NewEntry then RaiseGDBException('');
   end;
 
   procedure ReadPalette(IntArray: PInteger);
@@ -2117,7 +2118,7 @@ var
       inc(ReadPos,FCharsPerPixel);
       // skip spaces
       while IsSpaceChar[Src[ReadPos]] do inc(ReadPos);
-      // read 'c' (sometimes the 'c' is a 's')
+      // read 'c' (sometimes the 'c' is an 's')
       if not (Src[ReadPos] in ['c','s']) then
         RaiseXPMReadError('"c" expected',ReadPos);
       inc(ReadPos);
@@ -2165,6 +2166,7 @@ var
       if Line.EndPos-Line.StartPos<FCharsPerPixel*FWidth then
         RaiseXPMReadError('line too short',ReadPos);
       for x:=0 to FWidth-1 do begin
+        //DebugLn('ReadPixels x=',dbgs(x),' y=',dbgs(y),' color="',DbgStr(copy(Src,ReadPos,FCharsPerPixel)),'"');
         for i:=0 to FCharsPerPixel-1 do begin
           IntArray[i]:=ord(Src[ReadPos]);
           inc(ReadPos);