Текущий архив: 2002.09.19;
Скачать: CL | DM;

Вниз

рисование   Найти похожие ветки 

← →
race1 ©   (2002-08-30 12:41) [0]

как бы мне нарисовать на имаге, на которой есть большое изображение (т.е. перерисовка не годится) не то что бы линию, а как в фотошопе линейка - на изображении линия не задерживается, а постоянно перерисовывается от начальной координаты до указателя мышки, притом, что бы имага не мерцала при этом?. как?

---

← →
Cr@sh ©   (2002-08-30 12:44) [1]

Для того чтобы не мерцала используй doublebuffered:=true для компонента на котором находится имэйдж.

---

← →
Cr@sh ©   (2002-08-30 12:48) [2]

Может это тебе поможет:


var
StrPosX, StrPosY: integer;
PosX, PosY: integer;
Down: boolean;

procedure TForm1.I1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if lines.Checked=true then
begin
StrPosX:=X;
StrPosY:=Y;
PosX:=x;
PosY:=y;
Down:=true;
end;
end;

procedure TForm1.I1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if lines.Checked=true then
begin
if Down then
with i1.Canvas do
begin
Pen.Mode:=pmNotXor;
MoveTo(StrPosX,StrPosY);
LineTo(PosX,PosY);
PosX:=X;
PosY:=Y;
MoveTo(StrPosX,StrPosY);
LineTo(PosX,PosY);
end;
end;
end;

procedure TForm1.I1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if lines.Checked=true then
begin
Down:=false;
with i1.Canvas do
begin
Pen.Mode:=pmCopy;
MoveTo(StrPosX,StrPosY);
LineTo(X,Y);
end;
end;
end;

---

← →
race1 ©   (2002-08-30 13:42) [3]

мышка дёргается, типа, линию рисует, а изоьражения нету :(

---

← →
race1 ©   (2002-08-30 13:43) [4]

мышка дёргается, типа, линию рисует, а изоьражения нету :(

---

← →
race1 ©   (2002-08-30 13:43) [5]

мышка дёргается, типа, линию рисует, а изоьражения нету :(

---

← →
lenin ©   (2002-08-30 13:46) [6]

Она и будет дергаться.

---

← →
race1 ©   (2002-09-06 18:10) [7]

но изображения-то нет!

---

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

Текущий архив: 2002.09.19;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.01 c