[poli-smen]

Сообщение от komp

Добрый день, с этим вроде разобрался, вот только возникла другая проблемка у ScrollBox, на который выводятся компоненты отваливается Canvas.
До восстановления компонент из файла все ок. После ничего не могу рисовать на ScrollBox. Знаю что у ScrollBox нет свойства Canvas, поэтомуделаю вот так
Canva:=TCanvas.Create;
Canva.Handle:=getdc(ScrollBox1.Handle); и все прокатывало
после восстановления компонент, рушится какая-то связка, пересоздать канву и переназначить Handle не помогает

А так?:

Код:

var
  Canva: TControlCanvas;
begin
  Canva := TControlCanvas.Create;
  try
    Canva.Control := ScrollBox1;
    Canva.Brush.Color := clRed;
    Canva.Ellipse(10, 20, 30, 40);
  finally
    Canva.Free;
  end;
end;