Új hozzászólás Aktív témák

• #748 killerjohn addikt Imike_80 #747

  Új Válasz 2005-03-23 09:01:12 #748

  Új hozzászólás

  Ö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

  

  killerjohn

  addikt

  válasz Imike_80 #747 üzenetére

  kiszámolja a lenyomáskor eltárolt koordináták és a felengedéskor átadott koordináták távolságát (pitagorasz tétel a2+b2=c2 [2=négyzet])
  
  utólag belegondolva működnie kell, de tényleg nem garantálom. TRY IT !
  
  ez sor :
  Ellipse(Circle_X-Radius,CircleY-Radius,CircleX+Radius,CircleY+Radius);
  javítva :
  Ellipse(Circle_X-Radius,Circle_Y-Radius,Circle_X+Radius,Circle_Y+Radius);
  (kihagytam az aláhúzásokat a változónevekből...)
  
  [Szerkesztve]

• #737 killerjohn addikt Imike_80 #732

  Új Válasz 2005-03-20 16:30:23 #737

  Új hozzászólás

  Ö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

  

  killerjohn

  addikt

  válasz Imike_80 #732 üzenetére

  Var Circle_X,Circle_Y : Integer;
  
  Procedure TForm1.Image1MouseDown(Sender: TObject.......);
  Begin
  Circle_X := X;
  Circle_Y := Y;
  End;
  
  Procedure TForm1.Image1MouseUp(Sender: TObject....);
  Var Radius : Integer;
  Begin
  Radius := sqrt( sqr(Abs(X-Circle_X))+sqr(Abs(Y-Circle_Y)) );
  With Image1.Cavas do
  Begin
  Pen.Style := psSolid;
  Brush.Style := psSolid;
  Pen.Color := clBlack;
  Brush.Color := clYellow;
  Ellipse(Circle_X-Radius,CircleY-Radius,CircleX+Radius,CircleY+Radius);
  End;
  End;
  
  szerintem...
  
  de valószínűleg (tuti) van benne 1-2 hiba, mert fejből írtam, ide az új hozzászólás ablakba...

• #735 Aaalbi tag Imike_80 #732

  Új Válasz 2005-03-19 13:48:19 #735

  Új hozzászólás

  Ö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

  

  Aaalbi

  tag

  válasz Imike_80 #732 üzenetére

  hi
  
  Miért nem a windows-os Paitet használod?
  Az tud ilyeneket.
  

• #734 Drótszamár őstag Imike_80 #732

  Új Válasz 2005-03-19 13:40:30 #734

  Új hozzászólás

  Ö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

  

  Drótszamár

  őstag

  válasz Imike_80 #732 üzenetére

  Mit nem tudsz?
  
  (most nem vagyok delphi közelben, de lehet hogy tudok segíteni)
  
  
  Rajzoloni ált az Image komponensre szoktak.
  Asszem image.picture.canvas.<rajzolófüggvények>
  

Új hozzászólás Aktív témák