Forum: Sonstige Fragen zu Delphi
by TonyR,
16. Apr 2007
Ich muss jetzt nochmal nachhaken und erinnere an meinen Beitrag vorhin (http://www.delphipraxis.net/internal_redirect.php?p=709832#709832)
Du vergleichst jeden Farbanteil mit einer Toleranz...
Aber wie gesagt können auch visuell ziemlich gleiche Farben sehr große Unterschiede in einem Farbwert aufweisen... Ich verweise nochmal auf meinen Post vorhin...
Bitte beweise mir das Gegenteil, wenn...
Forum: Sonstige Fragen zu Delphi
by TonyR,
15. Apr 2007
Nee... geht net... (außer vielleicht mit nem Array of TColor??? glaub ich aber nicht)...
Man müsste die Farben auf einem Farbverlauf, der alle Farben beinhaltet darstellen können...
Dann könnte man ganz einfach feststellen, ob sich die Farbe noch im gültigen Bereich befindet...
Ich mach dazu auch noch ne Skizze... aber jetz muss ich ins Bett... morgen halb sechs aufstehen...
Forum: Sonstige Fragen zu Delphi
by TonyR,
15. Apr 2007
Ich hab jetzt aber nochmal was nachgeprüft...
Ob es vielleicht klüger wäre den Schnitt an Abweichungen auszurechnen???
Weil siehe Screenshot (Bild 1): die zwei Farben sehen sich doch ziemlich ähnlich... R G B
oben: 150 255 0
unten: 0 255 150
ergibt: 150 + 0 + 150 = 300Sehr große Abweichung für kleine sichtbare Abweichung oder?
Edit: Anhang
Forum: Sonstige Fragen zu Delphi
by TonyR,
15. Apr 2007
Aber nicht den letzten Beitrag von Bitsetter unter den Tisch fallen lassen!!!
Es gehört sich einfach den Speicher wieder freizugeben :wink:
Und jetzt ist da die redbox... und die sagt, dass der Hanno das schon geändert hat in seinem Code... Naja... spät, aber gemacht^^
Forum: Sonstige Fragen zu Delphi
by TonyR,
15. Apr 2007
Ich hätte da so eine Idee...
Man kann ja die Farbe des Pixels unter der Maus und die gewünschte Farbe in die 3 Grundfarben zerlegen.... und dann subtrahieren und wenn das Ergebnis so ziehmlich bei null ist, dann ist es eine ähnliche Farbe!!!
Anregung in diesem Thread!
Farbe 1: R=120...G=100...B=12
Farbe 2: R=130...G=90...B=10
Ergebnis: R=10...G=10...B=2
--> Farbe ähnlich.... Klick...
Forum: Sonstige Fragen zu Delphi
by TonyR,
15. Apr 2007
1. Frage: Welches Interval hast du im Moment im Timer???
2. Sache: In der Timer-Prozedur hast du die Variablen X und Y...diese sind immer 0! Ich dachte, du willst den Mausklick dort ausführen, wo die Farbe ist :wink:
Da musst du entweder nochmal dasvar
Pos: TPoint;
begin
GetCursorPos(Pos);einfügen, oder Pos gleich global deklarieren, um auch in Timer1Timer darauf zugreifen zu...
Forum: Sonstige Fragen zu Delphi
by TonyR,
15. Apr 2007
Gib mal ein biss'l CODE!
Kann jetzt aber erst mal nicht helfen... weil: Formel 1
Forum: Sonstige Fragen zu Delphi
by TonyR,
15. Apr 2007
Bloß der Vollständigkeit halber: DesktopDC ist eine Variable :zwinker:
Aber ich kanns versthehen, dass du da noch nicht ganz dahinter stehst...
Aber dann musst du ja auch noch nicht solche schweren Sachen machen, oder?
Forum: Sonstige Fragen zu Delphi
by TonyR,
15. Apr 2007
Ist das bei einer normalen if-Abfrage mit einem Standard-timer auch so?
Mit OnMouseMove... geht das systemweit? Und: Wäre da die CPU-Belastung nicht eigentlich höher?
Forum: Sonstige Fragen zu Delphi
by TonyR,
15. Apr 2007
function GetPixelFarbe: TColor;
var
Pos: TPoint;
begin
GetCursorPos(Pos);
Result := GetPixel(DesktopDC, Pos.X, Pos.Y);
end;
Das würde glaube ich reichen...
Und das jetzt ins OnTimer von einem Timer...