Thema: FreePascal BGRAControls installieren

Einzelnen Beitrag anzeigen

Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
934 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

BGRAControls installieren

  Alt 11. Mär 2024, 12:00
Hallo,

die Installation der BGRABitmap schlägt fehl, da PT unbekannt ist:
Zitat:
C:\Lazarus\ccr\bgrabitmap\bgrabitmap\bgrasvgtype.p as(501,19) Error: (5000) Identifier not found "PT"
Code:
function TSVGLinkListeners.IndexOf(const Item: TSVGLinkEvent): Integer;
begin
  Result := 0;
  while (Result < FCount) and not
        ((TMethod(PT(FList)[Result]).Code = TMethod(Item).Code)        // <-
        and (TMethod(PT(FList)[Result]).Data = TMethod(Item).Data)) do // <-
    Inc(Result);
  if Result = FCount then
    Result := -1;
end;
Was muss da geändert werden und warum?

Geändert von Alter Mann (11. Mär 2024 um 13:26 Uhr) Grund: Quelle hinzugefügt
  Mit Zitat antworten Zitat