paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed icons

Browse Source 
git-svn-id: trunk@3343 -
This commit is contained in:
lazarus 2002-09-14 14:47:41 +00:00
parent 4be5bbcd27
commit 78911bbec5
12 changed files with 465 additions and 580 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.gitattributes vendored
View File

@ -508,11 +508,9 @@ images/sourceeditor/bookmark8.xpm -text svneol=native#image/x-xpixmap
images/sourceeditor/bookmark9.ico -text svneol=unset#image/x-icon
images/sourceeditor/bookmark9.xpm -text svneol=native#image/x-xpixmap
images/splash_logo.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/allowed_unit_circle_22x22.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/forbidden_unit_circle_22x22.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/implementation_unit_22x22.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/interface_unit_22x22.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/srctype_circle_22x22.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/srctype_filenotfound_22x22.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/srctype_forbiddencircle_22x22.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/srctype_library_22x22.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/srctype_package_22x22.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/srctype_parseerror_22x22.xpm -text svneol=native#image/x-xpixmap

239
ide/unitdependencies.lrs
View File

@ -1,4 +1,4 @@
LazarusResources.Add('allowed_unit_circle_22x22','XPM',[
LazarusResources.Add('srctype_circle_22x22','XPM',[
'/* XPM */'#10'static char * allowed_unit_circle_22x22_xpm[] = {'#10'"22 22 1'
+'47 2",'#10'" '#9'c None",'#10'". '#9'c #215017",'#10'"+ '#9'c #225118",'#10
+'"@ '#9'c #1C3F10",'#10'"# '#9'c #1C4110",'#10'"$ '#9'c #213B14",'#10'"% '#9
@ -62,7 +62,20 @@ LazarusResources.Add('allowed_unit_circle_22x22','XPM',[
+'l.0.g.m.E ",'#10'" ].n.P h.o.p.E "'
+'};'#10
]);
LazarusResources.Add('forbidden_unit_circle_22x22','XPM',[
LazarusResources.Add('srctype_filenotfound_22x22','XPM',[
'/* XPM */'#10'static char * srctype_filenotfound_22x22_xpm[] = {'#10'"22 22 '
+'3 1",'#10'" '#9'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #FF0000",'#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('srctype_forbiddencircle_22x22','XPM',[
'/* XPM */'#10'static char * forbidden_unit_circle_22x22_xpm[] = {'#10'"22 22'
+' 83 1",'#10'" '#9'c None",'#10'".'#9'c #570E36",'#10'"+'#9'c #580F37",'#10
+'"@'#9'c #45082D",'#10'"#'#9'c #47082F",'#10'"$'#9'c #3F0E31",'#10'"%'#9'c #'
@ -99,57 +112,6 @@ LazarusResources.Add('forbidden_unit_circle_22x22','XPM',[
+'" }~&[<:*_(/^]* ",'#10'" {~!)'',>;-=* ",'#10'" &%$#@+'
+'. "};'#10
]);
LazarusResources.Add('implementation_unit_22x22','XPM',[
'/* XPM */'#10'static char * implementation_unit_22x22_xpm[] = {'#10'"22 22 4'
+'5 1",'#10'" '#9'c None",'#10'".'#9'c #024266",'#10'"+'#9'c #AEDDE9",'#10'"@'
+#9'c #A6D6E3",'#10'"#'#9'c #A0D2E0",'#10'"$'#9'c #9BD0E0",'#10'"%'#9'c #96CF'
+'DF",'#10'"&'#9'c #ABDAE6",'#10'"*'#9'c #80BED2",'#10'"='#9'c #A8D8E5",'#10
+'"-'#9'c #79B8CD",'#10'";'#9'c #A2D4E2",'#10'">'#9'c #72B1C8",'#10'",'#9'c #'
+'73B2C9",'#10'"'''#9'c #99CCDC",'#10'")'#9'c #6BAAC3",'#10'"!'#9'c #6CABC4",'
+#10'"~'#9'c #A9DAE7",'#10'"{'#9'c #9ACDDC",'#10'"]'#9'c #89C0D2",'#10'"^'#9
+'c #65A5C0",'#10'"/'#9'c #6FADC5",'#10'"('#9'c #91C6D7",'#10'"_'#9'c #98CADB'
+'",'#10'":'#9'c #86BAD0",'#10'"<'#9'c #67A1BC",'#10'"['#9'c #A2D3E2",'#10'"}'
+#9'c #5F9FBB",'#10'"|'#9'c #5898B7",'#10'"1'#9'c #89BCD0",'#10'"2'#9'c #5192'
+'B2",'#10'"3'#9'c #619BB9",'#10'"4'#9'c #4B8CAE",'#10'"5'#9'c #4788AA",'#10
+'"6'#9'c #4C8CAD",'#10'"7'#9'c #4F8EAE",'#10'"8'#9'c #4485A9",'#10'"9'#9'c #'
+'4D8DAE",'#10'"0'#9'c #3D7FA5",'#10'"a'#9'c #4686AA",'#10'"b'#9'c #3679A0",'
+#10'"c'#9'c #397CA3",'#10'"d'#9'c #30729C",'#10'"e'#9'c #2F729C",'#10'"f'#9
+'c #296C97",'#10'" ",'#10'" ",'#10
+'" ..... ",'#10'" .+@#$%. ",'#10'" .&****.'
+' ",'#10'" .=----. ",'#10'" .;>,,,. ",'#10
+'" .....'')!!!..... ",'#10'" .~~~~{]^^^^/(_:<. ",'#10'" .[}}}}}}}}}'
+'}}}}}. ",'#10'" ._||||||||||||||. ",'#10'" .122222222222222. ",'#10
+'" .344456444444444. ",'#10'" .....78888..... ",'#10'" .90000.'
+' ",'#10'" .abbbb. ",'#10'" .cdddd. ",'#10
+'" .effff. ",'#10'" ..... ",'#10'" '
+' ",'#10'" ",'#10'" "};'#10
]);
LazarusResources.Add('interface_unit_22x22','XPM',[
'/* XPM */'#10'static char * interface_unit_22x22_xpm[] = {'#10'"22 22 1 1",'
+#10'" '#9'c None",'#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('srctype_filenotfound_22x22','XPM',[
'/* XPM */'#10'static char * srctype_filenotfound_22x22_xpm[] = {'#10'"22 22 '
+'3 1",'#10'" '#9'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #FF0000",'#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('srctype_library_22x22','XPM',[
'/* XPM */'#10'static char * srctype_library_22x22_xpm[] = {'#10'"22 22 116 2'
+'",'#10'" '#9'c None",'#10'". '#9'c #020202",'#10'"+ '#9'c #023636",'#10'"@'
@ -205,94 +167,89 @@ LazarusResources.Add('srctype_library_22x22','XPM',[
+'" /.(.(._. "};'#10
]);
LazarusResources.Add('srctype_package_22x22','XPM',[
'/* XPM */'#10'static char * srctype_package_22x22_xpm[] = {'#10'"22 22 232 2'
+'",'#10'" '#9'c None",'#10'". '#9'c #8F7F6E",'#10'"+ '#9'c #8B7C6B",'#10'"@'
+' '#9'c #887969",'#10'"# '#9'c #857666",'#10'"$ '#9'c #817364",'#10'"% '#9'c'
+' #7E7062",'#10'"& '#9'c #7B6D5F",'#10'"* '#9'c #776B5D",'#10'"= '#9'c #7468'
+'5A",'#10'"- '#9'c #8A7B6A",'#10'"; '#9'c #FFFFFF",'#10'"> '#9'c #73675A",'
+#10'", '#9'c #898989",'#10'"'' '#9'c #6A6054",'#10'") '#9'c #867767",'#10'"!'
+' '#9'c #6F6357",'#10'"~ '#9'c #C9C9C9",'#10'"{ '#9'c #827464",'#10'"] '#9'c'
+' #828282",'#10'"^ '#9'c #C6C6C6",'#10'"/ '#9'c #5D544A",'#10'"( '#9'c #7E70'
+'61",'#10'"_ '#9'c #665C51",'#10'": '#9'c #63594E",'#10'"< '#9'c #60564C",'
+#10'"[ '#9'c #5C5449",'#10'"} '#9'c #595147",'#10'"| '#9'c #494214",'#10'"1 '
+#9'c #796C5E",'#10'"2 '#9'c #5C5B5B",'#10'"3 '#9'c #FEFCFB",'#10'"4 '#9'c #A'
+'4A4A4",'#10'"5 '#9'c #747474",'#10'"6 '#9'c #554D44",'#10'"7 '#9'c #FEF9D9"'
+','#10'"8 '#9'c #FEF9D4",'#10'"9 '#9'c #75695B",'#10'"0 '#9'c #CC0606",'#10
+'"a '#9'c #FDFBF9",'#10'"b '#9'c #FCF7F3",'#10'"c '#9'c #FAF4EE",'#10'"d '#9
+'c #F0EAE6",'#10'"e '#9'c #C1BAB3",'#10'"f '#9'c #504941",'#10'"g '#9'c #FEF'
+'BE4",'#10'"h '#9'c #FEFADF",'#10'"i '#9'c #FEF9DA",'#10'"j '#9'c #FEF9D5",'
+#10'"k '#9'c #FEF8CF",'#10'"l '#9'c #716558",'#10'"m '#9'c #5A5552",'#10'"n '
+#9'c #7E7873",'#10'"o '#9'c #9F958D",'#10'"p '#9'c #7D746E",'#10'"q '#9'c #D'
+'8D0C8",'#10'"r '#9'c #4C463E",'#10'"s '#9'c #FEFCEF",'#10'"t '#9'c #FEFBEA"'
+','#10'"u '#9'c #FEFBE5",'#10'"v '#9'c #FEFAE0",'#10'"w '#9'c #FBF5F0",'#10
+'"x '#9'c #F9F1EA",'#10'"y '#9'c #F8EEE5",'#10'"z '#9'c #F7EADF",'#10'"A '#9
+'c #F5E7DA",'#10'"B '#9'c #D6CABF",'#10'"C '#9'c #48423B",'#10'"D '#9'c #FEF'
+'DFB",'#10'"E '#9'c #FEFDF5",'#10'"F '#9'c #FEFCF0",'#10'"G '#9'c #FEFBEB",'
+#10'"H '#9'c #FEFBE6",'#10'"I '#9'c #FEFADC",'#10'"J '#9'c #FEF9D6",'#10'"K '
+#9'c #FEF8D1",'#10'"L '#9'c #685E52",'#10'"M '#9'c #807C79",'#10'"N '#9'c #5'
+'A5653",'#10'"O '#9'c #C0B5AC",'#10'"P '#9'c #998778",'#10'"Q '#9'c #7B6F65"'
+','#10'"R '#9'c #7A6D62",'#10'"S '#9'c #D3C3B4",'#10'"T '#9'c #443F38",'#10
+'"U '#9'c #F8EEC3",'#10'"V '#9'c #F7EBC0",'#10'"W '#9'c #FEFCF1",'#10'"X '#9
+'c #FEFCEC",'#10'"Y '#9'c #FEFAE2",'#10'"Z '#9'c #FEF9D7",'#10'"` '#9'c #FEF'
+'8D2",'#10'" .'#9'c #645A4F",'#10'"..'#9'c #FAF2EC",'#10'"+.'#9'c #F9EFE7",'
+#10'"@.'#9'c #F7EBE1",'#10'"#.'#9'c #F6E8DC",'#10'"$.'#9'c #F4E4D6",'#10'"%.'
+#9'c #F3E0D0",'#10'"&.'#9'c #F2DDCB",'#10'"*.'#9'c #D1BCAA",'#10'"=.'#9'c #3'
+'F3B35",'#10'"-.'#9'c #F6EABD",'#10'";.'#9'c #F4E8B9",'#10'">.'#9'c #F2E6B5"'
+','#10'",.'#9'c #F0E4B1",'#10'"''.'#9'c #FEFADD",'#10'").'#9'c #FEF9D8",'#10
+'"!.'#9'c #FEF8D3",'#10'"~.'#9'c #60574C",'#10'"{.'#9'c #7F7A76",'#10'"].'#9
+'c #595551",'#10'"^.'#9'c #7B6F64",'#10'"/.'#9'c #564C45",'#10'"(.'#9'c #786'
+'A5C",'#10'"_.'#9'c #CEB6A0",'#10'":.'#9'c #3B3732",'#10'"<.'#9'c #F3E7B7",'
+#10'"[.'#9'c #F1E4B3",'#10'"}.'#9'c #EFE2AF",'#10'"|.'#9'c #EEE0AB",'#10'"1.'
+#9'c #ECDEA7",'#10'"2.'#9'c #FEFADE",'#10'"3.'#9'c #C3AE59",'#10'"4.'#9'c #5'
+'C5349",'#10'"5.'#9'c #F8EDE3",'#10'"6.'#9'c #F6E9DD",'#10'"7.'#9'c #F5E5D8"'
+','#10'"8.'#9'c #F3E2D2",'#10'"9.'#9'c #F2DECD",'#10'"0.'#9'c #F1DAC7",'#10
+'"a.'#9'c #EFD7C2",'#10'"b.'#9'c #EED3BC",'#10'"c.'#9'c #CCAF97",'#10'"d.'#9
+'c #37342F",'#10'"e.'#9'c #F0E3B1",'#10'"f.'#9'c #EEE1AD",'#10'"g.'#9'c #EDD'
+'FA9",'#10'"h.'#9'c #EBDDA5",'#10'"i.'#9'c #E9DAA1",'#10'"j.'#9'c #E7D89D",'
+#10'"k.'#9'c #E6D699",'#10'"l.'#9'c #C6B05B",'#10'"m.'#9'c #BCA954",'#10'"n.'
+#9'c #574F46",'#10'"o.'#9'c #D7CCC1",'#10'"p.'#9'c #D5C7BA",'#10'"q.'#9'c #D'
+'3C2B3",'#10'"r.'#9'c #D1BEAC",'#10'"s.'#9'c #CFB9A5",'#10'"t.'#9'c #CEB49F"'
+','#10'"u.'#9'c #CCB097",'#10'"v.'#9'c #CAAB90",'#10'"w.'#9'c #C9A88C",'#10
+'"x.'#9'c #33302C",'#10'"y.'#9'c #EDE0AA",'#10'"z.'#9'c #ECDEA6",'#10'"A.'#9
+'c #EADBA2",'#10'"B.'#9'c #E8D99E",'#10'"C.'#9'c #E6D79A",'#10'"D.'#9'c #E5D'
+'596",'#10'"E.'#9'c #E3D392",'#10'"F.'#9'c #BFAB56",'#10'"G.'#9'c #B6A34F",'
+#10'"H.'#9'c #534C43",'#10'"I.'#9'c #504940",'#10'"J.'#9'c #49433C",'#10'"K.'
+#9'c #464039",'#10'"L.'#9'c #423E37",'#10'"M.'#9'c #3F3B34",'#10'"N.'#9'c #3'
+'C3832",'#10'"O.'#9'c #383530",'#10'"P.'#9'c #35322D",'#10'"Q.'#9'c #322F2B"'
+','#10'"R.'#9'c #2F2D29",'#10'"S.'#9'c #EBDCA4",'#10'"T.'#9'c #E9DAA0",'#10
+'"U.'#9'c #E7D89C",'#10'"V.'#9'c #E5D698",'#10'"W.'#9'c #E4D494",'#10'"X.'#9
+'c #E2D190",'#10'"Y.'#9'c #E0CF8C",'#10'"Z.'#9'c #B9A551",'#10'"`.'#9'c #AF9'
+'D4A",'#10'" +'#9'c #A69643",'#10'".+'#9'c #9D8E3C",'#10'"++'#9'c #948636",'
+#10'"@+'#9'c #8B7E2F",'#10'"#+'#9'c #827628",'#10'"$+'#9'c #E4D596",'#10'"%+'
+#9'c #E2D292",'#10'"&+'#9'c #E1D08E",'#10'"*+'#9'c #DFCE8A",'#10'"=+'#9'c #D'
+'DCC86",'#10'"-+'#9'c #B2A04C",'#10'";+'#9'c #A99845",'#10'">+'#9'c #A0903E"'
+','#10'",+'#9'c #978837",'#10'"''+'#9'c #8E8031",'#10'")+'#9'c #85782A",'#10
+'"!+'#9'c #7C7123",'#10'"~+'#9'c #E5D598",'#10'"{+'#9'c #E3D394",'#10'"]+'#9
+'c #E1D190",'#10'"^+'#9'c #DECD88",'#10'"/+'#9'c #DCCB84",'#10'"(+'#9'c #DAC'
,'880",'#10'"_+'#9'c #AC9A47",'#10'":+'#9'c #A29240",'#10'"<+'#9'c #998A39",'
+#10'"[+'#9'c #908333",'#10'"}+'#9'c #877B2C",'#10'"|+'#9'c #7E7325",'#10'"1+'
+#9'c #756B1E",'#10'"2+'#9'c #DFCE89",'#10'"3+'#9'c #DDCC85",'#10'"4+'#9'c #D'
+'BC981",'#10'"5+'#9'c #D9C77D",'#10'"6+'#9'c #D8C579",'#10'"7+'#9'c #A59442"'
+','#10'"8+'#9'c #9C8D3B",'#10'"9+'#9'c #938535",'#10'"0+'#9'c #8A7D2E",'#10
+'"a+'#9'c #817527",'#10'"b+'#9'c #D8C67B",'#10'"c+'#9'c #D7C477",'#10'"d+'#9
+'c #D5C273",'#10'"e+'#9'c #9F8F3D",'#10'"f+'#9'c #968737",'#10'"g+'#9'c #8C7'
+'F30",'#10'"h+'#9'c #D2BE6D",'#10'"i+'#9'c #988938",'#10'" '
+' . + @ # $ % & * = ",'#10'" - ; ; ; ; ; ; > , '' '
+' ",'#10'" ) ; ; ; ; ; ; ! ; ~ '' ",'#10'" '
+' { ; ] ~ ] ^ ; '' ~ ; , / ",'#10'" ( ; ; ; ; ; '
+'; _ : < [ } ",'#10'" | | 1 ; ] 2 ~ ] ~ 3 ^ 4 5 6 ",'#10'" '
+' | | 7 8 | 9 ; 0 ; ; ; a b c d e f ",'#10'" | | g h i j k l ; 0 '
+'0 ^ ] m n o p q r ",'#10'" | | s t u v 0 0 0 0 0 0 0 0 w x y z A B C ",'#10
+'"| D E F G H 0 I J K L ; 0 0 M N O P Q R S T ",'#10'"| U V W X 0 Y I Z ` .'
+'; 0 ..+.@.#.$.%.&.*.=.",'#10'"| -.;.>.,.0 Y ''.).!.~.; {.].O P ^./.P (._.:.'
+'",'#10'"| <.[.}.|.1.0 2.7 3.4.; 5.6.7.8.9.0.a.b.c.d.",'#10'"| e.f.g.h.i.j.k'
+'.l.m.n.q o.p.q.r.s.t.u.v.w.x.",'#10'"| y.z.A.B.C.D.E.F.G.H.I.r J.K.L.M.N.O.'
+'P.Q.R.",'#10'"| S.T.U.V.W.X.Y.Z.`. +.+++@+#+| ",'#10'"| B.C.$+%'
+'+&+*+=+-+;+>+,+''+)+!+| ",'#10'"| ~+{+]+Y.^+/+(+_+:+<+[+}+|+1+|'
+' ",'#10'" | | 2+3+4+5+6+7+8+9+0+a+| | ",'#10'" '
+' | | b+c+d+e+f+g+| | ",'#10'" | | h+i+| | '
+' ",'#10'" | | "};'
+#10
'/* XPM */'#10'static char * srctype_package_22x22_xpm[] = {'#10'"19 22 224 2'
+'",'#10'" '#9'c None",'#10'". '#9'c #14142A",'#10'"+ '#9'c #454568",'#10'"@'
+' '#9'c #08081C",'#10'"# '#9'c #070714",'#10'"$ '#9'c #3C3C5B",'#10'"% '#9'c'
+' #9898C4",'#10'"& '#9'c #ADADD2",'#10'"* '#9'c #8989B6",'#10'"= '#9'c #2F2F'
+'45",'#10'"- '#9'c #03030D",'#10'"; '#9'c #07070D",'#10'"> '#9'c #5C5C84",'
+#10'", '#9'c #B4B4D4",'#10'"'' '#9'c #CACAE3",'#10'") '#9'c #CECEE5",'#10'"!'
+' '#9'c #AAAACB",'#10'"~ '#9'c #45456D",'#10'"{ '#9'c #030309",'#10'"] '#9'c'
+' #010103",'#10'"^ '#9'c #1B1B2E",'#10'"/ '#9'c #656591",'#10'"( '#9'c #C4C4'
+'DF",'#10'"_ '#9'c #DEDEEE",'#10'": '#9'c #E9E9F3",'#10'"< '#9'c #EBEBF5",'
+#10'"[ '#9'c #E8E8F3",'#10'"} '#9'c #DDDDEE",'#10'"| '#9'c #BCBCDA",'#10'"1 '
+#9'c #49497A",'#10'"2 '#9'c #131325",'#10'"3 '#9'c #010105",'#10'"4 '#9'c #2'
+'62641",'#10'"5 '#9'c #8383AE",'#10'"6 '#9'c #8C8CBB",'#10'"7 '#9'c #8F8FBD"'
+','#10'"8 '#9'c #DEDEED",'#10'"9 '#9'c #F6F6FA",'#10'"0 '#9'c #F9F9FC",'#10
+'"a '#9'c #F5F5FA",'#10'"b '#9'c #CECEE3",'#10'"c '#9'c #8383B5",'#10'"d '#9
+'c #8D8DBD",'#10'"e '#9'c #7878A4",'#10'"f '#9'c #171736",'#10'"g '#9'c #000'
+'000",'#10'"h '#9'c #080811",'#10'"i '#9'c #4A4A62",'#10'"j '#9'c #9C9CB6",'
+#10'"k '#9'c #C3C3DC",'#10'"l '#9'c #C6C6E0",'#10'"m '#9'c #B6B6D7",'#10'"n '
+#9'c #9292BD",'#10'"o '#9'c #D0D0E4",'#10'"p '#9'c #F3F3F9",'#10'"q '#9'c #B'
+'EBEDA",'#10'"r '#9'c #9494C0",'#10'"s '#9'c #BFBFDD",'#10'"t '#9'c #C5C5E0"'
+','#10'"u '#9'c #C5C5DF",'#10'"v '#9'c #ABABCE",'#10'"w '#9'c #4A4A67",'#10
+'"x '#9'c #060613",'#10'"y '#9'c #0D0D15",'#10'"z '#9'c #54546C",'#10'"A '#9
+'c #A7A7BA",'#10'"B '#9'c #CCCCDD",'#10'"C '#9'c #E0E0EF",'#10'"D '#9'c #E1E'
+'1F0",'#10'"E '#9'c #DADAEC",'#10'"F '#9'c #C9C9E2",'#10'"G '#9'c #9898C3",'
+#10'"H '#9'c #8080AC",'#10'"I '#9'c #A2A2CA",'#10'"J '#9'c #CBCBE3",'#10'"K '
+#9'c #D8D8EA",'#10'"L '#9'c #C1C1DD",'#10'"M '#9'c #5A5A7E",'#10'"N '#9'c #0'
+'50513",'#10'"O '#9'c #262633",'#10'"P '#9'c #7E7EA7",'#10'"Q '#9'c #C5C5DB"'
+','#10'"R '#9'c #EDEDF5",'#10'"S '#9'c #F6F6FB",'#10'"T '#9'c #EFEFF7",'#10
+'"U '#9'c #C0C0DB",'#10'"V '#9'c #7171A8",'#10'"W '#9'c #9393BE",'#10'"X '#9
+'c #CFCFE4",'#10'"Y '#9'c #EBEBF4",'#10'"Z '#9'c #C3C3DD",'#10'"` '#9'c #7C7'
+'CAF",'#10'" .'#9'c #222236",'#10'"..'#9'c #41414A",'#10'"+.'#9'c #BFBFDA",'
+#10'"@.'#9'c #A6A6CB",'#10'"#.'#9'c #C9C9E0",'#10'"$.'#9'c #FDFDFE",'#10'"%.'
+#9'c #FBFBFD",'#10'"&.'#9'c #C5C5DD",'#10'"*.'#9'c #B1B1D2",'#10'"=.'#9'c #C'
+'8C8E2",'#10'"-.'#9'c #9999C4",'#10'";.'#9'c #C2C2DD",'#10'">.'#9'c #A7A7CD"'
+','#10'",.'#9'c #D8D8E9",'#10'"''.'#9'c #FCFCFE",'#10'").'#9'c #B9B9D7",'#10
+'"!.'#9'c #ACACCE",'#10'"~.'#9'c #B5B5D5",'#10'"{.'#9'c #2D2D3F",'#10'"].'#9
+'c #40404B",'#10'"^.'#9'c #E1E1EF",'#10'"/.'#9'c #BDBDDA",'#10'"(.'#9'c #B9B'
+'9D8",'#10'"_.'#9'c #B2B2D4",'#10'":.'#9'c #C2C2DC",'#10'"<.'#9'c #8B8BB9",'
+#10'"[.'#9'c #DDDDED",'#10'"}.'#9'c #C1C1DB",'#10'"|.'#9'c #B3B3D3",'#10'"1.'
+#9'c #CCCCE3",'#10'"2.'#9'c #2A2A3D",'#10'"3.'#9'c #2A2A3C",'#10'"4.'#9'c #D'
+'1D1E7",'#10'"5.'#9'c #CACAE2",'#10'"6.'#9'c #DFDFEE",'#10'"7.'#9'c #CCCCE4"'
+','#10'"8.'#9'c #6E6EA5",'#10'"9.'#9'c #9999C1",'#10'"0.'#9'c #D2D2E7",'#10
+'"a.'#9'c #C4C4DD",'#10'"b.'#9'c #D1D1E6",'#10'"c.'#9'c #7878AB",'#10'"d.'#9
+'c #1D1D32",'#10'"e.'#9'c #43434D",'#10'"f.'#9'c #B5B5D6",'#10'"g.'#9'c #909'
+'0BD",'#10'"h.'#9'c #B3B3D5",'#10'"i.'#9'c #C4C4E0",'#10'"j.'#9'c #ADADD0",'
+#10'"k.'#9'c #8181B2",'#10'"l.'#9'c #9797C3",'#10'"m.'#9'c #ABABD0",'#10'"n.'
+#9'c #8A8ABA",'#10'"o.'#9'c #B6B6D6",'#10'"p.'#9'c #C6C6E1",'#10'"q.'#9'c #A'
+'AAACE",'#10'"r.'#9'c #9090BC",'#10'"s.'#9'c #AEAED1",'#10'"t.'#9'c #9494BF"'
+','#10'"u.'#9'c #8484B4",'#10'"v.'#9'c #B7B7D6",'#10'"w.'#9'c #CDCDE4",'#10
+'"x.'#9'c #A9A9CE",'#10'"y.'#9'c #7B7BAE",'#10'"z.'#9'c #8A8AB9",'#10'"A.'#9
+'c #A7A7CC",'#10'"B.'#9'c #D5D5E8",'#10'"C.'#9'c #B8B8D7",'#10'"D.'#9'c #2C2'
+'C3E",'#10'"E.'#9'c #2A2A39",'#10'"F.'#9'c #A2A2C4",'#10'"G.'#9'c #D6D6EA",'
+#10'"H.'#9'c #9494BD",'#10'"I.'#9'c #7070A7",'#10'"J.'#9'c #E7E7F3",'#10'"K.'
+#9'c #DCDCED",'#10'"L.'#9'c #BCBCD9",'#10'"M.'#9'c #63639C",'#10'"N.'#9'c #A'
+'DADCF",'#10'"O.'#9'c #D4D4E8",'#10'"P.'#9'c #7E7EA5",'#10'"Q.'#9'c #171725"'
+','#10'"R.'#9'c #02020A",'#10'"S.'#9'c #262637",'#10'"T.'#9'c #9696C0",'#10
+'"U.'#9'c #B2B2D3",'#10'"V.'#9'c #9797C2",'#10'"W.'#9'c #9A9AC5",'#10'"X.'#9
+'c #E0E0EE",'#10'"Y.'#9'c #9696C1",'#10'"Z.'#9'c #A3A3CB",'#10'"`.'#9'c #737'
+'39A",'#10'" +'#9'c #101020",'#10'".+'#9'c #070716",'#10'"++'#9'c #57577B",'
+#10'"@+'#9'c #A8A8CD",'#10'"#+'#9'c #DBDBEA",'#10'"$+'#9'c #F5F5F9",'#10'"%+'
+#9'c #DCDCEC",'#10'"&+'#9'c #B3B3D4",'#10'"*+'#9'c #8080B0",'#10'"=+'#9'c #3'
+'9395A",'#10'"-+'#9'c #010108",'#10'";+'#9'c #04040B",'#10'">+'#9'c #2F2F53"'
+','#10'",+'#9'c #A3A3C6",'#10'"''+'#9'c #D5D5E9",'#10'")+'#9'c #A1A1C7",'#10
+'"!+'#9'c #C4C4DE",'#10'"~+'#9'c #D3D3E8",'#10'"{+'#9'c #8C8CB0",'#10'"]+'#9
+'c #191933",'#10'"^+'#9'c #191935",'#10'"/+'#9'c #9191B2",'#10'"(+'#9'c #D9D'
,'9EB",'#10'"_+'#9'c #6F6F94",'#10'":+'#9'c #0A0A1B",'#10'"<+'#9'c #000002",'
+#10'"[+'#9'c #151522",'#10'"}+'#9'c #6A6A94",'#10'"|+'#9'c #BBBBDA",'#10'"1+'
+#9'c #BEBEDC",'#10'"2+'#9'c #B1B1D4",'#10'"3+'#9'c #4C4C71",'#10'"4+'#9'c #0'
+'90913",'#10'"5+'#9'c #020208",'#10'"6+'#9'c #38385D",'#10'"7+'#9'c #686895"'
+','#10'"8+'#9'c #20203D",'#10'"9+'#9'c #000003",'#10'"0+'#9'c #010106",'#10
+'"a+'#9'c #090919",'#10'" ",'#10'" '
+' . + @ ",'#10'" # $ % & * = - '
+' ",'#10'" ; > , '' ) '' ! ~ { ",'#10'" ] ^ / ( _'
+' : < [ } | 1 2 ",'#10'" 3 4 5 6 7 8 9 0 a b c d e f g ",'#10
+'"g h i j k l m n o p q r s t u v w x ",'#10'"y z A B C D E F G H I J E C '
+'C K L M N ",'#10'"O P Q R S 9 T U 6 V W X T 9 a Y Z ` .",'#10'"..+.@.#.$.%'
+'.&.*.=.-.;.>.,.$.''.).!.~.{.",'#10'"].F ^./.(._.:.C F <.) [.*.}.|.1.C , 2."'
+','#10'"3.7 4.[.5.X 6.7.<.8.9.0.^.a.0.} b.c.d.",'#10'"e.f.g.h.i.( j.k.l.m.g.'
+'n.o.p.t q.r.s.{.",'#10'"e.) X t.7 d u.v.'' w.F x.y.-.z.A.B.C.D.",'#10'"E.F.'
+'G.C H.I.'' _ [ < J.K.L.M.N.D O.P.Q.",'#10'"R.S.T.7.U.V.W.X.9 0 a X Y.Z.v.t '
+'`. +g ",'#10'" g .+++6 o.w.@+#+$+u *.%+&+*+=+-+g g ",'#10'" g ;+>+,+''+'
+'%+U.)+!+^.~+{+]+] g ",'#10'" g ^+/+J (+K.(+!+_+:+g g ",'#10
+'" <+[+}+|+1+2+3+4+g g ",'#10'" 5+6+7+8+9+g '
+' ",'#10'" 0+a+g g "};'#10
]);
LazarusResources.Add('srctype_parseerror_22x22','XPM',[
'/* XPM */'#10'static char * srctype_parseerror_22x22_xpm[] = {'#10'"24 24 70'

155
ide/unitdependencies.pas
View File

@ -115,8 +115,8 @@ type
function FindParentWithCodeBuffer(ACodeBuffer: TCodeBuffer): TUnitNode;
function HasChildren: boolean;
function ImageIndex: integer;
function IsFirstImplementationNode: boolean;
function IsImplementationNode: boolean;
function StateImageIndex: integer;
property ChildCount: integer read FChildCount;
property CodeBuffer: TCodeBuffer read FCodeBuffer write SetCodeBuffer;
property Filename: string read FFilename write SetFilename;
@ -136,12 +136,14 @@ type
TUnitDependenciesView = class(TForm)
SrcTypeImageList: TImageList;
FlagImageList: TImageList;
UnitHistoryList: TComboBox;
SelectUnitButton: TBitBtn;
UnitTreeView: TTreeView;
RefreshButton: TBitBtn;
procedure UnitDependenciesViewResize(Sender: TObject);
procedure UnitTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
procedure UnitTreeViewCollapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean);
procedure UnitTreeViewExpanding(Sender: TObject; Node: TTreeNode;
@ -161,7 +163,6 @@ type
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function RootValid: boolean;
procedure UpdateUnitTree;
property RootFilename: string read FRootFilename write SetRootFilename;
property RootShortFilename: string read FRootShortFilename write SetRootShortFilename;
end;
@ -179,6 +180,26 @@ begin
DoResize;
end;
procedure TUnitDependenciesView.UnitTreeViewAdvancedCustomDrawItem(
Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
var
UnitNode: TUnitNode;
NodeRect: TRect;
begin
if Stage<>cdPostPaint then exit;
UnitNode:=TUnitNode(Node.Data);
if UnitNode.IsFirstImplementationNode then begin
NodeRect:=Node.DisplayRect(false);
NodeRect.Left:=Node.DisplayStateIconLeft;
with Node.TreeView.Canvas do begin
Pen.Color:=clRed;
MoveTo(NodeRect.Left,NodeRect.Top);
LineTo(NodeRect.Right,NodeRect.Top);
end;
end;
end;
procedure TUnitDependenciesView.UnitTreeViewCollapsing(Sender: TObject;
Node: TTreeNode; var AllowCollapse: Boolean);
var
@ -250,7 +271,6 @@ begin
FRootCodeBuffer:=CodeToolBoss.FindFile(FRootFilename);
FRootShortFilename:=FRootFilename;
RebuildTree;
UpdateUnitTree;
end;
procedure TUnitDependenciesView.SetRootShortFilename(const AValue: string);
@ -266,22 +286,19 @@ begin
Result:=FRootValid;
end;
procedure TUnitDependenciesView.UpdateUnitTree;
begin
end;
constructor TUnitDependenciesView.Create(TheOwner: TComponent);
procedure AddResImg(ImgList: TImageList; const ResName: string);
var Pixmap: TPixmap;
begin
Pixmap:=TPixmap.Create;
Pixmap.TransparentColor:=clWhite;
//Pixmap.TransparentColor:=clWhite;
if LazarusResources.Find(ResName)=nil then
writeln('TUnitDependenciesView.Create: WARNING: icon not found: "',ResName,'"');
Pixmap.LoadFromLazarusResource(ResName);
ImgList.Add(Pixmap,nil)
end;
var
ALayout: TIDEWindowLayout;
begin
@ -298,26 +315,17 @@ begin
Name:='SrcTypeImageList';
Width:=22;
Height:=22;
AddResImg(SrcTypeImageList,'srctype_unknown_22x22');
AddResImg(SrcTypeImageList,'srctype_unit_22x22');
AddResImg(SrcTypeImageList,'srctype_program_22x22');
AddResImg(SrcTypeImageList,'srctype_library_22x22');
AddResImg(SrcTypeImageList,'srctype_package_22x22');
AddResImg(SrcTypeImageList,'srctype_filenotfound_22x22');
AddResImg(SrcTypeImageList,'srctype_parseerror_22x22');
AddResImg(SrcTypeImageList,'srctype_unknown_22x22'); // 0
AddResImg(SrcTypeImageList,'srctype_unit_22x22'); // 1
AddResImg(SrcTypeImageList,'srctype_program_22x22'); // 2
AddResImg(SrcTypeImageList,'srctype_library_22x22'); // 3
AddResImg(SrcTypeImageList,'srctype_package_22x22'); // 4
AddResImg(SrcTypeImageList,'srctype_filenotfound_22x22'); // 5
AddResImg(SrcTypeImageList,'srctype_parseerror_22x22'); // 6
AddResImg(SrcTypeImageList,'srctype_forbiddencircle_22x22'); // 7
AddResImg(SrcTypeImageList,'srctype_circle_22x22'); // 8
end;
FlagImageList:=TImageList.Create(Self);
with FlagImageList do begin
Name:='FlagImageList';
Width:=22;
Height:=22;
AddResImg(SrcTypeImageList,'interface_unit_22x22.xpm');
AddResImg(SrcTypeImageList,'implementation_unit_22x22.xpm');
AddResImg(SrcTypeImageList,'forbidden_unit_circle_22x22.xpm');
AddResImg(SrcTypeImageList,'allowed_unit_circle_22x22.xpm');
end;
UnitHistoryList:=TComboBox.Create(Self);
with UnitHistoryList do begin
Name:='UnitHistoryList';
@ -365,7 +373,8 @@ begin
OnExpanding:=@UnitTreeViewExpanding;
OnCollapsing:=@UnitTreeViewCollapsing;
Images:=SrcTypeImageList;
StateImages:=FlagImageList;
//StateImages:=SrcTypeImageList;
OnAdvancedCustomDrawItem:=@UnitTreeViewAdvancedCustomDrawItem;
Visible:=true;
end;
@ -422,7 +431,6 @@ begin
TreeNode.Data:=Self;
TreeNode.HasChildren:=HasChildren;
TreeNode.ImageIndex:=ImageIndex;
TreeNode.StateIndex:=StateImageIndex;
end;
end;
@ -465,7 +473,13 @@ begin
if PrevSibling<>nil then PrevSibling.FNextSibling:=Self;
Inc(Parent.FChildCount);
CreateShortFilename;
if FindParentWithCodeBuffer(CodeBuffer)<>nil then begin
Include(FFlags,unfCircle);
if ForbiddenCircle then
Include(FFlags,unfForbiddenCircle);
end;
if Parent.TreeNode<>nil then begin
Parent.TreeNode.HasChildren:=true;
TreeNode:=Parent.TreeNode.TreeNodes.AddChild(Parent.TreeNode,'');
@ -483,17 +497,11 @@ begin
NewNode:=TUnitNode.Create;
NewNode.CodeBuffer:=ACodeBuffer;
NewNode.Filename:=AFilename;
if ACodeBuffer<>nil then begin
if FindParentWithCodeBuffer(ACodeBuffer)<>nil then begin
Include(NewNode.FFlags,unfCircle);
if ForbiddenCircle then
Include(NewNode.FFlags,unfForbiddenCircle);
end;
end else begin
Include(NewNode.FFlags,unfFileNotFound);
end;
if InImplementation then
Include(NewNode.FFlags,unfImplementation);
if ACodeBuffer=nil then begin
Include(NewNode.FFlags,unfFileNotFound);
end;
NewNode.Parent:=Self;
end;
@ -511,7 +519,6 @@ begin
FSourceType:=ASrcType;
if TreeNode<>nil then begin
TreeNode.ImageIndex:=ImageIndex;
TreeNode.StateIndex:=StateImageIndex;
end;
end;
@ -519,12 +526,14 @@ function TUnitNode.ForbiddenCircle: boolean;
var
ParentNode, CurNode: TUnitNode;
begin
Result:=false;
if unfImplementation in Flags then exit;
CurNode:=Self;
ParentNode:=Parent;
while ParentNode<>nil do begin
if ParentNode.CodeBuffer=CodeBuffer then begin
// circle detected
if unfImplementation in CurNode.Flags then begin
if not (unfImplementation in CurNode.Flags) then begin
Result:=true;
exit;
end;
@ -605,8 +614,9 @@ function TUnitNode.FindParentWithCodeBuffer(ACodeBuffer: TCodeBuffer
): TUnitNode;
begin
Result:=Parent;
while (Result<>nil) and (Result.CodeBuffer<>ACodeBuffer) do
while (Result<>nil) and (Result.CodeBuffer<>ACodeBuffer) do begin
Result:=Result.Parent;
end;
end;
function TUnitNode.HasChildren: boolean;
@ -616,45 +626,42 @@ end;
function TUnitNode.ImageIndex: integer;
begin
case SourceType of
unstUnit: Result:=1;
unstProgram: Result:=2;
unstLibrary: Result:=3;
unstPackage: Result:=4;
else
begin
if unfFileNotFound in Flags then
Result:=5
else if unfParseError in Flags then
Result:=6
else
Result:=0;
if not (unfCircle in FFlags) then begin
case SourceType of
unstUnit: Result:=1;
unstProgram: Result:=2;
unstLibrary: Result:=3;
unstPackage: Result:=4;
else
begin
if unfFileNotFound in Flags then
Result:=5
else if unfParseError in Flags then
Result:=6
else
Result:=0;
end;
end;
end else begin
if unfForbiddenCircle in Flags then begin
Result:=7;
end else begin
Result:=8;
end;
end;
end;
function TUnitNode.IsFirstImplementationNode: boolean;
begin
Result:=IsImplementationNode
and ((PrevSibling=nil) or (not PrevSibling.IsImplementationNode));
end;
function TUnitNode.IsImplementationNode: boolean;
begin
Result:=unfImplementation in FFlags;
end;
function TUnitNode.StateImageIndex: integer;
begin
if not (unfCircle in Flags) then begin
if not (unfImplementation in Flags) then begin
Result:=0; // normal used unit
end else begin
Result:=1; // unit used in implementation section
end;
end else begin
if not (unfForbiddenCircle in Flags) then begin
Result:=2; // allowed unit circle
end else begin
Result:=3; // forbidden unit circle
end;
end;
end;
//-----------------------------------------------------------------------------
initialization
{$I unitdependencies.lrs}

70
images/unitdependencies/implementation_unit_22x22.xpm
View File

@ -1,70 +0,0 @@
/* XPM */
static char * implementation_unit_22x22_xpm[] = {
"22 22 45 1",
" c None",
". c #024266",
"+ c #AEDDE9",
"@ c #A6D6E3",
"# c #A0D2E0",
"$ c #9BD0E0",
"% c #96CFDF",
"& c #ABDAE6",
"* c #80BED2",
"= c #A8D8E5",
"- c #79B8CD",
"; c #A2D4E2",
"> c #72B1C8",
", c #73B2C9",
"' c #99CCDC",
") c #6BAAC3",
"! c #6CABC4",
"~ c #A9DAE7",
"{ c #9ACDDC",
"] c #89C0D2",
"^ c #65A5C0",
"/ c #6FADC5",
"( c #91C6D7",
"_ c #98CADB",
": c #86BAD0",
"< c #67A1BC",
"[ c #A2D3E2",
"} c #5F9FBB",
"| c #5898B7",
"1 c #89BCD0",
"2 c #5192B2",
"3 c #619BB9",
"4 c #4B8CAE",
"5 c #4788AA",
"6 c #4C8CAD",
"7 c #4F8EAE",
"8 c #4485A9",
"9 c #4D8DAE",
"0 c #3D7FA5",
"a c #4686AA",
"b c #3679A0",
"c c #397CA3",
"d c #30729C",
"e c #2F729C",
"f c #296C97",
" ",
" ",
" ..... ",
" .+@#$%. ",
" .&****. ",
" .=----. ",
" .;>,,,. ",
" .....')!!!..... ",
" .~~~~{]^^^^/(_:<. ",
" .[}}}}}}}}}}}}}}. ",
" ._||||||||||||||. ",
" .122222222222222. ",
" .344456444444444. ",
" .....78888..... ",
" .90000. ",
" .abbbb. ",
" .cdddd. ",
" .effff. ",
" ..... ",
" ",
" ",
" "};

26
images/unitdependencies/interface_unit_22x22.xpm
View File

@ -1,26 +0,0 @@
/* XPM */
static char * interface_unit_22x22_xpm[] = {
"22 22 1 1",
" c None",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "};

0
images/unitdependencies/allowed_unit_circle_22x22.xpm → images/unitdependencies/srctype_circle_22x22.xpm
View File

0
images/unitdependencies/forbidden_unit_circle_22x22.xpm → images/unitdependencies/srctype_forbiddencircle_22x22.xpm
View File

500
images/unitdependencies/srctype_package_22x22.xpm
View File

@ -1,257 +1,249 @@
/* XPM */
static char * srctype_package_22x22_xpm[] = {
"22 22 232 2",
"19 22 224 2",
" c None",
". c #8F7F6E",
"+ c #8B7C6B",
"@ c #887969",
"# c #857666",
"$ c #817364",
"% c #7E7062",
"& c #7B6D5F",
"* c #776B5D",
"= c #74685A",
"- c #8A7B6A",
"; c #FFFFFF",
"> c #73675A",
", c #898989",
"' c #6A6054",
") c #867767",
"! c #6F6357",
"~ c #C9C9C9",
"{ c #827464",
"] c #828282",
"^ c #C6C6C6",
"/ c #5D544A",
"( c #7E7061",
"_ c #665C51",
": c #63594E",
"< c #60564C",
"[ c #5C5449",
"} c #595147",
"| c #494214",
"1 c #796C5E",
"2 c #5C5B5B",
"3 c #FEFCFB",
"4 c #A4A4A4",
"5 c #747474",
"6 c #554D44",
"7 c #FEF9D9",
"8 c #FEF9D4",
"9 c #75695B",
"0 c #CC0606",
"a c #FDFBF9",
"b c #FCF7F3",
"c c #FAF4EE",
"d c #F0EAE6",
"e c #C1BAB3",
"f c #504941",
"g c #FEFBE4",
"h c #FEFADF",
"i c #FEF9DA",
"j c #FEF9D5",
"k c #FEF8CF",
"l c #716558",
"m c #5A5552",
"n c #7E7873",
"o c #9F958D",
"p c #7D746E",
"q c #D8D0C8",
"r c #4C463E",
"s c #FEFCEF",
"t c #FEFBEA",
"u c #FEFBE5",
"v c #FEFAE0",
"w c #FBF5F0",
"x c #F9F1EA",
"y c #F8EEE5",
"z c #F7EADF",
"A c #F5E7DA",
"B c #D6CABF",
"C c #48423B",
"D c #FEFDFB",
"E c #FEFDF5",
"F c #FEFCF0",
"G c #FEFBEB",
"H c #FEFBE6",
"I c #FEFADC",
"J c #FEF9D6",
"K c #FEF8D1",
"L c #685E52",
"M c #807C79",
"N c #5A5653",
"O c #C0B5AC",
"P c #998778",
"Q c #7B6F65",
"R c #7A6D62",
"S c #D3C3B4",
"T c #443F38",
"U c #F8EEC3",
"V c #F7EBC0",
"W c #FEFCF1",
"X c #FEFCEC",
"Y c #FEFAE2",
"Z c #FEF9D7",
"` c #FEF8D2",
" . c #645A4F",
".. c #FAF2EC",
"+. c #F9EFE7",
"@. c #F7EBE1",
"#. c #F6E8DC",
"$. c #F4E4D6",
"%. c #F3E0D0",
"&. c #F2DDCB",
"*. c #D1BCAA",
"=. c #3F3B35",
"-. c #F6EABD",
";. c #F4E8B9",
">. c #F2E6B5",
",. c #F0E4B1",
"'. c #FEFADD",
"). c #FEF9D8",
"!. c #FEF8D3",
"~. c #60574C",
"{. c #7F7A76",
"]. c #595551",
"^. c #7B6F64",
"/. c #564C45",
"(. c #786A5C",
"_. c #CEB6A0",
":. c #3B3732",
"<. c #F3E7B7",
"[. c #F1E4B3",
"}. c #EFE2AF",
"|. c #EEE0AB",
"1. c #ECDEA7",
"2. c #FEFADE",
"3. c #C3AE59",
"4. c #5C5349",
"5. c #F8EDE3",
"6. c #F6E9DD",
"7. c #F5E5D8",
"8. c #F3E2D2",
"9. c #F2DECD",
"0. c #F1DAC7",
"a. c #EFD7C2",
"b. c #EED3BC",
"c. c #CCAF97",
"d. c #37342F",
"e. c #F0E3B1",
"f. c #EEE1AD",
"g. c #EDDFA9",
"h. c #EBDDA5",
"i. c #E9DAA1",
"j. c #E7D89D",
"k. c #E6D699",
"l. c #C6B05B",
"m. c #BCA954",
"n. c #574F46",
"o. c #D7CCC1",
"p. c #D5C7BA",
"q. c #D3C2B3",
"r. c #D1BEAC",
"s. c #CFB9A5",
"t. c #CEB49F",
"u. c #CCB097",
"v. c #CAAB90",
"w. c #C9A88C",
"x. c #33302C",
"y. c #EDE0AA",
"z. c #ECDEA6",
"A. c #EADBA2",
"B. c #E8D99E",
"C. c #E6D79A",
"D. c #E5D596",
"E. c #E3D392",
"F. c #BFAB56",
"G. c #B6A34F",
"H. c #534C43",
"I. c #504940",
"J. c #49433C",
"K. c #464039",
"L. c #423E37",
"M. c #3F3B34",
"N. c #3C3832",
"O. c #383530",
"P. c #35322D",
"Q. c #322F2B",
"R. c #2F2D29",
"S. c #EBDCA4",
"T. c #E9DAA0",
"U. c #E7D89C",
"V. c #E5D698",
"W. c #E4D494",
"X. c #E2D190",
"Y. c #E0CF8C",
"Z. c #B9A551",
"`. c #AF9D4A",
" + c #A69643",
".+ c #9D8E3C",
"++ c #948636",
"@+ c #8B7E2F",
"#+ c #827628",
"$+ c #E4D596",
"%+ c #E2D292",
"&+ c #E1D08E",
"*+ c #DFCE8A",
"=+ c #DDCC86",
"-+ c #B2A04C",
";+ c #A99845",
">+ c #A0903E",
",+ c #978837",
"'+ c #8E8031",
")+ c #85782A",
"!+ c #7C7123",
"~+ c #E5D598",
"{+ c #E3D394",
"]+ c #E1D190",
"^+ c #DECD88",
"/+ c #DCCB84",
"(+ c #DAC880",
"_+ c #AC9A47",
":+ c #A29240",
"<+ c #998A39",
"[+ c #908333",
"}+ c #877B2C",
"|+ c #7E7325",
"1+ c #756B1E",
"2+ c #DFCE89",
"3+ c #DDCC85",
"4+ c #DBC981",
"5+ c #D9C77D",
"6+ c #D8C579",
"7+ c #A59442",
"8+ c #9C8D3B",
"9+ c #938535",
"0+ c #8A7D2E",
"a+ c #817527",
"b+ c #D8C67B",
"c+ c #D7C477",
"d+ c #D5C273",
"e+ c #9F8F3D",
"f+ c #968737",
"g+ c #8C7F30",
"h+ c #D2BE6D",
"i+ c #988938",
" . + @ # $ % & * = ",
" - ; ; ; ; ; ; > , ' ",
" ) ; ; ; ; ; ; ! ; ~ ' ",
" { ; ] ~ ] ^ ; ' ~ ; , / ",
" ( ; ; ; ; ; ; _ : < [ } ",
" | | 1 ; ] 2 ~ ] ~ 3 ^ 4 5 6 ",
" | | 7 8 | 9 ; 0 ; ; ; a b c d e f ",
" | | g h i j k l ; 0 0 ^ ] m n o p q r ",
" | | s t u v 0 0 0 0 0 0 0 0 w x y z A B C ",
"| D E F G H 0 I J K L ; 0 0 M N O P Q R S T ",
"| U V W X 0 Y I Z ` .; 0 ..+.@.#.$.%.&.*.=.",
"| -.;.>.,.0 Y '.).!.~.; {.].O P ^./.P (._.:.",
"| <.[.}.|.1.0 2.7 3.4.; 5.6.7.8.9.0.a.b.c.d.",
"| e.f.g.h.i.j.k.l.m.n.q o.p.q.r.s.t.u.v.w.x.",
"| y.z.A.B.C.D.E.F.G.H.I.r J.K.L.M.N.O.P.Q.R.",
"| S.T.U.V.W.X.Y.Z.`. +.+++@+#+| ",
"| B.C.$+%+&+*+=+-+;+>+,+'+)+!+| ",
"| ~+{+]+Y.^+/+(+_+:+<+[+}+|+1+| ",
" | | 2+3+4+5+6+7+8+9+0+a+| | ",
" | | b+c+d+e+f+g+| | ",
" | | h+i+| | ",
" | | "};
". c #14142A",
"+ c #454568",
"@ c #08081C",
"# c #070714",
"$ c #3C3C5B",
"% c #9898C4",
"& c #ADADD2",
"* c #8989B6",
"= c #2F2F45",
"- c #03030D",
"; c #07070D",
"> c #5C5C84",
", c #B4B4D4",
"' c #CACAE3",
") c #CECEE5",
"! c #AAAACB",
"~ c #45456D",
"{ c #030309",
"] c #010103",
"^ c #1B1B2E",
"/ c #656591",
"( c #C4C4DF",
"_ c #DEDEEE",
": c #E9E9F3",
"< c #EBEBF5",
"[ c #E8E8F3",
"} c #DDDDEE",
"| c #BCBCDA",
"1 c #49497A",
"2 c #131325",
"3 c #010105",
"4 c #262641",
"5 c #8383AE",
"6 c #8C8CBB",
"7 c #8F8FBD",
"8 c #DEDEED",
"9 c #F6F6FA",
"0 c #F9F9FC",
"a c #F5F5FA",
"b c #CECEE3",
"c c #8383B5",
"d c #8D8DBD",
"e c #7878A4",
"f c #171736",
"g c #000000",
"h c #080811",
"i c #4A4A62",
"j c #9C9CB6",
"k c #C3C3DC",
"l c #C6C6E0",
"m c #B6B6D7",
"n c #9292BD",
"o c #D0D0E4",
"p c #F3F3F9",
"q c #BEBEDA",
"r c #9494C0",
"s c #BFBFDD",
"t c #C5C5E0",
"u c #C5C5DF",
"v c #ABABCE",
"w c #4A4A67",
"x c #060613",
"y c #0D0D15",
"z c #54546C",
"A c #A7A7BA",
"B c #CCCCDD",
"C c #E0E0EF",
"D c #E1E1F0",
"E c #DADAEC",
"F c #C9C9E2",
"G c #9898C3",
"H c #8080AC",
"I c #A2A2CA",
"J c #CBCBE3",
"K c #D8D8EA",
"L c #C1C1DD",
"M c #5A5A7E",
"N c #050513",
"O c #262633",
"P c #7E7EA7",
"Q c #C5C5DB",
"R c #EDEDF5",
"S c #F6F6FB",
"T c #EFEFF7",
"U c #C0C0DB",
"V c #7171A8",
"W c #9393BE",
"X c #CFCFE4",
"Y c #EBEBF4",
"Z c #C3C3DD",
"` c #7C7CAF",
" . c #222236",
".. c #41414A",
"+. c #BFBFDA",
"@. c #A6A6CB",
"#. c #C9C9E0",
"$. c #FDFDFE",
"%. c #FBFBFD",
"&. c #C5C5DD",
"*. c #B1B1D2",
"=. c #C8C8E2",
"-. c #9999C4",
";. c #C2C2DD",
">. c #A7A7CD",
",. c #D8D8E9",
"'. c #FCFCFE",
"). c #B9B9D7",
"!. c #ACACCE",
"~. c #B5B5D5",
"{. c #2D2D3F",
"]. c #40404B",
"^. c #E1E1EF",
"/. c #BDBDDA",
"(. c #B9B9D8",
"_. c #B2B2D4",
":. c #C2C2DC",
"<. c #8B8BB9",
"[. c #DDDDED",
"}. c #C1C1DB",
"|. c #B3B3D3",
"1. c #CCCCE3",
"2. c #2A2A3D",
"3. c #2A2A3C",
"4. c #D1D1E7",
"5. c #CACAE2",
"6. c #DFDFEE",
"7. c #CCCCE4",
"8. c #6E6EA5",
"9. c #9999C1",
"0. c #D2D2E7",
"a. c #C4C4DD",
"b. c #D1D1E6",
"c. c #7878AB",
"d. c #1D1D32",
"e. c #43434D",
"f. c #B5B5D6",
"g. c #9090BD",
"h. c #B3B3D5",
"i. c #C4C4E0",
"j. c #ADADD0",
"k. c #8181B2",
"l. c #9797C3",
"m. c #ABABD0",
"n. c #8A8ABA",
"o. c #B6B6D6",
"p. c #C6C6E1",
"q. c #AAAACE",
"r. c #9090BC",
"s. c #AEAED1",
"t. c #9494BF",
"u. c #8484B4",
"v. c #B7B7D6",
"w. c #CDCDE4",
"x. c #A9A9CE",
"y. c #7B7BAE",
"z. c #8A8AB9",
"A. c #A7A7CC",
"B. c #D5D5E8",
"C. c #B8B8D7",
"D. c #2C2C3E",
"E. c #2A2A39",
"F. c #A2A2C4",
"G. c #D6D6EA",
"H. c #9494BD",
"I. c #7070A7",
"J. c #E7E7F3",
"K. c #DCDCED",
"L. c #BCBCD9",
"M. c #63639C",
"N. c #ADADCF",
"O. c #D4D4E8",
"P. c #7E7EA5",
"Q. c #171725",
"R. c #02020A",
"S. c #262637",
"T. c #9696C0",
"U. c #B2B2D3",
"V. c #9797C2",
"W. c #9A9AC5",
"X. c #E0E0EE",
"Y. c #9696C1",
"Z. c #A3A3CB",
"`. c #73739A",
" + c #101020",
".+ c #070716",
"++ c #57577B",
"@+ c #A8A8CD",
"#+ c #DBDBEA",
"$+ c #F5F5F9",
"%+ c #DCDCEC",
"&+ c #B3B3D4",
"*+ c #8080B0",
"=+ c #39395A",
"-+ c #010108",
";+ c #04040B",
">+ c #2F2F53",
",+ c #A3A3C6",
"'+ c #D5D5E9",
")+ c #A1A1C7",
"!+ c #C4C4DE",
"~+ c #D3D3E8",
"{+ c #8C8CB0",
"]+ c #191933",
"^+ c #191935",
"/+ c #9191B2",
"(+ c #D9D9EB",
"_+ c #6F6F94",
":+ c #0A0A1B",
"<+ c #000002",
"[+ c #151522",
"}+ c #6A6A94",
"|+ c #BBBBDA",
"1+ c #BEBEDC",
"2+ c #B1B1D4",
"3+ c #4C4C71",
"4+ c #090913",
"5+ c #020208",
"6+ c #38385D",
"7+ c #686895",
"8+ c #20203D",
"9+ c #000003",
"0+ c #010106",
"a+ c #090919",
" ",
" . + @ ",
" # $ % & * = - ",
" ; > , ' ) ' ! ~ { ",
" ] ^ / ( _ : < [ } | 1 2 ",
" 3 4 5 6 7 8 9 0 a b c d e f g ",
"g h i j k l m n o p q r s t u v w x ",
"y z A B C D E F G H I J E C C K L M N ",
"O P Q R S 9 T U 6 V W X T 9 a Y Z ` .",
"..+.@.#.$.%.&.*.=.-.;.>.,.$.'.).!.~.{.",
"].F ^./.(._.:.C F <.) [.*.}.|.1.C , 2.",
"3.7 4.[.5.X 6.7.<.8.9.0.^.a.0.} b.c.d.",
"e.f.g.h.i.( j.k.l.m.g.n.o.p.t q.r.s.{.",
"e.) X t.7 d u.v.' w.F x.y.-.z.A.B.C.D.",
"E.F.G.C H.I.' _ [ < J.K.L.M.N.D O.P.Q.",
"R.S.T.7.U.V.W.X.9 0 a X Y.Z.v.t `. +g ",
" g .+++6 o.w.@+#+$+u *.%+&+*+=+-+g g ",
" g ;+>+,+'+%+U.)+!+^.~+{+]+] g ",
" g ^+/+J (+K.(+!+_+:+g g ",
" <+[+}+|+1+2+3+4+g g ",
" 5+6+7+8+9+g ",
" 0+a+g g "};

8
lcl/comctrls.pp
View File

@ -254,6 +254,7 @@ type
TLVChangeEvent = procedure(Sender: TObject; Item: TListItem; Change: TItemChange) of object;
TLVColumnClickEvent = procedure(Sender: TObject; Column: TListColumn) of object;
TLVColumnRClickEvent = procedure(Sender: TObject; Column: TListColumn; Point: TPoint) of object;
TLVDeletedEvent = procedure(Sender: TObject; Item: TListItem) of object;
TLVSelectItemEvent = procedure(Sender: TObject; Item: TListItem; Selected: Boolean) of object;
TListViewState = (lvMultiSelect, lvUpdateNeeded);
@ -280,6 +281,7 @@ type
FUpdateCount: integer;
FOnChange: TLVChangeEvent;
FOnColumnClick: TLVColumnClickEvent;
FOnDeletion: TLVDeletedEvent;
FOnSelectItem: TLVSelectItemEvent;
FStates: TListViewStates;
function GetMultiSelect: Boolean;
@ -305,6 +307,7 @@ type
procedure Change(AItem: TListItem; AChange: Integer); dynamic;
procedure ColClick(AColumn: TListColumn); dynamic;
procedure Delete(Item : TListItem);
procedure DoDeletion(AItem: TListItem); dynamic;
procedure DoSelectItem(AItem: TListItem; ASelected: Boolean); dynamic;
procedure InsertItem(Item : TListItem);
function GetMaxScrolledLeft : Integer;
@ -334,6 +337,7 @@ type
property ViewStyle: TViewStyle read FViewStyle write SetViewStyle;
property OnChange: TLVChangeEvent read FOnChange write FOnChange;
property OnColumnClick: TLVColumnClickEvent read FOnColumnClick write FOnColumnClick;
property OnDeletion: TLVDeletedEvent read FOnDeletion write FOnDeletion;
property OnSelectItem: TLVSelectItemEvent read FOnSelectItem write FOnSelectItem;
public
constructor Create(Aowner: TComponent); override;
@ -376,6 +380,7 @@ type
property OnKeyPress;
property OnKeyUp;
property OnKeyDown;
property OnDeletion;
property OnSelectItem;
end;
@ -1600,6 +1605,9 @@ end.
{ =============================================================================
$Log$
Revision 1.48 2002/09/14 14:47:41 lazarus
MG: fixed icons
Revision 1.47 2002/09/14 10:39:40 lazarus
MG: added expanding to unit dependencies

17
lcl/include/customlistview.inc
View File

@ -86,6 +86,8 @@ begin
// LVN_BEGINDRAG:
LVN_DELETEITEM: begin
//don'tcall delete yet, there is no sulution available when we have deleted the item first
Item := Items[nm^.iItem];
DoDeletion(Item)
end;
LVN_DELETEALLITEMS: begin
end;
@ -156,6 +158,14 @@ begin
CNSendMessage(LM_LV_SELECTITEM,self,FSelected);
end;
{------------------------------------------------------------------------------}
{ TCustomListView DoDeletion }
{------------------------------------------------------------------------------}
procedure TCustomListView.DoDeletion(AItem: TListItem);
begin
if Assigned(FOnDeletion) then FOnDeletion(Self, AItem);
end;
{------------------------------------------------------------------------------}
{ TCustomListView DoSelectItem }
{------------------------------------------------------------------------------}
@ -180,11 +190,13 @@ Begin
End;
{------------------------------------------------------------------------------}
{ TCustomListView ItemChanged }
{ TCustomListView ItemDeleted }
{------------------------------------------------------------------------------}
Procedure TCustomListView.ItemDeleted(Index : Integer); //called by TListItems
Begin
if csDestroying in Componentstate Then Exit;
if FSelected= FListItems[Index] then FSelected:=nil;
DoDeletion(FListItems[Index]);
if FUpdateCount>0 then
Include(FStates,lvUpdateNeeded)
else begin
@ -528,6 +540,9 @@ end;
{ =============================================================================
$Log$
Revision 1.22 2002/09/14 14:47:41 lazarus
MG: fixed icons
Revision 1.21 2002/09/10 10:00:27 lazarus
MG: TListView now works handleless and SetSelection implemented

15
lcl/include/listitems.inc
View File

@ -78,12 +78,10 @@ procedure TListItems.ItemDeleted(const AItem: TListItem);
var
idx: Integer;
begin
idx := FItems.Remove(AItem);
if (idx >= 0) and (FOwner <> nil)
then begin
if FOwner.FSelected=AItem then FOwner.FSelected:=nil;
FOwner.ItemDeleted(idx);
end;
idx := FItems.IndexOf(AItem);
if assigned(FOwner)
then FOwner.ItemDeleted(idx);
FItems.Remove(AItem);
end;
{------------------------------------------------------------------------------}
@ -100,6 +98,8 @@ end;
{------------------------------------------------------------------------------}
destructor TListItems.Destroy;
begin
while FItems.Count>0 do
TListItem(FItems[0]).Free;
FItems.Free;
inherited Destroy;
end;
@ -137,6 +137,9 @@ end;
{ =============================================================================
$Log$
Revision 1.13 2002/09/14 14:47:41 lazarus
MG: fixed icons
Revision 1.12 2002/09/14 08:38:06 lazarus
MG: added TListView notification from Vincent

9
lcl/include/treeview.inc
View File

@ -3799,7 +3799,7 @@ begin
if tvsUpdating in FStates then exit;
UpdateScrollbars;
with Canvas do begin
if Assigned(FOnCustomDraw) then begin
if Assigned(FOnCustomDraw) or Assigned(FOnAdvancedCustomDraw) then begin
DrawRect:=ClientRect;
if not CustomDraw(DrawRect,cdPrePaint) then exit;
end;
@ -3846,7 +3846,7 @@ begin
LineTo((ClientWidth-ScrollBarWidth)-1-a,(ClientHeight-ScrollBarWidth)-1-a);
LineTo(a,(ClientHeight-ScrollBarWidth)-1-a);
end;
if Assigned(FOnCustomDraw) then begin
if Assigned(FOnCustomDraw) or Assigned(FOnAdvancedCustomDraw) then begin
DrawRect:=ClientRect;
if not CustomDraw(DrawRect,cdPostPaint) then exit;
end;
@ -3960,7 +3960,7 @@ begin
if (NodeRect.Bottom<0) or (NodeRect.Top>=(ClientHeight-ScrollBarWidth)) then
exit;
NodeSelected:=(Node.Selected) or (Node.MultiSelected);
if Assigned(OnCustomDrawItem) then begin
if Assigned(OnCustomDrawItem) or Assigned(FOnAdvancedCustomDrawItem) then begin
DrawState:=[];
if NodeSelected then
Include(DrawState,cdsSelected);
@ -4030,7 +4030,8 @@ begin
LineTo(NodeRect.Right,NodeRect.Bottom-1);
end;
end;
if Assigned(OnCustomDrawItem) then begin
if Assigned(OnCustomDrawItem) or Assigned(FOnAdvancedCustomDrawItem) then
begin
DrawState:=[];
if Node.Selected then
Include(DrawState,cdsSelected);