hi,
hier meine code:
Delphi-Quellcode:
procedure TDemoBar.Timer1Timer(Sender: TObject);
var dc :hdc;
a,b,c,f1,f2,d : integer;
begin
a := strtoint (edit1.text);
b := strtoint (edit2.text);
c := a + 200;
d := b + 200;
pos1 := strtoint (edit3.Text);
pos2 := strtoint (edit4.Text);
for f1 := a
to c
do begin
for f2 := b
to d
do begin
dc := getdc (0);
panel4.Color := getpixel(
dc,f1,f2);
releasedc (0,
dc);
if panel4.Color = $0000C91C
then begin
edit5.text := '
die farbe gibts es';
end
else
edit5.text := '
die farbe gibts es nicht';
end;
end;
end;
jetzt will ich wissen wie sag ich ihm das wenn er in das then gekommen ist mit dem scannen aufhören soll-das ist jetzt ein einfaches beispiel das mit dem befehl funktioniert aber sobald ich ein anderen befehl einfüge klapt es nicht mehr so gut!!
gibt es da überhaubt so eine befehl z.b. destroy scan oder irgendwie sowas
danke
mfg wadim