Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Crtanje grafike u Delphiju

[es] :: Pascal / Delphi / Kylix :: Crtanje grafike u Delphiju

[ Pregleda: 2672 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Trully
Vojislav Jotovic
Bor

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



Profil

icon Crtanje grafike u Delphiju16.04.2005. u 14:56 - pre 202 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

icon Re: Crtanje grafike u Delphiju17.04.2005. u 22:47 - pre 202 meseci
Da li ti treba u rubberband efekat?
 
Odgovor na temu

_v!rus_
BGD

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



+1 Profil

icon Re: Crtanje grafike u Delphiju18.04.2005. u 01:42 - pre 202 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

icon Re: Crtanje grafike u Delphiju18.04.2005. u 17:28 - pre 202 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

[es] :: Pascal / Delphi / Kylix :: Crtanje grafike u Delphiju

[ Pregleda: 2672 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.