Image i mysz

0

Witam – mam pytanko
Mam image i jak zrobić aby po przytrzymaniu przycisku myszy i poruszaniu nia rysowała się ramka (coś takiego jak w windowsie – przy naciśniętym lewym przycisku myszy na pulpicie ) – i żeby jeszcze do tego można było pobrać współrzędne na obrazku gdzie zostało rozpoczęte rysowanie a także rozmiar rysowanej ramki - - może mi ktoś pomóc – wiem jak zwykle zamieszałem w tekście – ale może ktoś mnie zrozumie - pozdrawiam
[hurra]

0

sprobuj cos z tym pokombinowac -=- mi to dziala tak jakos :] :-P

var
Form1: TForm1;
b: boolean;
t: tpoint;
implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
b:= true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if b then
begin
refresh;
canvas.Rectangle(x,y,t.x,t.y);
end;

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
b:=false;
refresh;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
getcursorpos(t);
end;

end.

0

aha i co do p obrania wartosci klikniecia to np pod onclicka GETCURSORPOS(TPOINT);
label1.caption:=inttostr(t.x);
label2.caption:=inttostr(t.y);

0

Dzięki - jakoś działa [cya]

0

:-) hehe prosze :d [cya] [browar]

1 użytkowników online, w tym zalogowanych: 0, gości: 1