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