Текущий архив: 2002.09.02;
Скачать: CL | DM;
Вниз
ВЫДИЛЕНИЕ Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
