TurboPack - VirtualShellTools - TCustomVirtualExplorerTree

[Alter Mann]

Hallo,

beim compilieren der VirtualShellToolsD240.bpl bekomme ich in der Zeile 9538 die Fehlermeldung

Zitat:

Undeklarierter Bezeichner

:

Delphi-Quellcode:

...
    if BitChanged(Value, OldOptions, toImages) then
    begin
      if toImages in Value then
        {$IF CompilerVersion >= 33}
        Owner.Images := Owner.FScaledSmallSysImages
        {$ELSE}
        Owner.Images := Owner.SmallSysImages               //<-- HIER
        {$IFEND}
      else
        Owner.Images := nil
    end;
...

SmallSysImages erkennt er (in 10.1 Berlin) nicht und ich finde es auch nicht.

Kann mir jemand die 'Augen' öffnen?

[himitsu]

Was ist Owner für ein Typ?
Und genau in Diesen mußt du mal reinsehn und schauen ob/wo es ist.

33 = ab 10.3 Rio

[Alter Mann]

Rechte Maustaste -> Deklaration suchen :

Delphi-Quellcode:

...
TCustomVirtualExplorerTreeOptions = class(TStringTreeOptions
...
property Owner: TCustomVirtualExplorerTree read GetOwner;
...

das gleiche bei
TCustomVirtualExplorerTree = class(TCustomVirtualStringTree, IVirtualShellNotify) und so weiter.

Ergebnis:

Zitat:

ich finde es auch nicht

[mmw]

hallo,

das müsste im \Source Verzeichnis liegen.

..\MustangpeakVirtualshellTools-master\Source


ich hab's von hier

https://github.com/TurboPack/Mustang...tualshellTools

Gruß

[Alter Mann]

Ok,

wo ist Hierachiekonform SmallSysImages deklariert?

Mit rechter Maustaste auf Owner und dann Deklaration suchen komme ich bis TPersistent.
Nur SmallSysImages finde ich nicht.

Ist dem so oder bin ich Blind (bei letzterem bitte ich um einen Fundstellennachweis von SmallSysImages).

Danke

[mmw]

hallo,

dürfte dies sein.

MPCommonObjects


function SmallSysImages: TCommonSysImages;

https://github.com/TurboPack/MustangpeakCommonLib

https://github.com/TurboPack/MustangpeakEasyListview

https://github.com/TurboPack/VirtualTreeView

Gruß

[Alter Mann]

In welchen Dateien die Eigenschaft/Klasse SmallSysImages verwendet wird ist bekannt (siehe Anhang).
Gesucht wird die in der Unit VirtualExplorerTree verwendete.
Also bitte keine weiteren 'glaube, dürfte, etc.'.

[mmw]

hallo,

ich hatte #1 nicht beachtet. Bin von folgenden ausgegangen. ( VirtualExplorerTree);

Delphi-Quellcode:

 if Column = Header.MainColumn then
    begin
      Result := Images;
      if Result = nil then
        {$IF CompilerVersion >= 33}
        Result := FScaledSmallSysImages;
        {$ELSE}
        Result := SmallSysImages;
        {$IFEND}

[Alter Mann]

Hi,

mir reicht es. Ich schreib den Leuten die das TurbaPack pflegen und hoffe dort erhört zu werden.

[Alter Mann]

Hi,

nachdem ich nur die Sourcen für Delphi-Berlin (nicht Brunnch, sondern Tag) heruntergeladen hatte, lies es sich auch installieren und nutzen.

Danke