loadfromfile bei Timage

[glkgereon]

was mach ich nur falsch?
kann sein das ich schon was müde bin, aber komisch isses schon

ich find den fehler nicht

es handelt sich hier um den anfang eines mühle-programms

speziell geht es um die procedure image1onclick

hier is ne fehlermeldung?
warum?

hat wer ne andere lösung
ich will einfach nur das
bei click soll er das bild laden, sonst nix

[fkerber]

Hi!

Ich kann dir sagen, dass der Fehler hier liegt:

if [...] (image1.Picture.Graphic.Empty=true) Was da allerdings falsch ist, weiß ich nicht.

Du solltest nach dem Zug des Weißen, weißamzug auf false setzen.

Ciao fkerber

[himitsu]

Ich weiß auch nicht, warum es nicht geht


aber mit image1.Picture.Bitmap.Empty geht's:

Delphi-Quellcode:

if (weissamzug=true) and (image1.Picture.Bitmap.Empty=true)
then Image1.Picture:=Imagewhite.Picture
else if (weissamzug=false) and (image1.Picture.Bitmap.Empty=true)
then Image1.Picture:=Imageblack.Picture;

etwas gekürzt

Delphi-Quellcode:

if weissamzug and image1.Picture.Bitmap.Empty
then Image1.Picture:=Imagewhite.Picture
else if (not weissamzug) and image1.Picture.Bitmap.Empty
then Image1.Picture:=Imageblack.Picture;

[Markus K.]

Hallo glkbkk,
bei mir geht es auch nur mit Bitmap, wobei es beim ersten mal noch keine Fehlermeldung gibt erst beim zweiten Mal
Und noch mal etwas verkürzt.

Delphi-Quellcode:

if image1.Picture.Bitmap.Empty
then if weissamzug then Image1.Picture:=Imagewhite.Picture
else if not(weissamzug) then Image1.Picture:=Imageblack.Picture;

Tschüß Markus

[himitsu]

OK, dann aber nochmehr

Delphi-Quellcode:

if image1.Picture.Bitmap.Empty 
then if weissamzug then Image1.Picture:=Imagewhite.Picture 
else Image1.Picture:=Imageblack.Picture;

[glkgereon]

ok, also ihr könnt mir meine quelltext zusammenstauchen, aber warums nit funzt wisst ihr auch nicht wirklich, oder?

[himitsu]

Es sollte ja mit Graphic funktionieren, aber es macht es halt nicht.

Aber Bitmap (image1.Picture.Bitmap.Empty) geht's doch schließlich auch, da ja BitMap in den 2 Image's drin sind