Farben zusammenfassen

[delphi_newbie_123]

hallo
gibt es eine möglichkeit
bei einer bedingung mehrere farben zu zusmmen zu fassen

wie zb

Delphi-Quellcode:

 if panel1.color=clred,clblue,clgreen then begin
usw

oder

Delphi-Quellcode:

if panel1.color=clred or clblue or clgreen

hab ales mögliche versucht klappt bei mir irgendwie nicht :/

wäre über einen tipp sehr erfreut danke schomnal

[Mirilin]

:hi:

Du musst Klammern setzen :

Delphi-Quellcode:

if (panel1.color = clred) or (panel1.color = clblue) or (panel1.color = clgreen) then ...

noch ein Link

mfg Tobias

[Sharky]

Hai,

versuche es mal so:

Delphi-Quellcode:

 if Panel1.Color in [clred,clblue,clgreen] then
  begin
    ShowMessage ('Pannel ist farbig');
  end;

[delphi_newbie_123]

oh danke ;) :wall:

[delphi_newbie_123]

hi leute hab folgendes prob :

Delphi-Quellcode:

  ...if DesktopColor(Pos.X, Pos.Y)=($00003FD4) or ($00005FFF)
    or ($00001FD4) or ($00557FD4) or ...
  then 
  begin...

funktioniert komischerweise nicht :/
hat wer eine idee warum?

[CalganX]

Hi,
weil es hier nicht um einen or-Operator, sondern um eine or-Verknüpfung geht. Hier wird also nicht verglichen, sondern zusammen gerechnet. Du musst das genauso, machen, wie Sharky bereits geschrieben hat:

Delphi-Quellcode:

if DesktopColor(Pos.X, Pos.Y) in [$00003FD4,$00005FFF,$00001FD4,$00557FD4] then begin {...}

Chris

[delphi_newbie_123]

:oops: :wall:
danke :love:

[delphi_newbie_123]

if DesktopColor(Pos.X, Pos.Y) in [$00003FD4,$00005FFF,$00001FD4,$00557FD4] then begin {...}

geht leider nicht habs grad probiert geht nur mit clblack clred aber net mit rgb codes
geht nicht durch den compiler :/

[fkerber]

Hi!

Was kommt denn als Fehlermeldung?

Ciao fkerber

[delphi_newbie_123]

die zeile wird einfach rot markiert und geht nicht durch den compiler

Delphi-Quellcode:

if DesktopColor(Pos.X, Pos.Y) in 
[color=crimson][$00003FD4,$00005FFF,$00001FD4,$00557FD4] [/color]
then begin {...}

[Mirilin]

:hi:

Unten am Editorfenster sagt er dir, wo das Problem liegt.

sowas oder so

[Fehler] Unit1.pas(29): Konstantenausdruck verletzt untere Grenzen

mfg Tobias

[Neg]

Probier mal:

Delphi-Quellcode:

 ...if (DesktopColor(Pos.X, Pos.Y)=$00003FD4) or (DesktopColor(Pos.X, Pos.Y)=$00005FFF)... 
  then 
  begin...

[delphi_newbie_123]

:? :gruebel:
verstehe leider nicht was du meinst
hab ne funktion dafor fuer Desctopcolor
liegt nur am rgb code
wenn cih cl farben reinsetze geht es bei rgb codes leider ncihtmehr :/

[delphi_newbie_123]

Delphi-Quellcode:

if DesktopColor(Pos.X, Pos.Y)=$00003FD4
    or  DesktopColor(Pos.X, Pos.Y)=$00005FFF
    or  DesktopColor(Pos.X, Pos.Y)=$00001FD4
    or  DesktopColor(Pos.X, Pos.Y)=$00557FD4

das geht leider auch nciht nach der zweiten zeile ist schluss :/

[Fatal Error] 123.dpr(5): Could not compile used unit 'Unit1.pas'

[Mirilin]

:hi:

Du musst noch Klammern setzen.

Delphi-Quellcode:

if (c=$00ff0000) or (c=$00aaffaa) or ( . . . ) then

mfg Tobias

[delphi_newbie_123]

ollala danke =)
klappt juppiieee