paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 18:55: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 */ /* XPM */
static char * tpanel_xpm[] = { static char * tpanel_xpm[] = {
"20 21 4 1", "20 21 4 1",
" c None", " c None",
". c #808080", ". c #808080",
"+ c #FFFFFF", "+ c #FFFFFF",
"@ c #C0C0C0", "@ 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 +'....@@@@@......"};'#10
]); ]);
LazarusResources.Add('tpanel','XPM',[ LazarusResources.Add('tpanel','XPM',[
'/* XPM */'#10'static char * tpanel_xpm[] = {'#10'"20 21 4 1",'#10'" '#9'c No' '/* XPM */'#10'static char * tpanel_xpm[] = {'#10'"20 21 4 1",'#10'" c '
+'ne",'#10'".'#9'c #808080",'#10'"+'#9'c #FFFFFF",'#10'"@'#9'c #C0C0C0",'#10 +'None",'#10'". c #808080",'#10'"+ c #FFFFFF",'#10'"@ c #C0C0C'
+'"................... ",'#10'".+++++++++++++++++@+",'#10'".+@@@@@@@@@@@@@@@@' +'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'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@'
+'@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+'
+'@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+"'
+','#10'".+@@@@@@@@@@@@@@@@.+",'#10'".+@@@@@@@@@@@@@@@@.+",'#10'".@..........'
+'.......+",'#10'" +++++++++++++++++++",'#10'" "};'#10#10
]); ]);
LazarusResources.Add('tpicture','XPM',[ LazarusResources.Add('tpicture','XPM',[
'/* XPM */'#10'static char *graphic[] = {'#10'"23 23 61 1",'#10'". c None",' '/* 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 if (Src[SrcPos]='"') and (Src[SrcPos-1]<>'\') then begin
// string end found // string end found
Line.EndPos:=SrcPos; Line.EndPos:=SrcPos;
//DebugLn(' "',copy(Src,Line.StartPos,SrcPos-Line.StartPos),'"'); //DebugLn(' ',copy(Src,Line.StartPos-1,Line.EndPos-Line.StartPos+2));
inc(SrcPos); inc(SrcPos);
Result:=true; Result:=true;
exit; exit;
@ -2084,7 +2084,7 @@ var
NewEntry: PXPMPixelToColorEntry; NewEntry: PXPMPixelToColorEntry;
i: Integer; i: Integer;
begin begin
{DebugLn('TLazReaderXPM.InternalRead.AddColor A "',PixelString,'"=', {DebugLn('TLazReaderXPM.InternalRead.AddColor A "',DbgStr(copy(Src,PixelStart,FCharsPerPixel)),'"=',
DbgS(AColor.Red),',', DbgS(AColor.Red),',',
DbgS(AColor.Green),',', DbgS(AColor.Green),',',
DbgS(AColor.Blue),',', DbgS(AColor.Blue),',',
@ -2097,6 +2097,7 @@ var
for i:=0 to FCharsPerPixel-1 do for i:=0 to FCharsPerPixel-1 do
IntArray[i]:=ord(Src[PixelStart+i]); IntArray[i]:=ord(Src[PixelStart+i]);
FPixelToColorTree.SetNode(IntArray,FCharsPerPixel,NewEntry); FPixelToColorTree.SetNode(IntArray,FCharsPerPixel,NewEntry);
//if FPixelToColorTree.FindData(IntArray,FCharsPerPixel)<>NewEntry then RaiseGDBException('');
end; end;
procedure ReadPalette(IntArray: PInteger); procedure ReadPalette(IntArray: PInteger);
@ -2117,7 +2118,7 @@ var
inc(ReadPos,FCharsPerPixel); inc(ReadPos,FCharsPerPixel);
// skip spaces // skip spaces
while IsSpaceChar[Src[ReadPos]] do inc(ReadPos); 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 if not (Src[ReadPos] in ['c','s']) then
RaiseXPMReadError('"c" expected',ReadPos); RaiseXPMReadError('"c" expected',ReadPos);
inc(ReadPos); inc(ReadPos);
@ -2165,6 +2166,7 @@ var
if Line.EndPos-Line.StartPos<FCharsPerPixel*FWidth then if Line.EndPos-Line.StartPos<FCharsPerPixel*FWidth then
RaiseXPMReadError('line too short',ReadPos); RaiseXPMReadError('line too short',ReadPos);
for x:=0 to FWidth-1 do begin 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 for i:=0 to FCharsPerPixel-1 do begin
IntArray[i]:=ord(Src[ReadPos]); IntArray[i]:=ord(Src[ReadPos]);
inc(ReadPos); inc(ReadPos);