Скачать: CL | DM;

графика в делфи   Найти похожие ветки 

← →
МишаК   (2006-07-03 13:43) [0]

проблемы с графикой в делфи7!
когда нажимаю на Button1 то на форме вырисовывантся фигура. Потом опускаю форму за панель задачь или
за предел экрана и фигура исчезает. Что делать что бы она не исчезала?

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
form2.canvas.Pen.Width:=1;
case combobox1.ItemIndex of
0: form2.canvas.pen.color:=clblack;
1: form2.canvas.pen.color:=clmaroon;
2: form2.canvas.pen.color:=clgreen;
3: form2.canvas.pen.color:=clolive;
4: form2.canvas.pen.color:=clnavy;
5: form2.canvas.pen.color:=clpurple;
6: form2.canvas.pen.color:=clteal;
7: form2.canvas.pen.color:=clgray;
8: form2.canvas.pen.color:=clsilver;
9: form2.canvas.pen.color:=clred;
10: form2.canvas.pen.color:=cllime;
11: form2.canvas.pen.color:=clblue;
12: form2.canvas.pen.color:=clfuchsia;
13: form2.canvas.pen.color:=claqua;
14: form2.canvas.pen.color:=clwhite;
end;
case combobox2.ItemIndex of
0: form2.canvas.Pen.style:=pssolid;
1: form2.canvas.Pen.Style:=psdash;
2: form2.canvas.Pen.Style:=psdot;
3: form2.canvas.Pen.Style:=psdashdot;
4: form2.canvas.Pen.Style:=psdashdotdot;
5: form2.canvas.Pen.Style:=psclear;
end;
case combobox3.itemindex of
0: form2.canvas.Pen.mode:=pmblack;
1: form2.canvas.Pen.mode:=pmwhite;
2: form2.canvas.Pen.mode:=pmcopy;
3: form2.canvas.Pen.mode:=pmnotcopy;
4: form2.canvas.Pen.mode:=pmnot;
end;
case combobox4.ItemIndex of
0: form2.canvas.brush.color:=clblack;
1: form2.canvas.brush.color:=clmaroon;
2: form2.canvas.brush.color:=clgreen;
3: form2.canvas.brush.color:=clolive;
4: form2.canvas.brush.color:=clnavy;
5: form2.canvas.brush.color:=clpurple;
6: form2.canvas.brush.color:=clteal;
7: form2.canvas.brush.color:=clgray;
8: form2.canvas.brush.color:=clsilver;
9: form2.canvas.brush.color:=clred;
10: form2.canvas.brush.color:=cllime;
11: form2.canvas.brush.color:=clblue;
12: form2.canvas.brush.color:=clfuchsia;
13: form2.canvas.brush.color:=claqua;
14: form2.canvas.brush.color:=clwhite;
end;
case combobox5.itemindex of
0: form2.canvas.brush.style:=bssolid;
1: form2.canvas.brush.style:=bsclear;
2: form2.canvas.brush.style:=bsHorizontal;
3: form2.canvas.brush.style:=bsVertical;
4: form2.canvas.brush.style:=bsfdiagonal;
5: form2.canvas.brush.style:=bsbdiagonal;
6: form2.canvas.brush.style:=bscross;
7: form2.canvas.brush.style:=bsdiagcross;
end;
case combobox6.ItemIndex of
0: form2.canvas.Ellipse(200,200,400,400);
end;
end;
end.

---

← →
Desdechado ©   (2006-07-03 13:51) [1]

Писать рисование в соответствующем обработчике события (OnPaint).
Дело в том, что окна постоянно себя перерисовывают по такому событию. А от твоих махинациях они знать не знают.

---

← →
Amoeba ©   (2006-07-03 14:41) [2]

Или рисуй на TImage. Тогда стираться не будет.

---

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

Скачать: CL | DM;



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