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

[mutabor]

Не надо посередине никаких имиджей, я в посте №4 написал как надо делать.
А вот это

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

я написал, чтобы ты осознал ошибку, и вернулся все к тому же посту №4.

Чтобы линии не пропадали, нужно перерисовывать их по событию OnPaint формы, если конечно форма в этом месте чистая, и сверху нет панелей или еще чего.
Так как есть обработка перерисовки окна, не нужно линии закрашивать белым цветом для невидимости. Нужно вызвать Repaint, окно перерисуется, и по новой нарисуются только те линии, к-рые ведут туда, где стоит галочка.

Кидай проект, переделаем, не с нуля же писать.

[Rusl92]

это одна форма от моего проекта, помогите исправить, чтобы на имаге рисовались линии, а не так, чтобы он становился полностью белым! Заранее спасибо! я пытался загрузить, но происходила ошибка базы данных, пришлось на ifolder.ru загрузить, ссылка: http://ifolder.ru/7672816

[Rusl92]

кто-нибудь поможет?

[Карась]

Я не вникал как именно надо нарисовать эту линию....
Нарисовал горизонтальную по середине.

Ris.Canvas.Pen.Color := ClRed;
Ris.Canvas.MoveTo(Ris.Width, Ris.Height Div 2);
Ris.Canvas.LineTo(0, Ris.Height Div 2);

[Rusl92]

я уже сам разобрался, я поставил между компонентами имадже и рисовал на нем, вот еще одно решение, и этому имадже в свойстве Transparent =true!

[mutabor]

Rusl92, только без паники. У людей могут быть свои дела. Хоть ты и сам уже разобрался, покажу твои ошибки и приведу тот вариант о к-ром я говорил.

Сначала тот проект что ты выкладывал, с исправлением ошибок

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
   with  ris.Canvas  do begin
      Pen.Color:=clRed;
      MoveTo(0, ris.Height div 2);   // центр Image2
      {здесь было обращение к высоте формы, а не имиджа, у канвы нет свойства Height}
      LineTo(ris.Width-1, ChecklistBox1.ItemHeight*7 +ChecklistBox1.ItemHeight  div 2);
      {то же самое только к ширине}
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ris.Transparent:=true;
ris.Canvas.FillRect(ris.Canvas.ClipRect); //нужно закрасить канву белым
//иначе Transparent ничего не даст
end;

А это то, что тебе надо
(панели нет, на форме Image2 и CheckListBox2)

procedure TForm1.FormCreate(Sender: TObject);
begin
  Canvas.Pen.Color:=clRed;
  DoubleBuffered:=true;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  i: integer;
begin
with Canvas do
  with CheckListBox2 do
    for i:=0 to Items.Count-1 do
      if Checked[i] then
        begin
          MoveTo(Image2.Left+Image2.Width, Image2.Top + Image2.Height div 2);
          LineTo(Left, Top + i * ItemHeight + ItemHeight div 2);
        end;
end;

procedure TForm1.CheckListBox2ClickCheck(Sender: TObject);
begin
  with Canvas do
    with Sender as TCheckListBox do
      if Checked[ItemIndex] then
        begin
          MoveTo(Image2.Left+Image2.Width, Image2.Top + Image2.Height div 2);
          LineTo(Left, Top + ItemIndex * ItemHeight + ItemHeight div 2);
        end
      else
        Form1.Repaint;
end;

[K@$K@]

Стандартный цвет закрашивания у канвы белый, честно не знаю как его поменять, можешь рисовать прямоугольник с нужным цветом.