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

Линия на форме   Найти похожие ветки 

← →
Leonardo   (2006-04-24 20:35) [0]

Нужно нарисовать линию на форме при запуске и при дальнейшем растягивании формы чтобы она всегда была по всей ширине формы:


procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Canvas.Pen.Color := $00CBC7C2;
Form1.Canvas.MoveTo(0, 19);
Form1.Canvas.LineTo(Form1.ClientWidth, 19);
end;


не рисуется в FormCreate, что делать?

---

← →
Джо ©   (2006-04-24 20:36) [1]

> не рисуется в FormCreate, что делать?

Рисовать в OnPaint.

---

← →
Desdechado ©   (2006-04-24 21:39) [2]

а можно использовать TBevel с якорями

---

← →
Hitkliff ©   (2006-04-26 09:08) [3]

Либо рисуй в procedure TForm1.FormResize(Sender: TObject);

---

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

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



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