Показать сообщение отдельно
  #7  
Старый 17.03.2011, 19:21
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

а ну так проблема то в чем
Код:
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Canvas.Draw(-10, -10, VScreen);
end;

вот эта операция должна выполняться после неё токо отображается рисунок если выполняется
Код:
PaintBox1.Canvas.Draw(-10, -10, VScreen);
то видно только надписи нарисованные VScreen
Код:
VScreen.Canvas.LineTo(X, Y);
а если выполнять
Код:
 PaintBox1.Canvas.Draw(-10, -10, VScreen2);
то видны надписи нарисованные только VScreen2
Код:
VScreen2.Canvas.LineTo(X, Y);
тобишь другим человеком вобщем выходит либо твое либо другого ты можешь видеть, мне кажется должно быть чтото чтобы видеть обе
Ответить с цитированием