[es] - Crtanje grafike u Delphiju

Trully
Vojislav Jotovic
Bor

Član broj: 55740
Poruke: 14
*.ptt.yu.

Profil

^{16.04.2005. u 14:56 - pre 231 meseci}

Potreban mi je kod pomocu koga ce se iscrtavati pravougaonik na formu
klikom, prevlacenjem i otpustanjem levog tastera misha. Hvala unapred.

P. S. Apsolutni pocetnik!

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Crtanje grafike u Delphiju

^{17.04.2005. u 22:47 - pre 231 meseci}

Da li ti treba u rubberband efekat?

Play Store

Odgovor na temu

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.vdial.verat.net.

+1 Profil

Re: Crtanje grafike u Delphiju

^{18.04.2005. u 01:42 - pre 231 meseci}

Evo iz glave, verovatno nesto fali:

(pseudo)code:

Code:

...
...
//pre svega
var
  MyRect: TShape;
  MbDown: Boolean;
...
procedure TForm1.FormMouseDown...
begin
  MyRect := TShape.Create(Self);
  MyRect.Parent := Self;
  MyRect.SetBounds(ScreenToClient(Mouse.CursorPos).X, ScreenToClient(Mouse.CursorPos).Y, 0, 0);
  MbDown := True;

  //Ovaj deo je potreban ako hoces da crtas jos preko postojecih prav.
  MyRect.OnMouseDown := FormMouseDown;
  MyRect.OnMouseUp := FormMouseUp;
  MyRect.OnMouseMove := FormMouseMove;
end;

procedure TForm1.FormMouseMove...
begin
  if MbDown then
    MyRect.SetBounds(MyRect.Left, MyRect.Top, ScreenToClient(Mouse.CursorPos).X - MyRect.Left, ScreenToClient(Mouse.CursorPos).Y - MyRect.Top);
end;

procedure TForm1.FormMouseUp...
begin
  MbDown := False;
end;

procedure TForm1.FormCreate...
begin
  DoubleBuffered := True;
end;

Nadam se da je to to

Odgovor na temu

Trully
Vojislav Jotovic
Bor

Član broj: 55740
Poruke: 14
*.ptt.yu.

Profil

Re: Crtanje grafike u Delphiju

^{18.04.2005. u 17:28 - pre 231 meseci}

Hvala. Javicu se ako je uspelo. A sto se tice rubberband efekta za sada mi nije potreban u svakom slucaju hvala. Eh, svaki pocetak je tezak...

Odgovor na temu