Показать сообщение отдельно
  #10  
Старый 25.11.2012, 02:25
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Эти процедуры рисуют на битмапах, а их потом можешь использвать как угодно и основное окно тебе не требуется. Как я понял ты делаешь не на API, на VCL. Координаты, это первые 2 числа после MainDC.
Предположим вывод на TPainBox:
Код:
  BitBlt(PaintBox1.Canvas.Handle, 0, 0, BarBitmap.aWidth, BarBitmap.aHeight, BarBitmap.Canvas.Handle, 0, 0, SRCCOPY); 
  PaintBox1.Refresh;
на TImage:
Код:
  Image1.Assign(BarBitmap);
Для второго битмапа в том же духе.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием