Aktív témák

• #8 pendragonhu csendes tag kicsitomi88 #7

  2007-10-13 17:03:31 #8

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pendragonhu

  csendes tag

  válasz kicsitomi88 #7 üzenetére

  jugyus jegyzetem van csak.
  próbálok aszerint haladni de sok mindent nem említ, amire már rájöttem:
  canvasra kellene rajzolni és writepixel helyett form1.canvas.Pixels[ x, y ] := clBlack; utasítással működik, csak nem a megfelelő kezdő és végpontra rakja ki az egyenest

• #7 kicsitomi88 őstag pendragonhu #6

  2007-10-13 16:57:54 #7

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  kicsitomi88

  őstag

  válasz pendragonhu #6 üzenetére

  Akkor valamit rosszul csinalsz. Van valamilyen könyved?

• #6 pendragonhu csendes tag kicsitomi88 #5

  2007-10-13 16:40:21 #6

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pendragonhu

  csendes tag

  válasz kicsitomi88 #5 üzenetére

  ott a gondom hogy a fenn lévő cuccok nekem nem működnek (delphi 6 alatt)

• #5 kicsitomi88 őstag pendragonhu #4

  2007-10-13 16:04:54 #5

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  kicsitomi88

  őstag

  válasz pendragonhu #4 üzenetére

  Azt rtfm es a kereso melyik reszet nem erted?

  Ha azt akarod, hogy a teljes progit megirjam akkor priviben kuldom a szamlaszamom.

  Tudtam, h delphis totyikot is nyitni kellett volna ujat

• #4 pendragonhu csendes tag pendragonhu #3

  2007-10-13 16:02:13 #4

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pendragonhu

  csendes tag

  válasz pendragonhu #3 üzenetére

  procedure MidpointLine(x0,y0,x1,y1,value : integer);
  var
  dx,dy,incrE,incrNE,d,x,y : integer;
  begin
  dx := x1-x0;
  dy := y1-y0;
  d := 2*dy-dx;
  incrE := 2*dy;
  incrNE := 2*(dy-dx);
  x := x0;
  y := y0;
  WritePixel(x,y,value);
  while x < x1 do
  begin
  if d <= 0 then
  begin
  d := d + incrE;
  x := x + 1
  end
  else
  begin
  d := d + incrNE;
  x := x + 1;
  y := y + 1
  end;
  WritePixel(x,y,value)
  end {while}
  end; {MidpointLine}

  szal ezt kéne működésre bírni

• #3 pendragonhu csendes tag kicsitomi88 #2

  2007-10-13 15:58:01 #3

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pendragonhu

  csendes tag

  válasz kicsitomi88 #2 üzenetére

  nekem olyan kéne ahol én tudok képpontonként rajzoltatni

• #2 kicsitomi88 őstag pendragonhu #1

  2007-10-13 15:54:08 #2

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  kicsitomi88

  őstag

  válasz pendragonhu #1 üzenetére

  Kereső, rtfm
  

• #1 pendragonhu csendes tag

  2007-10-13 15:51:08 #1

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  pendragonhu

  csendes tag

  Üdv

  olyan gondom van hogy felezéses algoritmus szerint kellene vonalat kirajzoltatnom delphiben.
  találtam is olyan függványt hogy writepixel de ezt kifügyülte a delphi.
  hogy kell nekiesnem ennek a proginak?
  esetleg tudnátok ide (pendragonhu@gmail.hu)küldeni egy elkészült progit?
  (2 egér katt után, ami kijelöli a kezdő és végpontot, megrajzolja az egyenest)

  előre is kösz minden segítséget

Aktív témák