Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];

Вниз

ВЫДИЛЕНИЕ   Найти похожие ветки 

← →
frum   (2002-08-21 10:38) [0]

Не знаю как вам объяснить, вобщем как сделать так чтобы при нажатии мышки и дальнейшем перидвижении обвадился контур, область выдиления, а при отпускании кнопки миши он исчезал.

---

← →
lenin   (2002-08-21 10:44) [1]

Рисовать этот контур на канве.

---

← →
I_A   (2002-08-21 10:45) [2]

DrawFocusRect

---

← →
ArhAngel2   (2002-08-21 11:03) [3]

Необходимо обработать события onMouseDown onMouseMove и onMouseUp
var
dr: boolean;
Rec: Trect;

procedure TForm1.FormMouseDown(Sender: TObject; Button:
TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dr:=true;
setCapture(handle); //Получаем сообщения мыши, даже если она за пределами формы
Rec.Left:=x;
rec.Top:=y;
rec.BottomRight:=rec.TopLeft;
canvas.DrawFocusRect(Rec);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dr then
begin
canvas.DrawFocusRect(rec);
rec.Right:=x;
rec.Bottom:=y;
canvas.DrawFocusRect(rec);
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if dr then
begin
releaseCapture;
dr:=false;
invalidate;
end;
end;

---

← →
evgeg   (2002-08-21 12:11) [4]

в общем
перЕдвижении
обвОдился
выдЕления
мЫши

Вы совсем не уважаете людей, которых просите помочь вам
с вашим вопросом.

---

← →
Игорь Шевченко   (2002-08-21 12:11) [5]

Русский выучить :-)

---

← →
BOA_KAA   (2002-08-21 12:21) [6]

> ArhAngel2 © (21.08.02 11:03)

Прекрасный способ рисования не только на форме, но и на TImage и прочей VCL-банде, но не полный. Не обрабатывается случай, когда конечное положение мыши (при MouseUp и MouseMove) слева или выше начального.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.064 c