| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Линия на форме [D7, WinXP]
Leonardo © (2006-04-24 20:35:00)Нужно нарисовать линию на форме при запуске и при дальнейшем растягивании формы чтобы она всегда была по всей ширине формы:
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Canvas.Pen.Color := $00CBC7C2;
Form1.Canvas.MoveTo(0, 19);
Form1.Canvas.LineTo(Form1.ClientWidth, 19);
end;
не рисуется в FormCreate, что делать?
Hitkliff (2006-04-26 09:08:00) [1]Либо рисуй в procedure TForm1.FormResize(Sender: TObject);
Desdechado (2006-04-24 21:39:00) [2]а можно использовать TBevel с якорями
Джо (2006-04-24 20:36:00) [3]> не рисуется в FormCreate, что делать?
Рисовать в OnPaint.
| |
