bitmap med canvas?

Lad være med at tegne direkte på Canvasen brug i stedet en TShape og klister den på.

Jens B

Hvordan gør men det?

så fik du den kigguro, bu bu :-)

/ZIRON

Lad nu være med at drille ZIRON. Eller jeg offentliggøre dit hjemme tlf. på internettet

www.Tryk_På_F1_Og_Kig_I_OnLine_Hjælpen.hest;

Jens B

jeg kommer og tager din puma og dræber den, ja og så er der ingen xxx i de næste par år...

/ZIRON

jens du har noget for de der heste :-)

/ZIRON

  www.Tryk_På_F1_Og_Kig_I_OnLine_Hjælpen.hest  -----TAK

Pis ikke min PUMA............Den er så sød

jo din puma... du skal bare tager det helt roligt og intet vil ske...

/ZIRON

Nu er gost klar over at den ikke kan tåler mere en 2785376 kg TUN om dagen... (Så får den dårlig afføring)

nej det var jeg sku ikke klar over, men du har vel heller ikke plads til så meget tun i dit kaninbur, vel???

/ZIRON

Jo jo. Er du da sindsyg. Jeg producere det selv i mine knæhaser...... 837 kr/sek.

prøv den her :

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
var
  Shape : TShape;
  Comp : TControl;
  Point : TPoint;
begin
  if (ssShift in Shift) then
  begin
    Shape := TShape.Create(Form1);
    Shape.Left := x;
    Shape.Top := y;
    Shape.Parent := Form1;
    Shape.OnMouseDown := FormMouseDown;
    exit;
  end;
  Point.x := x + (Sender as TControl).Left;
  Point.y := y + (Sender as TControl).Top;


  Comp := ControlAtPos(Point,false,true);

  if not (Comp is TShape) then
    exit;
  Shape := TShape(Comp);
  Shape.Shape := TShapeType(Random(5));
  Shape.Brush.Color := Random(256*256*256);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;


Jens B (http://fotx.net/borrisholt)

Så blev der ro ! Hva ?

Jens B

borrisholt >> undskyld mange gange håber det var noget du kunne overleve, men det er jo ikke sådan når der er en der har et trip med puma\'er ligesom du har med heste ik???

/ZIRON

Tak for svaret. Det var lige hvad jeg havde brug for. LIge et spørgsmål til. Hvordan får jeg den til at reagere når jeg forlader shapen igen?

det gør du ved at chekke hvad der står i din Sender variable....

Jens B