@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;