Entwickler-Ecke :: Thema anzeigen

freak89 - So 06.03.05 23:40
Titel: keine diagonale

Hi, Wieso kann ich mit diesem Quelltext keine diagonalen zeichnen? und wie muss er denn richtig heißen?

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
       with  image1.canvas do begin
  if (chr(Key) = chr(vk_left))
then begin image1.canvas.lineto(penpos.x-1,penpos.y)  end  ;
if (chr(Key) = chr(vk_right))
then begin image1.canvas.lineto(penpos.x+1,penpos.y)  end ;
if (chr(Key) = chr(vk_up))
then begin image1.canvas.lineto(penpos.x,penpos.y-1)  end ;
if (chr(Key) = chr(vk_down))
then begin image1.canvas.lineto(penpos.x,penpos.y+1)  end;
  if (chr(Key) = chr(vk_left))and (chr(Key) = chr(vk_up))
then begin image1.canvas.lineto(penpos.x-1,penpos.y-1)  end  ;
if (chr(Key) = chr(vk_left))and (chr(Key) = chr(vk_down))
then begin image1.canvas.lineto(penpos.x-1,penpos.y+1)  end ;
if (chr(Key) = chr(vk_right))and (chr(Key) = chr(vk_up))
then begin image1.canvas.lineto(penpos.x+1,penpos.y-1)  end ;
if (chr(Key) = chr(vk_right))and (chr(Key) = chr(vk_down))
then begin image1.canvas.lineto(penpos.x+1,penpos.y+1)  end;
   {if key = chr(vk_left) then}

end;
  end;

retnyg - So 06.03.05 23:49

dein code liesse sich so zusammenfassen:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var x,y:integer;
begin
  x:= image1.canvas.penpos.x;
  y:= image1.canvas.penpos.y; 
  case key of 
       vk_down: inc(y);
       vk_up: dec(y);
       vk_left: inc(x);
       vk_right: dec(x);
  end;
  image1.canvas.moveto(x,y);
  image1.canvas.pixels[x,y]:=clred;
end;

freak89 - Mo 07.03.05 00:17

also so: ? das funktioniert nicht

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  x:= image1.canvas.penpos.x;
  y:= image1.canvas.penpos.y;
  case key of
       vk_down: inc(y);
       vk_up: dec(y);
       vk_left: inc(x);
       vk_right: dec(x);
  end;
  image1.canvas.moveto(x,y);
  image1.canvas.pixels[x,y]:=clred;
end;

retnyg - Mo 07.03.05 01:52

sonderbar, kann mir auch nicht erklären wieso pixels nix zeichnet... also halt so:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var x,y:integer;
begin
  with image1.canvas do begin
    x:= penpos.x;
    y:= penpos.y;
    case key of
       vk_down: inc(y);
       vk_up:   dec(y);
       vk_left: dec(x);
       vk_right:inc(x);
    end;
    lineto(x,y);
    pixels[x,y]:=clred;
  end;
end;

retnyg - Mo 07.03.05 02:10

aha, das mit pixels ging drum nicht weil das vom entsprechenden canvas unterstützt werden muss, was bei image nicht der fall ist. so geht es aber:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var x,y:integer;
begin
  with form1.canvas do begin
  x:= penpos.x;
  y:= penpos.y;
  case key of
       vk_down: inc(y);
       vk_up: dec(y);
       vk_left: dec(x);
       vk_right: inc(x);
  end;
//  lineTo(x,y);
  moveto(x,y);
  pixels[x,y]:=clred;
  end;
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!