Hallo,

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

Zitat:

Undeklarierter Bezeichner

:

zusammenfalten · markieren

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?

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

Rechte Maustaste -> Deklaration suchen :

markieren

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

hallo,

das müsste im \Source Verzeichnis liegen.

..\MustangpeakVirtualshellTools-master\Source


ich hab's von hier

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

Gruß

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

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ß

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.'.

hallo,

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

markieren

Delphi-Quellcode:

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

Hi,

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

Hi,

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

Danke