Einzelnen Beitrag anzeigen

hanvas

Registriert seit: 28. Okt 2010
156 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: Objekte zu ihrer Längsachse vertikal ausrichten

  Alt 24. Mär 2019, 19:20
Delphi-Quellcode:
Procedure CheckPoints(X,Y: Integer; Canvas: TCanvas); StdCall;
var R, G, B:Byte;
    Color:TColor;
begin
     {$R-}
     Color := Canvas.Pixels[X, Y];
     R := GetRValue(Color);
     G := GetGValue(Color);
     B := GetBValue(Color);
     // prüfe, ob Pixelfarbe <> BackgroundTRGBFillColor
     if (R <> MainForm.BackgroundTRGBFillColor.r) and (G <> MainForm.BackgroundTRGBFillColor.g)
        and (B <> MainForm.BackgroundTRGBFillColor.b) then
          Inc(Distance);
     {$R+}
end;
Der Zugriff mittels Canvas.Pixels ist in der Regel sehr langsam.

Eine ausführliche Erklärung findest Du hier :

https://wiki.delphigl.com/index.php/...ildbearbeitung

cu Ha-Joe
  Mit Zitat antworten Zitat