paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:39:18 +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.ico -text svneol=unset#image/x-icon
images/sourceeditor/bookmark9.xpm -text svneol=native#image/x-xpixmap images/sourceeditor/bookmark9.xpm -text svneol=native#image/x-xpixmap
images/splash_logo.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/srctype_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_filenotfound_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_library_22x22.xpm -text svneol=native#image/x-xpixmap
images/unitdependencies/srctype_package_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 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' '/* 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 +'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 +'"@ '#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 "' +'l.0.g.m.E ",'#10'" ].n.P h.o.p.E "'
+'};'#10 +'};'#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' '/* 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 +' 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 #' +'"@'#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'" {~!)'',>;-=* ",'#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',[ LazarusResources.Add('srctype_library_22x22','XPM',[
'/* XPM */'#10'static char * srctype_library_22x22_xpm[] = {'#10'"22 22 116 2' '/* 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'"@' +'",'#10'" '#9'c None",'#10'". '#9'c #020202",'#10'"+ '#9'c #023636",'#10'"@'
@ -205,94 +167,89 @@ LazarusResources.Add('srctype_library_22x22','XPM',[
+'" /.(.(._. "};'#10 +'" /.(.(._. "};'#10
]); ]);
LazarusResources.Add('srctype_package_22x22','XPM',[ LazarusResources.Add('srctype_package_22x22','XPM',[
'/* XPM */'#10'static char * srctype_package_22x22_xpm[] = {'#10'"22 22 232 2' '/* XPM */'#10'static char * srctype_package_22x22_xpm[] = {'#10'"19 22 224 2'
+'",'#10'" '#9'c None",'#10'". '#9'c #8F7F6E",'#10'"+ '#9'c #8B7C6B",'#10'"@' +'",'#10'" '#9'c None",'#10'". '#9'c #14142A",'#10'"+ '#9'c #454568",'#10'"@'
+' '#9'c #887969",'#10'"# '#9'c #857666",'#10'"$ '#9'c #817364",'#10'"% '#9'c' +' '#9'c #08081C",'#10'"# '#9'c #070714",'#10'"$ '#9'c #3C3C5B",'#10'"% '#9'c'
+' #7E7062",'#10'"& '#9'c #7B6D5F",'#10'"* '#9'c #776B5D",'#10'"= '#9'c #7468' +' #9898C4",'#10'"& '#9'c #ADADD2",'#10'"* '#9'c #8989B6",'#10'"= '#9'c #2F2F'
+'5A",'#10'"- '#9'c #8A7B6A",'#10'"; '#9'c #FFFFFF",'#10'"> '#9'c #73675A",' +'45",'#10'"- '#9'c #03030D",'#10'"; '#9'c #07070D",'#10'"> '#9'c #5C5C84",'
+#10'", '#9'c #898989",'#10'"'' '#9'c #6A6054",'#10'") '#9'c #867767",'#10'"!' +#10'", '#9'c #B4B4D4",'#10'"'' '#9'c #CACAE3",'#10'") '#9'c #CECEE5",'#10'"!'
+' '#9'c #6F6357",'#10'"~ '#9'c #C9C9C9",'#10'"{ '#9'c #827464",'#10'"] '#9'c' +' '#9'c #AAAACB",'#10'"~ '#9'c #45456D",'#10'"{ '#9'c #030309",'#10'"] '#9'c'
+' #828282",'#10'"^ '#9'c #C6C6C6",'#10'"/ '#9'c #5D544A",'#10'"( '#9'c #7E70' +' #010103",'#10'"^ '#9'c #1B1B2E",'#10'"/ '#9'c #656591",'#10'"( '#9'c #C4C4'
+'61",'#10'"_ '#9'c #665C51",'#10'": '#9'c #63594E",'#10'"< '#9'c #60564C",' +'DF",'#10'"_ '#9'c #DEDEEE",'#10'": '#9'c #E9E9F3",'#10'"< '#9'c #EBEBF5",'
+#10'"[ '#9'c #5C5449",'#10'"} '#9'c #595147",'#10'"| '#9'c #494214",'#10'"1 ' +#10'"[ '#9'c #E8E8F3",'#10'"} '#9'c #DDDDEE",'#10'"| '#9'c #BCBCDA",'#10'"1 '
+#9'c #796C5E",'#10'"2 '#9'c #5C5B5B",'#10'"3 '#9'c #FEFCFB",'#10'"4 '#9'c #A' +#9'c #49497A",'#10'"2 '#9'c #131325",'#10'"3 '#9'c #010105",'#10'"4 '#9'c #2'
+'4A4A4",'#10'"5 '#9'c #747474",'#10'"6 '#9'c #554D44",'#10'"7 '#9'c #FEF9D9"' +'62641",'#10'"5 '#9'c #8383AE",'#10'"6 '#9'c #8C8CBB",'#10'"7 '#9'c #8F8FBD"'
+','#10'"8 '#9'c #FEF9D4",'#10'"9 '#9'c #75695B",'#10'"0 '#9'c #CC0606",'#10 +','#10'"8 '#9'c #DEDEED",'#10'"9 '#9'c #F6F6FA",'#10'"0 '#9'c #F9F9FC",'#10
+'"a '#9'c #FDFBF9",'#10'"b '#9'c #FCF7F3",'#10'"c '#9'c #FAF4EE",'#10'"d '#9 +'"a '#9'c #F5F5FA",'#10'"b '#9'c #CECEE3",'#10'"c '#9'c #8383B5",'#10'"d '#9
+'c #F0EAE6",'#10'"e '#9'c #C1BAB3",'#10'"f '#9'c #504941",'#10'"g '#9'c #FEF' +'c #8D8DBD",'#10'"e '#9'c #7878A4",'#10'"f '#9'c #171736",'#10'"g '#9'c #000'
+'BE4",'#10'"h '#9'c #FEFADF",'#10'"i '#9'c #FEF9DA",'#10'"j '#9'c #FEF9D5",' +'000",'#10'"h '#9'c #080811",'#10'"i '#9'c #4A4A62",'#10'"j '#9'c #9C9CB6",'
+#10'"k '#9'c #FEF8CF",'#10'"l '#9'c #716558",'#10'"m '#9'c #5A5552",'#10'"n ' +#10'"k '#9'c #C3C3DC",'#10'"l '#9'c #C6C6E0",'#10'"m '#9'c #B6B6D7",'#10'"n '
+#9'c #7E7873",'#10'"o '#9'c #9F958D",'#10'"p '#9'c #7D746E",'#10'"q '#9'c #D' +#9'c #9292BD",'#10'"o '#9'c #D0D0E4",'#10'"p '#9'c #F3F3F9",'#10'"q '#9'c #B'
+'8D0C8",'#10'"r '#9'c #4C463E",'#10'"s '#9'c #FEFCEF",'#10'"t '#9'c #FEFBEA"' +'EBEDA",'#10'"r '#9'c #9494C0",'#10'"s '#9'c #BFBFDD",'#10'"t '#9'c #C5C5E0"'
+','#10'"u '#9'c #FEFBE5",'#10'"v '#9'c #FEFAE0",'#10'"w '#9'c #FBF5F0",'#10 +','#10'"u '#9'c #C5C5DF",'#10'"v '#9'c #ABABCE",'#10'"w '#9'c #4A4A67",'#10
+'"x '#9'c #F9F1EA",'#10'"y '#9'c #F8EEE5",'#10'"z '#9'c #F7EADF",'#10'"A '#9 +'"x '#9'c #060613",'#10'"y '#9'c #0D0D15",'#10'"z '#9'c #54546C",'#10'"A '#9
+'c #F5E7DA",'#10'"B '#9'c #D6CABF",'#10'"C '#9'c #48423B",'#10'"D '#9'c #FEF' +'c #A7A7BA",'#10'"B '#9'c #CCCCDD",'#10'"C '#9'c #E0E0EF",'#10'"D '#9'c #E1E'
+'DFB",'#10'"E '#9'c #FEFDF5",'#10'"F '#9'c #FEFCF0",'#10'"G '#9'c #FEFBEB",' +'1F0",'#10'"E '#9'c #DADAEC",'#10'"F '#9'c #C9C9E2",'#10'"G '#9'c #9898C3",'
+#10'"H '#9'c #FEFBE6",'#10'"I '#9'c #FEFADC",'#10'"J '#9'c #FEF9D6",'#10'"K ' +#10'"H '#9'c #8080AC",'#10'"I '#9'c #A2A2CA",'#10'"J '#9'c #CBCBE3",'#10'"K '
+#9'c #FEF8D1",'#10'"L '#9'c #685E52",'#10'"M '#9'c #807C79",'#10'"N '#9'c #5' +#9'c #D8D8EA",'#10'"L '#9'c #C1C1DD",'#10'"M '#9'c #5A5A7E",'#10'"N '#9'c #0'
+'A5653",'#10'"O '#9'c #C0B5AC",'#10'"P '#9'c #998778",'#10'"Q '#9'c #7B6F65"' +'50513",'#10'"O '#9'c #262633",'#10'"P '#9'c #7E7EA7",'#10'"Q '#9'c #C5C5DB"'
+','#10'"R '#9'c #7A6D62",'#10'"S '#9'c #D3C3B4",'#10'"T '#9'c #443F38",'#10 +','#10'"R '#9'c #EDEDF5",'#10'"S '#9'c #F6F6FB",'#10'"T '#9'c #EFEFF7",'#10
+'"U '#9'c #F8EEC3",'#10'"V '#9'c #F7EBC0",'#10'"W '#9'c #FEFCF1",'#10'"X '#9 +'"U '#9'c #C0C0DB",'#10'"V '#9'c #7171A8",'#10'"W '#9'c #9393BE",'#10'"X '#9
+'c #FEFCEC",'#10'"Y '#9'c #FEFAE2",'#10'"Z '#9'c #FEF9D7",'#10'"` '#9'c #FEF' +'c #CFCFE4",'#10'"Y '#9'c #EBEBF4",'#10'"Z '#9'c #C3C3DD",'#10'"` '#9'c #7C7'
+'8D2",'#10'" .'#9'c #645A4F",'#10'"..'#9'c #FAF2EC",'#10'"+.'#9'c #F9EFE7",' +'CAF",'#10'" .'#9'c #222236",'#10'"..'#9'c #41414A",'#10'"+.'#9'c #BFBFDA",'
+#10'"@.'#9'c #F7EBE1",'#10'"#.'#9'c #F6E8DC",'#10'"$.'#9'c #F4E4D6",'#10'"%.' +#10'"@.'#9'c #A6A6CB",'#10'"#.'#9'c #C9C9E0",'#10'"$.'#9'c #FDFDFE",'#10'"%.'
+#9'c #F3E0D0",'#10'"&.'#9'c #F2DDCB",'#10'"*.'#9'c #D1BCAA",'#10'"=.'#9'c #3' +#9'c #FBFBFD",'#10'"&.'#9'c #C5C5DD",'#10'"*.'#9'c #B1B1D2",'#10'"=.'#9'c #C'
+'F3B35",'#10'"-.'#9'c #F6EABD",'#10'";.'#9'c #F4E8B9",'#10'">.'#9'c #F2E6B5"' +'8C8E2",'#10'"-.'#9'c #9999C4",'#10'";.'#9'c #C2C2DD",'#10'">.'#9'c #A7A7CD"'
+','#10'",.'#9'c #F0E4B1",'#10'"''.'#9'c #FEFADD",'#10'").'#9'c #FEF9D8",'#10 +','#10'",.'#9'c #D8D8E9",'#10'"''.'#9'c #FCFCFE",'#10'").'#9'c #B9B9D7",'#10
+'"!.'#9'c #FEF8D3",'#10'"~.'#9'c #60574C",'#10'"{.'#9'c #7F7A76",'#10'"].'#9 +'"!.'#9'c #ACACCE",'#10'"~.'#9'c #B5B5D5",'#10'"{.'#9'c #2D2D3F",'#10'"].'#9
+'c #595551",'#10'"^.'#9'c #7B6F64",'#10'"/.'#9'c #564C45",'#10'"(.'#9'c #786' +'c #40404B",'#10'"^.'#9'c #E1E1EF",'#10'"/.'#9'c #BDBDDA",'#10'"(.'#9'c #B9B'
+'A5C",'#10'"_.'#9'c #CEB6A0",'#10'":.'#9'c #3B3732",'#10'"<.'#9'c #F3E7B7",' +'9D8",'#10'"_.'#9'c #B2B2D4",'#10'":.'#9'c #C2C2DC",'#10'"<.'#9'c #8B8BB9",'
+#10'"[.'#9'c #F1E4B3",'#10'"}.'#9'c #EFE2AF",'#10'"|.'#9'c #EEE0AB",'#10'"1.' +#10'"[.'#9'c #DDDDED",'#10'"}.'#9'c #C1C1DB",'#10'"|.'#9'c #B3B3D3",'#10'"1.'
+#9'c #ECDEA7",'#10'"2.'#9'c #FEFADE",'#10'"3.'#9'c #C3AE59",'#10'"4.'#9'c #5' +#9'c #CCCCE3",'#10'"2.'#9'c #2A2A3D",'#10'"3.'#9'c #2A2A3C",'#10'"4.'#9'c #D'
+'C5349",'#10'"5.'#9'c #F8EDE3",'#10'"6.'#9'c #F6E9DD",'#10'"7.'#9'c #F5E5D8"' +'1D1E7",'#10'"5.'#9'c #CACAE2",'#10'"6.'#9'c #DFDFEE",'#10'"7.'#9'c #CCCCE4"'
+','#10'"8.'#9'c #F3E2D2",'#10'"9.'#9'c #F2DECD",'#10'"0.'#9'c #F1DAC7",'#10 +','#10'"8.'#9'c #6E6EA5",'#10'"9.'#9'c #9999C1",'#10'"0.'#9'c #D2D2E7",'#10
+'"a.'#9'c #EFD7C2",'#10'"b.'#9'c #EED3BC",'#10'"c.'#9'c #CCAF97",'#10'"d.'#9 +'"a.'#9'c #C4C4DD",'#10'"b.'#9'c #D1D1E6",'#10'"c.'#9'c #7878AB",'#10'"d.'#9
+'c #37342F",'#10'"e.'#9'c #F0E3B1",'#10'"f.'#9'c #EEE1AD",'#10'"g.'#9'c #EDD' +'c #1D1D32",'#10'"e.'#9'c #43434D",'#10'"f.'#9'c #B5B5D6",'#10'"g.'#9'c #909'
+'FA9",'#10'"h.'#9'c #EBDDA5",'#10'"i.'#9'c #E9DAA1",'#10'"j.'#9'c #E7D89D",' +'0BD",'#10'"h.'#9'c #B3B3D5",'#10'"i.'#9'c #C4C4E0",'#10'"j.'#9'c #ADADD0",'
+#10'"k.'#9'c #E6D699",'#10'"l.'#9'c #C6B05B",'#10'"m.'#9'c #BCA954",'#10'"n.' +#10'"k.'#9'c #8181B2",'#10'"l.'#9'c #9797C3",'#10'"m.'#9'c #ABABD0",'#10'"n.'
+#9'c #574F46",'#10'"o.'#9'c #D7CCC1",'#10'"p.'#9'c #D5C7BA",'#10'"q.'#9'c #D' +#9'c #8A8ABA",'#10'"o.'#9'c #B6B6D6",'#10'"p.'#9'c #C6C6E1",'#10'"q.'#9'c #A'
+'3C2B3",'#10'"r.'#9'c #D1BEAC",'#10'"s.'#9'c #CFB9A5",'#10'"t.'#9'c #CEB49F"' +'AAACE",'#10'"r.'#9'c #9090BC",'#10'"s.'#9'c #AEAED1",'#10'"t.'#9'c #9494BF"'
+','#10'"u.'#9'c #CCB097",'#10'"v.'#9'c #CAAB90",'#10'"w.'#9'c #C9A88C",'#10 +','#10'"u.'#9'c #8484B4",'#10'"v.'#9'c #B7B7D6",'#10'"w.'#9'c #CDCDE4",'#10
+'"x.'#9'c #33302C",'#10'"y.'#9'c #EDE0AA",'#10'"z.'#9'c #ECDEA6",'#10'"A.'#9 +'"x.'#9'c #A9A9CE",'#10'"y.'#9'c #7B7BAE",'#10'"z.'#9'c #8A8AB9",'#10'"A.'#9
+'c #EADBA2",'#10'"B.'#9'c #E8D99E",'#10'"C.'#9'c #E6D79A",'#10'"D.'#9'c #E5D' +'c #A7A7CC",'#10'"B.'#9'c #D5D5E8",'#10'"C.'#9'c #B8B8D7",'#10'"D.'#9'c #2C2'
+'596",'#10'"E.'#9'c #E3D392",'#10'"F.'#9'c #BFAB56",'#10'"G.'#9'c #B6A34F",' +'C3E",'#10'"E.'#9'c #2A2A39",'#10'"F.'#9'c #A2A2C4",'#10'"G.'#9'c #D6D6EA",'
+#10'"H.'#9'c #534C43",'#10'"I.'#9'c #504940",'#10'"J.'#9'c #49433C",'#10'"K.' +#10'"H.'#9'c #9494BD",'#10'"I.'#9'c #7070A7",'#10'"J.'#9'c #E7E7F3",'#10'"K.'
+#9'c #464039",'#10'"L.'#9'c #423E37",'#10'"M.'#9'c #3F3B34",'#10'"N.'#9'c #3' +#9'c #DCDCED",'#10'"L.'#9'c #BCBCD9",'#10'"M.'#9'c #63639C",'#10'"N.'#9'c #A'
+'C3832",'#10'"O.'#9'c #383530",'#10'"P.'#9'c #35322D",'#10'"Q.'#9'c #322F2B"' +'DADCF",'#10'"O.'#9'c #D4D4E8",'#10'"P.'#9'c #7E7EA5",'#10'"Q.'#9'c #171725"'
+','#10'"R.'#9'c #2F2D29",'#10'"S.'#9'c #EBDCA4",'#10'"T.'#9'c #E9DAA0",'#10 +','#10'"R.'#9'c #02020A",'#10'"S.'#9'c #262637",'#10'"T.'#9'c #9696C0",'#10
+'"U.'#9'c #E7D89C",'#10'"V.'#9'c #E5D698",'#10'"W.'#9'c #E4D494",'#10'"X.'#9 +'"U.'#9'c #B2B2D3",'#10'"V.'#9'c #9797C2",'#10'"W.'#9'c #9A9AC5",'#10'"X.'#9
+'c #E2D190",'#10'"Y.'#9'c #E0CF8C",'#10'"Z.'#9'c #B9A551",'#10'"`.'#9'c #AF9' +'c #E0E0EE",'#10'"Y.'#9'c #9696C1",'#10'"Z.'#9'c #A3A3CB",'#10'"`.'#9'c #737'
+'D4A",'#10'" +'#9'c #A69643",'#10'".+'#9'c #9D8E3C",'#10'"++'#9'c #948636",' +'39A",'#10'" +'#9'c #101020",'#10'".+'#9'c #070716",'#10'"++'#9'c #57577B",'
+#10'"@+'#9'c #8B7E2F",'#10'"#+'#9'c #827628",'#10'"$+'#9'c #E4D596",'#10'"%+' +#10'"@+'#9'c #A8A8CD",'#10'"#+'#9'c #DBDBEA",'#10'"$+'#9'c #F5F5F9",'#10'"%+'
+#9'c #E2D292",'#10'"&+'#9'c #E1D08E",'#10'"*+'#9'c #DFCE8A",'#10'"=+'#9'c #D' +#9'c #DCDCEC",'#10'"&+'#9'c #B3B3D4",'#10'"*+'#9'c #8080B0",'#10'"=+'#9'c #3'
+'DCC86",'#10'"-+'#9'c #B2A04C",'#10'";+'#9'c #A99845",'#10'">+'#9'c #A0903E"' +'9395A",'#10'"-+'#9'c #010108",'#10'";+'#9'c #04040B",'#10'">+'#9'c #2F2F53"'
+','#10'",+'#9'c #978837",'#10'"''+'#9'c #8E8031",'#10'")+'#9'c #85782A",'#10 +','#10'",+'#9'c #A3A3C6",'#10'"''+'#9'c #D5D5E9",'#10'")+'#9'c #A1A1C7",'#10
+'"!+'#9'c #7C7123",'#10'"~+'#9'c #E5D598",'#10'"{+'#9'c #E3D394",'#10'"]+'#9 +'"!+'#9'c #C4C4DE",'#10'"~+'#9'c #D3D3E8",'#10'"{+'#9'c #8C8CB0",'#10'"]+'#9
+'c #E1D190",'#10'"^+'#9'c #DECD88",'#10'"/+'#9'c #DCCB84",'#10'"(+'#9'c #DAC' +'c #191933",'#10'"^+'#9'c #191935",'#10'"/+'#9'c #9191B2",'#10'"(+'#9'c #D9D'
,'880",'#10'"_+'#9'c #AC9A47",'#10'":+'#9'c #A29240",'#10'"<+'#9'c #998A39",' ,'9EB",'#10'"_+'#9'c #6F6F94",'#10'":+'#9'c #0A0A1B",'#10'"<+'#9'c #000002",'
+#10'"[+'#9'c #908333",'#10'"}+'#9'c #877B2C",'#10'"|+'#9'c #7E7325",'#10'"1+' +#10'"[+'#9'c #151522",'#10'"}+'#9'c #6A6A94",'#10'"|+'#9'c #BBBBDA",'#10'"1+'
+#9'c #756B1E",'#10'"2+'#9'c #DFCE89",'#10'"3+'#9'c #DDCC85",'#10'"4+'#9'c #D' +#9'c #BEBEDC",'#10'"2+'#9'c #B1B1D4",'#10'"3+'#9'c #4C4C71",'#10'"4+'#9'c #0'
+'BC981",'#10'"5+'#9'c #D9C77D",'#10'"6+'#9'c #D8C579",'#10'"7+'#9'c #A59442"' +'90913",'#10'"5+'#9'c #020208",'#10'"6+'#9'c #38385D",'#10'"7+'#9'c #686895"'
+','#10'"8+'#9'c #9C8D3B",'#10'"9+'#9'c #938535",'#10'"0+'#9'c #8A7D2E",'#10 +','#10'"8+'#9'c #20203D",'#10'"9+'#9'c #000003",'#10'"0+'#9'c #010106",'#10
+'"a+'#9'c #817527",'#10'"b+'#9'c #D8C67B",'#10'"c+'#9'c #D7C477",'#10'"d+'#9 +'"a+'#9'c #090919",'#10'" ",'#10'" '
+'c #D5C273",'#10'"e+'#9'c #9F8F3D",'#10'"f+'#9'c #968737",'#10'"g+'#9'c #8C7' +' . + @ ",'#10'" # $ % & * = - '
+'F30",'#10'"h+'#9'c #D2BE6D",'#10'"i+'#9'c #988938",'#10'" ' +' ",'#10'" ; > , '' ) '' ! ~ { ",'#10'" ] ^ / ( _'
+' . + @ # $ % & * = ",'#10'" - ; ; ; ; ; ; > , '' ' +' : < [ } | 1 2 ",'#10'" 3 4 5 6 7 8 9 0 a b c d e f g ",'#10
+' ",'#10'" ) ; ; ; ; ; ; ! ; ~ '' ",'#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 '
+' { ; ] ~ ] ^ ; '' ~ ; , / ",'#10'" ( ; ; ; ; ; ' +'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'" | | 1 ; ] 2 ~ ] ~ 3 ^ 4 5 6 ",'#10'" ' +'.&.*.=.-.;.>.,.$.''.).!.~.{.",'#10'"].F ^./.(._.:.C F <.) [.*.}.|.1.C , 2."'
+' | | 7 8 | 9 ; 0 ; ; ; a b c d e f ",'#10'" | | g h i j k l ; 0 ' +','#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.'
+'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 +'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.'
+'"| 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 ` .' +'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 '
+'; 0 ..+.@.#.$.%.&.*.=.",'#10'"| -.;.>.,.0 Y ''.).!.~.; {.].O P ^./.P (._.:.' +'`. +g ",'#10'" g .+++6 o.w.@+#+$+u *.%+&+*+=+-+g g ",'#10'" g ;+>+,+''+'
+'",'#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' +'%+U.)+!+^.~+{+]+] g ",'#10'" g ^+/+J (+K.(+!+_+:+g g ",'#10
+'.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.' +'" <+[+}+|+1+2+3+4+g g ",'#10'" 5+6+7+8+9+g '
+'P.Q.R.",'#10'"| S.T.U.V.W.X.Y.Z.`. +.+++@+#+| ",'#10'"| B.C.$+%' +' ",'#10'" 0+a+g g "};'#10
+'+&+*+=+-+;+>+,+''+)+!+| ",'#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
]); ]);
LazarusResources.Add('srctype_parseerror_22x22','XPM',[ LazarusResources.Add('srctype_parseerror_22x22','XPM',[
'/* XPM */'#10'static char * srctype_parseerror_22x22_xpm[] = {'#10'"24 24 70' '/* 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 FindParentWithCodeBuffer(ACodeBuffer: TCodeBuffer): TUnitNode;
function HasChildren: boolean; function HasChildren: boolean;
function ImageIndex: integer; function ImageIndex: integer;
function IsFirstImplementationNode: boolean;
function IsImplementationNode: boolean; function IsImplementationNode: boolean;
function StateImageIndex: integer;
property ChildCount: integer read FChildCount; property ChildCount: integer read FChildCount;
property CodeBuffer: TCodeBuffer read FCodeBuffer write SetCodeBuffer; property CodeBuffer: TCodeBuffer read FCodeBuffer write SetCodeBuffer;
property Filename: string read FFilename write SetFilename; property Filename: string read FFilename write SetFilename;
@ -136,12 +136,14 @@ type
TUnitDependenciesView = class(TForm) TUnitDependenciesView = class(TForm)
SrcTypeImageList: TImageList; SrcTypeImageList: TImageList;
FlagImageList: TImageList;
UnitHistoryList: TComboBox; UnitHistoryList: TComboBox;
SelectUnitButton: TBitBtn; SelectUnitButton: TBitBtn;
UnitTreeView: TTreeView; UnitTreeView: TTreeView;
RefreshButton: TBitBtn; RefreshButton: TBitBtn;
procedure UnitDependenciesViewResize(Sender: TObject); procedure UnitDependenciesViewResize(Sender: TObject);
procedure UnitTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
procedure UnitTreeViewCollapsing(Sender: TObject; Node: TTreeNode; procedure UnitTreeViewCollapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean); var AllowCollapse: Boolean);
procedure UnitTreeViewExpanding(Sender: TObject; Node: TTreeNode; procedure UnitTreeViewExpanding(Sender: TObject; Node: TTreeNode;
@ -161,7 +163,6 @@ type
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
function RootValid: boolean; function RootValid: boolean;
procedure UpdateUnitTree;
property RootFilename: string read FRootFilename write SetRootFilename; property RootFilename: string read FRootFilename write SetRootFilename;
property RootShortFilename: string read FRootShortFilename write SetRootShortFilename; property RootShortFilename: string read FRootShortFilename write SetRootShortFilename;
end; end;
@ -179,6 +180,26 @@ begin
DoResize; DoResize;
end; 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; procedure TUnitDependenciesView.UnitTreeViewCollapsing(Sender: TObject;
Node: TTreeNode; var AllowCollapse: Boolean); Node: TTreeNode; var AllowCollapse: Boolean);
var var
@ -250,7 +271,6 @@ begin
FRootCodeBuffer:=CodeToolBoss.FindFile(FRootFilename); FRootCodeBuffer:=CodeToolBoss.FindFile(FRootFilename);
FRootShortFilename:=FRootFilename; FRootShortFilename:=FRootFilename;
RebuildTree; RebuildTree;
UpdateUnitTree;
end; end;
procedure TUnitDependenciesView.SetRootShortFilename(const AValue: string); procedure TUnitDependenciesView.SetRootShortFilename(const AValue: string);
@ -266,22 +286,19 @@ begin
Result:=FRootValid; Result:=FRootValid;
end; end;
procedure TUnitDependenciesView.UpdateUnitTree;
begin
end;
constructor TUnitDependenciesView.Create(TheOwner: TComponent); constructor TUnitDependenciesView.Create(TheOwner: TComponent);
procedure AddResImg(ImgList: TImageList; const ResName: string); procedure AddResImg(ImgList: TImageList; const ResName: string);
var Pixmap: TPixmap; var Pixmap: TPixmap;
begin begin
Pixmap:=TPixmap.Create; 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); Pixmap.LoadFromLazarusResource(ResName);
ImgList.Add(Pixmap,nil) ImgList.Add(Pixmap,nil)
end; end;
var var
ALayout: TIDEWindowLayout; ALayout: TIDEWindowLayout;
begin begin
@ -298,26 +315,17 @@ begin
Name:='SrcTypeImageList'; Name:='SrcTypeImageList';
Width:=22; Width:=22;
Height:=22; Height:=22;
AddResImg(SrcTypeImageList,'srctype_unknown_22x22'); AddResImg(SrcTypeImageList,'srctype_unknown_22x22'); // 0
AddResImg(SrcTypeImageList,'srctype_unit_22x22'); AddResImg(SrcTypeImageList,'srctype_unit_22x22'); // 1
AddResImg(SrcTypeImageList,'srctype_program_22x22'); AddResImg(SrcTypeImageList,'srctype_program_22x22'); // 2
AddResImg(SrcTypeImageList,'srctype_library_22x22'); AddResImg(SrcTypeImageList,'srctype_library_22x22'); // 3
AddResImg(SrcTypeImageList,'srctype_package_22x22'); AddResImg(SrcTypeImageList,'srctype_package_22x22'); // 4
AddResImg(SrcTypeImageList,'srctype_filenotfound_22x22'); AddResImg(SrcTypeImageList,'srctype_filenotfound_22x22'); // 5
AddResImg(SrcTypeImageList,'srctype_parseerror_22x22'); AddResImg(SrcTypeImageList,'srctype_parseerror_22x22'); // 6
AddResImg(SrcTypeImageList,'srctype_forbiddencircle_22x22'); // 7
AddResImg(SrcTypeImageList,'srctype_circle_22x22'); // 8
end; 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); UnitHistoryList:=TComboBox.Create(Self);
with UnitHistoryList do begin with UnitHistoryList do begin
Name:='UnitHistoryList'; Name:='UnitHistoryList';
@ -365,7 +373,8 @@ begin
OnExpanding:=@UnitTreeViewExpanding; OnExpanding:=@UnitTreeViewExpanding;
OnCollapsing:=@UnitTreeViewCollapsing; OnCollapsing:=@UnitTreeViewCollapsing;
Images:=SrcTypeImageList; Images:=SrcTypeImageList;
StateImages:=FlagImageList; //StateImages:=SrcTypeImageList;
OnAdvancedCustomDrawItem:=@UnitTreeViewAdvancedCustomDrawItem;
Visible:=true; Visible:=true;
end; end;
@ -422,7 +431,6 @@ begin
TreeNode.Data:=Self; TreeNode.Data:=Self;
TreeNode.HasChildren:=HasChildren; TreeNode.HasChildren:=HasChildren;
TreeNode.ImageIndex:=ImageIndex; TreeNode.ImageIndex:=ImageIndex;
TreeNode.StateIndex:=StateImageIndex;
end; end;
end; end;
@ -465,7 +473,13 @@ begin
if PrevSibling<>nil then PrevSibling.FNextSibling:=Self; if PrevSibling<>nil then PrevSibling.FNextSibling:=Self;
Inc(Parent.FChildCount); Inc(Parent.FChildCount);
CreateShortFilename; CreateShortFilename;
if FindParentWithCodeBuffer(CodeBuffer)<>nil then begin
Include(FFlags,unfCircle);
if ForbiddenCircle then
Include(FFlags,unfForbiddenCircle);
end;
if Parent.TreeNode<>nil then begin if Parent.TreeNode<>nil then begin
Parent.TreeNode.HasChildren:=true; Parent.TreeNode.HasChildren:=true;
TreeNode:=Parent.TreeNode.TreeNodes.AddChild(Parent.TreeNode,''); TreeNode:=Parent.TreeNode.TreeNodes.AddChild(Parent.TreeNode,'');
@ -483,17 +497,11 @@ begin
NewNode:=TUnitNode.Create; NewNode:=TUnitNode.Create;
NewNode.CodeBuffer:=ACodeBuffer; NewNode.CodeBuffer:=ACodeBuffer;
NewNode.Filename:=AFilename; 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 if InImplementation then
Include(NewNode.FFlags,unfImplementation); Include(NewNode.FFlags,unfImplementation);
if ACodeBuffer=nil then begin
Include(NewNode.FFlags,unfFileNotFound);
end;
NewNode.Parent:=Self; NewNode.Parent:=Self;
end; end;
@ -511,7 +519,6 @@ begin
FSourceType:=ASrcType; FSourceType:=ASrcType;
if TreeNode<>nil then begin if TreeNode<>nil then begin
TreeNode.ImageIndex:=ImageIndex; TreeNode.ImageIndex:=ImageIndex;
TreeNode.StateIndex:=StateImageIndex;
end; end;
end; end;
@ -519,12 +526,14 @@ function TUnitNode.ForbiddenCircle: boolean;
var var
ParentNode, CurNode: TUnitNode; ParentNode, CurNode: TUnitNode;
begin begin
Result:=false;
if unfImplementation in Flags then exit;
CurNode:=Self; CurNode:=Self;
ParentNode:=Parent; ParentNode:=Parent;
while ParentNode<>nil do begin while ParentNode<>nil do begin
if ParentNode.CodeBuffer=CodeBuffer then begin if ParentNode.CodeBuffer=CodeBuffer then begin
// circle detected // circle detected
if unfImplementation in CurNode.Flags then begin if not (unfImplementation in CurNode.Flags) then begin
Result:=true; Result:=true;
exit; exit;
end; end;
@ -605,8 +614,9 @@ function TUnitNode.FindParentWithCodeBuffer(ACodeBuffer: TCodeBuffer
): TUnitNode; ): TUnitNode;
begin begin
Result:=Parent; Result:=Parent;
while (Result<>nil) and (Result.CodeBuffer<>ACodeBuffer) do while (Result<>nil) and (Result.CodeBuffer<>ACodeBuffer) do begin
Result:=Result.Parent; Result:=Result.Parent;
end;
end; end;
function TUnitNode.HasChildren: boolean; function TUnitNode.HasChildren: boolean;
@ -616,45 +626,42 @@ end;
function TUnitNode.ImageIndex: integer; function TUnitNode.ImageIndex: integer;
begin begin
case SourceType of if not (unfCircle in FFlags) then begin
unstUnit: Result:=1; case SourceType of
unstProgram: Result:=2; unstUnit: Result:=1;
unstLibrary: Result:=3; unstProgram: Result:=2;
unstPackage: Result:=4; unstLibrary: Result:=3;
else unstPackage: Result:=4;
begin else
if unfFileNotFound in Flags then begin
Result:=5 if unfFileNotFound in Flags then
else if unfParseError in Flags then Result:=5
Result:=6 else if unfParseError in Flags then
else Result:=6
Result:=0; else
Result:=0;
end;
end;
end else begin
if unfForbiddenCircle in Flags then begin
Result:=7;
end else begin
Result:=8;
end; end;
end; end;
end; end;
function TUnitNode.IsFirstImplementationNode: boolean;
begin
Result:=IsImplementationNode
and ((PrevSibling=nil) or (not PrevSibling.IsImplementationNode));
end;
function TUnitNode.IsImplementationNode: boolean; function TUnitNode.IsImplementationNode: boolean;
begin begin
Result:=unfImplementation in FFlags; Result:=unfImplementation in FFlags;
end; 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 initialization
{$I unitdependencies.lrs} {$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 */ /* XPM */
static char * srctype_package_22x22_xpm[] = { static char * srctype_package_22x22_xpm[] = {
"22 22 232 2", "19 22 224 2",
" c None", " c None",
". c #8F7F6E", ". c #14142A",
"+ c #8B7C6B", "+ c #454568",
"@ c #887969", "@ c #08081C",
"# c #857666", "# c #070714",
"$ c #817364", "$ c #3C3C5B",
"% c #7E7062", "% c #9898C4",
"& c #7B6D5F", "& c #ADADD2",
"* c #776B5D", "* c #8989B6",
"= c #74685A", "= c #2F2F45",
"- c #8A7B6A", "- c #03030D",
"; c #FFFFFF", "; c #07070D",
"> c #73675A", "> c #5C5C84",
", c #898989", ", c #B4B4D4",
"' c #6A6054", "' c #CACAE3",
") c #867767", ") c #CECEE5",
"! c #6F6357", "! c #AAAACB",
"~ c #C9C9C9", "~ c #45456D",
"{ c #827464", "{ c #030309",
"] c #828282", "] c #010103",
"^ c #C6C6C6", "^ c #1B1B2E",
"/ c #5D544A", "/ c #656591",
"( c #7E7061", "( c #C4C4DF",
"_ c #665C51", "_ c #DEDEEE",
": c #63594E", ": c #E9E9F3",
"< c #60564C", "< c #EBEBF5",
"[ c #5C5449", "[ c #E8E8F3",
"} c #595147", "} c #DDDDEE",
"| c #494214", "| c #BCBCDA",
"1 c #796C5E", "1 c #49497A",
"2 c #5C5B5B", "2 c #131325",
"3 c #FEFCFB", "3 c #010105",
"4 c #A4A4A4", "4 c #262641",
"5 c #747474", "5 c #8383AE",
"6 c #554D44", "6 c #8C8CBB",
"7 c #FEF9D9", "7 c #8F8FBD",
"8 c #FEF9D4", "8 c #DEDEED",
"9 c #75695B", "9 c #F6F6FA",
"0 c #CC0606", "0 c #F9F9FC",
"a c #FDFBF9", "a c #F5F5FA",
"b c #FCF7F3", "b c #CECEE3",
"c c #FAF4EE", "c c #8383B5",
"d c #F0EAE6", "d c #8D8DBD",
"e c #C1BAB3", "e c #7878A4",
"f c #504941", "f c #171736",
"g c #FEFBE4", "g c #000000",
"h c #FEFADF", "h c #080811",
"i c #FEF9DA", "i c #4A4A62",
"j c #FEF9D5", "j c #9C9CB6",
"k c #FEF8CF", "k c #C3C3DC",
"l c #716558", "l c #C6C6E0",
"m c #5A5552", "m c #B6B6D7",
"n c #7E7873", "n c #9292BD",
"o c #9F958D", "o c #D0D0E4",
"p c #7D746E", "p c #F3F3F9",
"q c #D8D0C8", "q c #BEBEDA",
"r c #4C463E", "r c #9494C0",
"s c #FEFCEF", "s c #BFBFDD",
"t c #FEFBEA", "t c #C5C5E0",
"u c #FEFBE5", "u c #C5C5DF",
"v c #FEFAE0", "v c #ABABCE",
"w c #FBF5F0", "w c #4A4A67",
"x c #F9F1EA", "x c #060613",
"y c #F8EEE5", "y c #0D0D15",
"z c #F7EADF", "z c #54546C",
"A c #F5E7DA", "A c #A7A7BA",
"B c #D6CABF", "B c #CCCCDD",
"C c #48423B", "C c #E0E0EF",
"D c #FEFDFB", "D c #E1E1F0",
"E c #FEFDF5", "E c #DADAEC",
"F c #FEFCF0", "F c #C9C9E2",
"G c #FEFBEB", "G c #9898C3",
"H c #FEFBE6", "H c #8080AC",
"I c #FEFADC", "I c #A2A2CA",
"J c #FEF9D6", "J c #CBCBE3",
"K c #FEF8D1", "K c #D8D8EA",
"L c #685E52", "L c #C1C1DD",
"M c #807C79", "M c #5A5A7E",
"N c #5A5653", "N c #050513",
"O c #C0B5AC", "O c #262633",
"P c #998778", "P c #7E7EA7",
"Q c #7B6F65", "Q c #C5C5DB",
"R c #7A6D62", "R c #EDEDF5",
"S c #D3C3B4", "S c #F6F6FB",
"T c #443F38", "T c #EFEFF7",
"U c #F8EEC3", "U c #C0C0DB",
"V c #F7EBC0", "V c #7171A8",
"W c #FEFCF1", "W c #9393BE",
"X c #FEFCEC", "X c #CFCFE4",
"Y c #FEFAE2", "Y c #EBEBF4",
"Z c #FEF9D7", "Z c #C3C3DD",
"` c #FEF8D2", "` c #7C7CAF",
" . c #645A4F", " . c #222236",
".. c #FAF2EC", ".. c #41414A",
"+. c #F9EFE7", "+. c #BFBFDA",
"@. c #F7EBE1", "@. c #A6A6CB",
"#. c #F6E8DC", "#. c #C9C9E0",
"$. c #F4E4D6", "$. c #FDFDFE",
"%. c #F3E0D0", "%. c #FBFBFD",
"&. c #F2DDCB", "&. c #C5C5DD",
"*. c #D1BCAA", "*. c #B1B1D2",
"=. c #3F3B35", "=. c #C8C8E2",
"-. c #F6EABD", "-. c #9999C4",
";. c #F4E8B9", ";. c #C2C2DD",
">. c #F2E6B5", ">. c #A7A7CD",
",. c #F0E4B1", ",. c #D8D8E9",
"'. c #FEFADD", "'. c #FCFCFE",
"). c #FEF9D8", "). c #B9B9D7",
"!. c #FEF8D3", "!. c #ACACCE",
"~. c #60574C", "~. c #B5B5D5",
"{. c #7F7A76", "{. c #2D2D3F",
"]. c #595551", "]. c #40404B",
"^. c #7B6F64", "^. c #E1E1EF",
"/. c #564C45", "/. c #BDBDDA",
"(. c #786A5C", "(. c #B9B9D8",
"_. c #CEB6A0", "_. c #B2B2D4",
":. c #3B3732", ":. c #C2C2DC",
"<. c #F3E7B7", "<. c #8B8BB9",
"[. c #F1E4B3", "[. c #DDDDED",
"}. c #EFE2AF", "}. c #C1C1DB",
"|. c #EEE0AB", "|. c #B3B3D3",
"1. c #ECDEA7", "1. c #CCCCE3",
"2. c #FEFADE", "2. c #2A2A3D",
"3. c #C3AE59", "3. c #2A2A3C",
"4. c #5C5349", "4. c #D1D1E7",
"5. c #F8EDE3", "5. c #CACAE2",
"6. c #F6E9DD", "6. c #DFDFEE",
"7. c #F5E5D8", "7. c #CCCCE4",
"8. c #F3E2D2", "8. c #6E6EA5",
"9. c #F2DECD", "9. c #9999C1",
"0. c #F1DAC7", "0. c #D2D2E7",
"a. c #EFD7C2", "a. c #C4C4DD",
"b. c #EED3BC", "b. c #D1D1E6",
"c. c #CCAF97", "c. c #7878AB",
"d. c #37342F", "d. c #1D1D32",
"e. c #F0E3B1", "e. c #43434D",
"f. c #EEE1AD", "f. c #B5B5D6",
"g. c #EDDFA9", "g. c #9090BD",
"h. c #EBDDA5", "h. c #B3B3D5",
"i. c #E9DAA1", "i. c #C4C4E0",
"j. c #E7D89D", "j. c #ADADD0",
"k. c #E6D699", "k. c #8181B2",
"l. c #C6B05B", "l. c #9797C3",
"m. c #BCA954", "m. c #ABABD0",
"n. c #574F46", "n. c #8A8ABA",
"o. c #D7CCC1", "o. c #B6B6D6",
"p. c #D5C7BA", "p. c #C6C6E1",
"q. c #D3C2B3", "q. c #AAAACE",
"r. c #D1BEAC", "r. c #9090BC",
"s. c #CFB9A5", "s. c #AEAED1",
"t. c #CEB49F", "t. c #9494BF",
"u. c #CCB097", "u. c #8484B4",
"v. c #CAAB90", "v. c #B7B7D6",
"w. c #C9A88C", "w. c #CDCDE4",
"x. c #33302C", "x. c #A9A9CE",
"y. c #EDE0AA", "y. c #7B7BAE",
"z. c #ECDEA6", "z. c #8A8AB9",
"A. c #EADBA2", "A. c #A7A7CC",
"B. c #E8D99E", "B. c #D5D5E8",
"C. c #E6D79A", "C. c #B8B8D7",
"D. c #E5D596", "D. c #2C2C3E",
"E. c #E3D392", "E. c #2A2A39",
"F. c #BFAB56", "F. c #A2A2C4",
"G. c #B6A34F", "G. c #D6D6EA",
"H. c #534C43", "H. c #9494BD",
"I. c #504940", "I. c #7070A7",
"J. c #49433C", "J. c #E7E7F3",
"K. c #464039", "K. c #DCDCED",
"L. c #423E37", "L. c #BCBCD9",
"M. c #3F3B34", "M. c #63639C",
"N. c #3C3832", "N. c #ADADCF",
"O. c #383530", "O. c #D4D4E8",
"P. c #35322D", "P. c #7E7EA5",
"Q. c #322F2B", "Q. c #171725",
"R. c #2F2D29", "R. c #02020A",
"S. c #EBDCA4", "S. c #262637",
"T. c #E9DAA0", "T. c #9696C0",
"U. c #E7D89C", "U. c #B2B2D3",
"V. c #E5D698", "V. c #9797C2",
"W. c #E4D494", "W. c #9A9AC5",
"X. c #E2D190", "X. c #E0E0EE",
"Y. c #E0CF8C", "Y. c #9696C1",
"Z. c #B9A551", "Z. c #A3A3CB",
"`. c #AF9D4A", "`. c #73739A",
" + c #A69643", " + c #101020",
".+ c #9D8E3C", ".+ c #070716",
"++ c #948636", "++ c #57577B",
"@+ c #8B7E2F", "@+ c #A8A8CD",
"#+ c #827628", "#+ c #DBDBEA",
"$+ c #E4D596", "$+ c #F5F5F9",
"%+ c #E2D292", "%+ c #DCDCEC",
"&+ c #E1D08E", "&+ c #B3B3D4",
"*+ c #DFCE8A", "*+ c #8080B0",
"=+ c #DDCC86", "=+ c #39395A",
"-+ c #B2A04C", "-+ c #010108",
";+ c #A99845", ";+ c #04040B",
">+ c #A0903E", ">+ c #2F2F53",
",+ c #978837", ",+ c #A3A3C6",
"'+ c #8E8031", "'+ c #D5D5E9",
")+ c #85782A", ")+ c #A1A1C7",
"!+ c #7C7123", "!+ c #C4C4DE",
"~+ c #E5D598", "~+ c #D3D3E8",
"{+ c #E3D394", "{+ c #8C8CB0",
"]+ c #E1D190", "]+ c #191933",
"^+ c #DECD88", "^+ c #191935",
"/+ c #DCCB84", "/+ c #9191B2",
"(+ c #DAC880", "(+ c #D9D9EB",
"_+ c #AC9A47", "_+ c #6F6F94",
":+ c #A29240", ":+ c #0A0A1B",
"<+ c #998A39", "<+ c #000002",
"[+ c #908333", "[+ c #151522",
"}+ c #877B2C", "}+ c #6A6A94",
"|+ c #7E7325", "|+ c #BBBBDA",
"1+ c #756B1E", "1+ c #BEBEDC",
"2+ c #DFCE89", "2+ c #B1B1D4",
"3+ c #DDCC85", "3+ c #4C4C71",
"4+ c #DBC981", "4+ c #090913",
"5+ c #D9C77D", "5+ c #020208",
"6+ c #D8C579", "6+ c #38385D",
"7+ c #A59442", "7+ c #686895",
"8+ c #9C8D3B", "8+ c #20203D",
"9+ c #938535", "9+ c #000003",
"0+ c #8A7D2E", "0+ c #010106",
"a+ c #817527", "a+ c #090919",
"b+ c #D8C67B", " ",
"c+ c #D7C477", " . + @ ",
"d+ c #D5C273", " # $ % & * = - ",
"e+ c #9F8F3D", " ; > , ' ) ' ! ~ { ",
"f+ c #968737", " ] ^ / ( _ : < [ } | 1 2 ",
"g+ c #8C7F30", " 3 4 5 6 7 8 9 0 a b c d e f g ",
"h+ c #D2BE6D", "g h i j k l m n o p q r s t u v w x ",
"i+ c #988938", "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.{.",
" | | 1 ; ] 2 ~ ] ~ 3 ^ 4 5 6 ", "e.) X t.7 d u.v.' w.F x.y.-.z.A.B.C.D.",
" | | 7 8 | 9 ; 0 ; ; ; a b c d e f ", "E.F.G.C H.I.' _ [ < J.K.L.M.N.D O.P.Q.",
" | | g h i j k l ; 0 0 ^ ] m n o p q r ", "R.S.T.7.U.V.W.X.9 0 a X Y.Z.v.t `. +g ",
" | | s t u v 0 0 0 0 0 0 0 0 w x y z A B C ", " g .+++6 o.w.@+#+$+u *.%+&+*+=+-+g g ",
"| D E F G H 0 I J K L ; 0 0 M N O P Q R S T ", " g ;+>+,+'+%+U.)+!+^.~+{+]+] g ",
"| U V W X 0 Y I Z ` .; 0 ..+.@.#.$.%.&.*.=.", " g ^+/+J (+K.(+!+_+:+g g ",
"| -.;.>.,.0 Y '.).!.~.; {.].O P ^./.P (._.:.", " <+[+}+|+1+2+3+4+g g ",
"| <.[.}.|.1.0 2.7 3.4.; 5.6.7.8.9.0.a.b.c.d.", " 5+6+7+8+9+g ",
"| e.f.g.h.i.j.k.l.m.n.q o.p.q.r.s.t.u.v.w.x.", " 0+a+g g "};
"| 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+| | ",
" | | "};

8
lcl/comctrls.pp
View File

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

17
lcl/include/customlistview.inc
View File

@ -86,6 +86,8 @@ begin
// LVN_BEGINDRAG: // LVN_BEGINDRAG:
LVN_DELETEITEM: begin LVN_DELETEITEM: begin
//don'tcall delete yet, there is no sulution available when we have deleted the item first //don'tcall delete yet, there is no sulution available when we have deleted the item first
Item := Items[nm^.iItem];
DoDeletion(Item)
end; end;
LVN_DELETEALLITEMS: begin LVN_DELETEALLITEMS: begin
end; end;
@ -156,6 +158,14 @@ begin
CNSendMessage(LM_LV_SELECTITEM,self,FSelected); CNSendMessage(LM_LV_SELECTITEM,self,FSelected);
end; end;
{------------------------------------------------------------------------------}
{ TCustomListView DoDeletion }
{------------------------------------------------------------------------------}
procedure TCustomListView.DoDeletion(AItem: TListItem);
begin
if Assigned(FOnDeletion) then FOnDeletion(Self, AItem);
end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
{ TCustomListView DoSelectItem } { TCustomListView DoSelectItem }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
@ -180,11 +190,13 @@ Begin
End; End;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
{ TCustomListView ItemChanged } { TCustomListView ItemDeleted }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
Procedure TCustomListView.ItemDeleted(Index : Integer); //called by TListItems Procedure TCustomListView.ItemDeleted(Index : Integer); //called by TListItems
Begin Begin
if csDestroying in Componentstate Then Exit; if csDestroying in Componentstate Then Exit;
if FSelected= FListItems[Index] then FSelected:=nil;
DoDeletion(FListItems[Index]);
if FUpdateCount>0 then if FUpdateCount>0 then
Include(FStates,lvUpdateNeeded) Include(FStates,lvUpdateNeeded)
else begin else begin
@ -528,6 +540,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.22 2002/09/14 14:47:41 lazarus
MG: fixed icons
Revision 1.21 2002/09/10 10:00:27 lazarus Revision 1.21 2002/09/10 10:00:27 lazarus
MG: TListView now works handleless and SetSelection implemented 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 var
idx: Integer; idx: Integer;
begin begin
idx := FItems.Remove(AItem); idx := FItems.IndexOf(AItem);
if (idx >= 0) and (FOwner <> nil) if assigned(FOwner)
then begin then FOwner.ItemDeleted(idx);
if FOwner.FSelected=AItem then FOwner.FSelected:=nil; FItems.Remove(AItem);
FOwner.ItemDeleted(idx);
end;
end; end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
@ -100,6 +98,8 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
destructor TListItems.Destroy; destructor TListItems.Destroy;
begin begin
while FItems.Count>0 do
TListItem(FItems[0]).Free;
FItems.Free; FItems.Free;
inherited Destroy; inherited Destroy;
end; end;
@ -137,6 +137,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.13 2002/09/14 14:47:41 lazarus
MG: fixed icons
Revision 1.12 2002/09/14 08:38:06 lazarus Revision 1.12 2002/09/14 08:38:06 lazarus
MG: added TListView notification from Vincent MG: added TListView notification from Vincent

9
lcl/include/treeview.inc
View File

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