paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 15:57:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed tpanel.xpm tabs to spaces

Browse Source 
git-svn-id: trunk@8910 -
This commit is contained in:
mattias 2006-03-10 16:32:26 +00:00
parent 9272283138
commit ac4d00db6c
3 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
images/components/tpanel.xpm
View File

@ -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[] = {
".+@@@@@@@@@@@@@@@@.+",
".@.................+",
" +++++++++++++++++++",
" . "};
" "};

18
images/components_images.lrs
View File

@ -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",'

8
lcl/intfgraphics.pas
View File

@ -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);