VirtualTreeView - Wer hat die Weiterentwicklung übernommen

[Assertor]

Hi Daniel,

danke für die Pflege der VST.

Kurzer Bugreport für die 175:

In Zeile 4897:
muß
procedure GetStringDrawRect(DC: HDC; const S: UnicodeString; var Bounds: TRect; DrawFormat: Cardinal); statt
procedure GetStringDrawRect(DC: HDC; const S: WideString; var Bounds: TRect; DrawFormat: Cardinal); stehen, sonst gibt es ein Problem mit D2009 wegen abweichender Deklaration.

In Zeile 4645: Gibt die übliche "WideChar reduced to byte char in set expression. Consider using 'CharInSet' function..."

Ich würde einen kleinen Wrapper in die Implementation mit aufnehmen:

Delphi-Quellcode:

{$IFNDEF COMPILER_12_UP}
function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean;
begin
  Result := Char(C) in CharSet;
end;
{$ENDIF}

und folgendes ersetzen:
      while (nCount > 0) and not (Tail^ in [WideNull, WideCR, WideLF]) and (Tail^ <> WideLineSeparator) do mit

Delphi-Quellcode:

      while (nCount > 0) and not (CharInSet(Tail^, [WideNull, WideCR, WideLF])) and
        (Tail^ <> WideLineSeparator) do

Dann geht es ohne Warnung mit D2009 und davor.

Gruß Assertor