pixel scannen stoppen

[Wadim]

Zitat von Luckie:

@Wadim: Gehört zwar nicht zum Thema, aber für leserlich hältst du eigentlich deinen Code bei der Formatierung? ? Also ich achte beid der Formatierung immer da drauf, dass man ihn möglichst gut lesen kann und nicht, dass es möglichst nach moderner Kunst aussieht:

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;

du hast recht- ich arbeite dran denn ich weiß nicht so genau wie man das macht

mfg wadim