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

• #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...

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