Рисование в Делфи

[Rusl92]

Здравствуйте, помогите мне пожалуйста! Напишите каким образом можно рисовать в Делфи. Например, мне нужно с правого края Label1 провести линию до левого края строки CheckListbox1 если галочка поставлена на данной линии, при снятии галочки - линия окрашивается в белый өвет (ее становится невидно), , а линий - 4, заранее спасибо

[Манжосов Денис :)]

Canvas.Pen.Color := clRed;
Canvas.MoveTo(0,0);
Canvas.LineTo(100,0);

чтобы цвет менять
Canvas.Pen.Color := clWhite; // белый цвет
Canvas.MoveTo(0,0); // Начальная координата
Canvas.LineTo(100,0);// Конечная координата
Я просто не совсем понял чего именно вы хотели, поэтому возможно это вам поможет, если разберетесь.

[Rusl92]

спс, но не до конца

[mutabor]

procedure FormPaint
в цикле пройтись по листбоксу, если галка стоит, то

Canvas.MoveTo(Label1.Left+Label1.Width, Label1.Top);
Canvas.LineTo(CheckListbox1.Left, <номер строки * высоту строки>);

по событию OnCheck (может не так называться) те же самые две строки

При снятии галочки не надо красить в белый цвет, просто вызываешь Repaint.

[Rusl92]

вот что в результате у меня получилось, спасибо большое!

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
   if CheckListBox1.Checked[CheckListbox1.ItemIndex] then
   begin
   Canvas.Pen.Color:=clRed;
   Canvas.MoveTo(Label1.Left+Label1.Width, Label1.Top);
   Canvas.LineTo(CheckListbox1.Left,CheckListbox1.ItemHeight*CheckListbox1.ItemIndex+130)
   end
   else
   begin
   Canvas.Pen.Color:=clWhite;
   Canvas.MoveTo(Label1.Left+Label1.Width, Label1.Top);
   Canvas.LineTo(CheckListbox1.Left,CheckListbox1.ItemHeight*CheckListbox1.ItemIndex+130);
   end;
   end;

end.

From Stilet: Господа! Не забываем, пожалуйста, оформлять код спецтегом (#). Читабельность респективнее

[mutabor]

Rusl92, а теперь попробуй задвинь окно за край экрана и высунь, или сверни и разверни. Или проведи сверху другим окном.

[Rusl92]

mutabor прав, вообще вот компоненты лавел, чеклистбокс на панели1-вообще черт знает где рисуются линии, помогите пож. исправить!

это из-за того, что он берет left,top,width,height не компонентов, а панелИ!!!

помогите пожалуйста, есть какие варианты решения данной проблемы?

[Stilet]

А не проще ли бы взять обычный TChart и линии в нем проводить уже по реальным координатам?

[Rusl92]

слушайте, я поставил между Image1 и CheckListBox1 Ris(TImage), и на нем на канве пытался рисовать: но почему то как только ставлю галочку (должна отрисовываться линия), ris становится полностью белым, обьясните почему так???

[Карась]

Кидай проект сюды....