Pixel Scannen

[Wadim]

Zitat von himitsu:

Versuch das mal so:
if (color and $ffffff) = (stringtocolor(edit6.text) and $ffffff) then siehe OH - TColor:

Zitat:

Hat das höchstwertige Byte den Wert Null, erhalten Sie eine Farbe, die derjenigen in der Systempalette am ähnlichsten ist. Ist das höchstwertige Byte Eins ($01 bzw. 0x01), ergibt das eine Farbe, die derjenigen in der aktiven Palette am ähnlichsten ist. Wenn Sie das höchstwertige Byte auf Zwei ($02 bzw. 0x02) setzen, wird der Wert an die ähnlichste Farbe in der logischen Palette des aktuellen Gerätekontexts angepasst.

leider geht das auch nicht