hi,
hab folgendes problem, mein quellcode:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var dc :hdc;
pos1,pos2,a,b,c,f1,f2 : integer;
begin
a := strtoint (edit1.text);
b := strtoint (edit2.text);
c := strtoint (edit3.text);
pos1 := strtoint (edit4.Text);
pos2 := strtoint (edit5.Text);
for f1 := a
to b
do begin
for f2 := a
to c
do begin
dc := getdc (0);
Color := getpixel(
dc,f1,f2);
releasedc (0,
dc);
if edit6.text ='
'
then begin
edit6.text := '
$00000000';
end;
label1.Caption := colortostring (color);
if color = stringtocolor (edit6.text)
then begin
edit6.Text := '
010';
end
else
edit6.text := '
000';
end;
end;
end;
warum zeigt er mir immer die 000 an- dabei gebe ich auch einen colorcode an der in diesem bereich ich???
mir ist aufgefallen das wenn ich bei dieser stelle:
if color = stringtocolor (edit6.text)
zb das eingeben:
if color = $00048AE8
dann geht das- warum ist das so, kann mir da einer helfen???
danke