TinCan

Bei dieser Fehlermeldung kann es glaube ich manchmal vorkommen, dass der Cursor in der falschen Zeile steht. Vielleicht hast du vor dieser Zeile noch ein anderes Problem? Wenn ich versuche, folgendes zu kompilieren: if (Image1.Canvas.Pixels[2,2] in [$0000FF00..$000000FF]) then begin Label1.Caption := 'treffer'; end; dann erhalte ich (in Delphi 7) wie erwartet diese Fehlermeldung: (Der Cursor steht dabei jeweils hinter den HexWerten.) Dein Fehler befindet sich also offenbar schon vor dieser Stelle, ggf. schon vor der if-Anweisung.

Hi, mit einer Menge wird das nichts, aber man kann eine "normale" Wertebereichsprüfung machen: var aColor: TColor; aCanvas: TCanvas; begin aColor := aCanvas.Pixels[x,y]; if (aColor > clRed) and (aColor < clGreen) then TuWas; Ich gaube nicht, dass folgender Code: FRed:= [$00000000..$0000FF00]; zu gewünschtem Ergebnis führt, da in dieser Menge IMHO auch die Zahlen wie z.B. $00000001 oder $0000FEFF enthalten sein dürften. Für die Farbe Grün wäre eine Teilmenge gesucht, in welcher die beiden niederwertigsten Bytes immer 0 wären und die Zahl nicht größer $0000FF00 wird. Auszug aus der Delphi7 Hilfe: Im Anhang ein kleines Demo mit Quelltext. TinCan_Canvas_Demo.zip