Текущий архив: 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.045 c
