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]
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.
aha i co do p obrania wartosci klikniecia to np pod onclicka GETCURSORPOS(TPOINT);
label1.caption:=inttostr(t.x);
label2.caption:=inttostr(t.y);
Dzięki - jakoś działa [cya]
:-) hehe prosze :d [cya] [browar]