Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.14;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.064 c
9-1129754635
Ricks
2005-10-20 00:43
2006.05.14
Элементарный поиск пути


15-1145605696
Суслик
2006-04-21 11:48
2006.05.14
Как сделать свой протокол


15-1145428761
mio
2006-04-19 10:39
2006.05.14
веб-сервак


5-1130225284
Новенький
2005-10-25 11:28
2006.05.14
Изменить Scroll у TStringList


2-1146106507
Юрик
2006-04-27 06:55
2006.05.14
как отличить заглавную букву от прописной???